ZX81 Programs


Read about, play, run, or list games, animations, and more. These are my programs from the ’80s to today.

ZX81 Program Listing

**RACEWAY**SLR/1983**** (raceway.p)


SYSTEM VARIABLES

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


LEGEND

A means INVERSE A
A means GRAPHICS A
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;"A    A";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;"W6666Q";AT 20
,0;"**PRESS ENTER TO CONTINUE** 
    "
 180 PAUSE 4E4
 190 CLS
 200 GOTO 20
 210 PRINT AT C+1,B;"Q     W";
AT C+2,B;" CRASH ";AT C+3,B;"R  
   E"
 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