a=0 b=60 c=100 e=60 m="\n" n="Fuelrod:" o=" m" p=" h" q="Propellant:"
r="%" s="Inf" t=" km" u=1000
d=300000 //Fuelrod amount
if :FcuMfcIO1==0 then :fuel=:status goto4 else goto5 end
i=tgs-:gas if i then tgs2=:gas/i tgs=:gas else g=s end l=:gas/:mgas
j=:fr/d*c ft=t1-t2 f=(((:fr/ft)/e)/1000)*1000
if i then distM=tgs2*:spd distKM=distM/u/u*u g=distKm+t end 
t1=:fr*5  if f<e then fr=f+p else fr=f/e+p end
t2=:fr*5 :fuel=m+n+m+j+r+m+fr+m+q+m+l*c+r+m+g goto5