Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_39.ADF » GOLD

GOLD

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_39.ADF
Filename: GOLD
Read OK:
File size: 16A2 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM PROGRAM MONSTERS' GOLD
   20REM VERSION E0.1
   30REM AUTHOR  ANDREW LOGAN
   40REM ELBUG   JAN/FEB 1986
   50REM PROGRAM SUBJECT TO COPYRIGHT
   60:
   70ONERRORGOTO2670
   80ON ERROR PROCerror
  100MODE6:PROCtitle:MODE5
  110PROCstart
  120S%=0:U%=1:H%=3
  130PROCinit
  140PROCplatform
  150PROCladder
  160PROCsu
  170REPEAT
  180PROCl:PROCg:PROCm:PROCscore
  190UNTILDEAD%ORWON%ORVIC%
  200IFEX%<=0GOTO240
  210IFDEAD%ANDH%<>0PROCres:GOTO160
  220IFWON%PROCres:PROCla:GOTO160
  230IFVIC%PROCvic:PROCdelay(100):PROCres:CLEAR:CLS:U%=U%+1:GOTO130
  240CLS:IFS%>=A%A%=S%
  250COLOUR2:FORI%=0TO19:PRINTTAB(I%,4);"*";TAB(I%,28);"*";TAB(I%,13);"*":NEXTI%
  260FORI%=4TO28:PRINTTAB(0,I%);"*";TAB(19,I%);"*":NEXTI%
  270COLOUR3:PRINTTAB(6,7);"MONSTERS";TAB(8,10);"GOLD"
  280COLOUR1:PRINTTAB(5,16);"SCORE ";S%
  290COLOUR3:PRINTTAB(3,20);"HI-SCORE ";A%
  300COLOUR1:PRINTTAB(4,25);"ANOTHER GAME?"
  310REPEAT:I$=GET$:UNTILI$="N"ORI$="Y"
  320IFI$="Y"CLEAR:CLS:GOTO120
  330MODE6:END
  340:
 1000DEFPROCtitle
 1010COLOUR2
 1020PRINTTAB(8,2);"M O N S T E R S  G O L D":COLOUR1:PRINTTAB(8,3);STRING$(24,"*")
 1030COLOUR3
 1040PRINT'TAB(1);"Collect the small pieces of ladder"'"which hang from the platforms, avoid"'"the monsters and head back to your"'"starting point (the BLUE BLOCK) to"'"construct a ladder which will enable"
 1050PRINT'"you to collect the gold on the top"'"platform. You must complete this task"'"before the bonus runs out if you are to"'"continue.  CONTROLS:-"
 1070PRINT''TAB(7);"'Z'...LEFT"SPC(4)"'X'...RIGHT"''TAB(7);"':'...UP"SPC(6)"'/'...DOWN"
 1080COLOUR1:PRINT''TAB(10);"PRESS SPACE TO BEGIN"'TAB(9)"OR ESCAPE TO LOAD MENU"
 1090REPEATUNTILINKEY-99
 1100ENDPROC
 1110DEFPROCinit
 1120DIMA%(20,31),E%(5),F%(5),M$(3)
 1130DEAD%=FALSE:WON%=FALSE:VIC%=FALSE:R%=0:V%=0:CC%=30:B%=16:C%=14:UP%=-1
 1140BONUS%=250-(U%*5)
 1150TI%=0
 1160FORI%=1TO3:M$(I%)=CHR$(I%+232):NEXTI%
 1170L$=CHR$231:P$=CHR$230:E$=CHR$232
 1180SL$=CHR$237:BL$=CHR$238:MD$=CHR$239
 1190G$=CHR$236:BG$=CHR$240
 1200ENDPROC
 1210DEFPROCstart
 1220VDU23,1,0;0;0;0;
 1230VDU19,1,6,0,0,0
 1240VDU23,230,255,24,36,36,66,66,129,255
 1250VDU23,231,129,129,129,255,129,129,129,255
 1260VDU23,232,255,255,0,0,0,0,0,0
 1270VDU23,233,24,24,0,124,190,25,36,34
 1280VDU23,234,24,24,0,62,125,152,36,68
 1290VDU23,235,90,90,66,126,126,36,36,36
 1300VDU23,236,129,66,36,126,90,255,129,255
 1310VDU23,237,0,0,17,17,31,17,17,0
 1320VDU23,238,255,255,255,255,255,255,255,255
 1330VDU23,239,0,0,0,0,8,139,139,255
 1340VDU23,240,0,66,36,60,126,60,24,0
 1350A%=0
 1360ENVELOPE1,1,4,-6,-50,206,125,105,126,0,0,-126,126,126
 1370ENVELOPE3,1,0,0,0,0,0,0,126,0,0,-126,126,126
 1380ENVELOPE4,1,30,0,-30,6,1,6,13,0,0,-126,126,0
 1390ENDPROC
 1400DEFPROCplatform
 1410COLOUR2
 1420FORI%=14TO19:PRINTTAB(I%,3);P$;:A%(I%,3)=-1:NEXTI%
 1430FORJ%=6TO30STEP4
 1440FORI%=0TO19
 1450IFI%<>16PRINTTAB(I%,J%);P$;:A%(I%,J%)=-1
 1460NEXT,
 1470COLOUR1:PRINTTAB(18,30);BL$;TAB(17,3);BL$
 1480COLOUR2:PRINTTAB(17,2);BG$
 1490ENDPROC
 1500DEFPROCladder
 1510C%=0
 1520COLOUR1
 1530FORJ%=5TO25STEP4
 1540C%=C%+1
 1550IFC%=1O%=5:P%=10ELSEIFC%=2C%=0:O%=2:P%=13
 1560FORT%=J%TOJ%+4
 1570PRINTTAB(O%,T%);L$;:A%(O%,T%)=2:PRINTTAB(P%,T%);L$;:A%(P%,T%)=2
 1580NEXT,:ENDPROC
 1590DEFPROCm
 1600IFDEAD%ORWON%ORVIC%ENDPROC
 1610N%=X%:M%=Y%:V%=Z%
 1620IFX%=16GOTO1650
 1630IFINKEY-73Z%=3:Y%=Y%-1:STILT%=0:GOTO1690
 1640IFINKEY-105Z%=3:Y%=Y%+1:STILT%=0:GOTO1690
 1650IFINKEY-98Z%=1:X%=X%-1:STILT%=0:GOTO1680
 1660IFINKEY-67Z%=2:X%=X%+1:STILT%=0:GOTO1680
 1670STILT%=TRUE:GOTO1690
 1680IFX%=-1GOTO1690ELSEIFA%(X%,Y%+1)=-1SOUND1,4,14,1
 1690IFX%=-1X%=0
 1700IFX%=20X%=19
 1710IFMT%ANDX%=0X%=1
 1720IF(Z%=3ANDA%(X%,Y%)<>2)OR(Z%<3ANDA%(X%,Y%+1)=0)X%=N%:Y%=M%:Z%=V%
 1730IFMT%GOTO1750
 1740IFX%=LX%ANDY%=LY%+2MT%=-1:S%=S%+10:PRINTTAB(LX%,LY%);SPC1
 1750IFX%=16Y%=C%-1
 1760IFSTILT%ANDX%<>16ENDPROC
 1770IFA%(N%,M%)=2COLOUR1:PRINTTAB(N%,M%);L$ELSEPRINTTAB(N%,M%);SPC1
 1780IFNOTMT%GOTO1800
 1790IFA%(N%-1,M%)=2COLOUR1:PRINTTAB(N%-1,M%);L$ELSEIFA%(N%-1,M%)=-1COLOUR2:PRINTTAB(N%-1,M%);P$ELSEPRINTTAB(N%-1,M%);SPC1
 1800COLOUR3:PRINTTAB(X%,Y%);M$(Z%)
 1810IFMT%COLOUR1:PRINTTAB(X%-1,Y%);SL$
 1820IFY%=2ANDX%=17VIC%=-1:S%=S%+(EX%*50):ENDPROC
 1830IFA%(X%,Y%)=4ORA%(X%,Y%)=5PROCdead
 1840IFMT%ANDX%<>16:IFA%(X%-1,Y%)=4ORA%(X%-1,Y%)=5PROCdead
 1850IFMT%ANDX%=18ANDY%=29THENWON%=-1:TI%=TIME
 1860ENDPROC
 1870DEFPROCl
 1880Q%=B%:W%=C%
 1890IFUP%C%=C%-1ELSEIFUP%=0C%=C%+1
 1900IFC%=31UP%=-1:ENDPROC
 1910IFC%<6UP%=0:ENDPROC
 1920PROCm
 1930IFUP%PRINTTAB(Q%,W%);SPC1;ELSEIFX%<>16PRINTTAB(Q%,W%);SPC1;
 1940COLOUR2:PRINTTAB(B%,C%);E$;
 1950A%(B%,C%)=-1:A%(Q%,W%)=0
 1960ENDPROC
 1970DEFPROCg
 1980IFDEAD%ENDPROC
 1990R%=R%+1:IFR%>4R%=1
 2000K%=E%(R%):T%=F%(R%)
 2010IFA%(K%,T%+SGN(Y%-T%))=2F%(R%)=F%(R%)+SGN(Y%-T%):GOTO2030
 2020IF(T%-1)/4=(T%-1)DIV4 E%(R%)=E%(R%)+SGN(X%-K%)
 2030IFA%(E%(R%),F%(R%))=4ORA%(E%(R%),F%(R%))=5ORE%(R%)=16ORE%(R%)=-1PROChyp:SOUND0,-15,200,1:GOTO2050
 2040SOUND1,-15,10,1
 2050IFA%(E%(R%),F%(R%))=0A%(E%(R%),F%(R%))=4
 2060IFA%(E%(R%),F%(R%))=2A%(E%(R%),F%(R%))=5
 2070IFA%(K%,T%)=4PRINTTAB(K%,T%);SPC1:A%(K%,T%)=0
 2080IFA%(K%,T%)=5:COLOUR1:PRINTTAB(K%,T%);L$:A%(K%,T%)=2
 2090COLOUR3:PRINTTAB(E%(R%),F%(R%));G$
 2100IFX%=E%(R%)ANDY%=F%(R%)PROCdead
 2110IFMT%ANDX%<>16ANDE%(R%)=X%-1ANDF%(R%)=Y%PROCdead
 2120ENDPROC
 2130DEFPROChyp
 2140REPEAT:E%(R%)=RND(14):F%(R%)=(RND(7)*4)+1:UNTILE%(R%)<>X%ANDE%(R%)<>X%-1AND(A%(E%(R%),F%(R%))=0ORA%(E%(R%),F%(R%))=2)
 2150ENDPROC
 2160DEFPROCsu
 2170UP%=-1:DEAD%=0
 2180MT%=0:WON%=0
 2190X%=18:Y%=29:Z%=1
 2200COLOUR3:PRINTTAB(X%,Y%);M$(1)
 2210FORI%=1TO4:E%(I%)=8:NEXTI%
 2220F%(1)=5:F%(2)=13:F%(3)=25:F%(4)=21
 2230FORI%=1TO4:PRINTTAB(E%(I%),F%(I%));G$:A%(E%(I%),F%(I%))=4:NEXTI%
 2240REPEAT:LX%=RND(12):LY%=(RND(6)*4)+3:UNTILA%(LX%,LY%)=0:COLOUR1:PRINTTAB(LX%,LY%);SL$
 2250PRINTTAB(6,31);"SHEET ";U%;
 2260COLOUR3:FORI%=1TOH%:PRINTTAB(I%,31)M$(1);:NEXTI%
 2270PROCdelay(150):TIME=TI%
 2280ENDPROC
 2290DEFPROCres
 2300FORI%=1TO4:IFA%(E%(I%),F%(I%))=4PRINTTAB(E%(I%),F%(I%));SPC1:A%(E%(I%),F%(I%))=0
 2310IFA%(E%(I%),F%(I%))=5:COLOUR1:PRINTTAB(E%(I%),F%(I%));L$:A%(E%(I%),F%(I%))=2
 2320NEXTI%:IFA%(X%,Y%)=2:COLOUR1:PRINTTAB(X%,Y%);L$ELSEPRINTTAB(X%,Y%);SPC1
 2330IFMT%:IFA%(X%-1,Y%)=2COLOUR1:PRINTTAB(X%-1,Y%);L$ELSEIFA%(X%-1,Y%)=-1COLOUR2:PRINTTAB(X%-1,Y%);P$ELSEIFA%(X%-1,Y%)=0PRINTTAB(X%-1,Y%);SPC1
 2340PRINTTAB(B%,C%);SPC1;:A%(B%,C%)=0
 2350PRINTTAB(LX%,LY%);SPC1
 2360ENDPROC
 2370DEFPROCdead:TI%=TIME:PRINTTAB(H%,31);SPC1;:H%=H%-1:DEAD%=-1
 2380*FX15,0
 2390COLOUR3:PROCdelay(25):SOUND0,3,5,1
 2400IFMT%PRINTTAB(X%-1,Y%);" "+MD$ELSEPRINTTAB(X%,Y%);MD$
 2410PROCdelay(100):ENDPROC
 2420DEFPROCla
 2430CC%=CC%-4:IFCC%<1ENDPROC
 2440SOUND1,1,67,10
 2450FORI%=CC%TOCC%+3
 2460COLOUR1:PRINTTAB(19,I%);L$;:A%(19,I%)=2
 2470NEXTI%
 2480S%=S%+100:PROCdelay(100)
 2490ENDPROC
 2500DEFPROCdelay(DET%):NOW%=TIME:REPEAT:UNTILTIME>NOW%+DET%:ENDPROC
 2510DEFPROCscore
 2520IFDEAD%ORWON%ENDPROC
 2530COLOUR3:PRINTTAB(0,3);"SCORE ";S%
 2540EX%=BONUS%-(INT(TIME/100))
 2550COLOUR1:PRINTTAB(6,1);"BONUS ";EX%
 2560IFEX%<=99PRINTTAB(14,1);SPC1
 2570IFEX%<=9PRINTTAB(13,1);SPC1
 2580IFEX%<=0PROCdead
 2590ENDPROC
 2600DEFPROCvic:PROCdelay(75)
 2610COLOUR2:PRINTTAB(17,2);BG$:COLOUR3:PRINTTAB(18,2);M$(2):SOUND1,4,14,1:PROCdelay(25):COLOUR2:PRINTTAB(17,2);SPC1;TAB(18,2);BG$:COLOUR3:PRINTTAB(19,2);M$(2):SOUND1,4,14,1:PROCdelay(25):PRINTTAB(18,2);SPC1
 2620FORI%=3TO28:COLOUR1:PRINTTAB(19,I%-1);L$;:COLOUR2:PRINTTAB(19,I%);BG$;:COLOUR3:PRINTTAB(19,I%+1);M$(3);:PROCdelay(15):NEXTI%
 2630COLOUR1:PRINTTAB(19,28);L$;TAB(19,29);L$
 2640COLOUR2:PRINTTAB(17,29);BG$:COLOUR3:PRINTTAB(18,29);M$(2):SOUND1,4,14,1:PROCdelay(40):PRINTTAB(17,29);SPC1
 2650FORI%=1TO12:COLOUR2:PRINTTAB(18,27);BG$:COLOUR3:PRINTTAB(18,28);M$(3):PRINTTAB(18,29);SPC1:PROCdelay(15):PRINTTAB(18,27);SPC1:COLOUR3:PRINTTAB(18,29);M$(3):COLOUR2:PRINTTAB(18,28);BG$:SOUND1,4,14,1:PROCdelay(15):NEXTI%:PROCdelay(70)
 2660ENDPROC
