ZX81 Listing for pylonv.p


ZX81 program listing for **PYLON V**SLR/1984****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17237
VARS  : 18030
E-LINE: 18031
STKBOT: 18031
STKEND: 18031


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **PYLON V**SLR/1984****
  20 LET A$="¶¹ö"
  30 LET S=0
  40 LET D=6
  50 LET X=10
  60 LET B$="¸¸     ¸¸"
  70 LET M=0
  80 FOR A=1 TO 20
  81 FOR C=0 TO D
  90 LET S=S+1
 100 SCROLL
 110 PRINT AT 0,X;A$
 120 IF C=D THEN PRINT AT 21,
INT (RND*23);B$
 130 LET X=X-(INKEY$="Z" AND X>0
)+(INKEY$="." AND X<29)
 140 FOR G=X TO X+2
 150 PRINT AT 1,G;
 160 IF PEEK (PEEK 16398+256*
PEEK 16399)=CODE "¸" THEN GOTO 3
00
 170 IF PEEK (PEEK 16398+256*
PEEK 16399)=CODE " " THEN LET M=
M+1
 180 NEXT G
 181 NEXT C
 190 NEXT A
 200 LET S=S+(20*M)
 210 PRINT AT 15,0;" YOU COMPLET
ED A RUN, KEEP IT UP"
 220 LET D=D-(D>0)
 230 GOTO 70
 300 CLS
 310 PRINT "YOU DIED"
 320 PRINT "YOU SCORED ";S;" POI
NTS."
 330 PRINT "PRESS ANY KEY TO STA
RT AGAIN."
 340 IF INKEY$="" THEN GOTO 340
 350 CLS
 360 RUN
 400 SAVE "PYLONV"
 410 RUN