Updated SNUNCH! Avoid the ghost and exploding pills. Use A for up, Z for down, N for left, and M for right.
PROG : 16509
D-FILE: 26808
VARS : 27601
E-LINE: 27602
STKBOT: 27602
STKEND: 27602
9999 means line number
PRINT means treat as KEYWORD P
0 REM MCII
30403 ?/INKEY$??INKEY$??INKEY$??
INKEY$? ??INKEY$?õPI?8PI?INPUT
PI???LN Vò84IF INT £FAST STR$
ACS ?C!Y-LN õPILN (INKEY$)(BLN
UNPLOT RNDK;)CONT óLN UNPLOT RND
K=)? LN UNPLOT RNDK>2úLN UNPLOT
RNDK)/=LN òINKEY$)CONT óLN ò
INKEY$)? LN òINKEY$2úLN òINKEY$2
ñLN òINKEY$SGN LPRINT TAN FAST B
GOSUB ?LPRINT TAN Y0BGOSUB ?SóW/
RAND ;?õPI?J??J?7TAN E£RND)5
FAST GOSUB ?/RNDù7FAST ;FOR 5
CHR$ òGOSUB PISTOP AT FOR GOSUB
KLPRINT ñQòù6:RNDCLEAR QT5CLEAR
QUóTAN LN VòñCOPY RETURN JFAST
GOSUB PILPRINT COS //LN VòG4IF
LN Vò?RETURN COPY CSAVE ñCOPY
RETURN JFAST GOSUB PILPRINT C
INPUT J?8COS 9?LN X÷ASN DRNDTAN
ACS UNPLOT 6ORNDEORND?NEW ?PCOS
LN ?INKEY$CNEXT TAN YF( AND
GOTO PI?YñACS CKòYôACS DKòACS ÷
PRINT LN INT INKEY$÷ACS ?Kò
INPUT ??)2£UKRND<IF VAL INKEY$
LET J4/òLET KRETURN !SòINPUT ?/Q
Y*( AND GOTO PI?NEW 3?VAL VAL
VAL JACS (ACS (ACS (??DDAT ??ù
AT ?ùGOSUB ?£RNDù76:RNDAT Y/(MU
RNDY5)MTRNDTAN STR$ FAST VAL
RETURN
8218 RNDACS ?CõLN ( /QE:RNDLN ?
PI/CRETURN RNDABS JPI5ñRNDACS ?C
õLN ( /*E:RNDPRINT LET E:RND?76:
RND5TRNDPAT LPRINT SGN TAN 7
PRINT 6:RNDCLEAR QT5UURNDXMURND
RETURN òATN ?PILET TAN U5RND
RETURN CöXM5RND/AE£RNDñSAVE òùQ
?FAST LN ?INKEY$CCLS LPRINT Q
RETURN CASN EúRETURN ZC:RETURN D
4÷ACS 0F?O4CLS ?/INKEY$LN ?!/
ABS ?LCOS ,LN õPI<"/PRINT
RETURN ?SùRETURN ""ACS R AND FPI
NEW Z5)ñ?ôRETURN 5K£RETURN ñCô
RETURN *SôJLN õPIACS õPI7/PRINT
NEW ZLN õPIJ?!PIINT º?MCIF LN O?
VAL ?PI) STR$ FOR 7DFOR D?+?0
FOR KPLOT FOR FOR J?3??3?OC/FOR
JACS 0ACS 1?+?0IF ù??+??0?STOP ;
STOP /<>LPRINT AT ACS ?TAB (
INKEY$TAN ??*>=(INKEY$FOR ?C?
ACS ?TAB (INKEY$TAN GOSUB ?MRND?
ICLEAR ?Rö GOSUB ?/GOSUB ?/??
GOSUB ?Kñ76MRNDACS W??TAN LN E
-RND7PRINT LN -?LN -?LN S?LN
INPUT ?INT ?LN R?LN <>?TAN LN
LEN ?YCODE LN RUN ?LN *?/$LN R?5
LN >?óLN NEXT ?FAST LN LEN ?
LPRINT LN >?LN A?LN LLIST !)
CLEAR ?ñ( LN IF ?E?RNDLN INPUT ?
)RUN ?ñô LN IF ?E?RNDLN INPUT ?
LN .?LN .?YRUN LN RUN ?Y?LN RUN
?LN LET ?RETURN YTAB DRND5LIST ?
FAST LN EúE?RNDDIM LN POKE ?4
CLS INT ?
30455
30386 DER II ENDAT YTAN ?B?6?RND
GOSUB ?0RND<5?RNDLN ??5 6?RNDE?
RND6?RNDLN A?WMõ?5?RNDFAST LN 7?
LPRINT FAST 7776-RNDU*RNDM5RND
LN -?RETURN PAUSE ATN NEXT ?
RETURN RAND ATN CHR$ ?RETURN IF
ATN ,?RETURN THEN CREM RETURN
DIM ATN J?RETURN GOTO ATN ??
RETURN GOSUB ATN >?RETURN FOR
ATN PAUSE ?RETURN NEXT ATN 2?
RETURN SLOW ATN ""?RETURN POKE
ATN VAL ?RETURN FAST ATN L?
RETURN INPUT ATN ¶?RETURN PLOT
ATN ??RETURN UNPLOT ATN ³?
RETURN LET ATN 2?RETURN CLS ATN
K?RETURN STOP ASN £?RETURN
PRINT ATN LET ?RETURN LPRINT
ATN CHR$ ?RETURN NEW ATN ò?
RETURN COPY ATN UNPLOT ?RETURN
REM C?RETURN SCROLL ATN P?
RETURN RETURN ATN $?RETURN
CLEAR ATN A?RETURN 4;E-RND-?
RETURN
8202 2?TAB Q?LN £?LN LEN ?YSLN
RUN ??DRNDLN H?5=RND?S?5?!?S?5?ó
?S?SCROLL RETURN ?4SGN LN RUN ?5
/?LN S?/LEN ñRETURN RETURN
GOSUB ?ACS 1**?POKE ??7?STR$
FOR FAST 67RND6úRNDLN .?LN
INPUT ?JLN RUN ?LPRINT LN ??..
FOR SGN LN ??GOSUB ??RNDLN ??
FAST GOSUB ??RNDBGOSUB ?LPRINT
**6?RND?SCROLL ??7?7TAN ?7?7TAN
FAST AT E0RND7LN ??FOR BGOSUB PI
SQR E?RNDGOSUB ?**FOR 7/GOSUB Y?
PRINT LN -?LN ??LN ??FOR LN ??
FOR LET ?U?YLN /DIM FAST SCROLL
RETURN
10249 CõPRINT LN RUN ?LET LPRINT
TAN VAL FAST E?RNDPRINT ?FAST 76
?RNDLN POKE ?RETURN D4-Y
52727 LN INPUT ?JLN RUN ?LET A ?
LN INPUT ?/òLPRINT LET LPRINT
AT JTAN 5CLEAR ACS LN X?5ñEXP
LN X?LN LET ?5CLEAR ACS LN X?5ñ:
?X?LN -?RETURN
8198 ?LN -?RETURN INKEY$CZ
RETURN
51890 "CYRETURN AT C?RETURN CHR$
ASN >=?RETURN TAB ASN GOTO ?
RETURN ,ASN O?PRINT E-RND7LET ñT
?VAL ñ VAL ñM?VAL ???5INPUT ?
LN S?/?5RND?LN S?/óLN ??5IF ?LN
S?/?Y?LN B?E?RNDFAST LN X?ñCOPY
COPY LN ? óPRINT LN RUN ?LET
RETURN "CõLN B?/INPUT LPRINT
VAL GOSUB ??RNDLN ??Y)LN U?Yñ
LPRINT ?U?LN I?LN SQR ?5??LN X?5
PRINT !LN S?LN -?RETURN ,C>
RETURN ;ASN CLS ?RETURN +ASN
CLS ?5.?LN S?JTAN 5X?LN S??CLS ?
5ñRNDACS ?TAB :"JLN RUN ?UTRND
RETURN )S?:(Y/5URND-??PRINT !LN
??Y?LN B?5RUN ?LN S?/JLN H?5RUN
?LN S?/8?NEW 3?5ñRNDACS ?C:5SRND
-ACS COPY LEN WUSR ?!?òùUTRND
CHR$ 5±UNPLOT .?/RY
50167 LN ABS ?5IF ?LN S??.?LN ??
STR$ LN ??STR$ AT SGN TAN
RETURN RNDABS CONT ?ñWRNDòLN ??
RETURN 0SúRETURN RNDKöLN -?ó/
INPUT RETURN (M÷?CôRETURN $4òóòú
ACS COPY òLN ³?A ?DDGOSUB ??RNDù
?U÷?RETURN $C!RETURN (4òJTAN ?
TAN YñTAN EôRND9ñWRNDJMö?úY4£
ACS ?4KACS LIST ACS RNDFAST 5ö?O
ASN CONT ?LPRINT ?FFAST LN
SCROLL ?LPRINT óACS ?CNEXT J?6ù?
Uö?LN ??RETURN ñ4"Y5LN U?5SAVE ?
LN S?Uö?5õ??ôS**?TAN Eù?)M
GOSUB ?GOSUB ??RNDGOSUB ?SQR
INT ³FAST LN ???NLPRINT ""GOSUB
?ñ?LN ??) LN ??E?RNDGOSUB ?ñ?;6
ñ?ñ ?COS :LN -?LN S?RETURN ñ
ASN ??RETURN 4úLN ?ACOPY FAST
LN -?RETURN =TAB CONT ?LN H?
LPRINT ?RETURN COPY 4£5SGN FOR
LN X?5???S?Y6?U?FAST 5??LN S?LN
-?LN ??RETURN (46LPRINT LN **?5
STR$ VAL LN X?5??LN S?LN -?LN 3?
5AT SGN LN X?5???S?LN -?LN 3?
LPRINT Y5LN U?5???S?I+FAST LN -?
RETURN (CRAND RETURN "4õLN ??/?
RETURN INKEY$4!5RND?LN S?/?
RETURN CHR$ 4"LN ??5U?LN S?/?LN
ABS ?/?LN S?LN -?FAST LN ??
RETURN (4NLN -?LN H?E-RND??LN X?
/"LN -?RETURN TO TAB CONT ?LN O
?5??LN S?LPRINT Y5LN U?5???S?
LPRINT Y5LN U?5H??S?5??LN S?LN ?
?RETURN )CùLPRINT X""LN -??5?LN
-?/FOR ?ññ /ùLN POKE ?ñ GCOS £)
ù?>TAN B.GOSUB ???LIST INT º
STR$ LN ??FOR SGN ;FOR TAN Eñ?6õ
?TAN ?LCOS Eõ?FOR GOSUB KGOSUB ?
õ?TAN FAST Eõ?GOSUB ?ñ?BGOSUB ?
FAST AT LPRINT LN ??VAL FAST LN
??LPRINT AT ?7?TAN FOR ö!?
RETURN CñACS ??FOR 5 ACS T3Kñ
;FOR DFOR (PRINT TAN JPRINT LN ?
?LN ??RETURN + AND RND?RETURN ;
ABS RND?YFAST LN B?LN -?PRINT
LN ??LET RETURN +CôRETURN -47AT
??RETURN 4ôPRINT FAST /PEEK
FAST 5??LN X?LN NEXT ?YFAST 5??
LN U?/ZPRINT VAL /0RETURN /C(
RETURN *TAB CONT ?LN V?5)?LN S?/
BLN V?5CLEAR ?/NEXT YLPRINT LN B
?LET RETURN COS RETURN +C)LN V?
5BFOR LN X?5GOSUB ?LN X?/SCROLL
LN V?Y;LN B?/<>YSGN ?B?RETURN )4
USR LN -?/INT RETURN PEEK 4?LN ?
?5A ?X?RETURN USR 4>LN ??5???S?ñ
??VAL FAST TAN ??TAN RETURN
CODE 4G5õ?YELN U?YFAST LN B?I
COPY LN 5?YSGN LN B?5>?/USR Eõ?
GOSUB ?õ?JGOSUB ???COS ,?TAN
RETURN RND4õ5ARND/VRETURN ABS 4)
LN ??5ACS ?LN X?YCODE 5???U?
RETURN INT ASN ??RETURN LEN 4,
LN -?LN S?LN -?Y5LN U?5>=?/º77
LN ??FOR TAN RETURN SGN 4+LN ??5
LIST ??S??PCOS ACS ?5ñ TAB ??
TAN RETURN SQR TAB CONT ?LN ??5ú
??S?JXACS ?CòINT ¹??A )RND ö!
GOSUB ?Kñ;ZACS >·GOSUB ?·GOSUB ?
(LIST ??TAN LN H?LN -?PRINT Y
FAST LN B?LN H?YSGN LN B?LET
TAN LN -?RETURN -PRINT ATN -?
RETURN (C-RETURN RNDK$RETURN A
USR ??>=µ?LET ATN ??TAN LN ??/
PLOT LN H?/LET 5??/??J??J?7TAN
LN S?RETURN ASN >?YE/PLN ??Y5/I
)(BLN A?LN $?Uõ??£E?RND6?RNDöô
LN B?(CLS $4PLOT LPRINT GOSUB ??
RNDTAN 5Eú/ó5"RNDYLN LN B??LN B?
??B?LN I?LN SQR ?5FOR ?/GOSUB
RETURN ,TAB CONT ?TAN LN ??
RETURN
10245 ?/!YE5ORNDLN U?Y65MRND?U?
LN -?LN S?FAST FAST LN -?LN I?Y7
LN B?5GOSUB ?LN X?LPRINT LN X?Y6
77LN U?LPRINT GOSUB ??RND???LN -
?LN S?FAST FAST YELN U?576LN X?
LPRINT LN X?77YGOSUB LN B?Y?LN U
?YB5GOSUB ?LN U?YIF LPRINT LN ??
FOR ?U?5 /?LN -?RETURN LN )?
LET RETURN AABS CONT ?RETURN 0
AND CONT ?CHR$ 0ö ?ù/ TO FAST E
-RND)õ ;6-RNDLPRINT TAN LN -?LN
S?RETURN ñC1PRINT FAST 5*?LN S?
LPRINT LET RETURN TAB ??YFOR
LN B?LN S?Y5LN U?LN -?5V??S?
GOSUB ?ñ?VAL FAST LN ò?6ñ?FAST
LN PAUSE ?RETURN
10249 KPRINT LN $?/LIST SGN
GOSUB ?FAST AT LPRINT LN ³?AT
GOSUB ?ñ?FAST LN ò?ñ3 LN ??
LPRINT TAN FAST LN LET ?LPRINT
RETURN ?""J?FY
48672 £RNDñSAVE òùYL?TAN ?7Y
48672 /PAUSE LN ò?FAST FAST LN
PAUSE ?RETURN
10257 C!RETURN 0SLET RETURN AK
GOSUB LN $?/CONT 5 SGN ,RETURN
-C(RETURN LC?CHR$ 0DFAST DDAT ùö
?ù</CONT SGN ,RETURN -PRINT LN
NEW ?LET ""???Y.PRINT LN I?LN
SQR ?5??LN X?YYLN B?LET LN B?YM5
KRNDLN U?5,RND?S?Y4/**?PCOS ?N
COS RTAN ?PCòRTAN ?NCOS RTAN E-
RND7(CPLOT RETURN INKEY$ASN ??
RETURN CHR$ ASN ??RETURN "ASN ??
7LN I?RETURN OR 4ú5??LN S?YABS
/?RETURN AND 4õ5·?/LIST PRINT Y
B5GOSUB ?LN U?LET RETURN =4ôY
TAB /GRETURN <>4ôYASN /8RETURN >
C+RETURN <4÷YASN LN 5?/<RETURN
>=4ú5CóLN X?YPAUSE /÷RETURN <=
TAB CONT ?YIF LN 5?LN -?RETURN
AND ASN ,?TAN LN B?EúRND7LN ??
FOR LN ??FOR ?X?LN X?6õ?6÷?TAN E
õ?QCOPY 7TAN 5??LN S?LN 3?LN -?
PRINT 5N?LN S?LN 3?5X?LN S?52?
LN S?LET RETURN =4ôYTAB /A
RETURN <>4ôYASN /2RETURN >4÷Y
ASN LN 5?/!RETURN <C<RETURN >=4ô
Y AND /·RETURN <=TAB CONT ?5Có
LN X?YABS ?+?E÷?GOSUB ?ñ?úWOY""
RETURN COS 7ó/POKE 5R??S?LN
SCROLL ò5VRNDACS QTAN 5LEN ??S?5
VRNDACS PLOT ?÷ò5ò LN **ù""FAST
LN 2?SGN ??ú5ò LN **ù""LN 2?COS
LN 2?COS ??E£RND/SCROLL óóóVAL ó
óóóVAL LN EXP ?5ó LN **ùAT LN 2ù
7Y
28963 7AT ?7?7QREM 7?7?7TAN 77?7?
ù7U£RND1""U$RND0TAN LN -?LN S?Y5
LN U?YGOSUB LN B?Y?5ñ?LN U?5??
LN S?LN H?5???S?7D7FAST FAST AT
Eñ?LN COS :AT LN ??GOSUB ?ñ?TAN
Eñ???<Q /óEñ??LCOS GOSUB KTAN
FAST LN ??5GOSUB ?LN X?LPRINT
LN X?5Dù?X?LN ?5??LN S?5FOR SGN
?X?EôRND9QCOPY FQCOPY FQ 6ù?Y5E?
RNDLN U?I:Uõ??LN X?5ATN ??S?£JM5
RNDöô?7(UNPLOT $4RUN 54 6?RNDE0
RNDñ? ù6ñ?6õ?TAN ?¸RND?:RND?)RND
?1RND?4RNDFOR ?7RND?? ????NY
2 REM
30241 :?LN ATN ?5³ô6NOT ?5<=?
GOSUB ?ñ?LN ??5ô LN ??5 6 TO ?5
! 6STOP ?5ô 6SCROLL ?5ù 6FOR ?
LN Eú5ñ GOSUB ?<=?DùFAST 5ñ SGN
FOR LN ??5ò GOSUB ?<=?DùFAST 5ñ
SGN FOR LN ??5ó GOSUB ?<=?Dù
FAST 5ñ SGN FOR LN ??5ô GOSUB ?
<=?DùFAST 5ñ SGN FOR LN ??5
FAST 5ù SGN 7GOSUB ?LOAD ?6LET ?
ELOAD ?FAST 5ñ SGN ??LN PRINT !?
Q?¸)P?ññ LN IF ?ELOAD ?FAST 5<
SGN ??LN PRINT !?SQR ?¸)INT ?ññ
LN IF ?5 FAST ELOAD ?FAST 5ñ
SGN ;SGN ??LN PRINT !?SAVE ?¸¸¸¸
¸¸¸¸¸)LOAD ?ñù LN IF ?5ù FAST E
LOAD ?FAST 5ñ SGN ;SGN ??LN
PRINT !?4?¸¸¸¸¸¸¸¸¸)*?ñù LN IF ?
LN .?ELOAD ?76LOAD ?GOSUB ?LET ?
BGOSUB ?IF 9?5ô FAST 5÷ SGN 7
GOSUB ?LOAD ?6LET ?5ó FAST E
LOAD ?SGN ??LN PRINT !???¸)??ññ
LN IF ?5ö FAST ELOAD ?SGN ??LN
PRINT !???¸)??ññ LN IF ?5ó FAST
ELOAD ?FAST 5ù SGN ;SGN ??LN
PRINT !?/?¸)*?ññ LN IF ?5ö FAST
ELOAD ?FAST 5ù SGN ;SGN ??LN
PRINT !?S?¸)R?ññ LN IF ?ELOAD ?
FAST 5ô SGN BFOR GOSUB ?FAST 5ú
SGN ??LN PRINT !?<=?¸) AND ?ññ
LN IF ?ELOAD ?FAST 5ò SGN ;FAST
5ú SGN ??LN PRINT !?CLS ?¸)IF ?ñ
ñ LN IF ?LN .?ELOAD ?76LOAD ?
GOSUB ?LET ?BGOSUB ?IF ??5ñ 6
NEXT ?5ñ 6RUN ?5ò 6CLS ?ESCROLL
?FAST EFOR ?SGN ??LN PRINT !?W?ö
¶)U?ñò LN IF ?ESCROLL ?FAST 5ñ
SGN ;FAST EFOR ?SGN ??LN PRINT !
???´÷)??ñò LN IF ?5ô FAST ECLS ?
SGN ??LN PRINT !???±²)
20993 LN IF ?5õ FAST ECLS ?SGN ??
LN PRINT !?<?÷÷))?ñò LN IF ?LN .
?5ñ 6NEXT ?5ñ 6RUN ?5ñ FAST 5ò
SGN ??LN PRINT !?X?·ô)V?ñò LN
IF ?5ò FAST 5ò SGN ??LN PRINT !?
**?òñ)CHR$ ?ñò LN IF ?5ñ FAST 5)
SGN ??LN PRINT !?NEXT ?·ô)LET ?
ñò LN IF ?5ò FAST 5) SGN ??LN
PRINT !?:?òñ)£?ñò LN IF ?5÷
FAST 5ò SGN ??LN PRINT !?D?·ô)B?
ñò LN IF ?5! FAST 5ò SGN ??LN
PRINT !???òñ)PI?ñò LN IF ?5÷
FAST 5) SGN ??LN PRINT !???·ô)??
ñò LN IF ?5! FAST 5) SGN ??LN
PRINT !???òñ)??ñò LN IF ?LN .?E
SCROLL ?6COPY ?EFOR ?6ó?5ñ LN ??
6÷?5= LN =RNDE TO ?6"?E TO ?
FAST 5KôSGN BGOSUB ?PAUSE V?5Kô6
"?5COS FAST 5ú FAST E"?SGN LN )
?FAST 5? SGN LN CLEAR ?SGN BFOR
GOSUB ?6"?ESTOP ?FAST 5ò SGN B
GOSUB ?PAUSE RUN ?ESTOP ?FAST 5ñ
SGN BFOR GOSUB ?6STOP ?5ñ FAST
E"?SGN 7GOSUB ?LOAD ?6LET ?5ô
FAST 5+ SGN ??LN PRINT !?1?TIME:
)*?ñö LN IF ?E"?FAST ELOAD ?
SGN BFOR GOSUB ?LN INPUT ??T? )S
?ññ LN IF ?ENEXT ?FAST 5ñ SGN ;6
NEXT ?ENEXT ?FAST ESTOP ?SGN B
GOSUB ?PAUSE ??5 6NEXT ?5ñ
GOSUB ?<=?DùSTR$ LN ??FOR SGN
FAST ENEXT ?SGN LN ·?ABS P?5ñ
FAST 5ò SGN ??LN PRINT !?:?·ô)£?
ñò LN IF ?5ò FAST 5ò SGN ??LN
PRINT !?D?òñ)B?ñò LN IF ?LN .?5ñ
GOSUB ?<=?DùSTR$ LN ??FOR SGN
FAST 5ñ SGN BGOSUB ?TAB -?ENEXT
?FAST 5 SGN BGOSUB ?TAB -?5ñ
FAST 5ò SGN ??LN PRINT !?LOAD ?ñ
ò)GOSUB ?ñò LN IF ?5ò FAST 5ò
SGN ??LN PRINT !?ú?ô·)!?ñò LN
IF ?LN .?5ò GOSUB ?<=?DùSTR$ LN
??FOR SGN FAST ENEXT ?SGN LN ·?
ABS ??5ñ FAST 5) SGN ??LN PRINT
!?PI?·ô)RND?ñò LN IF ?5ò FAST 5)
SGN ??LN PRINT !???òñ)??ñò LN
IF ?LN .?5ò GOSUB ?<=?DùSTR$ LN
??FOR SGN FAST 5ñ SGN BGOSUB ?
TAB ASN ?ENEXT ?FAST 5 SGN B
GOSUB ?TAB ASN ?5ñ FAST 5) SGN ?
?LN PRINT !?7?ñò)5?ñò LN IF ?5ò
FAST 5) SGN ??LN PRINT !?Y?ô·)W?
ñò LN IF ?LN .?5ó GOSUB ?<=?Dù
STR$ LN ??FOR SGN FAST ENEXT ?
SGN LN ·?ABS 1?5÷ FAST 5ò SGN ??
LN PRINT !?PLOT ?·ô)POKE ?ñò LN
IF ?5! FAST 5ò SGN ??LN PRINT !?
)?òñ)??ñò LN IF ?LN .?5ó GOSUB ?
<=?DùSTR$ LN ??FOR SGN FAST 5ñ
SGN BGOSUB ?TAB 5 SGN BGOSUB ?
TAB 5ò SGN ??LN PRINT !???ñò)??ñ
ò LN IF ?5! FAST 5ò SGN ??LN
PRINT !???ô·)??ñò LN IF ?LN .?5ô
GOSUB ?<=?DùSTR$ LN ??FOR SGN
FAST ENEXT ?SGN LN ·?ABS SGN ?5÷
FAST 5) SGN ??LN PRINT !?E?·ô)C
?ñò LN IF ?5! FAST 5) SGN ??LN
PRINT !?VAL ?òñ)??ñò LN IF ?LN .
?5ô GOSUB ?<=?DùSTR$ LN ??FOR
SGN FAST 5ñ SGN BGOSUB ?TAB M?E
NEXT ?FAST 5 SGN BGOSUB ?TAB M?
5÷ FAST 5) SGN ??LN PRINT !?"?ñò
)ù?ñò LN IF ?5! FAST 5) SGN ??
LN PRINT !?A?ô·)8?ñò LN IF ?LN .
?ERUN ?LN ??6RUN ?ECOPY ?FAST E
SCROLL ?SGN BGOSUB ?TAB ??Eó?
FAST EFOR ?SGN BGOSUB ?TAB ???-?
ECOPY ?FAST Eó?SGN ??LN PRINT !?
?? )??ñò LN IF ?ECOPY ?FAST 5ñ
SGN ;FAST Eó?SGN ??LN PRINT !?$?
)"?ñò LN IF ?ESCROLL ?FAST E
FOR ?SGN ??LN PRINT !?C?ö¶)A?ñò
LN IF ?ESCROLL ?FAST 5ñ SGN ;
FAST EFOR ?SGN ??LN PRINT !?TAN
?´÷)SIN ?ñò LN IF ?5ô FAST ECLS
?SGN ??LN PRINT !?SLOW ? )
LLIST ?ñò LN IF ?5õ FAST ECLS ?
SGN ??LN PRINT !?COPY ? )CLEAR
?ñò LN IF ?LN .?ECLS ?FAST 5ò
SGN BGOSUB ?TAB 6?E÷?LN ??6÷?E
CLS ?FAST 5) SGN BGOSUB ?TAB T?E
÷?LN ??6÷?ECLS ?FAST E÷?SGN ;6
CLS ?ERUN ?FAST 5ñ SGN BGOSUB ?
TAB ¹?5ô FAST ECLS ?SGN ??LN
PRINT !???±²)??ñò LN IF ?5õ
FAST ECLS ?SGN ??LN PRINT !? ?÷÷
)IF ?ERUN ?FAST 5ñ LN ??SGN B
GOSUB ?TAB SQR ?5ô FAST ECLS ?
SGN ??LN PRINT !?G?±²)E?ñò LN
IF ?5õ FAST ECLS ?SGN ??LN
PRINT !?SIN ?´´)VAL ?ñò LN IF ?E
SCROLL ?6COPY ?EFOR ?6ó?LN ??LN
RND?LN ??LN N??GOTO ?A)FOR ?ññ
LN ??LN X?LN 2?ASN ñ????EFOR ?
FAST 5ò SGN BGOSUB ?ASN W?EFOR ?
FAST 5! SGN BGOSUB ?ASN W?EFOR ?
FAST 5" SGN BGOSUB ?ASN W?EFOR ?
FAST 5) SGN BGOSUB ?ASN W????E
SCROLL ?FAST 5ñ SGN BGOSUB ?
PAUSE ??ESCROLL ?FAST 5ñ SGN B
FOR GOSUB ?6SCROLL ?LN ??LN RND?
LN ??LN N????Z)??ññ LN ??LN X?
LN 2?ASN FOR ?FAST 5ò SGN B
GOSUB ?ASN T?EFOR ?FAST 5! SGN B
GOSUB ?ASN T?EFOR ?FAST 5" SGN B
GOSUB ?ASN T?EFOR ?FAST 5) SGN B
GOSUB ?ASN T??CHR$ ?ESCROLL ?
FAST 5÷ SGN BGOSUB ?ASN CHR$ ?
IF CHR$ ?ESCROLL ?FAST 5ñ SGN ;6
SCROLL ?LN ??LN RND?LN ??LN N??
NEW ?N)FAST ?ññ LN ??LN X?LN 2?
ASN CLS ??POKE ?ESCROLL ?FAST 5ô
SGN BGOSUB ?TAB A?EFOR ?FAST 5ò
SGN BGOSUB ?PAUSE A?EFOR ?FAST
5ñ SGN BFOR GOSUB ?6FOR ?E
SCROLL ?FAST 5ñ SGN BGOSUB ?TAB
??EFOR ?FAST 5ù SGN BGOSUB ?ASN
??IF ??EFOR ?FAST 5ò SGN BGOSUB
?PAUSE ??EFOR ?FAST 5ñ SGN BFOR
GOSUB ?6FOR ?ESCROLL ?FAST 5ñ
SGN BGOSUB ?TAB $?EFOR ?FAST 5"
SGN BGOSUB ?PAUSE $?EFOR ?FAST 5
ñ SGN BFOR GOSUB ?6FOR ?ESCROLL
?FAST 5÷ SGN BGOSUB ?TAB TAN ?E
FOR ?FAST 5ù SGN BGOSUB ?ASN
TAN ?IF TAN ?EFOR ?FAST 5ò SGN B
GOSUB ?PAUSE TAN ?EFOR ?FAST 5ñ
SGN BFOR GOSUB ?6FOR ?ESCROLL ?
FAST 5÷ SGN BGOSUB ?TAB POKE ?E
FOR ?FAST 5" SGN BGOSUB ?PAUSE
POKE ?EFOR ?FAST 5ñ SGN BFOR
GOSUB ?6FOR ?LN ??LN RND?LN ??
LN N??ô?M)ó?ññ LN ??LN X?LN 2?
ASN ;??£?ESCROLL ?FAST 5ô SGN B
GOSUB ?TAB ??EFOR ?FAST 5) SGN B
GOSUB ?ASN ??IF ??EFOR ?FAST 5ñ
SGN ;6FOR ?ESCROLL ?FAST 5ñ SGN
BGOSUB ?TAB ??EFOR ?FAST 5! SGN
BGOSUB ?ASN ??IF ??EFOR ?FAST 5ñ
SGN ;6FOR ?ESCROLL ?FAST 5ñ
SGN BGOSUB ?TAB C?EFOR ?FAST 5ú
SGN BGOSUB ?PAUSE C?EFOR ?FAST 5
) SGN BGOSUB ?ASN C?IF C?EFOR ?
FAST 5ñ SGN ;6FOR ?ESCROLL ?
FAST 5÷ SGN BGOSUB ?TAB PEEK ?E
FOR ?FAST 5! SGN BGOSUB ?ASN
PEEK ?IF PEEK ?EFOR ?FAST 5ñ
SGN ;6FOR ?ESCROLL ?FAST 5÷ SGN
BGOSUB ?TAB £?EFOR ?FAST 5ú SGN
BGOSUB ?PAUSE £?EFOR ?FAST 5)
SGN BGOSUB ?ASN £?IF £?EFOR ?
FAST 5ñ SGN ;6FOR ?ENEXT ?FAST 5
SGN BGOSUB ?TAB 1??RND?5ñ
GOSUB ?<=?DùSTR$ LN ??FOR SGN
FAST 5ñ SGN BGOSUB ?TAB ??E
SCROLL ?FAST 5ñ SGN BGOSUB ?TAB
??EFOR ?FAST 5ò SGN BGOSUB ?TAB
??5ñ GOSUB ?<=?DùFAST 5 SGN
FOR LN ??5ò GOSUB ?<=?DùSTR$ LN
??FOR SGN FAST 5ñ SGN BGOSUB ?
TAB H?ESCROLL ?FAST 5ñ SGN B
GOSUB ?TAB H?EFOR ?FAST 5) SGN B
GOSUB ?TAB H?5ò GOSUB ?<=?Dù
FAST 5 SGN FOR LN ??5ó GOSUB ?
<=?DùSTR$ LN ??FOR SGN FAST 5ñ
SGN BGOSUB ?TAB PRINT ?ESCROLL ?
FAST 5÷ SGN BGOSUB ?TAB PRINT ?E
FOR ?FAST 5ò SGN BGOSUB ?TAB
PRINT ?5ó GOSUB ?<=?DùFAST 5
SGN FOR LN ??5ô GOSUB ?<=?Dù
STR$ LN ??FOR SGN FAST 5ñ SGN B
GOSUB ?TAB X?ESCROLL ?FAST 5÷
SGN BGOSUB ?TAB X?EFOR ?FAST 5)
SGN BGOSUB ?TAB X?5ô GOSUB ?<=?D
ùFAST 5 SGN FOR LN ???!?5ñ
GOSUB ?<=?DùSTR$ LN ??FOR SGN
FAST 5ñ SGN BGOSUB ?TAB ??E
SCROLL ?FAST 5ñ SGN BGOSUB ?TAB
??EFOR ?FAST 5ó SGN BGOSUB ?TAB
???"?5ò GOSUB ?<=?DùSTR$ LN ??
FOR SGN FAST 5ñ SGN BGOSUB ?TAB
M?ESCROLL ?FAST 5ñ SGN BGOSUB ?
TAB M?EFOR ?FAST 5( SGN BGOSUB ?
TAB M??"?5ñ GOSUB ?<=?DùSTR$ LN
??FOR SGN FAST 5ñ SGN BGOSUB ?
TAB FOR ?ESCROLL ?FAST 5ò SGN B
GOSUB ?TAB FOR ?EFOR ?FAST 5ò
SGN BGOSUB ?TAB FOR ??"?5ò
GOSUB ?<=?DùSTR$ LN ??FOR SGN
FAST 5ñ SGN BGOSUB ?TAB 8?E
SCROLL ?FAST 5ò SGN BGOSUB ?TAB
8?EFOR ?FAST 5) SGN BGOSUB ?TAB
8??"?5ó GOSUB ?<=?DùSTR$ LN ??
FOR SGN FAST 5ñ SGN BGOSUB ?TAB
??ESCROLL ?FAST 5ö SGN BGOSUB ?
TAB ??EFOR ?FAST 5ò SGN BGOSUB ?
TAB ???"?5ô GOSUB ?<=?DùSTR$ LN
??FOR SGN FAST 5ñ SGN BGOSUB ?
TAB -?ESCROLL ?FAST 5ö SGN B
GOSUB ?TAB -?EFOR ?FAST 5) SGN B
GOSUB ?TAB -??"?5ó GOSUB ?<=?Dù
STR$ LN ??FOR SGN FAST 5ñ SGN B
GOSUB ?TAB INT ?ESCROLL ?FAST 5÷
SGN BGOSUB ?TAB INT ?EFOR ?
FAST 5ó SGN BGOSUB ?TAB INT ??"?
5ô GOSUB ?<=?DùSTR$ LN ??FOR
SGN FAST 5ñ SGN BGOSUB ?TAB !?E
SCROLL ?FAST 5÷ SGN BGOSUB ?TAB
!?EFOR ?FAST 5( SGN BGOSUB ?TAB
!??"?ESCROLL ?FAST 5ò SGN B
GOSUB ?PAUSE E?ESCROLL ?FAST 5ö
SGN BGOSUB ?ASN E?IF E??H??¹?E
FOR ?FAST ECLS ?FAST 5ñ SGN ;
SGN BGOSUB ?TAB ???<?EFOR ?FAST
5ñ SGN ;FAST ECLS ?SGN BGOSUB ?
TAB ???<?EFOR ?FAST 5ñ SGN ;
FAST ECLS ?FAST 5ñ SGN ;SGN B
GOSUB ?TAB ???<?EFOR ?FAST ECLS
?SGN BGOSUB ?TAB ¹??<?E TO ?
FAST 5ñ SGN ;6 TO ?5ñ GOSUB ?<=?
DùSTR$ LN ??FOR SGN FAST 5 SGN
BGOSUB ?TAB ?5ò GOSUB ?<=?Dù
STR$ LN ??FOR SGN FAST 5 SGN B
GOSUB ?TAB ?5ó GOSUB ?<=?Dù
STR$ LN ??FOR SGN FAST 5 SGN B
GOSUB ?TAB ?5ô GOSUB ?<=?Dù
STR$ LN ??FOR SGN FAST 5 SGN B
GOSUB ?TAB ??=?ELOAD ?76LOAD ?
GOSUB ?LET ?BGOSUB ?IF ÷????E
TO ?FAST E"?FAST ELOAD ???
LPRINT SGN ;FAST ??SGN BFOR
GOSUB ?6 TO ?5" FAST 5 SGN ??
LN PRINT !???YOU COMPLETED A SNU
NCH SCREEN, KEEP IT UP. SCORE
:)Z?ñO LN IF ?E TO ?FAST 5C SGN
;6 TO ?E TO ?LN INPUT ?LN .?LN X
?LN X??O?PRESS ENTER TO CONTINUE
...),?ñ, LN IF ?LN .?LN ??LN RND
?LN ??LN N??INT ?)INT ?ñ LN ??
LN X?LN 2?ASN SLOW ??""?LN ??LN
RND?LN ??LN N??NEXT ?)NEXT ?ñ
LN ??LN X?LN 2?TAB !??SLOW ??Y?5
: FAST 5 SGN ??LN PRINT !?V?EXP
LODING PILL GOT YOU, TOO BAD*).?
ñ4 LN IF ?LN .?5" FAST 5 SGN ??
LN PRINT !???**SNUNCH**)??ñú LN
IF ?5£ FAST 5 SGN ??LN PRINT !?
>?úúúúúúúúúúBY STEVEN REID)??ñ/
LN IF ?ECOPY ?FAST Eó?SGN ??LN
PRINT !?H? )F?ñò LN IF ?ECOPY ?
FAST 5ñ SGN ;FAST Eó?SGN ??LN
PRINT !?EXP ? )ATN ?ñò LN IF ?5
ô FAST ECLS ?SGN ??LN PRINT !?
DIM ?±²)SCROLL ?ñò LN IF ?5õ
FAST ECLS ?SGN ??LN PRINT !?ô?´´
)ò?ñò LN IF ?ESCROLL ?FAST EFOR
?SGN ??LN PRINT !?3?´ó)1?ñò LN
IF ?ESCROLL ?FAST 5ñ SGN ;FAST E
FOR ?SGN ??LN PRINT !?RND?ñ²)Y?ñ
ò LN IF ?5 FAST 5ñ SGN ??LN
PRINT !???GAME OVER)??ñù LN IF ?
LN .?5ñ GOSUB ?<=?DùSTR$ LN ??
FOR SGN FAST 5 SGN BGOSUB ?TAB
=?E TO ?FAST 5ú SGN ;6 TO ?5ò
GOSUB ?<=?DùSTR$ LN ??FOR SGN
FAST 5 SGN BGOSUB ?TAB U?E TO ?
FAST 5ú SGN ;6 TO ?5ó GOSUB ?<=?
DùSTR$ LN ??FOR SGN FAST 5 SGN
BGOSUB ?TAB STEP ?E TO ?FAST 5ú
SGN ;6 TO ?5ô GOSUB ?<=?DùSTR$
LN ??FOR SGN FAST 5 SGN BGOSUB
?TAB ö?E TO ?FAST 5ú SGN ;6 TO ?
E TO ?FAST ENOT ?SGN BGOSUB ?
PAUSE ,?E TO ?6NOT ?5( FAST 5
SGN ??LN PRINT !?K?SCORE:)E?ñö
LN IF ?E TO ?LN INPUT ?5> FAST 5
SGN ??LN PRINT !???BEST:)??ñõ
LN IF ?ENOT ?LN INPUT ?E TO ?
FAST ENOT ?SGN BGOSUB ?TAB (??´?
**A NEW RECORD**)??ñ( LN IF ?
LN .?LN ??LN RND?LN ??LN N??3?)3
?ñ LN ??LN X?LN 2?ASN O??(?5+
FAST 5 SGN ??LN PRINT !?SLOW ?P
RESS ENTER TO BEGIN A NEW GAME )
CODE ?ñ4 LN IF ?5õ LN =RNDLN ??
LN RND?LN ??LN N??ò?)ò?ñ LN ??
LN X?LN 2?ASN *??M?5+ FAST 5
SGN ??LN PRINT !???PRESS ENTER T
O BEGIN A NEW GAME )B?ñ4 LN IF ?
5õ LN =RND?O?5: FAST 5 SGN ??
LN PRINT !?´?NOT ENOUGH PILLS, G
OOD TRY*)??ñ. LN IF ?LN .??"?5:
FAST 5 SGN ??LN PRINT !?Z?GHOST
GOT YOU, TRY AGAIN**)7?ñ0 LN
IF ?LN .????TAN ³ô ??
! ô ù ! ! ñ ñ ò
ô ù COPY COPY 9 ó?
REM MCODER II COPY
RIGHT 1983 D C THRELFALL COMPI
LER 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