ZX81 Listing for fb.p


ZX81 program listing for **FIREBALL**SLR/1984***

**FIREBALL**SLR/1984*** (fb.p)

Dodge the fireballs using Z for down and . for up.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17718
VARS  : 18511
E-LINE: 18512
STKBOT: 18512
STKEND: 18512


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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