21550DEF PROCerror:Z%=0:CHAIN"MENU":ENDPROC

� PROGRAM MONSTERS' GOLD
� VERSION E0.1
� AUTHOR  ANDREW LOGAN
(� ELBUG   JAN/FEB 1986
2"� PROGRAM SUBJECT TO COPYRIGHT
<:
F��DnJ
P� � �error
d�6:�title:�5
n
�start
xS%=0:U%=1:H%=3
�	�init
�
�platform
��ladder
��su
��
��l:�g:�m:�score
��DEAD%�WON%�VIC%
��EX%<=0�dp@
��DEAD%�H%<>0�res:�t`@
��WON%�res:�la:�t`@
�0�VIC%�vic:�delay(100):�res:�:�:U%=U%+1:�tB@
��:�S%>=A%A%=S%
�7�2:�I%=0�19:�I%,4);"*";�I%,28);"*";�I%,13);"*":�I%
(�I%=4�28:�0,I%);"*";�19,I%);"*":�I%
&�3:�6,7);"MONSTERS";�8,10);"GOLD"
�1:�5,16);"SCORE ";S%
"�3:�3,20);"HI-SCORE ";A%
,�1:�4,25);"ANOTHER GAME?"
6�:I$=�:�I$="N"�I$="Y"
@�I$="Y"�:�:�Dx@
J�6:�
T:
���title
��2
�8�8,2);"M O N S T E R S  G O L D":�1:�8,3);�24,"*")
�3
��'�1);"Collect the small pieces of ladder"'"which hang from the platforms, avoid"'"the monsters and head back to your"'"starting point (the BLUE BLOCK) to"'"construct a ladder which will enable"
��'"you to collect the gold on the top"'"platform. You must complete this task"'"before the bonus runs out if you are to"'"continue.  CONTROLS:-"
.H�''�7);"'Z'...LEFT"�(4)"'X'...RIGHT"''�7);"':'...UP"�(6)"'/'...DOWN"
8A�1:�''�10);"PRESS SPACE TO BEGIN"'�9)"OR ESCAPE TO LOAD MENU"
B
���-99
L�
V
��init
` �A%(20,31),E%(5),F%(5),M$(3)
j=DEAD%=�:WON%=�:VIC%=�:R%=0:V%=0:CC%=30:B%=16:C%=14:UP%=-1
tBONUS%=250-(U%*5)
~	TI%=0
� �I%=1�3:M$(I%)=�(I%+232):�I%
�L$=�231:P$=�230:E$=�232
�SL$=�237:BL$=�238:MD$=�239
�G$=�236:BG$=�240
��
���start
��23,1,0;0;0;0;
��19,1,6,0,0,0
�&�23,230,255,24,36,36,66,66,129,255
�+�23,231,129,129,129,255,129,129,129,255
��23,232,255,255,0,0,0,0,0,0
�$�23,233,24,24,0,124,190,25,36,34
$�23,234,24,24,0,62,125,152,36,68

%�23,235,90,90,66,126,126,36,36,36
(�23,236,129,66,36,126,90,255,129,255
 �23,237,0,0,17,17,31,17,17,0
(+�23,238,255,255,255,255,255,255,255,255
2!�23,239,0,0,0,0,8,139,139,255
<"�23,240,0,66,36,60,126,60,24,0
FA%=0
P2�1,1,4,-6,-50,206,125,105,126,0,0,-126,126,126
Z)�3,1,0,0,0,0,0,0,126,0,0,-126,126,126
d)�4,1,30,0,-30,6,1,6,13,0,0,-126,126,0
n�
x��platform
��2
�)�I%=14�19:�I%,3);P$;:A%(I%,3)=-1:�I%
��J%=6�30�4
��I%=0�19
�$�I%<>16�I%,J%);P$;:A%(I%,J%)=-1
��,
��1:�18,30);BL$;�17,3);BL$
��2:�17,2);BG$
��
���ladder
�C%=0
��1
��J%=5�25�4
C%=C%+1
(�C%=1O%=5:P%=10��C%=2C%=0:O%=2:P%=13
�T%=J%�J%+4
"5�O%,T%);L$;:A%(O%,T%)=2:�P%,T%);L$;:A%(P%,T%)=2
,�,:�
6��m
@�DEAD%�WON%�VIC%�
JN%=X%:M%=Y%:V%=Z%
T�X%=16�DrF
^$�-73Z%=3:Y%=Y%-1:STILT%=0:�tZF
h%�-105Z%=3:Y%=Y%+1:STILT%=0:�tZF
r$�-98Z%=1:X%=X%-1:STILT%=0:�tPF
|$�-67Z%=2:X%=X%+1:STILT%=0:�tPF
�STILT%=�:�tZF
�(�X%=-1�tZF��A%(X%,Y%+1)=-1�1,4,14,1
��X%=-1X%=0
��X%=20X%=19
��MT%�X%=0X%=1
�>�(Z%=3�A%(X%,Y%)<>2)�(Z%<3�A%(X%,Y%+1)=0)X%=N%:Y%=M%:Z%=V%
�
�MT%�dVF
�1�X%=LX%�Y%=LY%+2MT%=-1:S%=S%+10:�LX%,LY%);�1
��X%=16Y%=C%-1
��STILT%�X%<>16�
�*�A%(N%,M%)=2�1:�N%,M%);L$��N%,M%);�1
��MT%�THG
�P�A%(N%-1,M%)=2�1:�N%-1,M%);L$��A%(N%-1,M%)=-1�2:�N%-1,M%);P$��N%-1,M%);�1
�3:�X%,Y%);M$(Z%)
�MT%�1:�X%-1,Y%);SL$
'�Y%=2�X%=17VIC%=-1:S%=S%+(EX%*50):�
&!�A%(X%,Y%)=4�A%(X%,Y%)=5�dead
01�MT%�X%<>16:�A%(X%-1,Y%)=4�A%(X%-1,Y%)=5�dead
:"�MT%�X%=18�Y%=29�WON%=-1:TI%=�
D�
N��l
XQ%=B%:W%=C%
b�UP%C%=C%-1��UP%=0C%=C%+1
l�C%=31UP%=-1:�
v�C%<6UP%=0:�
��m
�(�UP%�Q%,W%);�1;��X%<>16�Q%,W%);�1;
��2:�B%,C%);E$;
�A%(B%,C%)=-1:A%(Q%,W%)=0
��
���g
��DEAD%�
�R%=R%+1:�R%>4R%=1
�K%=E%(R%):T%=F%(R%)
�5�A%(K%,T%+�(Y%-T%))=2F%(R%)=F%(R%)+�(Y%-T%):�dnG
�-�(T%-1)/4=(T%-1)�4 E%(R%)=E%(R%)+�(X%-K%)
�W�A%(E%(R%),F%(R%))=4�A%(E%(R%),F%(R%))=5�E%(R%)=16�E%(R%)=-1�hyp:�0,-15,200,1:�TBH
��1,-15,10,1
+�A%(E%(R%),F%(R%))=0A%(E%(R%),F%(R%))=4
+�A%(E%(R%),F%(R%))=2A%(E%(R%),F%(R%))=5
'�A%(K%,T%)=4�K%,T%);�1:A%(K%,T%)=0
 +�A%(K%,T%)=5:�1:�K%,T%);L$:A%(K%,T%)=2
*�3:�E%(R%),F%(R%));G$
4�X%=E%(R%)�Y%=F%(R%)�dead
>*�MT%�X%<>16�E%(R%)=X%-1�F%(R%)=Y%�dead
H�
R	��hyp
\g�:E%(R%)=�(14):F%(R%)=(�(7)*4)+1:�E%(R%)<>X%�E%(R%)<>X%-1�(A%(E%(R%),F%(R%))=0�A%(E%(R%),F%(R%))=2)
f�
p��su
zUP%=-1:DEAD%=0
�MT%=0:WON%=0
�X%=18:Y%=29:Z%=1
��3:�X%,Y%);M$(1)
��I%=1�4:E%(I%)=8:�I%
�&F%(1)=5:F%(2)=13:F%(3)=25:F%(4)=21
�7�I%=1�4:�E%(I%),F%(I%));G$:A%(E%(I%),F%(I%))=4:�I%
�?�:LX%=�(12):LY%=(�(6)*4)+3:�A%(LX%,LY%)=0:�1:�LX%,LY%);SL$
��6,31);"SHEET ";U%;
�"�3:�I%=1�H%:�I%,31)M$(1);:�I%
��delay(150):�=TI%
��
�	��res
�G�I%=1�4:�A%(E%(I%),F%(I%))=4�E%(I%),F%(I%));�1:A%(E%(I%),F%(I%))=0
	C�A%(E%(I%),F%(I%))=5:�1:�E%(I%),F%(I%));L$:A%(E%(I%),F%(I%))=2
	/�I%:�A%(X%,Y%)=2:�1:�X%,Y%);L$��X%,Y%);�1
	c�MT%:�A%(X%-1,Y%)=2�1:�X%-1,Y%);L$��A%(X%-1,Y%)=-1�2:�X%-1,Y%);P$��A%(X%-1,Y%)=0�X%-1,Y%);�1
	$�B%,C%);�1;:A%(B%,C%)=0
	.�LX%,LY%);�1
	8�
	B.��dead:TI%=�:�H%,31);�1;:H%=H%-1:DEAD%=-1
	L*FX15,0
	V�3:�delay(25):�0,3,5,1
	`'�MT%�X%-1,Y%);" "+MD$��X%,Y%);MD$
	j�delay(100):�
	t��la
	~CC%=CC%-4:�CC%<1�
	��1,1,67,10
	��I%=CC%�CC%+3
	��1:�19,I%);L$;:A%(19,I%)=2
	��I%
	�S%=S%+100:�delay(100)
	��
	�)��delay(DET%):NOW%=�:�:��>NOW%+DET%:�
	���score
	��DEAD%�WON%�
	��3:�0,3);"SCORE ";S%
	�EX%=BONUS%-(�(�/100))
	��1:�6,1);"BONUS ";EX%
