Source Code
1 REM % %S%T%A%R% %L%A%N%D%E%R%
5 GOSUB 211
10 LET K=5
20 LET F=100+INT (RND*300)+1
25 LET V=INT (RND*150)+1
30 LET H=500
40 LET Z=H
50 PRINT AT 13,9;"\..\..\..\..\..\..\..\..\..\..\..\..\..\.."
60 PRINT AT 16,13;"F ";F;" ";TAB 13;"H ";H;" ";TAB 13;"V ";V;" "
61 PRINT AT 19,12;"% % % % % % % % "
63 PRINT AT 16,12;"% ";TAB 19;"% "
64 PRINT AT 17,12;"% ";TAB 19;"% "
65 PRINT AT 18,12;"% ";TAB 19;"% "
68 SLOW
70 PRINT AT (600-Z)/50,K;"% % % "
80 LET K=K+RND
90 PRINT AT (600-H)/50,K;"%<\..%>"
100 LET Z=H
105 GOSUB 275
110 INPUT T
115 GOSUB 240
120 LET V=V+5-T
130 LET H=H-V
140 LET F=F-ABS (T)
145 IF F<1 THEN GOTO 190
150 IF H>0 THEN GOTO 60
160 IF V>10 THEN GOTO 190
170 PRINT AT 2,8;"%L%A%N%D%E%D% ";F-V;"% %P%O%I%N%T%S% ";
180 GOTO 200
190 PRINT AT 2,6;"% %C%R%A%S%H%E%D% %A%T% ";V;"%F%E%E%T"
200 PAUSE 500
205 CLS
210 RUN
211 FAST
215 FOR A=1 TO 16
220 FOR B=1 TO 32
225 PRINT "% ";
230 NEXT B
235 NEXT A
240 PRINT AT RND*9,RND*31;"%."
246 PRINT AT RND*9,RND*31;"%."
270 RETURN
275 PRINT AT 14,10;" "
280 PRINT AT 14,10;"%I%N%P%U%T% %T%H%R%U%S%T"
285 LET P=0
290 GOSUB 335
295 PRINT AT 14,10;"INPUT THRUST"
300 GOSUB 335
305 PRINT AT 14,10;"% % % % % % % % % % % % "
310 GOSUB 335
315 LET P=P+1
320 IF P=4 THEN GOTO 110
325 GOTO 295
335 LET T=0
340 LET T=T+1
345 IF T=2 THEN RETURN
350 GOTO 340
360 CLEAR
370 SAVE "1027%5"
380 RUN
