My maze generator for the ZX81. This one uses a different display format.
PROG : 16509
D-FILE: 17634
VARS : 18427
E-LINE: 18428
STKBOT: 18433
STKEND: 18433
9999 means line number
PRINT means treat as KEYWORD P
1 REM /***MAZEGEN**SLR/2024**
30413 YõM??LN MRNDLN ²INKEY$LN J?
LN ZINKEY$/PAUSE TAN LN EúñùòLN
PRINT !5:INKEY$LN 1?ñõôLN PRINT
!AñU??LN ?INKEY$5?òLN L?LN ?
INKEY$RETURN 6C=RETURN ?C(
RETURN 7C.RETURN ?C*RETURN GCOS
RETURN
51224 ??XRETURN ñASN INT RNDM???
AT RNDU??WRETURN "ASN INT RNDM??
?AT RND* MAZEGEN *
30264 E:
30242 HRINK, 7-GROW, G-GENERATE
COPY 5?òLN L?LN ?INKEY$RCPOKE
TAN GOSUB ?9RND£CRAND $LN X÷A0
LN ?INKEY$APLOT LN ?INKEY$ö A
COPY I.G´SUNPLOT =PRINT ?(ù
RETURN 04õô?B4ñNOT LET TAN YñM5?
M4?LN C?5??J?¶(CLEAR ?A WM????5?
?)W?Q 7FOR Q 7FOR "?L4NEXT U???
LN ""??PISTR$ Yò5??LN £?SGN LN
""??Yñ?GOSUB ???M??M??5W?LN £?
LN C?JM??GOSUB ???õASN RAND
INKEY$5W?LN =?RTAB RAND INKEY$5?
?ACS EXP GOSUB ???U??TASN =PI£5W
?LN =?RTAB =PI5??ACS CHR$ GOSUB
???U??SASN JPIô5W?LN =?RTAB JPI5
??ACS THEN GOSUB ???$ASN ?PI5W?
LN =?RTAB ?PI5??ACS NEW U??RTAB
?PI5??PU???U???VAL 5W?LN =?5??
AT YCö$4LOAD (DIM TAN GOSUB ????
<=INKEY$-ôLN ""?5??RETURN ñ4/
ACS ?C=GOSUB ???õGOSUB ???5??Yò
LN £??LIST PIRETURN ò4;ACS ?C+
GOSUB ???£GOSUB ???$5??YñLN £??
LIST PIRETURN ó4;ACS ?C+GOSUB ??
?ôGOSUB ???õ5??YòLN £??LIST PI
RETURN ô4/ACS ?C=GOSUB ???$
GOSUB ???5??YñLN £??LIST PI/´U??
WM??M??GOSUB ???5W?LN £?5??YTAB
<=INKEY$TAN PRINT LN ;?LET ¶?
TAN LN ;?;õCOS U???;(CLEAR TAN 5
5?P""Y=?ñúôLN PRINT !56?LN 1?54?
O?ö ?5F?ù
BUILDING
COPY ÷´±²LN Eú5W?U???Y·NOT !Y
NOT Y·NOT /òNOT NOT (GOSUB Y
55073 U???VAL YµNOT U???FAST Y
NOT ACS ?4òYµNOT 7(NEXT LPRINT Y
55102 U???ACS ?Y³CòY NOT ?;Y
55233 TAN ±³µ·/SAVE OR LN ??Kò
OR TAN INT COPY 6J?LN 9?EJ?F?
P4PAUSE TAN Yñ???INPUT 3² THEN
COPY MAT ?>KCLEAR ºTAN
2 RAND USR VAL "16514"