ZX81 Listing for sd.p


ZX81 program listing for **STAR DODGE*SLR/1984**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17337
VARS  : 18130
E-LINE: 18131
STKBOT: 18131
STKEND: 18131


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **STAR DODGE*SLR/1984**
  20 LET S=0
  30 LET D=40
  40 CLS
  45 FAST
  50 FOR A=1 TO 22
  60 PRINT                    
           õ"
  70 NEXT A
  80 LET X=INT (30*RND+1)
  90 FOR A=1 TO D
 100 PRINT AT INT (19*RND),INT (
30*RND+1);"."
 110 NEXT A
 120 LET XC=X
 121 SLOW
 125 PRINT AT 21,X;"H"
 126 PAUSE 100
 130 FOR A=20 TO 0 STEP -1
 140 PRINT AT A+1,XC;" ";AT A,X;
"H"
 150 LET XC=X
 160 LET X=X-(INKEY$="Z")+(
INKEY$=".")
 170 PRINT AT A-1,X;
 180 IF PEEK (PEEK 16398+256*
PEEK 16399)<>128 THEN GOTO 300
 190 NEXT A
 200 PRINT AT 1,3;"YEE MADE IT<>
<>"
 210 LET D=D+(20 AND D<100)
 215 PAUSE 100
 220 LET S=S+100
 230 IF S=1000 OR S=10000 OR S=5
000 THEN LET S=S+2000
 240 GOTO 40
 300 PRINT AT 1,3;"CRASH<><><><>
<><>"
 310 PRINT AT 5,3;"SCORE:";S
 320 PRINT AT 21,3;"PRESS ANY KE
Y TO BEGIN<<>>"
 330 PAUSE 4E4
 340 RUN
 400 SAVE "SD"
 410 RUN