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:
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_39.ADF » GOLD
- Personal collection » Acorn hard disk » zipped_disks » elk03 » eug39/GOLD
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