PROG : 16509
D-FILE: 17005
VARS : 17798
E-LINE: 17799
STKBOT: 17799
STKEND: 17799
9999 means line number
PRINT means treat as KEYWORD P
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