ZX81 Programs


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

ZX81 Program Listing

**ROAD**SLR/2022** (road.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17005
VARS  : 17798
E-LINE: 17799
STKBOT: 17799
STKEND: 17799


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **ROAD**SLR/2022**
  20 LET X=10
  30 RAND
  40 LET Z=INT (RND*3)-1
  50 FOR B=1 TO 10
  60 IF Z=-1 THEN LET X=X+(-.5
AND B<5 AND X>0)+(.5 AND B>6
AND X<21)
  70 IF Z=1 THEN LET X=X+(.75
AND B<5 AND X>0)+(-.75 AND B>6
AND X<21)
  80 IF Z=0 THEN LET X=X+(0 AND
B<5 AND X>0)+(0 AND B>6 AND X<21
)
  90 IF B>2 AND B<8 THEN PRINT
AT 21,X;"     !     "
 100 IF B<3 OR B>7 THEN PRINT
AT 21,X;"           "
 110 SCROLL
 120 NEXT B
 130 GOTO 40
 150 SAVE "ROAD"
 160 RUN