ZX81 Listing for snml.p


ZX81 program listing for SNUNCH ML*SLR 1983/2013

SNUNCH ML*SLR 1983/2013 (snml.p)

Updated SNUNCH! Avoid the ghost and exploding pills. Use A for up, Z for down, N for left, and M for right.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 26808
VARS  : 27601
E-LINE: 27602
STKBOT: 27602
STKEND: 27602


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

   0 REM MCII
30403 ?/INKEY$?INKEY$?CALL INKEY$
??INKEY$?  ??INKEY$PI?8PI?
INPUT PI?ERR MSGS CALL LN Vò84
IF INT £FAST STR$ ACS ?C!Y-LN õ
PILN (INKEY$)(BLN UNPLOT RNDK;)
CONT óLN UNPLOT RNDK=)HOME  LN
UNPLOT RNDK>2úLN UNPLOT RNDK)/=
LN òINKEY$)CONT óLN òINKEY$)
HOME  LN òINKEY$LN òINKEY$
LN òINKEY$SGN LPRINT TAN FAST B
GOSUB DELETE LPRINT TAN Y0B
GOSUB DELETE SóW/RAND ;?õPI?J
LINE ?J?7TAN RND)5 FAST GOSUB
UNDRAW /RNDù7FAST ;FOR 5CHR$ ò
GOSUB PISTOP AT FOR GOSUB K
LPRINT ñQòù6:RNDCLEAR QT5CLEAR Q
TAN LN VòñCOPY RETURN JFAST
GOSUB PILPRINT COS //LN VòG4IF
LN Vò?RETURN COPY CSAVE ñCOPY
RETURN JFAST GOSUB PILPRINT C
INPUT JERR MSGS 8COS 9EDIT LN X÷
ASN DRNDTAN ACS UNPLOT 6ORNDEO
RND?NEW ?PCOS LN CALL INKEY$C
NEXT TAN YF( AND GOTO PICHAR Yñ
ACS CKòYôACS DKòACS ÷PRINT LN
INT INKEY$÷ACS ?KòINPUT ?CHAR )2
£UKRND<IF VAL INKEY$LET J4LET
KRETURN !SòINPUT ?/QY*( AND
GOTO PI?NEW 3DEF PROC VAL VAL
VAL JACS (ACS (ACS (POP LINE DD
AT CHAR ùAT CHAR ùGOSUB UNDRAW
£RNDù76:RNDAT Y/(MURNDY5)MTRND
TAN STR$ FAST VAL RETURN
8218 RNDACS AUTO CõLN ( /QE:RND
LN DO PI/CRETURN RNDABS JPIRND
ACS AUTO CõLN ( /*E:RNDPRINT
LET E:RND?76:RND5TRNDPAT LPRINT
SGN TAN 7PRINT 6:RNDCLEAR QT5UU
RNDXMURNDRETURN òATN PUSH PILET
TAN U5RNDRETURN  CöXM5RND/AE£RND
ñSAVE òùQ?FAST LN CALL INKEY$C
CLS LPRINT RETURN CASN
RETURN ZC:RETURN D4÷ACS 0F?O4
CLS ?/INKEY$LN PUSH !/ABS ?LCOS
,LN õPI<"/PRINT RETURN CALL Sù
RETURN ""ACS R AND FPINEW Z5)ñ
CHAR ôRETURN 5K£RETURN ñCô
RETURN *SôJLN õPIACS õPI7/PRINT
NEW ZLN õPIJ?!PIINT º?MCIF LN O
CALL VAL UNDRAW PI)  STR$ FOR 7D
FOR D?+?0FOR KPLOT FOR FOR J?3
LINE ?3?OC/FOR JACS 0ACS 1?+?0
IF ùCALL ?+DEF PROC ?0CHAR STOP
;STOP /<>LPRINT AT ACS ?TAB (
INKEY$TAN ERR MSGS ?*>=(INKEY$
FOR ?CCHAR ACS ?TAB (INKEY$TAN
GOSUB OFFMRNDONICLEAR ?Rö GOSUB
DELETE /GOSUB DELETE /READ
END PROC GOSUB DELETE Kñ76MRND
ACS WERR MSGS EDIT TAN LN   E-
RND7PRINT LN -DPOKE LN -DPOKE
LN SCHAR LN INPUT DEF PROC INT ?
LN RAUTO LN <>AUTO TAN LN LEN
AUTO YCODE LN RUN DEF PROC LN *
EDIT /$LN RAUTO 5  LN >ERR MSGS
óLN NEXT AUTO FAST LN LEN AUTO
LPRINT LN >ERR MSGS LN A
ERR MSGS LN LLIST !)CLEAR CALL ñ
LN IF DEF PROC E?RNDLN INPUT
DEF PROC )RUN CALL ñô LN IF
DEF PROC E?RNDLN INPUT DEF PROC
LN .CHAR LN .CHAR YRUN LN RUN
DEF PROC Y?LN RUN DEF PROC LN
LET DEF PROC RETURN YTAB DRND5
LIST CALL FAST LN EúE?RNDDIM LN
POKE DEF PROC 4CLS INT ?
30455  
30386 DER II ENDAT YTAN ?BDPOKE 6
?RNDGOSUB OFF0RND<5?RNDLN OFF
DPOKE 5  6?RNDE?RND6?RNDLN A
DEF PROC WMõEND PROC 5?RNDFAST
LN 7DPOKE LPRINT FAST 7776-RNDU*
RNDM5RNDLN -DPOKE RETURN PAUSE
ATN NEXT ERR MSGS RETURN RAND
ATN CHR$ UNDRAW RETURN IF ATN ,
EDIT RETURN THEN CREM RETURN
DIM ATN JDEF PROC RETURN GOTO
ATN ?DPOKE RETURN GOSUB ATN >
DPOKE RETURN FOR ATN PAUSE
UNDRAW RETURN NEXT ATN 2PROTECT
RETURN SLOW ATN ""AUTO RETURN
POKE ATN VAL UNDRAW RETURN FAST
ATN LAUTO RETURN INPUT ATN ¶
PROTECT RETURN PLOT ATN DATA
EDIT RETURN UNPLOT ATN ³EDIT
RETURN LET ATN 2 RETURN CLS ATN
KUNDRAW RETURN STOP ASN £UNDRAW
RETURN PRINT ATN LET DPOKE
RETURN LPRINT ATN CHR$ DPOKE
RETURN NEW ATN òDPOKE RETURN
COPY ATN UNPLOT ERR MSGS RETURN
REM CPROTECT RETURN SCROLL ATN P
UNDRAW RETURN RETURN ATN $
ERR MSGS RETURN CLEAR ATN A
DEF PROC RETURN  4;E-RND-DPOKE
RETURN
8202 2DEF PROC TAB QERR MSGS LN
£UNDRAW LN LEN AUTO YSLN RUN
DEF PROC ?DRNDLN HTRACE 5=RND?S
UNDRAW 5PUSH !?SUNDRAW 5?ó?S
UNDRAW SCROLL RETURN ?4SGN LN
RUN DEF PROC 5/DPOKE LN SUNDRAW
/LEN ñRETURN RETURN GOSUB POP
ACS 1**?POKE DEF PROC UNTIL 7
RESTORE STR$ FOR FAST 67RNDRND
LN .CHAR LN INPUT DEF PROC JLN
RUN DEF PROC LPRINT LN BREAK
DPOKE ..FOR SGN LN OFFDPOKE
GOSUB OFF?RNDLN OFFDPOKE FAST
GOSUB OFF?RNDBGOSUB DELETE
LPRINT **6?RND?SCROLL CHAR ?7?7
TAN RESTORE 7UNTIL 7TAN FAST AT
E0RND7LN NOSTALGIC DPOKE FOR B
GOSUB PISQR E?RNDGOSUB DELETE **
FOR 7/GOSUB Y?PRINT LN -DPOKE
LN DO PROTECT LN BREAK DPOKE
FOR LN NOSTALGIC DPOKE FOR LET ?
UUNDRAW YLN /DIM FAST SCROLL
RETURN
10249 PRINT LN RUN DEF PROC
LET LPRINT TAN VAL FAST E?RND
PRINT ?FAST 76?RNDLN POKE
DEF PROC RETURN D4-Y
52727 LN INPUT DEF PROC JLN RUN
DEF PROC LET A ?LN INPUT
DEF PROC /òLPRINT LET LPRINT AT
JTAN 5CLEAR ACS LN XUNDRAW 5ñ
EXP LN XUNDRAW LN LET DPOKE 5
CLEAR ACS LN XUNDRAW 5ñ:?X
UNDRAW LN -DPOKE RETURN
8198 ERROR LN -DPOKE RETURN
INKEY$CZRETURN
51890 "CYRETURN AT C?RETURN CHR$
ASN >=ERROR RETURN TAB ASN GOTO
ERROR RETURN ,ASN OERROR PRINT E
-RND7LET ñTERROR VAL ñ  VAL ñM
TRACE VAL ?CHAR UNDRAW 5INPUT
DEF PROC LN SUNDRAW /RESEQ 5RND
TRACE LN SUNDRAW /óLN LOOP
ERROR 5IF DEF PROC LN SUNDRAW /
CHAR Y?LN BDPOKE E?RNDFAST LN X
UNDRAW ñCOPY COPY LN TRACE  ó
PRINT LN RUN DEF PROC LET
RETURN "CõLN BDPOKE /INPUT
LPRINT VAL GOSUB OFF?RNDLN OFF
DPOKE Y)LN UUNDRAW YñLPRINT ?U
UNDRAW LN IUNDRAW LN SQR UNDRAW
5CALL EDIT LN XUNDRAW 5PRINT !
LN SUNDRAW LN -DPOKE RETURN ,C>
RETURN ;ASN CLS DPOKE RETURN +
ASN CLS DPOKE 5.CHAR LN SUNDRAW
JTAN 5XERROR LN SUNDRAW ?CLS
DPOKE 5ñRNDACS AUTO TAB :"JLN
RUN DEF PROC UTRNDRETURN )S
UNDRAW :(Y/5URND-CHAR ?PRINT !
LN ERR MSGS UNDRAW Y?LN BDPOKE 5
RUN DEF PROC LN SUNDRAW /JLN H
TRACE 5RUN ERROR LN SUNDRAW /8?
NEW 3DEF PROC 5ñRNDACS AUTO C:5S
RND-ACS COPY LEN WUSR ?!?òùUTRND
CHR$ UNPLOT .CHAR /RY
50167 LN ABS 5IF DEF PROC LN S
UNDRAW ?.ERROR LN NOSTALGIC
DPOKE STR$ LN NOSTALGIC DPOKE
STR$ AT SGN TAN RETURN RNDABS
CONT ERR MSGS ñWRNDòLN LINE
CALL RETURN 0SúRETURN RNDLN -
DPOKE ó/INPUT RETURN (M÷
END PROC CôRETURN $4òóòúACS
COPY òLN ³CHAR A ?DDGOSUB
UNDRAW ?RNDùCHAR U÷END PROC
RETURN $C!RETURN (4òJTAN ?TAN
TAN RND9ñWRNDJMöEND PROC úY
ACS ?4KACS LIST ACS RNDFAST
END PROC OASN CONT ERR MSGS
LPRINT ?FFAST LN SCROLL CHAR
LPRINT óACS ?CNEXT J?6ùEND PROC
UöEND PROC LN DPEEK CHAR RETURN
ñ4"Y5LN UUNDRAW 5SAVE CHAR LN S
UNDRAW UöEND PROC 5õEND PROC
ERROR ôS**?TAN EùEND PROC )M 
GOSUB DELETE GOSUB OFF?RNDGOSUB
DELETE SQR INT ³FAST LN
NOSTALGIC DPOKE ?NLPRINT ""
GOSUB OFFñEND PROC LN OFFDPOKE )
  LN OFFDPOKE E?RNDGOSUB OFFñ
END PROC ;6ñEND PROC ñ  ?COS :
LN -DPOKE LN SCHAR RETURN ñASN
RESEQ RETURN  4úLN DPOKE ACOPY
FAST LN -DPOKE RETURN =TAB CONT
ERR MSGS LN HTRACE LPRINT ?
RETURN COPY 4£5SGN FOR LN X
UNDRAW 5OFFDPOKE ?SUNDRAW Y6?U
UNDRAW FAST 5NOSTALGIC TRACE LN
SUNDRAW LN -DPOKE LN LINE CALL
RETURN (46LPRINT LN ** 5STR$
VAL LN XUNDRAW 5DUP DEF PROC LN
SUNDRAW LN -DPOKE LN 3 5AT SGN
LN XUNDRAW 5?DEF PROC ?SUNDRAW
LN -DPOKE LN 3 LPRINT Y5LN U
UNDRAW 5?TRACE ?SUNDRAW I+FAST
LN -DPOKE RETURN (CRAND RETURN "
LN LOOP ERROR /END WHEN
RETURN INKEY$4!5RNDTRACE LN S
UNDRAW /USER RETURN CHR$ 4"LN
ERR MSGS UNDRAW 5UTRACE LN S
UNDRAW /DELETE LN ABS /EDIT LN
SCHAR LN -DPOKE FAST LN LINE
CALL RETURN (4NLN -DPOKE LN H
TRACE E-RNDDATA LOOP LN XUNDRAW
/"LN -DPOKE RETURN TO TAB CONT
ERR MSGS LN OUNDRAW 5AUTO TRACE
LN SUNDRAW LPRINT Y5LN UUNDRAW 5
WHILE TRACE ?SUNDRAW LPRINT Y5
LN UUNDRAW 5HCHAR ?SUNDRAW 5
LINE TRACE LN SUNDRAW LN LINE
CALL RETURN )CùLPRINT X""LN -
DPOKE ?5 LN -DPOKE /FOR ?ññ /ù
LN POKE DEF PROC ñ  GCOS £)ù
END PROC >TAN B.GOSUB DELETE
ERR MSGS EDIT LIST INT ºSTR$ LN
NOSTALGIC DPOKE FOR SGN ;FOR
TAN EñEND PROC 6õEND PROC TAN ?L
COS EõEND PROC FOR GOSUB KGOSUB
DO õEND PROC TAN FAST
END PROC GOSUB OFFñEND PROC B
GOSUB DELETE FAST AT LPRINT LN
NOSTALGIC DPOKE VAL FAST LN ?
DEF PROC LPRINT AT ?7?TAN FOR ö!
?RETURN  CñACS  DRAW ?FOR 5  
ACS T3Kñ;FOR DFOR (PRINT TAN J
PRINT LN ERR MSGS UNDRAW LN
LINE CALL RETURN + AND RNDDRAW
RETURN ;ABS RNDDRAW YFAST LN B
DPOKE LN -DPOKE PRINT LN
ERR MSGS UNDRAW LET RETURN +Cô
RETURN -47AT LINE ?RETURN  4ô
PRINT FAST /PEEK FAST 5ERR MSGS
EDIT LN XUNDRAW LN NEXT TRACE Y
FAST 5PUSH NOSTALGIC LN UUNDRAW
/ZPRINT VAL /0RETURN /C(RETURN *
TAB CONT ERR MSGS LN VDRAW 5)
TRACE LN SUNDRAW /BLN VDRAW 5
CLEAR DEF PROC /NEXT YLPRINT LN
BDPOKE LET RETURN  COS RETURN +C
)LN VDRAW 5BFOR LN XUNDRAW 5
GOSUB DELETE LN XUNDRAW /SCROLL
LN VDRAW Y;LN BDPOKE /<>YSGN ?B
DPOKE RETURN )4USR LN -DPOKE /
INT RETURN PEEK 4?LN ERR MSGS
UNDRAW 5A ?XUNDRAW RETURN USR 4>
LN ERR MSGS UNDRAW 5PUSH DRAW ?S
UNDRAW ñ?DRAW VAL FAST TAN
NOSTALGIC PUSH TAN RETURN CODE 4
G5õEND PROC YELN UUNDRAW YFAST
LN BDPOKE ICOPY LN 5 YSGN LN B
DPOKE 5>DRAW /USR EõEND PROC
GOSUB DO õEND PROC JGOSUB
DELETE LINE ?COS ,?TAN RETURN
RND4õ5ARND/VRETURN ABS 4)LN
ERR MSGS UNDRAW 5ACS ?LN X
UNDRAW YCODE 5?UNDRAW ?UUNDRAW
RETURN INT ASN ERR MSGS UNDRAW
RETURN LEN 4,LN -DPOKE LN SCHAR
LN -DPOKE Y5LN UUNDRAW 5>=DRAW /
º77LN NOSTALGIC DPOKE FOR TAN
RETURN SGN 4+LN ERR MSGS UNDRAW
5LIST DRAW ?SUNDRAW ?PCOS ACS ?5
ñ TAB ?UNDRAW TAN RETURN SQR
TAB CONT ERR MSGS LN ERR MSGS
UNDRAW 5úUNDRAW ?SUNDRAW JXACS ?
INT ¹?ELSE A )RND ö!GOSUB
DELETE Kñ;ZACS GOSUB
CLR STACK ·GOSUB CLR STACK (
LIST CLR STACK LINE TAN LN H
TRACE LN -DPOKE PRINT YFAST LN B
DPOKE LN HTRACE YSGN LN BDPOKE
LET TAN LN -DPOKE RETURN -PRINT
ATN -DPOKE RETURN (C-RETURN RNDK
$RETURN AUSR ?UNDRAW >=µUNDRAW
LET ATN ELSE UNDRAW TAN LN
TRACE DRAW /PLOT LN HTRACE /LET
5?UNDRAW /CHAR ?JLINE ?J?7TAN
LN SCHAR RETURN  ASN >DEF PROC Y
E/PLN DO PROTECT Y5/I)(BLN A
DPOKE LN $ERR MSGS UõEND PROC
DEF PROC £E?RND6?RNDöôLN BDPOKE
(CLS $4PLOT LPRINT GOSUB UNDRAW
?RNDTAN 5Eú/ó5"RNDYLN LN BDPOKE
?LN BDPOKE ??BDPOKE LN IUNDRAW
LN SQR UNDRAW 5FOR ?/GOSUB
RETURN ,TAB CONT ERR MSGS TAN
LN LINE CALL RETURN
10245 TRACE /!YE5ORNDLN UUNDRAW Y
65MRND?UUNDRAW LN -DPOKE LN S
CHAR FAST FAST LN -DPOKE LN I
UNDRAW Y7LN BDPOKE 5GOSUB DO LN
XUNDRAW LPRINT LN XUNDRAW Y677
LN UUNDRAW LPRINT GOSUB OFF?RND?
OFFDPOKE LN -DPOKE LN SCHAR
FAST FAST YELN UUNDRAW 576LN X
UNDRAW LPRINT LN XUNDRAW 77Y
GOSUB LN BDPOKE YOFFLN UUNDRAW Y
B5GOSUB DELETE LN UUNDRAW YIF
LPRINT LN NOSTALGIC DPOKE FOR ?U
UNDRAW 5  /?LN -DPOKE RETURN  
LN )TRACE LET RETURN AABS CONT
ERR MSGS RETURN 0 AND CONT
ERR MSGS CHR$ 0ö DEF PROC ù/ TO
FAST E-RND)õ ;6-RNDLPRINT TAN
LN -DPOKE LN SCHAR RETURN ñC1
PRINT FAST 5*EDIT LN SUNDRAW
LPRINT LET RETURN  TAB EXIT Y
FOR LN BDPOKE LN SUNDRAW Y5LN U
UNDRAW LN -DPOKE 5VPROTECT ?S
UNDRAW GOSUB UNDRAW ñEND PROC
VAL FAST LN òEDIT 6ñEND PROC
FAST LN PAUSE PROTECT RETURN
10249 KPRINT LN $EDIT /LIST SGN
GOSUB DELETE FAST AT LPRINT LN ³
TRACE AT GOSUB CALL ñEND PROC
FAST LN òEDIT ñ3 LN ?DEF PROC
LPRINT TAN FAST LN LET DEF PROC
LPRINT RETURN ?""J?FY
48672 £RNDñSAVE òùYL?TAN ?7Y
48672 /PAUSE LN òEDIT FAST FAST
LN PAUSE PROTECT RETURN
10257 C!RETURN 0SLET RETURN AK
GOSUB LN $EDIT /CONT 5  SGN ,
RETURN -C(RETURN LC?CHR$ 0DFAST
DDAT ùö DEF PROC ù</CONT SGN ,
RETURN -PRINT LN NEW PROTECT
LET ""??UNDRAW Y.PRINT LN I
UNDRAW LN SQR UNDRAW 5UNDRAW
DPOKE LN XUNDRAW YYLN BDPOKE
LET LN BDPOKE YM5KRNDLN UUNDRAW
5,RND?SUNDRAW Y4/**?PCOS ?NCOS R
TAN ?PCòRTAN ?NCOS RTAN E-RND7(C
PLOT RETURN INKEY$ASN ERR MSGS
AUTO RETURN CHR$ ASN ERR MSGS
AUTO RETURN "ASN ERR MSGS AUTO 7
LN IUNDRAW RETURN OR 4ú5?EDIT
LN SUNDRAW YABS /CHAR RETURN
AND 4õ5·EDIT /LIST PRINT YB5
GOSUB DELETE LN UUNDRAW LET
RETURN =4ôYTAB /GRETURN <>4ôY
ASN /8RETURN >C+RETURN <4÷YASN
LN 5AUTO /<RETURN >=4ú5CóLN X
UNDRAW YPAUSE RETURN <=TAB
CONT ERR MSGS YIF LN 5AUTO LN -
DPOKE RETURN AND ASN ,EDIT TAN
LN BDPOKE EúRND7LN BREAK DPOKE
FOR LN NOSTALGIC DPOKE FOR ?X
UNDRAW LN XAUTO 6õEND PROC 6÷
END PROC TAN EõEND PROC QCOPY 7
TAN 5NOSTALGIC TRACE LN SUNDRAW
LN 3 LN -DPOKE PRINT 5NAUTO LN S
UNDRAW LN 3 5XAUTO LN SUNDRAW 52
AUTO LN SUNDRAW LET RETURN =4ôY
TAB /ARETURN <>4ôYASN /2RETURN >
4÷YASN LN 5AUTO /!RETURN <C<
RETURN >=4ôY AND RETURN <=TAB
CONT ERR MSGS 5CóLN XUNDRAW Y
ABS ?+AUTO E÷END PROC GOSUB
UNDRAW ñEND PROC úWOY""RETURN  
COS 7ó/POKE 5RAUTO ?SUNDRAW LN
SCROLL ò5VRNDACS QTAN 5LEN AUTO
?SUNDRAW 5VRNDACS PLOT ?÷ò5ò LN
**ù""FAST LN 2DEF PROC SGN ?
DATA ú5ò LN **ù""LN 2DEF PROC
COS LN 2DEF PROC COS LOOP DATA E
£RND/SCROLL óóóVAL óóóóVAL LN
EXP AUTO 5ó LN **ùAT LN 2ù7Y
28963 7AT ?7?7QREM 7?7?7TAN 77
AUTO 7ERROR ù7U£RND1""U$RND0TAN
LN -DPOKE LN SCHAR Y5LN UUNDRAW
YGOSUB LN BDPOKE YOFF5ñEND PROC
LN UUNDRAW 5OFFDPOKE LN SUNDRAW
LN HTRACE 5UNTIL DEF PROC ?S
UNDRAW 7D7FAST FAST AT
END PROC LN COS :AT LN DUP
DEF PROC GOSUB DO ñEND PROC TAN
EñEND PROC DATA LOOP <Q /óEñ
END PROC ?LCOS GOSUB KTAN FAST
LN ERR MSGS UNDRAW 5GOSUB
UNDRAW LN XUNDRAW LPRINT LN X
UNDRAW 5Dù?XUNDRAW LN DPOKE 5
NOSTALGIC DPOKE LN SUNDRAW 5FOR
SGN ?XUNDRAW EôRND9QCOPY FQCOPY
FQ 6ùEND PROC Y5E?RNDLN UUNDRAW
I:UõEND PROC LINE LN XUNDRAW 5
ATN DEF PROC ?SUNDRAW £JM5RNDöô?
7(UNPLOT $4RUN 54 6?RNDE0RNDñ
HOME  ù6ñEND PROC 6õEND PROC
TAN RND?:RND?)RND?1RND?4RND
FOR ?7RNDNOSTALGIC ELSE   LOOP
ELSE USER ELSE NY 
   2 REM
30241 :?LN ATN DEF PROC 5³ô6NOT
HOME 5<=HOME GOSUB OFFñEND PROC
LN OFFDPOKE 5ô LN UNTIL
DEF PROC 5  6 TO HOME 5! 6STOP
HOME 5ô 6SCROLL HOME 5ù 6FOR
HOME LN Eú5ñ GOSUB UNDRAW <=
HOME DùFAST 5ñ SGN FOR LN OFF
DPOKE 5ò GOSUB UNDRAW <=HOME Dù
FAST 5ñ SGN FOR LN OFFDPOKE 5ó 
GOSUB UNDRAW <=HOME DùFAST 5ñ 
SGN FOR LN OFFDPOKE 5ô GOSUB
UNDRAW <=HOME DùFAST 5ñ SGN FOR
LN OFFDPOKE 5  FAST 5ù SGN 7
GOSUB DO LOAD HOME 6LET HOME E
LOAD HOME FAST 5ñ SGN CALL EDIT
LN PRINT !?QEND PROC ¸)P
END PROC ññ LN IF DEF PROC E
LOAD HOME FAST 5< SGN CALL EDIT
LN PRINT !?SQR END PROC ¸)INT
END PROC ññ LN IF DEF PROC 5  
FAST ELOAD HOME FAST 5ñ SGN ;
SGN CALL EDIT LN PRINT !?SAVE
END PROC ¸¸¸¸¸¸¸¸¸)LOAD
END PROC ñù LN IF DEF PROC 5ù 
FAST ELOAD HOME FAST 5ñ SGN ;
SGN CALL EDIT LN PRINT !?4¸¸¸¸¸¸
¸¸¸)*ñù LN IF DEF PROC LN .CHAR
ELOAD HOME 76LOAD HOME GOSUB OFF
LET HOME BGOSUB DELETE IF 9
END PROC 5ô FAST 5÷ SGN 7GOSUB
DO LOAD HOME 6LET HOME 5ó FAST E
LOAD HOME SGN CALL EDIT LN
PRINT !?RESTORE ¸)DATA ññ LN IF
DEF PROC 5ö FAST ELOAD HOME SGN
CALL EDIT LN PRINT !??¸)?ññ LN
IF DEF PROC 5ó FAST ELOAD HOME
FAST 5ù SGN ;SGN CALL EDIT LN
PRINT !?/¸)*ññ LN IF DEF PROC 5ö
 FAST ELOAD HOME FAST 5ù SGN ;
SGN CALL EDIT LN PRINT !?S¸)Rññ 
LN IF DEF PROC ELOAD HOME FAST 5
ô SGN BFOR GOSUB DELETE FAST 5ú 
SGN CALL EDIT LN PRINT !?<=¸)
AND ññ LN IF DEF PROC ELOAD
HOME FAST 5ò SGN ;FAST 5ú SGN
CALL EDIT LN PRINT !?CLS ¸)IF ññ
 LN IF DEF PROC LN .CHAR ELOAD
HOME 76LOAD HOME GOSUB OFFLET
HOME BGOSUB DELETE IF EDIT 5ñ 6
NEXT HOME 5ñ 6RUN HOME 5ò 6CLS
HOME ESCROLL HOME FAST EFOR
HOME SGN CALL EDIT LN PRINT !?W
DELETE ö¶)UDELETE ñò LN IF
DEF PROC ESCROLL HOME FAST 5ñ 
SGN ;FAST EFOR HOME SGN CALL
EDIT LN PRINT !?DATA DELETE ´÷)
OFFDELETE ñò LN IF DEF PROC 5ô 
FAST ECLS HOME SGN CALL EDIT LN
PRINT !??DELETE ±²)
20993 LN IF DEF PROC 5õ FAST E
CLS HOME SGN CALL EDIT LN PRINT
!?<DELETE ÷÷))DELETE ñò LN IF
DEF PROC LN .CHAR 5ñ 6NEXT HOME
5ñ 6RUN HOME 5ñ FAST 5ò SGN
CALL EDIT LN PRINT !?XDELETE ·ô)
VDELETE ñò LN IF DEF PROC 5ò 
FAST 5ò SGN CALL EDIT LN PRINT !
?**DELETE òñ)CHR$ DELETE ñò LN
IF DEF PROC 5ñ FAST 5) SGN CALL
EDIT LN PRINT !?NEXT DELETE ·ô)
LET DELETE ñò LN IF DEF PROC 5ò 
FAST 5) SGN CALL EDIT LN PRINT !
?:DO òñ)£DO ñò LN IF DEF PROC 5÷
 FAST 5ò SGN CALL EDIT LN PRINT
!?DDO ·ô)BDO ñò LN IF DEF PROC 5
FAST 5ò SGN CALL EDIT LN
PRINT !?ERR MSGS DO òñ)PIDO ñò 
LN IF DEF PROC 5÷ FAST 5) SGN
CALL EDIT LN PRINT !?READ DO ·ô)
DATA DO ñò LN IF DEF PROC 5! 
FAST 5) SGN CALL EDIT LN PRINT !
??DO òñ)?DO ñò LN IF DEF PROC
LN .CHAR ESCROLL HOME 6COPY
HOME EFOR HOME 6óBREAK 5ñ LN ?
UNDRAW 6÷BREAK 5= LN =RNDE TO
HOME 6"BREAK E TO HOME FAST 5Kô
SGN BGOSUB DELETE PAUSE VDO 5Kô6
"BREAK 5COS  FAST 5ú FAST E"
BREAK SGN LN )TRACE FAST 5HOME  
SGN LN CLEAR DEF PROC SGN BFOR
GOSUB DELETE 6"BREAK ESTOP HOME
FAST 5ò SGN BGOSUB DELETE PAUSE
RUN DO ESTOP HOME FAST 5ñ SGN B
FOR GOSUB DELETE 6STOP HOME 5ñ 
FAST E"BREAK SGN 7GOSUB DO LOAD
HOME 6LET HOME 5ô FAST 5+ SGN
CALL EDIT LN PRINT !?1LOOP TIME:
 )*LOOP ñö LN IF DEF PROC E"
BREAK FAST ELOAD HOME SGN BFOR
GOSUB DELETE LN INPUT DEF PROC ?
TLOOP  )SLOOP ññ LN IF DEF PROC
ENEXT HOME FAST 5ñ SGN ;6NEXT
HOME ENEXT HOME FAST ESTOP HOME
SGN BGOSUB DELETE PAUSE *LOOP 5 
 6NEXT HOME 5ñ GOSUB UNDRAW <=
HOME DùSTR$ LN NOSTALGIC DPOKE
FOR SGN FAST ENEXT HOME SGN LN ·
EDIT ABS PLOOP 5ñ FAST 5ò SGN
CALL EDIT LN PRINT !?:LOOP ·ô)£
LOOP ñò LN IF DEF PROC 5ò FAST 5
ò SGN CALL EDIT LN PRINT !?D
LOOP òñ)BLOOP ñò LN IF DEF PROC
LN .CHAR 5ñ GOSUB UNDRAW <=HOME
STR$ LN NOSTALGIC DPOKE FOR
SGN FAST 5ñ SGN BGOSUB DELETE
TAB -EXIT ENEXT HOME FAST 5  
SGN BGOSUB DELETE TAB -EXIT 5ñ 
FAST 5ò SGN CALL EDIT LN PRINT !
?LOAD LOOP ñò)GOSUB LOOP ñò LN
IF DEF PROC 5ò FAST 5ò SGN CALL
EDIT LN PRINT !?úEXIT ô·)!EXIT ñ
ò LN IF DEF PROC LN .CHAR 5ò 
GOSUB UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST E
NEXT HOME SGN LN ·EDIT ABS PUSH
EXIT 5ñ FAST 5) SGN CALL EDIT
LN PRINT !?PIEXIT ·ô)RNDEXIT ñò 
LN IF DEF PROC 5ò FAST 5) SGN
CALL EDIT LN PRINT !?DATA EXIT ò
ñ)OFFEXIT ñò LN IF DEF PROC LN .
CHAR 5ò GOSUB UNDRAW <=HOME Dù
STR$ LN NOSTALGIC DPOKE FOR SGN
FAST 5ñ SGN BGOSUB DELETE TAB
ASN EXIT ENEXT HOME FAST 5  SGN
BGOSUB DELETE TAB ASN EXIT 5ñ 
FAST 5) SGN CALL EDIT LN PRINT !
?7EXIT ñò)5EXIT ñò LN IF
DEF PROC 5ò FAST 5) SGN CALL
EDIT LN PRINT !?YEXIT ô·)WEXIT ñ
ò LN IF DEF PROC LN .CHAR 5ó 
GOSUB UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST E
NEXT HOME SGN LN ·EDIT ABS 1
UNTIL 5÷ FAST 5ò SGN CALL EDIT
LN PRINT !?PLOT EXIT ·ô)POKE
EXIT ñò LN IF DEF PROC 5! FAST 5
ò SGN CALL EDIT LN PRINT !?)
UNTIL òñ)?UNTIL ñò LN IF
DEF PROC LN .CHAR 5ó GOSUB
UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5ñ 
SGN BGOSUB DELETE TAB 5  SGN B
GOSUB DELETE TAB 5ò SGN CALL
EDIT LN PRINT !?WHILE UNTIL ñò)
EXIT UNTIL ñò LN IF DEF PROC 5! 
FAST 5ò SGN CALL EDIT LN PRINT !
??UNTIL ô·)?UNTIL ñò LN IF
DEF PROC LN .CHAR 5ô GOSUB
UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST E
NEXT HOME SGN LN ·EDIT ABS SGN
UNTIL 5÷ FAST 5) SGN CALL EDIT
LN PRINT !?EUNTIL ·ô)CUNTIL ñò 
LN IF DEF PROC 5! FAST 5) SGN
CALL EDIT LN PRINT !?VAL UNTIL ò
ñ)?UNTIL ñò LN IF DEF PROC LN .
CHAR 5ô GOSUB UNDRAW <=HOME Dù
STR$ LN NOSTALGIC DPOKE FOR SGN
FAST 5ñ SGN BGOSUB DELETE TAB M
WHILE ENEXT HOME FAST 5  SGN B
GOSUB DELETE TAB MWHILE 5÷ FAST
5) SGN CALL EDIT LN PRINT !?"
WHILE ñò)ùWHILE ñò LN IF
DEF PROC 5! FAST 5) SGN CALL
EDIT LN PRINT !?AWHILE ô·)8
WHILE ñò LN IF DEF PROC LN .
CHAR ERUN HOME LN ?UNDRAW 6RUN
HOME ECOPY HOME FAST ESCROLL
HOME SGN BGOSUB DELETE TAB
RESEQ WHILE EóBREAK FAST EFOR
HOME SGN BGOSUB DELETE TAB
RESEQ WHILE ?-WHILE ECOPY HOME
FAST EóBREAK SGN CALL EDIT LN
PRINT !?ELSE WHILE   )CLR STACK
WHILE ñò LN IF DEF PROC ECOPY
HOME FAST 5ñ SGN ;FAST EóBREAK
SGN CALL EDIT LN PRINT !?$WHILE
  )"WHILE ñò LN IF DEF PROC E
SCROLL HOME FAST EFOR HOME SGN
CALL EDIT LN PRINT !?CWHILE ö¶)A
WHILE ñò LN IF DEF PROC ESCROLL
HOME FAST 5ñ SGN ;FAST EFOR
HOME SGN CALL EDIT LN PRINT !?
TAN WHILE ´÷)SIN WHILE ñò LN IF
DEF PROC 5ô FAST ECLS HOME SGN
CALL EDIT LN PRINT !?SLOW WHILE
  )LLIST WHILE ñò LN IF
DEF PROC 5õ FAST ECLS HOME SGN
CALL EDIT LN PRINT !?COPY WHILE
  )CLEAR WHILE ñò LN IF
DEF PROC LN .CHAR ECLS HOME
FAST 5ò SGN BGOSUB DELETE TAB 6
WHEN E÷BREAK LN ?UNDRAW 6÷BREAK
ECLS HOME FAST 5) SGN BGOSUB
DELETE TAB TWHEN E÷BREAK LN ?
UNDRAW 6÷BREAK ECLS HOME FAST
BREAK SGN ;6CLS HOME ERUN HOME
FAST 5ñ SGN BGOSUB DELETE TAB ¹
WHEN 5ô FAST ECLS HOME SGN CALL
EDIT LN PRINT !?BREAK WHEN ±²)ON
WHEN ñò LN IF DEF PROC 5õ FAST E
CLS HOME SGN CALL EDIT LN PRINT
!? WHEN ÷÷)IF DEF PROC ERUN
HOME FAST 5ñ LN ?UNDRAW SGN B
GOSUB DELETE TAB SQR WHEN 5ô 
FAST ECLS HOME SGN CALL EDIT LN
PRINT !?GWHEN ±²)EWHEN ñò LN IF
DEF PROC 5õ FAST ECLS HOME SGN
CALL EDIT LN PRINT !?SIN WHEN ´´
)VAL WHEN ñò LN IF DEF PROC E
SCROLL HOME 6COPY HOME EFOR
HOME 6óBREAK LN NOSTALGIC TRACE
LN RNDTRACE LN LINE TRACE LN N
AUTO ?GOTO WHEN A)FOR WHEN ññ 
LN LINE TRACE LN XAUTO LN 2AUTO
ASN ñINDENT ?INDENT INDENT EFOR
HOME FAST 5ò SGN BGOSUB DELETE
ASN WINDENT EFOR HOME FAST 5! 
SGN BGOSUB DELETE ASN WINDENT E
FOR HOME FAST 5" SGN BGOSUB
DELETE ASN WINDENT EFOR HOME
FAST 5) SGN BGOSUB DELETE ASN W
INDENT ?INDENT INDENT ESCROLL
HOME FAST 5ñ SGN BGOSUB DELETE
PAUSE INDENT INDENT ESCROLL
HOME FAST 5ñ SGN BFOR GOSUB
DELETE 6SCROLL HOME LN
NOSTALGIC TRACE LN RNDTRACE LN
LINE TRACE LN NAUTO ?PUSH
INDENT Z)POP INDENT ññ LN LINE
TRACE LN XAUTO LN 2AUTO ASN FOR
HOME FAST 5ò SGN BGOSUB DELETE
ASN TINDENT EFOR HOME FAST 5! 
SGN BGOSUB DELETE ASN TINDENT E
FOR HOME FAST 5" SGN BGOSUB
DELETE ASN TINDENT EFOR HOME
FAST 5) SGN BGOSUB DELETE ASN T
INDENT ?CHR$ INDENT ESCROLL
HOME FAST 5÷ SGN BGOSUB DELETE
ASN CHR$ INDENT IF CHR$ INDENT E
SCROLL HOME FAST 5ñ SGN ;6
SCROLL HOME LN NOSTALGIC TRACE
LN RNDTRACE LN LINE TRACE LN N
AUTO ?NEW INDENT N)FAST INDENT ñ
ñ LN LINE TRACE LN XAUTO LN 2
AUTO ASN CLS INDENT ?POKE RESEQ
ESCROLL HOME FAST 5ô SGN BGOSUB
DELETE TAB ARESEQ EFOR HOME
FAST 5ò SGN BGOSUB DELETE PAUSE
ARESEQ EFOR HOME FAST 5ñ SGN B
FOR GOSUB DELETE 6FOR HOME E
SCROLL HOME FAST 5ñ SGN BGOSUB
DELETE TAB *RESEQ EFOR HOME
FAST 5ù SGN BGOSUB DELETE ASN *
RESEQ IF *RESEQ EFOR HOME FAST 5
ò SGN BGOSUB DELETE PAUSE *
RESEQ EFOR HOME FAST 5ñ SGN B
FOR GOSUB DELETE 6FOR HOME E
SCROLL HOME FAST 5ñ SGN BGOSUB
DELETE TAB $RESEQ EFOR HOME
FAST 5" SGN BGOSUB DELETE PAUSE
$RESEQ EFOR HOME FAST 5ñ SGN B
FOR GOSUB DELETE 6FOR HOME E
SCROLL HOME FAST 5÷ SGN BGOSUB
DELETE TAB TAN RESEQ EFOR HOME
FAST 5ù SGN BGOSUB DELETE ASN
TAN RESEQ IF TAN RESEQ EFOR
HOME FAST 5ò SGN BGOSUB DELETE
PAUSE TAN RESEQ EFOR HOME FAST 5
ñ SGN BFOR GOSUB DELETE 6FOR
HOME ESCROLL HOME FAST 5÷ SGN B
GOSUB DELETE TAB POKE RESEQ E
FOR HOME FAST 5" SGN BGOSUB
DELETE PAUSE POKE RESEQ EFOR
HOME FAST 5ñ SGN BFOR GOSUB
DELETE 6FOR HOME LN NOSTALGIC
TRACE LN RNDTRACE LN LINE TRACE
LN NAUTO ?ôOFFM)óOFFññ LN LINE
TRACE LN XAUTO LN 2AUTO ASN ;OFF
?£CURSOR ESCROLL HOME FAST 5ô 
SGN BGOSUB DELETE TAB ERR MSGS
OFFEFOR HOME FAST 5) SGN BGOSUB
DELETE ASN ERR MSGS OFFIF
ERR MSGS OFFEFOR HOME FAST 5ñ 
SGN ;6FOR HOME ESCROLL HOME
FAST 5ñ SGN BGOSUB DELETE TAB ?
OFFEFOR HOME FAST 5! SGN BGOSUB
DELETE ASN ?OFFIF ?OFFEFOR HOME
FAST 5ñ SGN ;6FOR HOME ESCROLL
HOME FAST 5ñ SGN BGOSUB DELETE
TAB COFFEFOR HOME FAST 5ú SGN B
GOSUB DELETE PAUSE COFFEFOR
HOME FAST 5) SGN BGOSUB DELETE
ASN COFFIF COFFEFOR HOME FAST
 SGN ;6FOR HOME ESCROLL HOME
FAST 5÷ SGN BGOSUB DELETE TAB
PEEK OFFEFOR HOME FAST 5! SGN B
GOSUB DELETE ASN PEEK OFFIF
PEEK OFFEFOR HOME FAST 5ñ SGN ;6
FOR HOME ESCROLL HOME FAST 5÷ 
SGN BGOSUB DELETE TAB £CURSOR E
FOR HOME FAST 5ú SGN BGOSUB
DELETE PAUSE £CURSOR EFOR HOME
FAST 5) SGN BGOSUB DELETE ASN £
CURSOR IF £CURSOR EFOR HOME
FAST 5ñ SGN ;6FOR HOME ENEXT
HOME FAST 5  SGN BGOSUB DELETE
TAB 1CURSOR ?RNDDATA 5ñ GOSUB
UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5ñ 
SGN BGOSUB DELETE TAB BREAK
CURSOR ESCROLL HOME FAST 5ñ SGN
BGOSUB DELETE TAB BREAK CURSOR E
FOR HOME FAST 5ò SGN BGOSUB
DELETE TAB BREAK CURSOR 5ñ 
GOSUB UNDRAW <=HOME DùFAST 5  
SGN FOR LN OFFDPOKE 5ò GOSUB
UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5ñ 
SGN BGOSUB DELETE TAB HCURSOR E
SCROLL HOME FAST 5ñ SGN BGOSUB
DELETE TAB HCURSOR EFOR HOME
FAST 5) SGN BGOSUB DELETE TAB H
CURSOR 5ò GOSUB UNDRAW <=HOME Dù
FAST 5  SGN FOR LN OFFDPOKE 5ó 
GOSUB UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5ñ 
SGN BGOSUB DELETE TAB PRINT
CURSOR ESCROLL HOME FAST 5÷ SGN
BGOSUB DELETE TAB PRINT CURSOR E
FOR HOME FAST 5ò SGN BGOSUB
DELETE TAB PRINT CURSOR 5ó 
GOSUB UNDRAW <=HOME DùFAST 5  
SGN FOR LN OFFDPOKE 5ô GOSUB
UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5ñ 
SGN BGOSUB DELETE TAB XDATA E
SCROLL HOME FAST 5÷ SGN BGOSUB
DELETE TAB XDATA EFOR HOME FAST
5) SGN BGOSUB DELETE TAB XDATA 5
ô GOSUB UNDRAW <=HOME DùFAST 5  
SGN FOR LN OFFDPOKE ?!READ 5ñ 
GOSUB UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5ñ 
SGN BGOSUB DELETE TAB ?DATA E
SCROLL HOME FAST 5ñ SGN BGOSUB
DELETE TAB ?DATA EFOR HOME FAST
5ó SGN BGOSUB DELETE TAB ?DATA ?
"USER 5ò GOSUB UNDRAW <=HOME Dù
STR$ LN NOSTALGIC DPOKE FOR SGN
FAST 5ñ SGN BGOSUB DELETE TAB M
DATA ESCROLL HOME FAST 5ñ SGN B
GOSUB DELETE TAB MDATA EFOR
HOME FAST 5( SGN BGOSUB DELETE
TAB MDATA ?"USER 5ñ GOSUB
UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5ñ 
SGN BGOSUB DELETE TAB FOR DATA E
SCROLL HOME FAST 5ò SGN BGOSUB
DELETE TAB FOR DATA EFOR HOME
FAST 5ò SGN BGOSUB DELETE TAB
FOR DATA ?"USER 5ò GOSUB UNDRAW
<=HOME DùSTR$ LN NOSTALGIC
DPOKE FOR SGN FAST 5ñ SGN B
GOSUB DELETE TAB 8RESTORE E
SCROLL HOME FAST 5ò SGN BGOSUB
DELETE TAB 8RESTORE EFOR HOME
FAST 5) SGN BGOSUB DELETE TAB 8
RESTORE ?"USER 5ó GOSUB UNDRAW
<=HOME DùSTR$ LN NOSTALGIC
DPOKE FOR SGN FAST 5ñ SGN B
GOSUB DELETE TAB DATA RESTORE E
SCROLL HOME FAST 5ö SGN BGOSUB
DELETE TAB DATA RESTORE EFOR
HOME FAST 5ò SGN BGOSUB DELETE
TAB DATA RESTORE ?"USER 5ô 
GOSUB UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5ñ 
SGN BGOSUB DELETE TAB -RESTORE E
SCROLL HOME FAST 5ö SGN BGOSUB
DELETE TAB -RESTORE EFOR HOME
FAST 5) SGN BGOSUB DELETE TAB -
RESTORE ?"USER 5ó GOSUB UNDRAW
<=HOME DùSTR$ LN NOSTALGIC
DPOKE FOR SGN FAST 5ñ SGN B
GOSUB DELETE TAB INT RESTORE E
SCROLL HOME FAST 5÷ SGN BGOSUB
DELETE TAB INT RESTORE EFOR
HOME FAST 5ó SGN BGOSUB DELETE
TAB INT RESTORE ?"USER 5ô GOSUB
UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5ñ 
SGN BGOSUB DELETE TAB !READ E
SCROLL HOME FAST 5÷ SGN BGOSUB
DELETE TAB !READ EFOR HOME FAST
5( SGN BGOSUB DELETE TAB !READ ?
"USER ESCROLL HOME FAST 5ò SGN B
GOSUB DELETE PAUSE EREAD E
SCROLL HOME FAST 5ö SGN BGOSUB
DELETE ASN EREAD IF EREAD ?H
READ ?¹READ EFOR HOME FAST ECLS
HOME FAST 5ñ SGN ;SGN BGOSUB
DELETE TAB ERR MSGS READ ?<HOME
EFOR HOME FAST 5ñ SGN ;FAST E
CLS HOME SGN BGOSUB DELETE TAB
OFFREAD ?<HOME EFOR HOME FAST
 SGN ;FAST ECLS HOME FAST 5ñ 
SGN ;SGN BGOSUB DELETE TAB ?
READ ?<HOME EFOR HOME FAST ECLS
HOME SGN BGOSUB DELETE TAB ¹
READ ?<HOME E TO HOME FAST 5ñ 
SGN ;6 TO HOME 5ñ GOSUB UNDRAW
<=HOME DùSTR$ LN NOSTALGIC
DPOKE FOR SGN FAST 5  SGN B
GOSUB DELETE TAB  NOSTALGIC 5ò 
GOSUB UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5  
SGN BGOSUB DELETE TAB  
NOSTALGIC 5ó GOSUB UNDRAW <=
HOME DùSTR$ LN NOSTALGIC DPOKE
FOR SGN FAST 5  SGN BGOSUB
DELETE TAB  NOSTALGIC 5ô GOSUB
UNDRAW <=HOME DùSTR$ LN
NOSTALGIC DPOKE FOR SGN FAST 5  
SGN BGOSUB DELETE TAB  
NOSTALGIC ?=NOSTALGIC ELOAD
HOME 76LOAD HOME GOSUB OFFLET
HOME BGOSUB DELETE IF ÷LOOP ?
INDENT HOME E TO HOME FAST E"
BREAK FAST ELOAD HOME ERR MSGS
EDIT LPRINT SGN ;FAST PUSH
NOSTALGIC SGN BFOR GOSUB DELETE
6 TO HOME 5" FAST 5  SGN CALL
EDIT LN PRINT !??NOSTALGIC YOU C
OMPLETED A SNUNCH SCREEN,  KEEP 
IT UP.   SCORE:)ZNOSTALGIC ñO 
LN IF DEF PROC E TO HOME FAST 5C
 SGN ;6 TO HOME E TO HOME LN
INPUT DEF PROC LN .CHAR LN X
ERROR LN XERROR ?ONOSTALGIC PRES
S ENTER TO CONTINUE...),
NOSTALGIC ñ, LN IF DEF PROC LN .
CHAR LN NOSTALGIC TRACE LN RND
TRACE LN LINE TRACE LN NAUTO ?
INT NOSTALGIC )INT NOSTALGIC ñ  
LN LINE TRACE LN XAUTO LN 2AUTO
ASN SLOW NOSTALGIC ?""NOSTALGIC
LN NOSTALGIC TRACE LN RNDTRACE
LN LINE TRACE LN NAUTO ?NEXT
NOSTALGIC )NEXT NOSTALGIC ñ  LN
LINE TRACE LN XAUTO LN 2AUTO
TAB !USER ?SLOW NOSTALGIC ?Y
END PROC 5: FAST 5  SGN CALL
EDIT LN PRINT !?VUSER EXPLODING 
PILL GOT YOU, TOO BAD*).USER ñ4 
LN IF DEF PROC LN .CHAR 5" FAST
5  SGN CALL EDIT LN PRINT !?
USER USER **SNUNCH**)WHILE USER
ñú LN IF DEF PROC 5£ FAST 5  
SGN CALL EDIT LN PRINT !?>USER ú
úúúúúúúúúBY STEVEN REID)?USER ñ/
 LN IF DEF PROC ECOPY HOME FAST
EóBREAK SGN CALL EDIT LN PRINT !
?HUSER   )FUSER ñò LN IF
DEF PROC ECOPY HOME FAST 5ñ SGN
;FAST EóBREAK SGN CALL EDIT LN
PRINT !?EXP USER   )ATN USER ñò 
LN IF DEF PROC 5ô FAST ECLS
HOME SGN CALL EDIT LN PRINT !?
DIM USER ±²)SCROLL USER ñò LN
IF DEF PROC 5õ FAST ECLS HOME
SGN CALL EDIT LN PRINT !?ô*´´)ò*
ñò LN IF DEF PROC ESCROLL HOME
FAST EFOR HOME SGN CALL EDIT LN
PRINT !?3*´ó)1*ñò LN IF
DEF PROC ESCROLL HOME FAST 5ñ 
SGN ;FAST EFOR HOME SGN CALL
EDIT LN PRINT !?RND*ñ²)Y*ñò LN
IF DEF PROC 5  FAST 5ñ SGN CALL
EDIT LN PRINT !?**GAME OVER)
INDENT *ñù LN IF DEF PROC LN .
CHAR 5ñ GOSUB UNDRAW <=HOME Dù
STR$ LN NOSTALGIC DPOKE FOR SGN
FAST 5  SGN BGOSUB DELETE TAB =*
E TO HOME FAST 5ú SGN ;6 TO
HOME 5ò GOSUB UNDRAW <=HOME Dù
STR$ LN NOSTALGIC DPOKE FOR SGN
FAST 5  SGN BGOSUB DELETE TAB U*
E TO HOME FAST 5ú SGN ;6 TO
HOME 5ó GOSUB UNDRAW <=HOME Dù
STR$ LN NOSTALGIC DPOKE FOR SGN
FAST 5  SGN BGOSUB DELETE TAB
STEP *E TO HOME FAST 5ú SGN ;6
TO HOME 5ô GOSUB UNDRAW <=HOME
STR$ LN NOSTALGIC DPOKE FOR
SGN FAST 5  SGN BGOSUB DELETE
TAB öONE TO HOME FAST 5ú SGN ;6
TO HOME E TO HOME FAST ENOT
HOME SGN BGOSUB DELETE PAUSE ,ON
E TO HOME 6NOT HOME 5( FAST 5  
SGN CALL EDIT LN PRINT !?KONSCOR
E:)EONñö LN IF DEF PROC E TO
HOME LN INPUT DEF PROC 5> FAST 5
  SGN CALL EDIT LN PRINT !?LOOP
ONBEST:)DEF PROC ONñõ LN IF
DEF PROC ENOT HOME LN INPUT
DEF PROC E TO HOME FAST ENOT
HOME SGN BGOSUB DELETE TAB (ON?´
ON  **A NEW RECORD**)?ONñ( LN
IF DEF PROC LN .CHAR LN
NOSTALGIC TRACE LN RNDTRACE LN
LINE TRACE LN NAUTO ?3ON)3ONñ  
LN LINE TRACE LN XAUTO LN 2AUTO
ASN OON?(ON5+ FAST 5  SGN CALL
EDIT LN PRINT !?SLOW ONPRESS ENT
ER TO BEGIN A NEW GAME )CODE ONñ
LN IF DEF PROC 5õ LN =RNDLN
NOSTALGIC TRACE LN RNDTRACE LN
LINE TRACE LN NAUTO ?òHOME )ò
HOME ñ  LN LINE TRACE LN XAUTO
LN 2AUTO ASN *HOME ?MEND PROC 5+
 FAST 5  SGN CALL EDIT LN PRINT
!?CHAR HOME PRESS ENTER TO BEGIN
 A NEW GAME )BHOME ñ4 LN IF
DEF PROC 5õ LN =RND?OON5: FAST 5
  SGN CALL EDIT LN PRINT !?´
HOME NOT ENOUGH PILLS, GOOD TRY*
)PUSH HOME ñ. LN IF DEF PROC LN
.CHAR ?"USER 5: FAST 5  SGN
CALL EDIT LN PRINT !?ZHOME GHOST
 GOT YOU,   TRY AGAIN**)7HOME ñ0
 LN IF DEF PROC LN .CHAR ?CHAR
USER TAN         ³ô  LOOP ELSE  
     !   ô   ù   ! ! ñ   ñ   ò  
 ô   ù   COPY COPY       9 ó
WHEN  REM       MCODER II       
  COPYRIGHT 1983   D C THRELFALL
 COMPILER AT 17300 PROG AT 20500
  10 REM **** SNUNCH ML ****
  20 REM ** SLR 1983/2013 **
  30 SAVE "SNML"
  40 PRINT AT 11,0;"**SNUNCH**";
AT 12,0;"úúúúúúúúúúBY STEVEN REI
D"
  50 LET O=1
  60 LET N=1
  70 IF O=1 THEN PRINT AT 4,0;"²
";AT 5,0;"÷";AT 4,0;"±²";AT 5,0;
"´´"
  80 IF O=-1 THEN PRINT AT 4,0;"
¶";AT 5,0;"÷";AT 4,0;"ö¶";AT 5,0
;"´÷"
  90 FOR A=0 TO 29
 100 IF O=1 AND N=1 THEN PRINT
AT 4,A;" ±²";AT 5,A;" ÷÷"
 110 IF O=1 AND N=-1 THEN PRINT
AT 4,A;" ±²";AT 5,A;" ´´"
 120 IF O=-1 THEN PRINT AT 4,A;"
 ö¶";AT 5,A;" ´÷"
 130 LET N=-N
 140 IF INKEY$<>"" THEN RAND
USR 20500
 150 NEXT A
 160 IF O=1 THEN PRINT AT 4,30;"
 ±";AT 5,30;" ´";AT 4,31;" ";AT
5,31;" "
 170 IF O=-1 THEN PRINT AT 4,30;
" ö";AT 5,30;" ´";AT 4,31;" ";
AT 5,31;" "
 180 LET O=-O
 190 GOTO 70