154 1370 PRINT TAB(5,16)burnrate% 1375 VDU5 1380 ENDPROC 5000 DEF PROCcrash 5020 SOUND 4,-15,100,70 5030 FORX=1 TO 100 5040 MOVE 850+RND(200),RND(200) 5045 GCOL, RND(4) 5050 DRAW RND(1280),RND(1024) 5055 NEXT 5060 ENDPROC 6000 DEF PROCfanfare 6010 FOR X=1 TO 11 6015 READ P,D 6017 IF P=999 THEN L=0 ELSE L=-15 6020 SOUND 1,L,P,D 6025 SOUND 1,0,0,3 6030 NEXT 6035 DATA 97,15,97,5,101,5,999,5,101,5,97,5,101,10,97,2,89,5,81 ,5,77,10 6040 ENDPROC 8000 DEFPROCburn 8005 GCOL0,1 8010 MOVEX%,oldY% 8015 IF burnrate%=0 THEN VDU10,9,127 ELSE VDU10,243 8025 GCOL0,3 8030 ENDPROC 10000 DEFPROCrocket 10100 MOVEX%,oldY% 10110 VDU 10,9,127,11,9,127,11,9,127,11,9,127 10120 MOVE X%,Y% 10140 VDU 242,8,11,241,8,11,240 10150 oldY%=Y% 10160 ENDPROC Running the program You start off at a height of 46 miles moving at 1 mile/sec or 3600 mph.
You have fuel of 16500lbs and your weight to start with, including fuel, is 33000 lbs. You fire the rockets by pressing one of the keys 1-9 and holding it down until you want to stop burning. The rate of burning is proportional to the number. You must land at less than 15 mph.