�EX%<=99�14,1);�1

�EX%<=9�13,1);�1
�EX%<=0�dead
�
(��vic:�delay(75)
2��2:�17,2);BG$:�3:�18,2);M$(2):�1,4,14,1:�delay(25):�2:�17,2);�1;�18,2);BG$:�3:�19,2);M$(2):�1,4,14,1:�delay(25):�18,2);�1
<S�I%=3�28:�1:�19,I%-1);L$;:�2:�19,I%);BG$;:�3:�19,I%+1);M$(3);:�delay(15):�I%
F�1:�19,28);L$;�19,29);L$
PF�2:�17,29);BG$:�3:�18,29);M$(2):�1,4,14,1:�delay(40):�17,29);�1
Z��I%=1�12:�2:�18,27);BG$:�3:�18,28);M$(3):�18,29);�1:�delay(15):�18,27);�1:�3:�18,29);M$(3):�2:�18,28);BG$:�1,4,14,1:�delay(15):�I%:�delay(70)
d�
T.� �error:Z%=0:�"MENU":�
�
00000000  0d 00 0a 1c f4 20 50 52  4f 47 52 41 4d 20 4d 4f  |..... PROGRAM MO|
00000010  4e 53 54 45 52 53 27 20  47 4f 4c 44 0d 00 14 12  |NSTERS' GOLD....|
00000020  f4 20 56 45 52 53 49 4f  4e 20 45 30 2e 31 0d 00  |. VERSION E0.1..|
00000030  1e 1a f4 20 41 55 54 48  4f 52 20 20 41 4e 44 52  |... AUTHOR  ANDR|
00000040  45 57 20 4c 4f 47 41 4e  0d 00 28 1a f4 20 45 4c  |EW LOGAN..(.. EL|
00000050  42 55 47 20 20 20 4a 41  4e 2f 46 45 42 20 31 39  |BUG   JAN/FEB 19|
00000060  38 36 0d 00 32 22 f4 20  50 52 4f 47 52 41 4d 20  |86..2". PROGRAM |
00000070  53 55 42 4a 45 43 54 20  54 4f 20 43 4f 50 59 52  |SUBJECT TO COPYR|
00000080  49 47 48 54 0d 00 3c 05  3a 0d 00 46 0b ee 85 e5  |IGHT..<.:..F....|
00000090  8d 44 6e 4a 0d 00 50 0e  ee 20 85 20 f2 65 72 72  |.DnJ..P.. . .err|
000000a0  6f 72 0d 00 64 10 eb 36  3a f2 74 69 74 6c 65 3a  |or..d..6:.title:|
000000b0  eb 35 0d 00 6e 0a f2 73  74 61 72 74 0d 00 78 12  |.5..n..start..x.|
000000c0  53 25 3d 30 3a 55 25 3d  31 3a 48 25 3d 33 0d 00  |S%=0:U%=1:H%=3..|
000000d0  82 09 f2 69 6e 69 74 0d  00 8c 0d f2 70 6c 61 74  |...init.....plat|
000000e0  66 6f 72 6d 0d 00 96 0b  f2 6c 61 64 64 65 72 0d  |form.....ladder.|
000000f0  00 a0 07 f2 73 75 0d 00  aa 05 f5 0d 00 b4 13 f2  |....su..........|
00000100  6c 3a f2 67 3a f2 6d 3a  f2 73 63 6f 72 65 0d 00  |l:.g:.m:.score..|
00000110  be 14 fd 44 45 41 44 25  84 57 4f 4e 25 84 56 49  |...DEAD%.WON%.VI|
00000120  43 25 0d 00 c8 10 e7 45  58 25 3c 3d 30 e5 8d 64  |C%.....EX%<=0..d|
00000130  70 40 0d 00 d2 1a e7 44  45 41 44 25 80 48 25 3c  |p@.....DEAD%.H%<|
00000140  3e 30 f2 72 65 73 3a e5  8d 74 60 40 0d 00 dc 17  |>0.res:..t`@....|
00000150  e7 57 4f 4e 25 f2 72 65  73 3a f2 6c 61 3a e5 8d  |.WON%.res:.la:..|
00000160  74 60 40 0d 00 e6 30 e7  56 49 43 25 f2 76 69 63  |t`@...0.VIC%.vic|
00000170  3a f2 64 65 6c 61 79 28  31 30 30 29 3a f2 72 65  |:.delay(100):.re|
00000180  73 3a d8 3a db 3a 55 25  3d 55 25 2b 31 3a e5 8d  |s:.:.:U%=U%+1:..|
00000190  74 42 40 0d 00 f0 12 db  3a e7 53 25 3e 3d 41 25  |tB@.....:.S%>=A%|
000001a0  41 25 3d 53 25 0d 00 fa  37 fb 32 3a e3 49 25 3d  |A%=S%...7.2:.I%=|
000001b0  30 b8 31 39 3a f1 8a 49  25 2c 34 29 3b 22 2a 22  |0.19:..I%,4);"*"|
000001c0  3b 8a 49 25 2c 32 38 29  3b 22 2a 22 3b 8a 49 25  |;.I%,28);"*";.I%|
000001d0  2c 31 33 29 3b 22 2a 22  3a ed 49 25 0d 01 04 28  |,13);"*":.I%...(|
000001e0  e3 49 25 3d 34 b8 32 38  3a f1 8a 30 2c 49 25 29  |.I%=4.28:..0,I%)|
000001f0  3b 22 2a 22 3b 8a 31 39  2c 49 25 29 3b 22 2a 22  |;"*";.19,I%);"*"|
00000200  3a ed 49 25 0d 01 0e 26  fb 33 3a f1 8a 36 2c 37  |:.I%...&.3:..6,7|
00000210  29 3b 22 4d 4f 4e 53 54  45 52 53 22 3b 8a 38 2c  |);"MONSTERS";.8,|
00000220  31 30 29 3b 22 47 4f 4c  44 22 0d 01 18 1a fb 31  |10);"GOLD".....1|
00000230  3a f1 8a 35 2c 31 36 29  3b 22 53 43 4f 52 45 20  |:..5,16);"SCORE |
00000240  22 3b 53 25 0d 01 22 1d  fb 33 3a f1 8a 33 2c 32  |";S%.."..3:..3,2|
00000250  30 29 3b 22 48 49 2d 53  43 4f 52 45 20 22 3b 41  |0);"HI-SCORE ";A|
00000260  25 0d 01 2c 1e fb 31 3a  f1 8a 34 2c 32 35 29 3b  |%..,..1:..4,25);|
00000270  22 41 4e 4f 54 48 45 52  20 47 41 4d 45 3f 22 0d  |"ANOTHER GAME?".|
00000280  01 36 19 f5 3a 49 24 3d  be 3a fd 49 24 3d 22 4e  |.6..:I$=.:.I$="N|
00000290  22 84 49 24 3d 22 59 22  0d 01 40 14 e7 49 24 3d  |".I$="Y"..@..I$=|
000002a0  22 59 22 d8 3a db 3a e5  8d 44 78 40 0d 01 4a 08  |"Y".:.:..Dx@..J.|
000002b0  eb 36 3a e0 0d 01 54 05  3a 0d 03 e8 0b dd f2 74  |.6:...T.:......t|
000002c0  69 74 6c 65 0d 03 f2 06  fb 32 0d 03 fc 38 f1 8a  |itle.....2...8..|
000002d0  38 2c 32 29 3b 22 4d 20  4f 20 4e 20 53 20 54 20  |8,2);"M O N S T |
000002e0  45 20 52 20 53 20 20 47  20 4f 20 4c 20 44 22 3a  |E R S  G O L D":|
000002f0  fb 31 3a f1 8a 38 2c 33  29 3b c4 32 34 2c 22 2a  |.1:..8,3);.24,"*|
00000300  22 29 0d 04 06 06 fb 33  0d 04 10 c6 f1 27 8a 31  |").....3.....'.1|
00000310  29 3b 22 43 6f 6c 6c 65  63 74 20 74 68 65 20 73  |);"Collect the s|
00000320  6d 61 6c 6c 20 70 69 65  63 65 73 20 6f 66 20 6c  |mall pieces of l|
00000330  61 64 64 65 72 22 27 22  77 68 69 63 68 20 68 61  |adder"'"which ha|
00000340  6e 67 20 66 72 6f 6d 20  74 68 65 20 70 6c 61 74  |ng from the plat|
00000350  66 6f 72 6d 73 2c 20 61  76 6f 69 64 22 27 22 74  |forms, avoid"'"t|
00000360  68 65 20 6d 6f 6e 73 74  65 72 73 20 61 6e 64 20  |he monsters and |
00000370  68 65 61 64 20 62 61 63  6b 20 74 6f 20 79 6f 75  |head back to you|
00000380  72 22 27 22 73 74 61 72  74 69 6e 67 20 70 6f 69  |r"'"starting poi|
00000390  6e 74 20 28 74 68 65 20  42 4c 55 45 20 42 4c 4f  |nt (the BLUE BLO|
000003a0  43 4b 29 20 74 6f 22 27  22 63 6f 6e 73 74 72 75  |CK) to"'"constru|
000003b0  63 74 20 61 20 6c 61 64  64 65 72 20 77 68 69 63  |ct a ladder whic|
000003c0  68 20 77 69 6c 6c 20 65  6e 61 62 6c 65 22 0d 04  |h will enable"..|
000003d0  1a 94 f1 27 22 79 6f 75  20 74 6f 20 63 6f 6c 6c  |...'"you to coll|
000003e0  65 63 74 20 74 68 65 20  67 6f 6c 64 20 6f 6e 20  |ect the gold on |
000003f0  74 68 65 20 74 6f 70 22  27 22 70 6c 61 74 66 6f  |the top"'"platfo|
00000400  72 6d 2e 20 59 6f 75 20  6d 75 73 74 20 63 6f 6d  |rm. You must com|
00000410  70 6c 65 74 65 20 74 68  69 73 20 74 61 73 6b 22  |plete this task"|
00000420  27 22 62 65 66 6f 72 65  20 74 68 65 20 62 6f 6e  |'"before the bon|
00000430  75 73 20 72 75 6e 73 20  6f 75 74 20 69 66 20 79  |us runs out if y|
00000440  6f 75 20 61 72 65 20 74  6f 22 27 22 63 6f 6e 74  |ou are to"'"cont|
00000450  69 6e 75 65 2e 20 20 43  4f 4e 54 52 4f 4c 53 3a  |inue.  CONTROLS:|
00000460  2d 22 0d 04 2e 48 f1 27  27 8a 37 29 3b 22 27 5a  |-"...H.''.7);"'Z|
00000470  27 2e 2e 2e 4c 45 46 54  22 89 28 34 29 22 27 58  |'...LEFT".(4)"'X|
00000480  27 2e 2e 2e 52 49 47 48  54 22 27 27 8a 37 29 3b  |'...RIGHT"''.7);|
00000490  22 27 3a 27 2e 2e 2e 55  50 22 89 28 36 29 22 27  |"':'...UP".(6)"'|
000004a0  2f 27 2e 2e 2e 44 4f 57  4e 22 0d 04 38 41 fb 31  |/'...DOWN"..8A.1|
000004b0  3a f1 27 27 8a 31 30 29  3b 22 50 52 45 53 53 20  |:.''.10);"PRESS |
000004c0  53 50 41 43 45 20 54 4f  20 42 45 47 49 4e 22 27  |SPACE TO BEGIN"'|
000004d0  8a 39 29 22 4f 52 20 45  53 43 41 50 45 20 54 4f  |.9)"OR ESCAPE TO|
000004e0  20 4c 4f 41 44 20 4d 45  4e 55 22 0d 04 42 0a f5  | LOAD MENU"..B..|
000004f0  fd a6 2d 39 39 0d 04 4c  05 e1 0d 04 56 0a dd f2  |..-99..L....V...|
00000500  69 6e 69 74 0d 04 60 20  de 41 25 28 32 30 2c 33  |init..` .A%(20,3|
00000510  31 29 2c 45 25 28 35 29  2c 46 25 28 35 29 2c 4d  |1),E%(5),F%(5),M|
00000520  24 28 33 29 0d 04 6a 3d  44 45 41 44 25 3d a3 3a  |$(3)..j=DEAD%=.:|
00000530  57 4f 4e 25 3d a3 3a 56  49 43 25 3d a3 3a 52 25  |WON%=.:VIC%=.:R%|
00000540  3d 30 3a 56 25 3d 30 3a  43 43 25 3d 33 30 3a 42  |=0:V%=0:CC%=30:B|
00000550  25 3d 31 36 3a 43 25 3d  31 34 3a 55 50 25 3d 2d  |%=16:C%=14:UP%=-|
00000560  31 0d 04 74 15 42 4f 4e  55 53 25 3d 32 35 30 2d  |1..t.BONUS%=250-|
00000570  28 55 25 2a 35 29 0d 04  7e 09 54 49 25 3d 30 0d  |(U%*5)..~.TI%=0.|
00000580  04 88 20 e3 49 25 3d 31  b8 33 3a 4d 24 28 49 25  |.. .I%=1.3:M$(I%|
00000590  29 3d bd 28 49 25 2b 32  33 32 29 3a ed 49 25 0d  |)=.(I%+232):.I%.|
000005a0  04 92 1b 4c 24 3d bd 32  33 31 3a 50 24 3d bd 32  |...L$=.231:P$=.2|
000005b0  33 30 3a 45 24 3d bd 32  33 32 0d 04 9c 1e 53 4c  |30:E$=.232....SL|
000005c0  24 3d bd 32 33 37 3a 42  4c 24 3d bd 32 33 38 3a  |$=.237:BL$=.238:|
000005d0  4d 44 24 3d bd 32 33 39  0d 04 a6 14 47 24 3d bd  |MD$=.239....G$=.|
000005e0  32 33 36 3a 42 47 24 3d  bd 32 34 30 0d 04 b0 05  |236:BG$=.240....|
000005f0  e1 0d 04 ba 0b dd f2 73  74 61 72 74 0d 04 c4 12  |.......start....|
00000600  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 04  |.23,1,0;0;0;0;..|
00000610  ce 11 ef 31 39 2c 31 2c  36 2c 30 2c 30 2c 30 0d  |...19,1,6,0,0,0.|
00000620  04 d8 26 ef 32 33 2c 32  33 30 2c 32 35 35 2c 32  |..&.23,230,255,2|
00000630  34 2c 33 36 2c 33 36 2c  36 36 2c 36 36 2c 31 32  |4,36,36,66,66,12|
00000640  39 2c 32 35 35 0d 04 e2  2b ef 32 33 2c 32 33 31  |9,255...+.23,231|
00000650  2c 31 32 39 2c 31 32 39  2c 31 32 39 2c 32 35 35  |,129,129,129,255|
*
00000670  0d 04 ec 1f ef 32 33 2c  32 33 32 2c 32 35 35 2c  |.....23,232,255,|
00000680  32 35 35 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |255,0,0,0,0,0,0.|
00000690  04 f6 24 ef 32 33 2c 32  33 33 2c 32 34 2c 32 34  |..$.23,233,24,24|
000006a0  2c 30 2c 31 32 34 2c 31  39 30 2c 32 35 2c 33 36  |,0,124,190,25,36|
000006b0  2c 33 34 0d 05 00 24 ef  32 33 2c 32 33 34 2c 32  |,34...$.23,234,2|
000006c0  34 2c 32 34 2c 30 2c 36  32 2c 31 32 35 2c 31 35  |4,24,0,62,125,15|
000006d0  32 2c 33 36 2c 36 38 0d  05 0a 25 ef 32 33 2c 32  |2,36,68...%.23,2|
000006e0  33 35 2c 39 30 2c 39 30  2c 36 36 2c 31 32 36 2c  |35,90,90,66,126,|
000006f0  31 32 36 2c 33 36 2c 33  36 2c 33 36 0d 05 14 28  |126,36,36,36...(|
00000700  ef 32 33 2c 32 33 36 2c  31 32 39 2c 36 36 2c 33  |.23,236,129,66,3|
00000710  36 2c 31 32 36 2c 39 30  2c 32 35 35 2c 31 32 39  |6,126,90,255,129|
00000720  2c 32 35 35 0d 05 1e 20  ef 32 33 2c 32 33 37 2c  |,255... .23,237,|
00000730  30 2c 30 2c 31 37 2c 31  37 2c 33 31 2c 31 37 2c  |0,0,17,17,31,17,|
00000740  31 37 2c 30 0d 05 28 2b  ef 32 33 2c 32 33 38 2c  |17,0..(+.23,238,|
00000750  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000760  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 0d  |255,255,255,255.|
00000770  05 32 21 ef 32 33 2c 32  33 39 2c 30 2c 30 2c 30  |.2!.23,239,0,0,0|
00000780  2c 30 2c 38 2c 31 33 39  2c 31 33 39 2c 32 35 35  |,0,8,139,139,255|
00000790  0d 05 3c 22 ef 32 33 2c  32 34 30 2c 30 2c 36 36  |..<".23,240,0,66|
000007a0  2c 33 36 2c 36 30 2c 31  32 36 2c 36 30 2c 32 34  |,36,60,126,60,24|
000007b0  2c 30 0d 05 46 08 41 25  3d 30 0d 05 50 32 e2 31  |,0..F.A%=0..P2.1|
000007c0  2c 31 2c 34 2c 2d 36 2c  2d 35 30 2c 32 30 36 2c  |,1,4,-6,-50,206,|
000007d0  31 32 35 2c 31 30 35 2c  31 32 36 2c 30 2c 30 2c  |125,105,126,0,0,|
000007e0  2d 31 32 36 2c 31 32 36  2c 31 32 36 0d 05 5a 29  |-126,126,126..Z)|
000007f0  e2 33 2c 31 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |.3,1,0,0,0,0,0,0|
00000800  2c 31 32 36 2c 30 2c 30  2c 2d 31 32 36 2c 31 32  |,126,0,0,-126,12|
00000810  36 2c 31 32 36 0d 05 64  29 e2 34 2c 31 2c 33 30  |6,126..d).4,1,30|
00000820  2c 30 2c 2d 33 30 2c 36  2c 31 2c 36 2c 31 33 2c  |,0,-30,6,1,6,13,|
00000830  30 2c 30 2c 2d 31 32 36  2c 31 32 36 2c 30 0d 05  |0,0,-126,126,0..|
00000840  6e 05 e1 0d 05 78 0e dd  f2 70 6c 61 74 66 6f 72  |n....x...platfor|
00000850  6d 0d 05 82 06 fb 32 0d  05 8c 29 e3 49 25 3d 31  |m.....2...).I%=1|
00000860  34 b8 31 39 3a f1 8a 49  25 2c 33 29 3b 50 24 3b  |4.19:..I%,3);P$;|
00000870  3a 41 25 28 49 25 2c 33  29 3d 2d 31 3a ed 49 25  |:A%(I%,3)=-1:.I%|
00000880  0d 05 96 0e e3 4a 25 3d  36 b8 33 30 88 34 0d 05  |.....J%=6.30.4..|
00000890  a0 0c e3 49 25 3d 30 b8  31 39 0d 05 aa 24 e7 49  |...I%=0.19...$.I|
000008a0  25 3c 3e 31 36 f1 8a 49  25 2c 4a 25 29 3b 50 24  |%<>16..I%,J%);P$|
000008b0  3b 3a 41 25 28 49 25 2c  4a 25 29 3d 2d 31 0d 05  |;:A%(I%,J%)=-1..|
000008c0  b4 06 ed 2c 0d 05 be 1e  fb 31 3a f1 8a 31 38 2c  |...,.....1:..18,|
000008d0  33 30 29 3b 42 4c 24 3b  8a 31 37 2c 33 29 3b 42  |30);BL$;.17,3);B|
000008e0  4c 24 0d 05 c8 12 fb 32  3a f1 8a 31 37 2c 32 29  |L$.....2:..17,2)|
000008f0  3b 42 47 24 0d 05 d2 05  e1 0d 05 dc 0c dd f2 6c  |;BG$...........l|
00000900  61 64 64 65 72 0d 05 e6  08 43 25 3d 30 0d 05 f0  |adder....C%=0...|
00000910  06 fb 31 0d 05 fa 0e e3  4a 25 3d 35 b8 32 35 88  |..1.....J%=5.25.|
00000920  34 0d 06 04 0b 43 25 3d  43 25 2b 31 0d 06 0e 28  |4....C%=C%+1...(|
00000930  e7 43 25 3d 31 4f 25 3d  35 3a 50 25 3d 31 30 8b  |.C%=1O%=5:P%=10.|
00000940  e7 43 25 3d 32 43 25 3d  30 3a 4f 25 3d 32 3a 50  |.C%=2C%=0:O%=2:P|
00000950  25 3d 31 33 0d 06 18 0f  e3 54 25 3d 4a 25 b8 4a  |%=13.....T%=J%.J|
00000960  25 2b 34 0d 06 22 35 f1  8a 4f 25 2c 54 25 29 3b  |%+4.."5..O%,T%);|
00000970  4c 24 3b 3a 41 25 28 4f  25 2c 54 25 29 3d 32 3a  |L$;:A%(O%,T%)=2:|
00000980  f1 8a 50 25 2c 54 25 29  3b 4c 24 3b 3a 41 25 28  |..P%,T%);L$;:A%(|
00000990  50 25 2c 54 25 29 3d 32  0d 06 2c 08 ed 2c 3a e1  |P%,T%)=2..,..,:.|
000009a0  0d 06 36 07 dd f2 6d 0d  06 40 15 e7 44 45 41 44  |..6...m..@..DEAD|
000009b0  25 84 57 4f 4e 25 84 56  49 43 25 e1 0d 06 4a 15  |%.WON%.VIC%...J.|
000009c0  4e 25 3d 58 25 3a 4d 25  3d 59 25 3a 56 25 3d 5a  |N%=X%:M%=Y%:V%=Z|
000009d0  25 0d 06 54 0f e7 58 25  3d 31 36 e5 8d 44 72 46  |%..T..X%=16..DrF|
000009e0  0d 06 5e 24 e7 a6 2d 37  33 5a 25 3d 33 3a 59 25  |..^$..-73Z%=3:Y%|
000009f0  3d 59 25 2d 31 3a 53 54  49 4c 54 25 3d 30 3a e5  |=Y%-1:STILT%=0:.|
00000a00  8d 74 5a 46 0d 06 68 25  e7 a6 2d 31 30 35 5a 25  |.tZF..h%..-105Z%|
00000a10  3d 33 3a 59 25 3d 59 25  2b 31 3a 53 54 49 4c 54  |=3:Y%=Y%+1:STILT|
00000a20  25 3d 30 3a e5 8d 74 5a  46 0d 06 72 24 e7 a6 2d  |%=0:..tZF..r$..-|
00000a30  39 38 5a 25 3d 31 3a 58  25 3d 58 25 2d 31 3a 53  |98Z%=1:X%=X%-1:S|
00000a40  54 49 4c 54 25 3d 30 3a  e5 8d 74 50 46 0d 06 7c  |TILT%=0:..tPF..||
00000a50  24 e7 a6 2d 36 37 5a 25  3d 32 3a 58 25 3d 58 25  |$..-67Z%=2:X%=X%|
00000a60  2b 31 3a 53 54 49 4c 54  25 3d 30 3a e5 8d 74 50  |+1:STILT%=0:..tP|
00000a70  46 0d 06 86 12 53 54 49  4c 54 25 3d b9 3a e5 8d  |F....STILT%=.:..|
00000a80  74 5a 46 0d 06 90 28 e7  58 25 3d 2d 31 e5 8d 74  |tZF...(.X%=-1..t|
00000a90  5a 46 8b e7 41 25 28 58  25 2c 59 25 2b 31 29 3d  |ZF..A%(X%,Y%+1)=|
00000aa0  2d 31 d4 31 2c 34 2c 31  34 2c 31 0d 06 9a 0e e7  |-1.1,4,14,1.....|
00000ab0  58 25 3d 2d 31 58 25 3d  30 0d 06 a4 0f e7 58 25  |X%=-1X%=0.....X%|
00000ac0  3d 32 30 58 25 3d 31 39  0d 06 ae 11 e7 4d 54 25  |=20X%=19.....MT%|
00000ad0  80 58 25 3d 30 58 25 3d  31 0d 06 b8 3e e7 28 5a  |.X%=0X%=1...>.(Z|
00000ae0  25 3d 33 80 41 25 28 58  25 2c 59 25 29 3c 3e 32  |%=3.A%(X%,Y%)<>2|
00000af0  29 84 28 5a 25 3c 33 80  41 25 28 58 25 2c 59 25  |).(Z%<3.A%(X%,Y%|
00000b00  2b 31 29 3d 30 29 58 25  3d 4e 25 3a 59 25 3d 4d  |+1)=0)X%=N%:Y%=M|
00000b10  25 3a 5a 25 3d 56 25 0d  06 c2 0d e7 4d 54 25 e5  |%:Z%=V%.....MT%.|
00000b20  8d 64 56 46 0d 06 cc 31  e7 58 25 3d 4c 58 25 80  |.dVF...1.X%=LX%.|
00000b30  59 25 3d 4c 59 25 2b 32  4d 54 25 3d 2d 31 3a 53  |Y%=LY%+2MT%=-1:S|
00000b40  25 3d 53 25 2b 31 30 3a  f1 8a 4c 58 25 2c 4c 59  |%=S%+10:..LX%,LY|
00000b50  25 29 3b 89 31 0d 06 d6  11 e7 58 25 3d 31 36 59  |%);.1.....X%=16Y|
00000b60  25 3d 43 25 2d 31 0d 06  e0 13 e7 53 54 49 4c 54  |%=C%-1.....STILT|
00000b70  25 80 58 25 3c 3e 31 36  e1 0d 06 ea 2a e7 41 25  |%.X%<>16....*.A%|
00000b80  28 4e 25 2c 4d 25 29 3d  32 fb 31 3a f1 8a 4e 25  |(N%,M%)=2.1:..N%|
00000b90  2c 4d 25 29 3b 4c 24 8b  f1 8a 4e 25 2c 4d 25 29  |,M%);L$...N%,M%)|
00000ba0  3b 89 31 0d 06 f4 0e e7  ac 4d 54 25 e5 8d 54 48  |;.1......MT%..TH|
00000bb0  47 0d 06 fe 50 e7 41 25  28 4e 25 2d 31 2c 4d 25  |G...P.A%(N%-1,M%|
00000bc0  29 3d 32 fb 31 3a f1 8a  4e 25 2d 31 2c 4d 25 29  |)=2.1:..N%-1,M%)|
00000bd0  3b 4c 24 8b e7 41 25 28  4e 25 2d 31 2c 4d 25 29  |;L$..A%(N%-1,M%)|
00000be0  3d 2d 31 fb 32 3a f1 8a  4e 25 2d 31 2c 4d 25 29  |=-1.2:..N%-1,M%)|
00000bf0  3b 50 24 8b f1 8a 4e 25  2d 31 2c 4d 25 29 3b 89  |;P$...N%-1,M%);.|
00000c00  31 0d 07 08 16 fb 33 3a  f1 8a 58 25 2c 59 25 29  |1.....3:..X%,Y%)|
00000c10  3b 4d 24 28 5a 25 29 0d  07 12 19 e7 4d 54 25 fb  |;M$(Z%).....MT%.|
00000c20  31 3a f1 8a 58 25 2d 31  2c 59 25 29 3b 53 4c 24  |1:..X%-1,Y%);SL$|
00000c30  0d 07 1c 27 e7 59 25 3d  32 80 58 25 3d 31 37 56  |...'.Y%=2.X%=17V|
00000c40  49 43 25 3d 2d 31 3a 53  25 3d 53 25 2b 28 45 58  |IC%=-1:S%=S%+(EX|
00000c50  25 2a 35 30 29 3a e1 0d  07 26 21 e7 41 25 28 58  |%*50):...&!.A%(X|
00000c60  25 2c 59 25 29 3d 34 84  41 25 28 58 25 2c 59 25  |%,Y%)=4.A%(X%,Y%|
00000c70  29 3d 35 f2 64 65 61 64  0d 07 30 31 e7 4d 54 25  |)=5.dead..01.MT%|
00000c80  80 58 25 3c 3e 31 36 3a  e7 41 25 28 58 25 2d 31  |.X%<>16:.A%(X%-1|
00000c90  2c 59 25 29 3d 34 84 41  25 28 58 25 2d 31 2c 59  |,Y%)=4.A%(X%-1,Y|
00000ca0  25 29 3d 35 f2 64 65 61  64 0d 07 3a 22 e7 4d 54  |%)=5.dead..:".MT|
00000cb0  25 80 58 25 3d 31 38 80  59 25 3d 32 39 8c 57 4f  |%.X%=18.Y%=29.WO|
00000cc0  4e 25 3d 2d 31 3a 54 49  25 3d 91 0d 07 44 05 e1  |N%=-1:TI%=...D..|
00000cd0  0d 07 4e 07 dd f2 6c 0d  07 58 0f 51 25 3d 42 25  |..N...l..X.Q%=B%|
00000ce0  3a 57 25 3d 43 25 0d 07  62 1d e7 55 50 25 43 25  |:W%=C%..b..UP%C%|
00000cf0  3d 43 25 2d 31 8b e7 55  50 25 3d 30 43 25 3d 43  |=C%-1..UP%=0C%=C|
00000d00  25 2b 31 0d 07 6c 12 e7  43 25 3d 33 31 55 50 25  |%+1..l..C%=31UP%|
00000d10  3d 2d 31 3a e1 0d 07 76  10 e7 43 25 3c 36 55 50  |=-1:...v..C%<6UP|
00000d20  25 3d 30 3a e1 0d 07 80  06 f2 6d 0d 07 8a 28 e7  |%=0:......m...(.|
00000d30  55 50 25 f1 8a 51 25 2c  57 25 29 3b 89 31 3b 8b  |UP%..Q%,W%);.1;.|
00000d40  e7 58 25 3c 3e 31 36 f1  8a 51 25 2c 57 25 29 3b  |.X%<>16..Q%,W%);|
00000d50  89 31 3b 0d 07 94 13 fb  32 3a f1 8a 42 25 2c 43  |.1;.....2:..B%,C|
00000d60  25 29 3b 45 24 3b 0d 07  9e 1c 41 25 28 42 25 2c  |%);E$;....A%(B%,|
00000d70  43 25 29 3d 2d 31 3a 41  25 28 51 25 2c 57 25 29  |C%)=-1:A%(Q%,W%)|
00000d80  3d 30 0d 07 a8 05 e1 0d  07 b2 07 dd f2 67 0d 07  |=0...........g..|
00000d90  bc 0b e7 44 45 41 44 25  e1 0d 07 c6 15 52 25 3d  |...DEAD%.....R%=|
00000da0  52 25 2b 31 3a e7 52 25  3e 34 52 25 3d 31 0d 07  |R%+1:.R%>4R%=1..|
00000db0  d0 17 4b 25 3d 45 25 28  52 25 29 3a 54 25 3d 46  |..K%=E%(R%):T%=F|
00000dc0  25 28 52 25 29 0d 07 da  35 e7 41 25 28 4b 25 2c  |%(R%)...5.A%(K%,|
00000dd0  54 25 2b b4 28 59 25 2d  54 25 29 29 3d 32 46 25  |T%+.(Y%-T%))=2F%|
00000de0  28 52 25 29 3d 46 25 28  52 25 29 2b b4 28 59 25  |(R%)=F%(R%)+.(Y%|
00000df0  2d 54 25 29 3a e5 8d 64  6e 47 0d 07 e4 2d e7 28  |-T%):..dnG...-.(|
00000e00  54 25 2d 31 29 2f 34 3d  28 54 25 2d 31 29 81 34  |T%-1)/4=(T%-1).4|
00000e10  20 45 25 28 52 25 29 3d  45 25 28 52 25 29 2b b4  | E%(R%)=E%(R%)+.|
00000e20  28 58 25 2d 4b 25 29 0d  07 ee 57 e7 41 25 28 45  |(X%-K%)...W.A%(E|
00000e30  25 28 52 25 29 2c 46 25  28 52 25 29 29 3d 34 84  |%(R%),F%(R%))=4.|
00000e40  41 25 28 45 25 28 52 25  29 2c 46 25 28 52 25 29  |A%(E%(R%),F%(R%)|
00000e50  29 3d 35 84 45 25 28 52  25 29 3d 31 36 84 45 25  |)=5.E%(R%)=16.E%|
00000e60  28 52 25 29 3d 2d 31 f2  68 79 70 3a d4 30 2c 2d  |(R%)=-1.hyp:.0,-|
00000e70  31 35 2c 32 30 30 2c 31  3a e5 8d 54 42 48 0d 07  |15,200,1:..TBH..|
00000e80  f8 0f d4 31 2c 2d 31 35  2c 31 30 2c 31 0d 08 02  |...1,-15,10,1...|
00000e90  2b e7 41 25 28 45 25 28  52 25 29 2c 46 25 28 52  |+.A%(E%(R%),F%(R|
00000ea0  25 29 29 3d 30 41 25 28  45 25 28 52 25 29 2c 46  |%))=0A%(E%(R%),F|
00000eb0  25 28 52 25 29 29 3d 34  0d 08 0c 2b e7 41 25 28  |%(R%))=4...+.A%(|
00000ec0  45 25 28 52 25 29 2c 46  25 28 52 25 29 29 3d 32  |E%(R%),F%(R%))=2|
00000ed0  41 25 28 45 25 28 52 25  29 2c 46 25 28 52 25 29  |A%(E%(R%),F%(R%)|
00000ee0  29 3d 35 0d 08 16 27 e7  41 25 28 4b 25 2c 54 25  |)=5...'.A%(K%,T%|
00000ef0  29 3d 34 f1 8a 4b 25 2c  54 25 29 3b 89 31 3a 41  |)=4..K%,T%);.1:A|
00000f00  25 28 4b 25 2c 54 25 29  3d 30 0d 08 20 2b e7 41  |%(K%,T%)=0.. +.A|
00000f10  25 28 4b 25 2c 54 25 29  3d 35 3a fb 31 3a f1 8a  |%(K%,T%)=5:.1:..|
00000f20  4b 25 2c 54 25 29 3b 4c  24 3a 41 25 28 4b 25 2c  |K%,T%);L$:A%(K%,|
00000f30  54 25 29 3d 32 0d 08 2a  1a fb 33 3a f1 8a 45 25  |T%)=2..*..3:..E%|
00000f40  28 52 25 29 2c 46 25 28  52 25 29 29 3b 47 24 0d  |(R%),F%(R%));G$.|
00000f50  08 34 1d e7 58 25 3d 45  25 28 52 25 29 80 59 25  |.4..X%=E%(R%).Y%|
00000f60  3d 46 25 28 52 25 29 f2  64 65 61 64 0d 08 3e 2a  |=F%(R%).dead..>*|
00000f70  e7 4d 54 25 80 58 25 3c  3e 31 36 80 45 25 28 52  |.MT%.X%<>16.E%(R|
00000f80  25 29 3d 58 25 2d 31 80  46 25 28 52 25 29 3d 59  |%)=X%-1.F%(R%)=Y|
00000f90  25 f2 64 65 61 64 0d 08  48 05 e1 0d 08 52 09 dd  |%.dead..H....R..|
00000fa0  f2 68 79 70 0d 08 5c 67  f5 3a 45 25 28 52 25 29  |.hyp..\g.:E%(R%)|
00000fb0  3d b3 28 31 34 29 3a 46  25 28 52 25 29 3d 28 b3  |=.(14):F%(R%)=(.|
00000fc0  28 37 29 2a 34 29 2b 31  3a fd 45 25 28 52 25 29  |(7)*4)+1:.E%(R%)|
00000fd0  3c 3e 58 25 80 45 25 28  52 25 29 3c 3e 58 25 2d  |<>X%.E%(R%)<>X%-|
00000fe0  31 80 28 41 25 28 45 25  28 52 25 29 2c 46 25 28  |1.(A%(E%(R%),F%(|
00000ff0  52 25 29 29 3d 30 84 41  25 28 45 25 28 52 25 29  |R%))=0.A%(E%(R%)|
00001000  2c 46 25 28 52 25 29 29  3d 32 29 0d 08 66 05 e1  |,F%(R%))=2)..f..|
00001010  0d 08 70 08 dd f2 73 75  0d 08 7a 12 55 50 25 3d  |..p...su..z.UP%=|
00001020  2d 31 3a 44 45 41 44 25  3d 30 0d 08 84 10 4d 54  |-1:DEAD%=0....MT|
00001030  25 3d 30 3a 57 4f 4e 25  3d 30 0d 08 8e 14 58 25  |%=0:WON%=0....X%|
00001040  3d 31 38 3a 59 25 3d 32  39 3a 5a 25 3d 31 0d 08  |=18:Y%=29:Z%=1..|
00001050  98 15 fb 33 3a f1 8a 58  25 2c 59 25 29 3b 4d 24  |...3:..X%,Y%);M$|
00001060  28 31 29 0d 08 a2 18 e3  49 25 3d 31 b8 34 3a 45  |(1).....I%=1.4:E|
00001070  25 28 49 25 29 3d 38 3a  ed 49 25 0d 08 ac 26 46  |%(I%)=8:.I%...&F|
00001080  25 28 31 29 3d 35 3a 46  25 28 32 29 3d 31 33 3a  |%(1)=5:F%(2)=13:|
00001090  46 25 28 33 29 3d 32 35  3a 46 25 28 34 29 3d 32  |F%(3)=25:F%(4)=2|
000010a0  31 0d 08 b6 37 e3 49 25  3d 31 b8 34 3a f1 8a 45  |1...7.I%=1.4:..E|
000010b0  25 28 49 25 29 2c 46 25  28 49 25 29 29 3b 47 24  |%(I%),F%(I%));G$|
000010c0  3a 41 25 28 45 25 28 49  25 29 2c 46 25 28 49 25  |:A%(E%(I%),F%(I%|
000010d0  29 29 3d 34 3a ed 49 25  0d 08 c0 3f f5 3a 4c 58  |))=4:.I%...?.:LX|
000010e0  25 3d b3 28 31 32 29 3a  4c 59 25 3d 28 b3 28 36  |%=.(12):LY%=(.(6|
000010f0  29 2a 34 29 2b 33 3a fd  41 25 28 4c 58 25 2c 4c  |)*4)+3:.A%(LX%,L|
00001100  59 25 29 3d 30 3a fb 31  3a f1 8a 4c 58 25 2c 4c  |Y%)=0:.1:..LX%,L|
00001110  59 25 29 3b 53 4c 24 0d  08 ca 18 f1 8a 36 2c 33  |Y%);SL$......6,3|
00001120  31 29 3b 22 53 48 45 45  54 20 22 3b 55 25 3b 0d  |1);"SHEET ";U%;.|
00001130  08 d4 22 fb 33 3a e3 49  25 3d 31 b8 48 25 3a f1  |..".3:.I%=1.H%:.|
00001140  8a 49 25 2c 33 31 29 4d  24 28 31 29 3b 3a ed 49  |.I%,31)M$(1);:.I|
00001150  25 0d 08 de 15 f2 64 65  6c 61 79 28 31 35 30 29  |%.....delay(150)|
00001160  3a d1 3d 54 49 25 0d 08  e8 05 e1 0d 08 f2 09 dd  |:.=TI%..........|
00001170  f2 72 65 73 0d 08 fc 47  e3 49 25 3d 31 b8 34 3a  |.res...G.I%=1.4:|
00001180  e7 41 25 28 45 25 28 49  25 29 2c 46 25 28 49 25  |.A%(E%(I%),F%(I%|
00001190  29 29 3d 34 f1 8a 45 25  28 49 25 29 2c 46 25 28  |))=4..E%(I%),F%(|
000011a0  49 25 29 29 3b 89 31 3a  41 25 28 45 25 28 49 25  |I%));.1:A%(E%(I%|
000011b0  29 2c 46 25 28 49 25 29  29 3d 30 0d 09 06 43 e7  |),F%(I%))=0...C.|
000011c0  41 25 28 45 25 28 49 25  29 2c 46 25 28 49 25 29  |A%(E%(I%),F%(I%)|
000011d0  29 3d 35 3a fb 31 3a f1  8a 45 25 28 49 25 29 2c  |)=5:.1:..E%(I%),|
000011e0  46 25 28 49 25 29 29 3b  4c 24 3a 41 25 28 45 25  |F%(I%));L$:A%(E%|
000011f0  28 49 25 29 2c 46 25 28  49 25 29 29 3d 32 0d 09  |(I%),F%(I%))=2..|
00001200  10 2f ed 49 25 3a e7 41  25 28 58 25 2c 59 25 29  |./.I%:.A%(X%,Y%)|
00001210  3d 32 3a fb 31 3a f1 8a  58 25 2c 59 25 29 3b 4c  |=2:.1:..X%,Y%);L|
00001220  24 8b f1 8a 58 25 2c 59  25 29 3b 89 31 0d 09 1a  |$...X%,Y%);.1...|
00001230  63 e7 4d 54 25 3a e7 41  25 28 58 25 2d 31 2c 59  |c.MT%:.A%(X%-1,Y|
00001240  25 29 3d 32 fb 31 3a f1  8a 58 25 2d 31 2c 59 25  |%)=2.1:..X%-1,Y%|
00001250  29 3b 4c 24 8b e7 41 25  28 58 25 2d 31 2c 59 25  |);L$..A%(X%-1,Y%|
00001260  29 3d 2d 31 fb 32 3a f1  8a 58 25 2d 31 2c 59 25  |)=-1.2:..X%-1,Y%|
00001270  29 3b 50 24 8b e7 41 25  28 58 25 2d 31 2c 59 25  |);P$..A%(X%-1,Y%|
00001280  29 3d 30 f1 8a 58 25 2d  31 2c 59 25 29 3b 89 31  |)=0..X%-1,Y%);.1|
00001290  0d 09 24 1c f1 8a 42 25  2c 43 25 29 3b 89 31 3b  |..$...B%,C%);.1;|
000012a0  3a 41 25 28 42 25 2c 43  25 29 3d 30 0d 09 2e 11  |:A%(B%,C%)=0....|
000012b0  f1 8a 4c 58 25 2c 4c 59  25 29 3b 89 31 0d 09 38  |..LX%,LY%);.1..8|
000012c0  05 e1 0d 09 42 2e dd f2  64 65 61 64 3a 54 49 25  |....B...dead:TI%|
000012d0  3d 91 3a f1 8a 48 25 2c  33 31 29 3b 89 31 3b 3a  |=.:..H%,31);.1;:|
000012e0  48 25 3d 48 25 2d 31 3a  44 45 41 44 25 3d 2d 31  |H%=H%-1:DEAD%=-1|
000012f0  0d 09 4c 0b 2a 46 58 31  35 2c 30 0d 09 56 1a fb  |..L.*FX15,0..V..|
00001300  33 3a f2 64 65 6c 61 79  28 32 35 29 3a d4 30 2c  |3:.delay(25):.0,|
00001310  33 2c 35 2c 31 0d 09 60  27 e7 4d 54 25 f1 8a 58  |3,5,1..`'.MT%..X|
00001320  25 2d 31 2c 59 25 29 3b  22 20 22 2b 4d 44 24 8b  |%-1,Y%);" "+MD$.|
00001330  f1 8a 58 25 2c 59 25 29  3b 4d 44 24 0d 09 6a 11  |..X%,Y%);MD$..j.|
00001340  f2 64 65 6c 61 79 28 31  30 30 29 3a e1 0d 09 74  |.delay(100):...t|
00001350  08 dd f2 6c 61 0d 09 7e  15 43 43 25 3d 43 43 25  |...la..~.CC%=CC%|
00001360  2d 34 3a e7 43 43 25 3c  31 e1 0d 09 88 0e d4 31  |-4:.CC%<1......1|
00001370  2c 31 2c 36 37 2c 31 30  0d 09 92 11 e3 49 25 3d  |,1,67,10.....I%=|
00001380  43 43 25 b8 43 43 25 2b  33 0d 09 9c 1f fb 31 3a  |CC%.CC%+3.....1:|
00001390  f1 8a 31 39 2c 49 25 29  3b 4c 24 3b 3a 41 25 28  |..19,I%);L$;:A%(|
000013a0  31 39 2c 49 25 29 3d 32  0d 09 a6 07 ed 49 25 0d  |19,I%)=2.....I%.|
000013b0  09 b0 19 53 25 3d 53 25  2b 31 30 30 3a f2 64 65  |...S%=S%+100:.de|
000013c0  6c 61 79 28 31 30 30 29  0d 09 ba 05 e1 0d 09 c4  |lay(100)........|
000013d0  29 dd f2 64 65 6c 61 79  28 44 45 54 25 29 3a 4e  |)..delay(DET%):N|
000013e0  4f 57 25 3d 91 3a f5 3a  fd 91 3e 4e 4f 57 25 2b  |OW%=.:.:..>NOW%+|
000013f0  44 45 54 25 3a e1 0d 09  ce 0b dd f2 73 63 6f 72  |DET%:.......scor|
00001400  65 0d 09 d8 10 e7 44 45  41 44 25 84 57 4f 4e 25  |e.....DEAD%.WON%|
00001410  e1 0d 09 e2 19 fb 33 3a  f1 8a 30 2c 33 29 3b 22  |......3:..0,3);"|
00001420  53 43 4f 52 45 20 22 3b  53 25 0d 09 ec 19 45 58  |SCORE ";S%....EX|
00001430  25 3d 42 4f 4e 55 53 25  2d 28 a8 28 91 2f 31 30  |%=BONUS%-(.(./10|
00001440  30 29 29 0d 09 f6 1a fb  31 3a f1 8a 36 2c 31 29  |0)).....1:..6,1)|
00001450  3b 22 42 4f 4e 55 53 20  22 3b 45 58 25 0d 0a 00  |;"BONUS ";EX%...|
00001460  16 e7 45 58 25 3c 3d 39  39 f1 8a 31 34 2c 31 29  |..EX%<=99..14,1)|
00001470  3b 89 31 0d 0a 0a 15 e7  45 58 25 3c 3d 39 f1 8a  |;.1.....EX%<=9..|
00001480  31 33 2c 31 29 3b 89 31  0d 0a 14 10 e7 45 58 25  |13,1);.1.....EX%|
00001490  3c 3d 30 f2 64 65 61 64  0d 0a 1e 05 e1 0d 0a 28  |<=0.dead.......(|
000014a0  14 dd f2 76 69 63 3a f2  64 65 6c 61 79 28 37 35  |...vic:.delay(75|
000014b0  29 0d 0a 32 82 fb 32 3a  f1 8a 31 37 2c 32 29 3b  |)..2..2:..17,2);|
000014c0  42 47 24 3a fb 33 3a f1  8a 31 38 2c 32 29 3b 4d  |BG$:.3:..18,2);M|
000014d0  24 28 32 29 3a d4 31 2c  34 2c 31 34 2c 31 3a f2  |$(2):.1,4,14,1:.|
000014e0  64 65 6c 61 79 28 32 35  29 3a fb 32 3a f1 8a 31  |delay(25):.2:..1|
000014f0  37 2c 32 29 3b 89 31 3b  8a 31 38 2c 32 29 3b 42  |7,2);.1;.18,2);B|
00001500  47 24 3a fb 33 3a f1 8a  31 39 2c 32 29 3b 4d 24  |G$:.3:..19,2);M$|
00001510  28 32 29 3a d4 31 2c 34  2c 31 34 2c 31 3a f2 64  |(2):.1,4,14,1:.d|
00001520  65 6c 61 79 28 32 35 29  3a f1 8a 31 38 2c 32 29  |elay(25):..18,2)|
00001530  3b 89 31 0d 0a 3c 53 e3  49 25 3d 33 b8 32 38 3a  |;.1..<S.I%=3.28:|
00001540  fb 31 3a f1 8a 31 39 2c  49 25 2d 31 29 3b 4c 24  |.1:..19,I%-1);L$|
00001550  3b 3a fb 32 3a f1 8a 31  39 2c 49 25 29 3b 42 47  |;:.2:..19,I%);BG|
00001560  24 3b 3a fb 33 3a f1 8a  31 39 2c 49 25 2b 31 29  |$;:.3:..19,I%+1)|
00001570  3b 4d 24 28 33 29 3b 3a  f2 64 65 6c 61 79 28 31  |;M$(3);:.delay(1|
00001580  35 29 3a ed 49 25 0d 0a  46 1d fb 31 3a f1 8a 31  |5):.I%..F..1:..1|
00001590  39 2c 32 38 29 3b 4c 24  3b 8a 31 39 2c 32 39 29  |9,28);L$;.19,29)|
000015a0  3b 4c 24 0d 0a 50 46 fb  32 3a f1 8a 31 37 2c 32  |;L$..PF.2:..17,2|
000015b0  39 29 3b 42 47 24 3a fb  33 3a f1 8a 31 38 2c 32  |9);BG$:.3:..18,2|
000015c0  39 29 3b 4d 24 28 32 29  3a d4 31 2c 34 2c 31 34  |9);M$(2):.1,4,14|
000015d0  2c 31 3a f2 64 65 6c 61  79 28 34 30 29 3a f1 8a  |,1:.delay(40):..|
000015e0  31 37 2c 32 39 29 3b 89  31 0d 0a 5a 97 e3 49 25  |17,29);.1..Z..I%|
000015f0  3d 31 b8 31 32 3a fb 32  3a f1 8a 31 38 2c 32 37  |=1.12:.2:..18,27|
00001600  29 3b 42 47 24 3a fb 33  3a f1 8a 31 38 2c 32 38  |);BG$:.3:..18,28|
00001610  29 3b 4d 24 28 33 29 3a  f1 8a 31 38 2c 32 39 29  |);M$(3):..18,29)|
00001620  3b 89 31 3a f2 64 65 6c  61 79 28 31 35 29 3a f1  |;.1:.delay(15):.|
00001630  8a 31 38 2c 32 37 29 3b  89 31 3a fb 33 3a f1 8a  |.18,27);.1:.3:..|
00001640  31 38 2c 32 39 29 3b 4d  24 28 33 29 3a fb 32 3a  |18,29);M$(3):.2:|
00001650  f1 8a 31 38 2c 32 38 29  3b 42 47 24 3a d4 31 2c  |..18,28);BG$:.1,|
00001660  34 2c 31 34 2c 31 3a f2  64 65 6c 61 79 28 31 35  |4,14,1:.delay(15|
00001670  29 3a ed 49 25 3a f2 64  65 6c 61 79 28 37 30 29  |):.I%:.delay(70)|
00001680  0d 0a 64 05 e1 0d 54 2e  1b dd 20 f2 65 72 72 6f  |..d...T... .erro|
00001690  72 3a 5a 25 3d 30 3a d7  22 4d 45 4e 55 22 3a e1  |r:Z%=0:."MENU":.|
000016a0  0d ff                                             |..|
000016a2
GOLD.m0
GOLD.m1
GOLD.m2
GOLD.m4
GOLD.m5