ZX81 Listing for raceway.p


ZX81 program listing for **RACEWAY**SLR/1983****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17267
VARS  : 18060
E-LINE: 18061
STKBOT: 18061
STKEND: 18061


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

   3 REM **RACEWAY**SLR/1983****
   6 LET H=0
  10 LET Z=0
  20 LET C=0
  30 LET A=12
  40 LET B=9
  50 IF INKEY$="Z" THEN LET A=A-
1
  60 IF INKEY$="." THEN LET A=A+
1
  70 LET D=INT (3*RND+1)
  80 IF D=1 THEN LET B=B-(B>0)
  90 IF D=2 THEN LET B=B+(B<26)
 100 PRINT AT C,B;"!    !";AT C,
A;"X"
 110 IF A<=B OR A>=B+5 THEN
GOTO 210
 120 LET C=C+1
 130 LET Z=Z+1
 140 IF C=16 THEN GOTO 160
 150 GOTO 50
 160 LET Z=Z+(INT (10*RND+1))
 170 PRINT AT C,B;"²³³³³±";AT 20
,0;"**PRESS ENTER TO CONTINUE** 
    "
 180 PAUSE 4E4
 190 CLS
 200 GOTO 20
 210 PRINT AT C+1,B;"±     ²";
AT C+2,B;" CRASH ";AT C+3,B;"´  
   ÷"
 220 IF Z>H THEN LET H=Z
 230 PRINT "SCORE:";Z
 240 PRINT "HI-SCORE:";H;"  A NE
W RECORD*" AND H=Z
 250 PRINT "****PRESS ENTER TO C
ONTINUE**** "
 260 PAUSE 4E4
 270 CLS
 280 GOTO 10
 300 SAVE "RACEWAY"
 310 RUN