Dodge the fireballs using Z for down and . for up.
PROG : 16509
D-FILE: 17718
VARS : 18511
E-LINE: 18512
STKBOT: 18512
STKEND: 18512
9999 means line number
PRINT means treat as KEYWORD P
10 REM **FIREBALL**SLR/1984***
20 LET S=0
30 LET W=10
40 DIM A$(4,6)
50 LET A$(1)=" ùúúù!"
60 LET A$(2)=" ùúùú!"
70 LET A$(3)=" úúùú!"
80 LET A$(4)=" úúùù!"
90 GOSUB 260
100 FOR A=1 TO 25
110 LET F=F+1
120 PRINT AT F1,A;A$(R)
130 IF F>=F0 THEN PRINT AT F2,A
-F0;A$(RN)
140 PRINT AT X,25-A;"<";AT C,26
-A;" "
150 LET C=X
160 LET X=X+(INKEY$="Z")-(
INKEY$=".")
170 PRINT AT X,24-A;
180 IF PEEK (PEEK 16398+256*
PEEK 16399)<>0 THEN GOTO 370
190 LET S=S+10
200 NEXT A
210 PRINT AT 21,0;"YEE MADE IT
<><>"
220 LET S=S+50
230 LET W=W-(W>2)
240 PAUSE 100
250 GOTO 90
260 LET X=INT (W*RND+1)
270 LET F0=INT (3*RND+6)
280 LET F=0
290 LET F1=INT (W*RND+1)
300 LET F2=INT (W*RND+1)
310 LET R=INT (4*RND+1)
320 LET RN=INT (4*RND+1)
330 CLS
340 PRINT AT 0,0;"
";AT W+1,0;"
"
350 LET C=X
360 RETURN
370 PRINT AT C,0;"
";AT X,0;"º¹¹
¹ººº¹º¹ºººº¹¹¹¹º¹º¹¹º¹ººº¹¹º¹"
380 PRINT AT F1,A+1;A$(R,2 TO )
;AT F2,A-F0+1;A$(RN,2 TO );AT 12
,0;"<><><><><>CRASH<><><><><>"
390 PRINT AT 17,5;"SCORE:";S
400 PRINT AT 21,0;"PRESS ANY KE
Y TO BEGIN..."
410 PAUSE 4E4
420 RUN
500 SAVE "FB"
510 RUN