ZX81 Listing for road.p

ZX81 program listing for **ROAD**SLR/2022**

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

Yep, title says it all. An infinite road with a few twists along the way.

Read more →

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