Moon lander
This is an up-market real-time lander program which gives you an opportunity to grapple with the problems which face a space-lagged cruiser commander returning home after a long haul. The object of the exercise is to land your craft on the chillingly small landing pad at the bottom of the screen. Precision is the name of the game, because if your rate of descent is too great you and your crew are gonners. A word of warning: if you over-fire your rockets you'll disappear into hyperspace until returning back on screen, plummeting to your doom unless you've been doing some nifty blind flying to slow your descent.
10 REM MOONLANDER.
20 REM @ ROBERT ERSKINE.
30 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,20:INK 3,6:WINDOW #1,1,40,1,25:PAPER # 1,0:PEN #1,1:CLS #1
40 GOSUB 460
50 GOSUB 540
60 WINDOW #0,5,36,1,25:PAPER #0,0:PEN #0 ,1:CLS #0
70 FOR X=1 TO 75:PLOT 64+INT(RND*500),40 0-INT(RND*200),2:NEXT
80 IF E=0 THEN 140
90 M=M1:M1=M-F1
100 H1=H:H=(H+V)-0.81
110 V=V+((T/F1)*(LOG(M/M1)))-1.62
120 F=F-F1
130 GOTO 170
140 M1=M:
150 H1=H:H=(H+V)-0.81
160 V=V-1.62
170 COL1=COL
180 IF COL>0 AND RND>0.5 THEN COL=COL-1 190 IF COL<31 AND RND>0.5 THEN COL=COL+1 200 PEN 3:LOCATE 1,23:PRINT"Height";INT (H);" ":PEN 1
210 PEN 2:LOCATE 21,23:PRINT"Velocity";I NT (V);"	":PEN 1