153 800 DEF PROCmoon 805 GCOL 0,2 810 LOCAL X 820 FOR X=100 TO 1280 STEP 200 830 MOVE X,0 840 PLOT 85,X,30 850 PLOT 85,X+100,0 860 NEXT X 870 ENDPROC 900 DEF PROCinitialise 910 TIME=0:now=0 920 speed=1 :REM in miles/second 930 height=46:REM in miles 935 Y%=920 937 oldY%=Y% 940 gravity=0.001 950 fuel=16500 960 totalmass=33000 965 burnrate%=0 970 ENDPROC 1100 DEF PROCcalculate 1105 IF fuel 1110 burntime=(TIME-now)/100 1120 now=TIME 1130 slower=(burnrate%/ totalmass)*2*EXP(burnrate%*burntime/totalmass) 1140 height=height-speed*burnttime- burntime*burntime/2* (gravity-slower) 1150 speed=speed+burntime*(gravity-slower) 1160 burnt=burnrate%*burntime 1170 totalmass=totalmass-burnt 1180 fuel=fuel-burnt 1190 IF height 1200 Y%=height*20+32 1210 ENDPROC 1300 DEF PROCdashboard 1310 VDU4 1320 PRINT TAB(5,7)INT(TIME/100) 1330 PRINT TAB(5,9)INT(height) 1340 PRINT TAB(5,10)INT(height*5280) MOD 5280 1350 PRINT TAB(5,12)INT(speed*3600) 1360 PRINT TAB(5,14)INT(fuel)