ZX81 Listing for bolder.p


ZX81 program listing for **BOLDER**SLR/1985*****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17703
VARS  : 18496
E-LINE: 18497
STKBOT: 18497
STKEND: 18497

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  10 REM **BOLDER**SLR/1985*****
  20 LET S=0
  30 PRINT AT 10,0;"            
                    "
  40 PRINT AT 3,10;"BOLDER";AT 4
,10;"ú!!!!ú"
  50 PRINT AT 20,0;"USE ""7"" TO
 JUMP. GOOD LUCK****"
  60 LET L=0
  70 LET L1=1
  80 LET SP=1
  90 LET X=9
 100 LET L=L+1
 110 PRINT AT 5,0;"LEVEL ";L;" N
OW GOING"
 120 LET A$="XO¶ö!¸ZN+*±²÷´TH Q0
³óñ·ôòõµLAST*"(L1)
 130 FOR I=30 TO 6 STEP -1
 140 LET G=(7)+(2 AND RND>.5)
 150 FOR F=1 TO 31 STEP SP
 160 PRINT AT 6,I;"  ";AT 7,I;" 
 ";AT 8,I;"  ";AT 9,I;"  ";AT X-
1,I;"± ";AT X,I;"µ ";AT G,F;A$
 170 IF F>=I THEN GOTO 210
 180 LET S=S+1
 190 LET X=X+(2 AND X=7)-(1 AND
INKEY$="7" AND X=9)-(1 AND X=8)
 195 PRINT AT G,F;" "
 200 NEXT F
 210 IF X=G OR X-1=G THEN GOTO 4
00
 215 LET X=X+(2 AND X=7)-(1 AND
INKEY$="7" AND X=9)-(1 AND X=8)
 220 LET S=S+L
 225 PRINT AT G,F;" "
 230 NEXT I
 240 LET SP=SP+(SP<6)
 250 LET L1=L1+1
 260 IF L1=33 THEN LET L=1
 270 GOTO 100
 400 CLS
 410 PRINT "YOU GOT HIT BY A BOL
DER AND DIED                 ú!!
!!ú"
 420 PRINT AT 5,0;"FINAL LEVEL:"
;L
 430 PRINT ,,"FINAL SCORE:";S
 440 PRINT ,,,,
 450 FOR A=1 TO 32*11
 460 PRINT A$;
 470 NEXT A
 480 PAUSE 4E4
 485 CLS
 490 RUN
 500 CLS
 510 CLEAR
 520 SAVE "BOLDER"
 530 RUN