ZX81 Listing for infmaze.p

*INFINITE MAZE*SLR/2023 (infmaze.p)

My take on the infinite maze.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16711
VARS  : 17504
E-LINE: 17505
STKBOT: 17505
STKEND: 17505

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  10 REM *INFINITE MAZE*SLR/2023
  20 LET A=0
  30 FOR X=1 TO 30 STEP 2
  40 PRINT AT 20,X;(" " AND A);"
ö¶"(INT (RND*2)+1);(" " AND NOT
A);
  50 NEXT X
  60 LET A=NOT A
  70 SCROLL
  80 GOTO 30
 100 SAVE "INFMAZE"
 110 CLS
 120 RUN