Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF » GAMES2/MUNCHMAN_K

GAMES2/MUNCHMAN_K

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 » Digital_pictures_2.ADF
Filename: GAMES2/MUNCHMAN_K
Read OK:
File size: 1542 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   70*FX11,1
   80 *FX12,1
   90ON ERROR GOTO 2150
  100MODE5:VDU23,1,0;0;0;0;
  110PROCCHARSET
  120ENVELOPE1,1,4,-4,4,10,20,10,126,0,0,-126,126,126
  130H%=0:DIM maze$(19,24),ghost(2,2)
  140REPEAT
  150PRINTTAB(5,2)"MUNCHMAN"TAB(6,9)"*.....UP"TAB(6,11)"?...DOWN"TAB(6,13)"Z...LEFT"TAB(6,15)"X..RIGHT"
  160VDU17,6,31,6,21,238,17,1,32,32,243,32,243,32,243:PROCspace
  170lives%=3:score%=0:sheet%=0:ghost=0:dir$=" "
  180PROCsetupmaze:TIME=0:fruit=0:EAT=0
  190COLOUR7:PRINTTAB(1,0)"Score"TAB(14)"High"
  200PROCprintscore(0):PRINTTAB(19-LEN(STR$(H%)),1);H%:COLOUR3:PRINTTAB(1,29)STRING$(lives%-1,CHR$237+" ")" " 
  210REPEAT:*FX15,0
  220ghost=ghost+1:IF ghost=3:ghost=0
  230PROCpacman:PROCcheck
  240IF EAT=1:SOUND1,-14,150,1
  250IF TIME>2000AND fruit=0 AND tot%<150:PROCfruit
  260IF RND(1)<0.9:PROCdoor
  270IF fruit=1AND TIME>3000/sheet%:PROCnofruit
  280IF TIME>1500/sheet% AND EAT=1:EAT=0   
  290UNTIL tot%=187 OR KILL=1
  300IF tot%=187:GOTO 180
  310PROCkilled:IF lives%>0:GOTO200
  320PROCend:UNTIL FALSE
  330:
  340DEFFNcalcX(X)
  350IF X>19:X=0
  360IF X<0:X=19
  370=X
  380:
  390DEFFNcalcY(Y)
  400IF Y>24:Y=0
  410IF Y<0:Y=24
  420=Y
  430:
  440DEFPROCtime(T)
  450TM=TIME:REPEAT UNTIL TIME>TM+T
  460ENDPROC
  470:
  480DEFPROCprintscore(S%)
  490score%=score%+S%
  500COLOUR7:PRINTTAB(1,1);score%
  510ENDPROC
  520:
  530DEFPROCpacman
  540OX%=pacX%:OY%=pacY%:SC=score%:IF pac$<>CHR$246:OP$=pac$
  550dir$=INKEY$(0)
  560IF dir$=":" pac$=CHR$239:pacY%=pacY%-1
  570IF dir$="/" pac$=CHR$240:pacY%=pacY%+1
  580IF dir$="Z" pac$=CHR$238:pacX%=pacX%-1
  590IF dir$="X" pac$=CHR$237:pacX%=pacX%+1
  600pacY%=FNcalcY(pacY%):pacX%=FNcalcX(pacX%)
  610IF dir$="" AND pac$=CHR$246 THEN pac$=OP$ ELSE IF dir$=""pac$=CHR$246
  620A$=maze$(pacX%,pacY%)
  630IF A$=".":PROCprintscore(2):SOUND1,1,60,1:tot%=tot%+1
  640IF A$=CHR$244:PROCprintscore(100):PROCnofruit:SOUND1,1,150,2
  650IF A$="+":PROCprintscore(50):EAT=1:TIME=0:SOUND1,1,100,2
  660IF SC=score% AND A$<>" ":pacX%=OX%:pacY%=OY%
  670VDU17,3,31,OX%,OY%+3,32
  680PRINTTAB(pacX%,pacY%+3);pac$
  690maze$(pacX%,pacY%)=" "
  700ENDPROC
  710:
  720DEFPROCruboutghost(G%):COLOUR1
  730M$=maze$(ghost(G%,1),ghost(G%,2))
  740IF M$="."OR M$="+":COLOUR2
  750IF M$=CHR$244:COLOUR1
  760IF M$=CHR$245:COLOUR5
  770PRINTTAB(ghost(G%,1),ghost(G%,2)+3)maze$(ghost(G%,1),ghost(G%,2))
  780ENDPROC
  790:
  800DEFPROCghost(G%):C=0
  810PROCruboutghost(G%)
  820IF EAT=1:COLOUR2 ELSE COLOUR1
  830IF EAT=0:DX%=1:DY%=1 ELSE DX%=-1:DY%=-1
  840IF G%=0:PROCvert:IF C=0:PROChoriz
  850IF G%=1:PROChoriz:IF C=0:PROCvert
  860IF G%=2:PROChoriz:PROCvert
  870PRINTTAB(ghost(G%,1),ghost(G%,2)+3)CHR$243
  880ENDPROC
  890:
  900DEFPROCvert
  910A=FNcalcY(ghost(G%,2)+DY%)
  920B=FNcalcY(ghost(G%,2)-DY%)
  930IF pacY%>ghost(G%,2):ghost(G%,2)=A:C=1
  940IF pacY%<ghost(G%,2):ghost(G%,2)=B:C=1 
  950ENDPROC
  960:
  970DEFPROChoriz
  980A=FNcalcX(ghost(G%,1)+DX%)
  990B=FNcalcX(ghost(G%,2)-DX%)
 1000 IF pacX%>ghost(G%,1):ghost(G%,1)=A:C=1
 1010IF pacX%<ghost(G%,1):ghost(G%,1)=B:C=1
 1020ENDPROC
 1030:
 1040DEFPROCdoor
 1050D%=RND(4):RESTORE1880
 1060FOR F%=1TOD%:READX,Y:NEXT
 1070IF X=pacX% AND Y=pacY%:GOTO 1050
 1080IF maze$(X,Y)=" ":maze$(X,Y)=CHR$245 ELSE maze$(X,Y)=" "
 1090VDU17,5,31,X,Y+3,ASC(maze$(X,Y))
 1100ENDPROC
 1110:
 1120DEFPROCfruit
 1130VDU17,1,31,9,18,244
 1140fruit=1:TIME=0
 1150maze$(9,15)=CHR$244
 1160ENDPROC
 1170:
 1180DEFPROCnofruit
 1190VDU31,9,18,32:fruit=0
 1200maze$(9,15)=" "
 1210ENDPROC
 1220:
 1230DEFPROCcheck:KILL=0
 1240FOR G%=0TO2
 1250IF G%=ghost:PROCghost(G%)
 1260IF ghost(G%,1)<>pacX% OR ghost(G%,2)<>pacY%:GOTO1280
 1270IF EAT=1:PROCprintscore(250):SOUND1,1,250,1:PROCsetupghosts(G%) ELSE KILL=1
 1280NEXT
 1290ENDPROC
 1300:
 1310DEFPROCkilled:COLOUR3
 1320FOR C=237 TO 242
 1330VDU31,pacX%,pacY%+3,C
 1340SOUND1,1,C/2,1:PROCtime(20)
 1350NEXT
 1360VDU31,pacX%,pacY%+3,32
 1370FOR G%=0TO2
 1380PROCruboutghost(G%) 
 1390PROCsetupghosts(G%)
 1400NEXT
 1410PROCpac:lives%=lives%-1
 1420ENDPROC
 1430:
 1440DEFPROCend
 1450IF score%>H%:H%=score%
 1460COLOUR7:PRINTTAB(19-LEN(STR$(H%)),1);H%
 1470PROCspace
 1480ENDPROC
 1490:
 1500DEFPROCspace:*FX15,0
 1510VDU17,15,31,1,30:PRINT"SPACE BAR TO START"
 1520REPEAT UNTIL GET=32:VDU12,17,7
 1530ENDPROC
 1540:
 1550DEFPROCsetupghosts(G%)
 1560RESTORE 1870
 1570FOR D%=0 TO G%:READ COL,X:NEXT
 1580ghost(G%,1)=X
 1590ghost(G%,2)=12
 1600ghost(G%,0)=COL
 1610ENDPROC
 1620:
 1630DEFPROCpac
 1640pacX%=9:pacY%=20:pac$=CHR$237
 1650ENDPROC
 1660:
 1670DEFPROCsetupmaze
 1680FOR G%=0TO2:PROCsetupghosts(G%):NEXT
 1690PROCpac:tot%=0:sheet%=sheet%+1
 1700COLOUR128:RESTORE 1890
 1710FOR D%=3TO27
 1720READ maze$
 1730FOR E%=0TO19
 1740A$=MID$(maze$,E%+1,1)
 1750IF A$>="A" AND A$<="M":M$=CHR$(ASC(A$)+159):COLOUR1 ELSE M$=A$:COLOUR2
 1760PRINTTAB(E%,D%)M$
 1770 maze$(E%,D%-3)=M$
 1780NEXT
 1790NEXT
 1800VDU19,2,9,0,0,0,19,4,14,0,0,0
 1810FOR D%=0TO21
 1820SOUND2,-15,D%*2,1
 1830SOUND1,-5,D%*3,1
 1840NEXT:VDU20
 1850ENDPROC
 1860:
 1870DATA 1,1,5,9,6,18
 1880DATA 9,1,9,22,2,15,17,15
 1890DATA"        A A         "
 1900DATA" CBBBBBBL LBBBBBBBD "
 1910DATA" A+..............+A "
 1920DATA" A.CI.JBD.CBI.JBD.A "
 1930DATA" A.G....A.A.....G.A "
 1940DATA" A...CI.G.G.JBD...A "
 1950DATA" A.H.G........A.H.A "
 1960DATA" A.G...CBD.CD.A.A.A "
 1970DATA" A...H.EBF.EF.G.A.A "
 1980DATA" A.JBK..........G.A "
 1990DATA" A...G.CBBBD.JD...A "
 2000DATA"BLBI...A   A..MBBBLB"
 2010DATA"  ...JBK   MI.G...  "
 2020DATA"BD.H...A   A....H.CB"
 2030DATA" A.MBI.EBBBF.CI.A.A "
 2040DATA" M K..... ...A..M K "
 2050DATA" A.EI.JBI.H.CK.JF.A "
 2060DATA" A........A.EF....A "
 2070DATA" MBBI.H.H.A....JBBK "
 2080DATA" A....A.G.EBBI....A "
 2090DATA" A.CD.A.. .....CD.A "
 2100DATA" A.EF.G.H.H.JBBLF.A "
 2110DATA" A+.....M K......+A "
 2120DATA" EBBBBBBK MBBBBBBBF "
 2130DATA"        A A         "
 2140:
 2150ON ERROR OFF
 2160MODE 7:*FX12
 2170*FX15
 2180REPORT:PRINT" at line ";ERL
 2190END
 2200:
 2210DEFPROCCHARSET
 2220VDU23,224,102,102,102,102,102,102,102,102
 2230VDU23,225,0,255,255,0,0,255,255,0
 2240VDU23,226,0,127,127,96,96,103,103,102
 2250VDU23,227,0,254,254,6,6,230,230,102
 2260 VDU23,245,0,0,0,255,255,0,0,0
 2270VDU23,246,60,126,255,255,255,255,126,60
 2280VDU23,228,102,103,103,96,96,127,127,0
 2290VDU23,229,102,230,230,6,6,254,254,0
 2300VDU23,230,102,102,102,102,102,126,126,0
 2310VDU23,231,0,126,126,102,102,102,102,102
 2320VDU23,232,0,254,254,6,6,254,254,0
 2330VDU23,233,0,127,127,96,96,127,127,0
 2340VDU23,234,102,230,230,6,6,230,230,102
 2350VDU23,235,102,231,231,0,0,255,255,0
 2360VDU23,236,102,103,103,96,96,103,103,102
 2370VDU23,237,60,126,255,224,224,255,126,60
 2380VDU23,238,60,126,255,7,7,255,126,60
 2390VDU23,239,36,102,231,231,231,255,126,60
 2400VDU23,240,60,126,255,231,231,231,102,36
 2410VDU23,241,0,0,42,0,34,0,42,0
 2420VDU23,242,8,73,42,0,99,0,42,73
 2430VDU23,243,126,90,219,255,213,171,255,219
 2440VDU23,244,198,56,108,222,190,222,108,56
 2450ENDPROC
F*FX11,1
P *FX12,1
Z� � � �DfH
d�5:�23,1,0;0;0;0;
n�CHARSET
x-�1,1,4,-4,4,10,20,10,126,0,0,-126,126,126
�"H%=0:� maze$(19,24),ghost(2,2)
��
�S�5,2)"MUNCHMAN"�6,9)"*.....UP"�6,11)"?...DOWN"�6,13)"Z...LEFT"�6,15)"X..RIGHT"
�9�17,6,31,6,21,238,17,1,32,32,243,32,243,32,243:�space
�/lives%=3:score%=0:sheet%=0:ghost=0:dir$=" "
� �setupmaze:�=0:fruit=0:EAT=0
��7:�1,0)"Score"�14)"High"
�H�printscore(0):�19-�(�(H%)),1);H%:�3:�1,29)�lives%-1,�237+" ")" " 
�
�:*FX15,0
�#ghost=ghost+1:� ghost=3:ghost=0
��pacman:�check
�� EAT=1:�1,-14,150,1
�'� �>2000� fruit=0 � tot%<150:�fruit
� �(1)<0.9:�door
%� fruit=1� �>3000/sheet%:�nofruit
$� �>1500/sheet% � EAT=1:EAT=0   
"� tot%=187 � KILL=1
,� tot%=187:� �tt@
6�killed:� lives%>0:�dH@
@�end:� �
J:
TݤcalcX(X)
^� X>19:X=0
h� X<0:X=19
r=X
|:
�ݤcalcY(Y)
�� Y>24:Y=0
�� Y<0:Y=24
�=Y
�:
�
��time(T)
�TM=�:� � �>TM+T
��
�:
���printscore(S%)
�score%=score%+S%
��7:�1,1);score%
��
:
��pacman
7OX%=pacX%:OY%=pacY%:SC=score%:� pac$<>�246:OP$=pac$
&
dir$=�(0)
0&� dir$=":" pac$=�239:pacY%=pacY%-1
:&� dir$="/" pac$=�240:pacY%=pacY%+1
D&� dir$="Z" pac$=�238:pacX%=pacX%-1
N&� dir$="X" pac$=�237:pacX%=pacX%+1
X+pacY%=�calcY(pacY%):pacX%=�calcX(pacX%)
b9� dir$="" � pac$=�246 � pac$=OP$ � � dir$=""pac$=�246
lA$=maze$(pacX%,pacY%)
v1� A$=".":�printscore(2):�1,1,60,1:tot%=tot%+1
�2� A$=�244:�printscore(100):�nofruit:�1,1,150,2
�1� A$="+":�printscore(50):EAT=1:�=0:�1,1,100,2
�-� SC=score% � A$<>" ":pacX%=OX%:pacY%=OY%
��17,3,31,OX%,OY%+3,32
��pacX%,pacY%+3);pac$
�maze$(pacX%,pacY%)=" "
��
�:
���ruboutghost(G%):�1
�%M$=maze$(ghost(G%,1),ghost(G%,2))
�� M$="."� M$="+":�2
�� M$=�244:�1
�� M$=�245:�5
>�ghost(G%,1),ghost(G%,2)+3)maze$(ghost(G%,1),ghost(G%,2))
�
:
 ��ghost(G%):C=0
*�ruboutghost(G%)
4� EAT=1:�2 � �1
>'� EAT=0:DX%=1:DY%=1 � DX%=-1:DY%=-1
H� G%=0:�vert:� C=0:�horiz
R� G%=1:�horiz:� C=0:�vert
\� G%=2:�horiz:�vert
f$�ghost(G%,1),ghost(G%,2)+3)�243
p�
z:
�
��vert
�A=�calcY(ghost(G%,2)+DY%)
�B=�calcY(ghost(G%,2)-DY%)
�)� pacY%>ghost(G%,2):ghost(G%,2)=A:C=1
�*� pacY%<ghost(G%,2):ghost(G%,2)=B:C=1 
��
�:
���horiz
�A=�calcX(ghost(G%,1)+DX%)
�B=�calcX(ghost(G%,2)-DX%)
�* � pacX%>ghost(G%,1):ghost(G%,1)=A:C=1
�)� pacX%<ghost(G%,1):ghost(G%,1)=B:C=1
��
:

��door
D%=�(4):��DXG
$� F%=1�D%:�X,Y:�
.� X=pacX% � Y=pacY%:� �TZD
85� maze$(X,Y)=" ":maze$(X,Y)=�245 � maze$(X,Y)=" "
B �17,5,31,X,Y+3,�(maze$(X,Y))
L�
V:
`��fruit
j�17,1,31,9,18,244
tfruit=1:�=0
~maze$(9,15)=�244
��
�:
�
��nofruit
��31,9,18,32:fruit=0
�maze$(9,15)=" "
��
�:
���check:KILL=0
�� G%=0�2
�� G%=ghost:�ghost(G%)
�3� ghost(G%,1)<>pacX% � ghost(G%,2)<>pacY%:�T@E
�A� EAT=1:�printscore(250):�1,1,250,1:�setupghosts(G%) � KILL=1
�

�
:
��killed:�3
(� C=237 � 242
2�31,pacX%,pacY%+3,C
<�1,1,C/2,1:�time(20)
F�
P�31,pacX%,pacY%+3,32
Z� G%=0�2
d�ruboutghost(G%) 
n�setupghosts(G%)
x�
��pac:lives%=lives%-1
��
�:
�	��end
�� score%>H%:H%=score%
��7:�19-�(�(H%)),1);H%
�
�space
��
�:
���space:*FX15,0
�(�17,15,31,1,30:�"SPACE BAR TO START"
�� � �=32:�12,17,7
��
:
��setupghosts(G%)

� �DNG
"� D%=0 � G%:� COL,X:�
,ghost(G%,1)=X
6ghost(G%,2)=12
@ghost(G%,0)=COL
J�
T:
^	��pac
hpacX%=9:pacY%=20:pac$=�237
r�
|:
���setupmaze
�� G%=0�2:�setupghosts(G%):�
��pac:tot%=0:sheet%=sheet%+1
��128:� �DbG
�
� D%=3�27
�� maze$
�
� E%=0�19
�A$=�maze$,E%+1,1)
�5� A$>="A" � A$<="M":M$=�(�(A$)+159):�1 � M$=A$:�2
��E%,D%)M$
� maze$(E%,D%-3)=M$
��
��
�19,2,9,0,0,0,19,4,14,0,0,0

� D%=0�21
�2,-15,D%*2,1
&�1,-5,D%*3,1
0	�:�20
:�
D:
N� 1,1,5,9,6,18
X� 9,1,9,22,2,15,17,15
b�"        A A         "
l�" CBBBBBBL LBBBBBBBD "
v�" A+..............+A "
��" A.CI.JBD.CBI.JBD.A "
��" A.G....A.A.....G.A "
��" A...CI.G.G.JBD...A "
��" A.H.G........A.H.A "
��" A.G...CBD.CD.A.A.A "
��" A...H.EBF.EF.G.A.A "
��" A.JBK..........G.A "
��" A...G.CBBBD.JD...A "
��"BLBI...A   A..MBBBLB"
��"  ...JBK   MI.G...  "
��"BD.H...A   A....H.CB"
��" A.MBI.EBBBF.CI.A.A "
��" M K..... ...A..M K "
�" A.EI.JBI.H.CK.JF.A "
�" A........A.EF....A "
�" MBBI.H.H.A....JBBK "
 �" A....A.G.EBBI....A "
*�" A.CD.A.. .....CD.A "
4�" A.EF.G.H.H.JBBLF.A "
>�" A+.....M K......+A "
H�" EBBBBBBK MBBBBBBBF "
R�"        A A         "
\:
f	� � �
p
� 7:*FX12
z	*FX15
��:�" at line ";�
��
�:
�
��CHARSET
�+�23,224,102,102,102,102,102,102,102,102
�#�23,225,0,255,255,0,0,255,255,0
�'�23,226,0,127,127,96,96,103,103,102
�%�23,227,0,254,254,6,6,230,230,102
�  �23,245,0,0,0,255,255,0,0,0
�)�23,246,60,126,255,255,255,255,126,60
�'�23,228,102,103,103,96,96,127,127,0
�%�23,229,102,230,230,6,6,254,254,0
�)�23,230,102,102,102,102,102,126,126,0
	)�23,231,0,126,126,102,102,102,102,102
	#�23,232,0,254,254,6,6,254,254,0
	%�23,233,0,127,127,96,96,127,127,0
	$'�23,234,102,230,230,6,6,230,230,102
	.%�23,235,102,231,231,0,0,255,255,0
	8)�23,236,102,103,103,96,96,103,103,102
	B)�23,237,60,126,255,224,224,255,126,60
	L%�23,238,60,126,255,7,7,255,126,60
	V)�23,239,36,102,231,231,231,255,126,60
	`)�23,240,60,126,255,231,231,231,102,36
	j�23,241,0,0,42,0,34,0,42,0
	t �23,242,8,73,42,0,99,0,42,73
	~*�23,243,126,90,219,255,213,171,255,219
	�)�23,244,198,56,108,222,190,222,108,56
	��
�
00000000  0d 00 46 0b 2a 46 58 31  31 2c 31 0d 00 50 0c 20  |..F.*FX11,1..P. |
00000010  2a 46 58 31 32 2c 31 0d  00 5a 0e ee 20 85 20 e5  |*FX12,1..Z.. . .|
00000020  20 8d 44 66 48 0d 00 64  15 eb 35 3a ef 32 33 2c  | .DfH..d..5:.23,|
00000030  31 2c 30 3b 30 3b 30 3b  30 3b 0d 00 6e 0c f2 43  |1,0;0;0;0;..n..C|
00000040  48 41 52 53 45 54 0d 00  78 2d e2 31 2c 31 2c 34  |HARSET..x-.1,1,4|
00000050  2c 2d 34 2c 34 2c 31 30  2c 32 30 2c 31 30 2c 31  |,-4,4,10,20,10,1|
00000060  32 36 2c 30 2c 30 2c 2d  31 32 36 2c 31 32 36 2c  |26,0,0,-126,126,|
00000070  31 32 36 0d 00 82 22 48  25 3d 30 3a de 20 6d 61  |126..."H%=0:. ma|
00000080  7a 65 24 28 31 39 2c 32  34 29 2c 67 68 6f 73 74  |ze$(19,24),ghost|
00000090  28 32 2c 32 29 0d 00 8c  05 f5 0d 00 96 53 f1 8a  |(2,2)........S..|
000000a0  35 2c 32 29 22 4d 55 4e  43 48 4d 41 4e 22 8a 36  |5,2)"MUNCHMAN".6|
000000b0  2c 39 29 22 2a 2e 2e 2e  2e 2e 55 50 22 8a 36 2c  |,9)"*.....UP".6,|
000000c0  31 31 29 22 3f 2e 2e 2e  44 4f 57 4e 22 8a 36 2c  |11)"?...DOWN".6,|
000000d0  31 33 29 22 5a 2e 2e 2e  4c 45 46 54 22 8a 36 2c  |13)"Z...LEFT".6,|
000000e0  31 35 29 22 58 2e 2e 52  49 47 48 54 22 0d 00 a0  |15)"X..RIGHT"...|
000000f0  39 ef 31 37 2c 36 2c 33  31 2c 36 2c 32 31 2c 32  |9.17,6,31,6,21,2|
00000100  33 38 2c 31 37 2c 31 2c  33 32 2c 33 32 2c 32 34  |38,17,1,32,32,24|
00000110  33 2c 33 32 2c 32 34 33  2c 33 32 2c 32 34 33 3a  |3,32,243,32,243:|
00000120  f2 73 70 61 63 65 0d 00  aa 2f 6c 69 76 65 73 25  |.space.../lives%|
00000130  3d 33 3a 73 63 6f 72 65  25 3d 30 3a 73 68 65 65  |=3:score%=0:shee|
00000140  74 25 3d 30 3a 67 68 6f  73 74 3d 30 3a 64 69 72  |t%=0:ghost=0:dir|
00000150  24 3d 22 20 22 0d 00 b4  20 f2 73 65 74 75 70 6d  |$=" "... .setupm|
00000160  61 7a 65 3a d1 3d 30 3a  66 72 75 69 74 3d 30 3a  |aze:.=0:fruit=0:|
00000170  45 41 54 3d 30 0d 00 be  1e fb 37 3a f1 8a 31 2c  |EAT=0.....7:..1,|
00000180  30 29 22 53 63 6f 72 65  22 8a 31 34 29 22 48 69  |0)"Score".14)"Hi|
00000190  67 68 22 0d 00 c8 48 f2  70 72 69 6e 74 73 63 6f  |gh"...H.printsco|
000001a0  72 65 28 30 29 3a f1 8a  31 39 2d a9 28 c3 28 48  |re(0):..19-.(.(H|
000001b0  25 29 29 2c 31 29 3b 48  25 3a fb 33 3a f1 8a 31  |%)),1);H%:.3:..1|
000001c0  2c 32 39 29 c4 6c 69 76  65 73 25 2d 31 2c bd 32  |,29).lives%-1,.2|
000001d0  33 37 2b 22 20 22 29 22  20 22 20 0d 00 d2 0d f5  |37+" ")" " .....|
000001e0  3a 2a 46 58 31 35 2c 30  0d 00 dc 23 67 68 6f 73  |:*FX15,0...#ghos|
000001f0  74 3d 67 68 6f 73 74 2b  31 3a e7 20 67 68 6f 73  |t=ghost+1:. ghos|
00000200  74 3d 33 3a 67 68 6f 73  74 3d 30 0d 00 e6 12 f2  |t=3:ghost=0.....|
00000210  70 61 63 6d 61 6e 3a f2  63 68 65 63 6b 0d 00 f0  |pacman:.check...|
00000220  18 e7 20 45 41 54 3d 31  3a d4 31 2c 2d 31 34 2c  |.. EAT=1:.1,-14,|
00000230  31 35 30 2c 31 0d 00 fa  27 e7 20 91 3e 32 30 30  |150,1...'. .>200|
00000240  30 80 20 66 72 75 69 74  3d 30 20 80 20 74 6f 74  |0. fruit=0 . tot|
00000250  25 3c 31 35 30 3a f2 66  72 75 69 74 0d 01 04 14  |%<150:.fruit....|
00000260  e7 20 b3 28 31 29 3c 30  2e 39 3a f2 64 6f 6f 72  |. .(1)<0.9:.door|
00000270  0d 01 0e 25 e7 20 66 72  75 69 74 3d 31 80 20 91  |...%. fruit=1. .|
00000280  3e 33 30 30 30 2f 73 68  65 65 74 25 3a f2 6e 6f  |>3000/sheet%:.no|
00000290  66 72 75 69 74 0d 01 18  24 e7 20 91 3e 31 35 30  |fruit...$. .>150|
000002a0  30 2f 73 68 65 65 74 25  20 80 20 45 41 54 3d 31  |0/sheet% . EAT=1|
000002b0  3a 45 41 54 3d 30 20 20  20 0d 01 22 17 fd 20 74  |:EAT=0   ..".. t|
000002c0  6f 74 25 3d 31 38 37 20  84 20 4b 49 4c 4c 3d 31  |ot%=187 . KILL=1|
000002d0  0d 01 2c 15 e7 20 74 6f  74 25 3d 31 38 37 3a e5  |..,.. tot%=187:.|
000002e0  20 8d 74 74 40 0d 01 36  1c f2 6b 69 6c 6c 65 64  | .tt@..6..killed|
000002f0  3a e7 20 6c 69 76 65 73  25 3e 30 3a e5 8d 64 48  |:. lives%>0:..dH|
00000300  40 0d 01 40 0c f2 65 6e  64 3a fd 20 a3 0d 01 4a  |@..@..end:. ...J|
00000310  05 3a 0d 01 54 0e dd a4  63 61 6c 63 58 28 58 29  |.:..T...calcX(X)|
00000320  0d 01 5e 0e e7 20 58 3e  31 39 3a 58 3d 30 0d 01  |..^.. X>19:X=0..|
00000330  68 0e e7 20 58 3c 30 3a  58 3d 31 39 0d 01 72 06  |h.. X<0:X=19..r.|
00000340  3d 58 0d 01 7c 05 3a 0d  01 86 0e dd a4 63 61 6c  |=X..|.:......cal|
00000350  63 59 28 59 29 0d 01 90  0e e7 20 59 3e 32 34 3a  |cY(Y)..... Y>24:|
00000360  59 3d 30 0d 01 9a 0e e7  20 59 3c 30 3a 59 3d 32  |Y=0..... Y<0:Y=2|
00000370  34 0d 01 a4 06 3d 59 0d  01 ae 05 3a 0d 01 b8 0d  |4....=Y....:....|
00000380  dd f2 74 69 6d 65 28 54  29 0d 01 c2 13 54 4d 3d  |..time(T)....TM=|
00000390  91 3a f5 20 fd 20 91 3e  54 4d 2b 54 0d 01 cc 05  |.:. . .>TM+T....|
000003a0  e1 0d 01 d6 05 3a 0d 01  e0 14 dd f2 70 72 69 6e  |.....:......prin|
000003b0  74 73 63 6f 72 65 28 53  25 29 0d 01 ea 14 73 63  |tscore(S%)....sc|
000003c0  6f 72 65 25 3d 73 63 6f  72 65 25 2b 53 25 0d 01  |ore%=score%+S%..|
000003d0  f4 14 fb 37 3a f1 8a 31  2c 31 29 3b 73 63 6f 72  |...7:..1,1);scor|
000003e0  65 25 0d 01 fe 05 e1 0d  02 08 05 3a 0d 02 12 0c  |e%.........:....|
000003f0  dd f2 70 61 63 6d 61 6e  0d 02 1c 37 4f 58 25 3d  |..pacman...7OX%=|
00000400  70 61 63 58 25 3a 4f 59  25 3d 70 61 63 59 25 3a  |pacX%:OY%=pacY%:|
00000410  53 43 3d 73 63 6f 72 65  25 3a e7 20 70 61 63 24  |SC=score%:. pac$|
00000420  3c 3e bd 32 34 36 3a 4f  50 24 3d 70 61 63 24 0d  |<>.246:OP$=pac$.|
00000430  02 26 0d 64 69 72 24 3d  bf 28 30 29 0d 02 30 26  |.&.dir$=.(0)..0&|
00000440  e7 20 64 69 72 24 3d 22  3a 22 20 70 61 63 24 3d  |. dir$=":" pac$=|
00000450  bd 32 33 39 3a 70 61 63  59 25 3d 70 61 63 59 25  |.239:pacY%=pacY%|
00000460  2d 31 0d 02 3a 26 e7 20  64 69 72 24 3d 22 2f 22  |-1..:&. dir$="/"|
00000470  20 70 61 63 24 3d bd 32  34 30 3a 70 61 63 59 25  | pac$=.240:pacY%|
00000480  3d 70 61 63 59 25 2b 31  0d 02 44 26 e7 20 64 69  |=pacY%+1..D&. di|
00000490  72 24 3d 22 5a 22 20 70  61 63 24 3d bd 32 33 38  |r$="Z" pac$=.238|
000004a0  3a 70 61 63 58 25 3d 70  61 63 58 25 2d 31 0d 02  |:pacX%=pacX%-1..|
000004b0  4e 26 e7 20 64 69 72 24  3d 22 58 22 20 70 61 63  |N&. dir$="X" pac|
000004c0  24 3d bd 32 33 37 3a 70  61 63 58 25 3d 70 61 63  |$=.237:pacX%=pac|
000004d0  58 25 2b 31 0d 02 58 2b  70 61 63 59 25 3d a4 63  |X%+1..X+pacY%=.c|
000004e0  61 6c 63 59 28 70 61 63  59 25 29 3a 70 61 63 58  |alcY(pacY%):pacX|
000004f0  25 3d a4 63 61 6c 63 58  28 70 61 63 58 25 29 0d  |%=.calcX(pacX%).|
00000500  02 62 39 e7 20 64 69 72  24 3d 22 22 20 80 20 70  |.b9. dir$="" . p|
00000510  61 63 24 3d bd 32 34 36  20 8c 20 70 61 63 24 3d  |ac$=.246 . pac$=|
00000520  4f 50 24 20 8b 20 e7 20  64 69 72 24 3d 22 22 70  |OP$ . . dir$=""p|
00000530  61 63 24 3d bd 32 34 36  0d 02 6c 19 41 24 3d 6d  |ac$=.246..l.A$=m|
00000540  61 7a 65 24 28 70 61 63  58 25 2c 70 61 63 59 25  |aze$(pacX%,pacY%|
00000550  29 0d 02 76 31 e7 20 41  24 3d 22 2e 22 3a f2 70  |)..v1. A$=".":.p|
00000560  72 69 6e 74 73 63 6f 72  65 28 32 29 3a d4 31 2c  |rintscore(2):.1,|
00000570  31 2c 36 30 2c 31 3a 74  6f 74 25 3d 74 6f 74 25  |1,60,1:tot%=tot%|
00000580  2b 31 0d 02 80 32 e7 20  41 24 3d bd 32 34 34 3a  |+1...2. A$=.244:|
00000590  f2 70 72 69 6e 74 73 63  6f 72 65 28 31 30 30 29  |.printscore(100)|
000005a0  3a f2 6e 6f 66 72 75 69  74 3a d4 31 2c 31 2c 31  |:.nofruit:.1,1,1|
000005b0  35 30 2c 32 0d 02 8a 31  e7 20 41 24 3d 22 2b 22  |50,2...1. A$="+"|
000005c0  3a f2 70 72 69 6e 74 73  63 6f 72 65 28 35 30 29  |:.printscore(50)|
000005d0  3a 45 41 54 3d 31 3a d1  3d 30 3a d4 31 2c 31 2c  |:EAT=1:.=0:.1,1,|
000005e0  31 30 30 2c 32 0d 02 94  2d e7 20 53 43 3d 73 63  |100,2...-. SC=sc|
000005f0  6f 72 65 25 20 80 20 41  24 3c 3e 22 20 22 3a 70  |ore% . A$<>" ":p|
00000600  61 63 58 25 3d 4f 58 25  3a 70 61 63 59 25 3d 4f  |acX%=OX%:pacY%=O|
00000610  59 25 0d 02 9e 19 ef 31  37 2c 33 2c 33 31 2c 4f  |Y%.....17,3,31,O|
00000620  58 25 2c 4f 59 25 2b 33  2c 33 32 0d 02 a8 19 f1  |X%,OY%+3,32.....|
00000630  8a 70 61 63 58 25 2c 70  61 63 59 25 2b 33 29 3b  |.pacX%,pacY%+3);|
00000640  70 61 63 24 0d 02 b2 1a  6d 61 7a 65 24 28 70 61  |pac$....maze$(pa|
00000650  63 58 25 2c 70 61 63 59  25 29 3d 22 20 22 0d 02  |cX%,pacY%)=" "..|
00000660  bc 05 e1 0d 02 c6 05 3a  0d 02 d0 18 dd f2 72 75  |.......:......ru|
00000670  62 6f 75 74 67 68 6f 73  74 28 47 25 29 3a fb 31  |boutghost(G%):.1|
00000680  0d 02 da 25 4d 24 3d 6d  61 7a 65 24 28 67 68 6f  |...%M$=maze$(gho|
00000690  73 74 28 47 25 2c 31 29  2c 67 68 6f 73 74 28 47  |st(G%,1),ghost(G|
000006a0  25 2c 32 29 29 0d 02 e4  17 e7 20 4d 24 3d 22 2e  |%,2))..... M$=".|
000006b0  22 84 20 4d 24 3d 22 2b  22 3a fb 32 0d 02 ee 10  |". M$="+":.2....|
000006c0  e7 20 4d 24 3d bd 32 34  34 3a fb 31 0d 02 f8 10  |. M$=.244:.1....|
000006d0  e7 20 4d 24 3d bd 32 34  35 3a fb 35 0d 03 02 3e  |. M$=.245:.5...>|
000006e0  f1 8a 67 68 6f 73 74 28  47 25 2c 31 29 2c 67 68  |..ghost(G%,1),gh|
000006f0  6f 73 74 28 47 25 2c 32  29 2b 33 29 6d 61 7a 65  |ost(G%,2)+3)maze|
00000700  24 28 67 68 6f 73 74 28  47 25 2c 31 29 2c 67 68  |$(ghost(G%,1),gh|
00000710  6f 73 74 28 47 25 2c 32  29 29 0d 03 0c 05 e1 0d  |ost(G%,2))......|
00000720  03 16 05 3a 0d 03 20 13  dd f2 67 68 6f 73 74 28  |...:.. ...ghost(|
00000730  47 25 29 3a 43 3d 30 0d  03 2a 14 f2 72 75 62 6f  |G%):C=0..*..rubo|
00000740  75 74 67 68 6f 73 74 28  47 25 29 0d 03 34 13 e7  |utghost(G%)..4..|
00000750  20 45 41 54 3d 31 3a fb  32 20 8b 20 fb 31 0d 03  | EAT=1:.2 . .1..|
00000760  3e 27 e7 20 45 41 54 3d  30 3a 44 58 25 3d 31 3a  |>'. EAT=0:DX%=1:|
00000770  44 59 25 3d 31 20 8b 20  44 58 25 3d 2d 31 3a 44  |DY%=1 . DX%=-1:D|
00000780  59 25 3d 2d 31 0d 03 48  1d e7 20 47 25 3d 30 3a  |Y%=-1..H.. G%=0:|
00000790  f2 76 65 72 74 3a e7 20  43 3d 30 3a f2 68 6f 72  |.vert:. C=0:.hor|
000007a0  69 7a 0d 03 52 1d e7 20  47 25 3d 31 3a f2 68 6f  |iz..R.. G%=1:.ho|
000007b0  72 69 7a 3a e7 20 43 3d  30 3a f2 76 65 72 74 0d  |riz:. C=0:.vert.|
000007c0  03 5c 17 e7 20 47 25 3d  32 3a f2 68 6f 72 69 7a  |.\.. G%=2:.horiz|
000007d0  3a f2 76 65 72 74 0d 03  66 24 f1 8a 67 68 6f 73  |:.vert..f$..ghos|
000007e0  74 28 47 25 2c 31 29 2c  67 68 6f 73 74 28 47 25  |t(G%,1),ghost(G%|
000007f0  2c 32 29 2b 33 29 bd 32  34 33 0d 03 70 05 e1 0d  |,2)+3).243..p...|
00000800  03 7a 05 3a 0d 03 84 0a  dd f2 76 65 72 74 0d 03  |.z.:......vert..|
00000810  8e 1d 41 3d a4 63 61 6c  63 59 28 67 68 6f 73 74  |..A=.calcY(ghost|
00000820  28 47 25 2c 32 29 2b 44  59 25 29 0d 03 98 1d 42  |(G%,2)+DY%)....B|
00000830  3d a4 63 61 6c 63 59 28  67 68 6f 73 74 28 47 25  |=.calcY(ghost(G%|
00000840  2c 32 29 2d 44 59 25 29  0d 03 a2 29 e7 20 70 61  |,2)-DY%)...). pa|
00000850  63 59 25 3e 67 68 6f 73  74 28 47 25 2c 32 29 3a  |cY%>ghost(G%,2):|
00000860  67 68 6f 73 74 28 47 25  2c 32 29 3d 41 3a 43 3d  |ghost(G%,2)=A:C=|
00000870  31 0d 03 ac 2a e7 20 70  61 63 59 25 3c 67 68 6f  |1...*. pacY%<gho|
00000880  73 74 28 47 25 2c 32 29  3a 67 68 6f 73 74 28 47  |st(G%,2):ghost(G|
00000890  25 2c 32 29 3d 42 3a 43  3d 31 20 0d 03 b6 05 e1  |%,2)=B:C=1 .....|
000008a0  0d 03 c0 05 3a 0d 03 ca  0b dd f2 68 6f 72 69 7a  |....:......horiz|
000008b0  0d 03 d4 1d 41 3d a4 63  61 6c 63 58 28 67 68 6f  |....A=.calcX(gho|
000008c0  73 74 28 47 25 2c 31 29  2b 44 58 25 29 0d 03 de  |st(G%,1)+DX%)...|
000008d0  1d 42 3d a4 63 61 6c 63  58 28 67 68 6f 73 74 28  |.B=.calcX(ghost(|
000008e0  47 25 2c 32 29 2d 44 58  25 29 0d 03 e8 2a 20 e7  |G%,2)-DX%)...* .|
000008f0  20 70 61 63 58 25 3e 67  68 6f 73 74 28 47 25 2c  | pacX%>ghost(G%,|
00000900  31 29 3a 67 68 6f 73 74  28 47 25 2c 31 29 3d 41  |1):ghost(G%,1)=A|
00000910  3a 43 3d 31 0d 03 f2 29  e7 20 70 61 63 58 25 3c  |:C=1...). pacX%<|
00000920  67 68 6f 73 74 28 47 25  2c 31 29 3a 67 68 6f 73  |ghost(G%,1):ghos|
00000930  74 28 47 25 2c 31 29 3d  42 3a 43 3d 31 0d 03 fc  |t(G%,1)=B:C=1...|
00000940  05 e1 0d 04 06 05 3a 0d  04 10 0a dd f2 64 6f 6f  |......:......doo|
00000950  72 0d 04 1a 11 44 25 3d  b3 28 34 29 3a f7 8d 44  |r....D%=.(4):..D|
00000960  58 47 0d 04 24 14 e3 20  46 25 3d 31 b8 44 25 3a  |XG..$.. F%=1.D%:|
00000970  f3 58 2c 59 3a ed 0d 04  2e 1e e7 20 58 3d 70 61  |.X,Y:...... X=pa|
00000980  63 58 25 20 80 20 59 3d  70 61 63 59 25 3a e5 20  |cX% . Y=pacY%:. |
00000990  8d 54 5a 44 0d 04 38 35  e7 20 6d 61 7a 65 24 28  |.TZD..85. maze$(|
000009a0  58 2c 59 29 3d 22 20 22  3a 6d 61 7a 65 24 28 58  |X,Y)=" ":maze$(X|
000009b0  2c 59 29 3d bd 32 34 35  20 8b 20 6d 61 7a 65 24  |,Y)=.245 . maze$|
000009c0  28 58 2c 59 29 3d 22 20  22 0d 04 42 20 ef 31 37  |(X,Y)=" "..B .17|
000009d0  2c 35 2c 33 31 2c 58 2c  59 2b 33 2c 97 28 6d 61  |,5,31,X,Y+3,.(ma|
000009e0  7a 65 24 28 58 2c 59 29  29 0d 04 4c 05 e1 0d 04  |ze$(X,Y))..L....|
000009f0  56 05 3a 0d 04 60 0b dd  f2 66 72 75 69 74 0d 04  |V.:..`...fruit..|
00000a00  6a 15 ef 31 37 2c 31 2c  33 31 2c 39 2c 31 38 2c  |j..17,1,31,9,18,|
00000a10  32 34 34 0d 04 74 0f 66  72 75 69 74 3d 31 3a d1  |244..t.fruit=1:.|
00000a20  3d 30 0d 04 7e 14 6d 61  7a 65 24 28 39 2c 31 35  |=0..~.maze$(9,15|
00000a30  29 3d bd 32 34 34 0d 04  88 05 e1 0d 04 92 05 3a  |)=.244.........:|
00000a40  0d 04 9c 0d dd f2 6e 6f  66 72 75 69 74 0d 04 a6  |......nofruit...|
00000a50  17 ef 33 31 2c 39 2c 31  38 2c 33 32 3a 66 72 75  |..31,9,18,32:fru|
00000a60  69 74 3d 30 0d 04 b0 13  6d 61 7a 65 24 28 39 2c  |it=0....maze$(9,|
00000a70  31 35 29 3d 22 20 22 0d  04 ba 05 e1 0d 04 c4 05  |15)=" ".........|
00000a80  3a 0d 04 ce 12 dd f2 63  68 65 63 6b 3a 4b 49 4c  |:......check:KIL|
00000a90  4c 3d 30 0d 04 d8 0c e3  20 47 25 3d 30 b8 32 0d  |L=0..... G%=0.2.|
00000aa0  04 e2 19 e7 20 47 25 3d  67 68 6f 73 74 3a f2 67  |.... G%=ghost:.g|
00000ab0  68 6f 73 74 28 47 25 29  0d 04 ec 33 e7 20 67 68  |host(G%)...3. gh|
00000ac0  6f 73 74 28 47 25 2c 31  29 3c 3e 70 61 63 58 25  |ost(G%,1)<>pacX%|
00000ad0  20 84 20 67 68 6f 73 74  28 47 25 2c 32 29 3c 3e  | . ghost(G%,2)<>|
00000ae0  70 61 63 59 25 3a e5 8d  54 40 45 0d 04 f6 41 e7  |pacY%:..T@E...A.|
00000af0  20 45 41 54 3d 31 3a f2  70 72 69 6e 74 73 63 6f  | EAT=1:.printsco|
00000b00  72 65 28 32 35 30 29 3a  d4 31 2c 31 2c 32 35 30  |re(250):.1,1,250|
00000b10  2c 31 3a f2 73 65 74 75  70 67 68 6f 73 74 73 28  |,1:.setupghosts(|
00000b20  47 25 29 20 8b 20 4b 49  4c 4c 3d 31 0d 05 00 05  |G%) . KILL=1....|
00000b30  ed 0d 05 0a 05 e1 0d 05  14 05 3a 0d 05 1e 0f dd  |..........:.....|
00000b40  f2 6b 69 6c 6c 65 64 3a  fb 33 0d 05 28 11 e3 20  |.killed:.3..(.. |
00000b50  43 3d 32 33 37 20 b8 20  32 34 32 0d 05 32 17 ef  |C=237 . 242..2..|
00000b60  33 31 2c 70 61 63 58 25  2c 70 61 63 59 25 2b 33  |31,pacX%,pacY%+3|
00000b70  2c 43 0d 05 3c 18 d4 31  2c 31 2c 43 2f 32 2c 31  |,C..<..1,1,C/2,1|
00000b80  3a f2 74 69 6d 65 28 32  30 29 0d 05 46 05 ed 0d  |:.time(20)..F...|
00000b90  05 50 18 ef 33 31 2c 70  61 63 58 25 2c 70 61 63  |.P..31,pacX%,pac|
00000ba0  59 25 2b 33 2c 33 32 0d  05 5a 0c e3 20 47 25 3d  |Y%+3,32..Z.. G%=|
00000bb0  30 b8 32 0d 05 64 15 f2  72 75 62 6f 75 74 67 68  |0.2..d..ruboutgh|
00000bc0  6f 73 74 28 47 25 29 20  0d 05 6e 14 f2 73 65 74  |ost(G%) ..n..set|
00000bd0  75 70 67 68 6f 73 74 73  28 47 25 29 0d 05 78 05  |upghosts(G%)..x.|
00000be0  ed 0d 05 82 18 f2 70 61  63 3a 6c 69 76 65 73 25  |......pac:lives%|
00000bf0  3d 6c 69 76 65 73 25 2d  31 0d 05 8c 05 e1 0d 05  |=lives%-1.......|
00000c00  96 05 3a 0d 05 a0 09 dd  f2 65 6e 64 0d 05 aa 19  |..:......end....|
00000c10  e7 20 73 63 6f 72 65 25  3e 48 25 3a 48 25 3d 73  |. score%>H%:H%=s|
00000c20  63 6f 72 65 25 0d 05 b4  1a fb 37 3a f1 8a 31 39  |core%.....7:..19|
00000c30  2d a9 28 c3 28 48 25 29  29 2c 31 29 3b 48 25 0d  |-.(.(H%)),1);H%.|
00000c40  05 be 0a f2 73 70 61 63  65 0d 05 c8 05 e1 0d 05  |....space.......|
00000c50  d2 05 3a 0d 05 dc 13 dd  f2 73 70 61 63 65 3a 2a  |..:......space:*|
00000c60  46 58 31 35 2c 30 0d 05  e6 28 ef 31 37 2c 31 35  |FX15,0...(.17,15|
00000c70  2c 33 31 2c 31 2c 33 30  3a f1 22 53 50 41 43 45  |,31,1,30:."SPACE|
00000c80  20 42 41 52 20 54 4f 20  53 54 41 52 54 22 0d 05  | BAR TO START"..|
00000c90  f0 15 f5 20 fd 20 a5 3d  33 32 3a ef 31 32 2c 31  |... . .=32:.12,1|
00000ca0  37 2c 37 0d 05 fa 05 e1  0d 06 04 05 3a 0d 06 0e  |7,7.........:...|
00000cb0  15 dd f2 73 65 74 75 70  67 68 6f 73 74 73 28 47  |...setupghosts(G|
00000cc0  25 29 0d 06 18 0a f7 20  8d 44 4e 47 0d 06 22 19  |%)..... .DNG..".|
00000cd0  e3 20 44 25 3d 30 20 b8  20 47 25 3a f3 20 43 4f  |. D%=0 . G%:. CO|
00000ce0  4c 2c 58 3a ed 0d 06 2c  11 67 68 6f 73 74 28 47  |L,X:...,.ghost(G|
00000cf0  25 2c 31 29 3d 58 0d 06  36 12 67 68 6f 73 74 28  |%,1)=X..6.ghost(|
00000d00  47 25 2c 32 29 3d 31 32  0d 06 40 13 67 68 6f 73  |G%,2)=12..@.ghos|
00000d10  74 28 47 25 2c 30 29 3d  43 4f 4c 0d 06 4a 05 e1  |t(G%,0)=COL..J..|
00000d20  0d 06 54 05 3a 0d 06 5e  09 dd f2 70 61 63 0d 06  |..T.:..^...pac..|
00000d30  68 1e 70 61 63 58 25 3d  39 3a 70 61 63 59 25 3d  |h.pacX%=9:pacY%=|
00000d40  32 30 3a 70 61 63 24 3d  bd 32 33 37 0d 06 72 05  |20:pac$=.237..r.|
00000d50  e1 0d 06 7c 05 3a 0d 06  86 0f dd f2 73 65 74 75  |...|.:......setu|
00000d60  70 6d 61 7a 65 0d 06 90  1f e3 20 47 25 3d 30 b8  |pmaze..... G%=0.|
00000d70  32 3a f2 73 65 74 75 70  67 68 6f 73 74 73 28 47  |2:.setupghosts(G|
00000d80  25 29 3a ed 0d 06 9a 1f  f2 70 61 63 3a 74 6f 74  |%):......pac:tot|
00000d90  25 3d 30 3a 73 68 65 65  74 25 3d 73 68 65 65 74  |%=0:sheet%=sheet|
00000da0  25 2b 31 0d 06 a4 0f fb  31 32 38 3a f7 20 8d 44  |%+1.....128:. .D|
00000db0  62 47 0d 06 ae 0d e3 20  44 25 3d 33 b8 32 37 0d  |bG..... D%=3.27.|
00000dc0  06 b8 0b f3 20 6d 61 7a  65 24 0d 06 c2 0d e3 20  |.... maze$..... |
00000dd0  45 25 3d 30 b8 31 39 0d  06 cc 15 41 24 3d c1 6d  |E%=0.19....A$=.m|
00000de0  61 7a 65 24 2c 45 25 2b  31 2c 31 29 0d 06 d6 35  |aze$,E%+1,1)...5|
00000df0  e7 20 41 24 3e 3d 22 41  22 20 80 20 41 24 3c 3d  |. A$>="A" . A$<=|
00000e00  22 4d 22 3a 4d 24 3d bd  28 97 28 41 24 29 2b 31  |"M":M$=.(.(A$)+1|
00000e10  35 39 29 3a fb 31 20 8b  20 4d 24 3d 41 24 3a fb  |59):.1 . M$=A$:.|
00000e20  32 0d 06 e0 0e f1 8a 45  25 2c 44 25 29 4d 24 0d  |2......E%,D%)M$.|
00000e30  06 ea 16 20 6d 61 7a 65  24 28 45 25 2c 44 25 2d  |... maze$(E%,D%-|
00000e40  33 29 3d 4d 24 0d 06 f4  05 ed 0d 06 fe 05 ed 0d  |3)=M$...........|
00000e50  07 08 1f ef 31 39 2c 32  2c 39 2c 30 2c 30 2c 30  |....19,2,9,0,0,0|
00000e60  2c 31 39 2c 34 2c 31 34  2c 30 2c 30 2c 30 0d 07  |,19,4,14,0,0,0..|
00000e70  12 0d e3 20 44 25 3d 30  b8 32 31 0d 07 1c 11 d4  |... D%=0.21.....|
00000e80  32 2c 2d 31 35 2c 44 25  2a 32 2c 31 0d 07 26 10  |2,-15,D%*2,1..&.|
00000e90  d4 31 2c 2d 35 2c 44 25  2a 33 2c 31 0d 07 30 09  |.1,-5,D%*3,1..0.|
00000ea0  ed 3a ef 32 30 0d 07 3a  05 e1 0d 07 44 05 3a 0d  |.:.20..:....D.:.|
00000eb0  07 4e 12 dc 20 31 2c 31  2c 35 2c 39 2c 36 2c 31  |.N.. 1,1,5,9,6,1|
00000ec0  38 0d 07 58 19 dc 20 39  2c 31 2c 39 2c 32 32 2c  |8..X.. 9,1,9,22,|
00000ed0  32 2c 31 35 2c 31 37 2c  31 35 0d 07 62 1b dc 22  |2,15,17,15..b.."|
00000ee0  20 20 20 20 20 20 20 20  41 20 41 20 20 20 20 20  |        A A     |
00000ef0  20 20 20 20 22 0d 07 6c  1b dc 22 20 43 42 42 42  |    "..l.." CBBB|
00000f00  42 42 42 4c 20 4c 42 42  42 42 42 42 42 44 20 22  |BBBL LBBBBBBBD "|
00000f10  0d 07 76 1b dc 22 20 41  2b 2e 2e 2e 2e 2e 2e 2e  |..v.." A+.......|
00000f20  2e 2e 2e 2e 2e 2e 2e 2b  41 20 22 0d 07 80 1b dc  |.......+A ".....|
00000f30  22 20 41 2e 43 49 2e 4a  42 44 2e 43 42 49 2e 4a  |" A.CI.JBD.CBI.J|
00000f40  42 44 2e 41 20 22 0d 07  8a 1b dc 22 20 41 2e 47  |BD.A "....." A.G|
00000f50  2e 2e 2e 2e 41 2e 41 2e  2e 2e 2e 2e 47 2e 41 20  |....A.A.....G.A |
00000f60  22 0d 07 94 1b dc 22 20  41 2e 2e 2e 43 49 2e 47  |"....." A...CI.G|
00000f70  2e 47 2e 4a 42 44 2e 2e  2e 41 20 22 0d 07 9e 1b  |.G.JBD...A "....|
00000f80  dc 22 20 41 2e 48 2e 47  2e 2e 2e 2e 2e 2e 2e 2e  |." A.H.G........|
00000f90  41 2e 48 2e 41 20 22 0d  07 a8 1b dc 22 20 41 2e  |A.H.A "....." A.|
00000fa0  47 2e 2e 2e 43 42 44 2e  43 44 2e 41 2e 41 2e 41  |G...CBD.CD.A.A.A|
00000fb0  20 22 0d 07 b2 1b dc 22  20 41 2e 2e 2e 48 2e 45  | "....." A...H.E|
00000fc0  42 46 2e 45 46 2e 47 2e  41 2e 41 20 22 0d 07 bc  |BF.EF.G.A.A "...|
00000fd0  1b dc 22 20 41 2e 4a 42  4b 2e 2e 2e 2e 2e 2e 2e  |.." A.JBK.......|
00000fe0  2e 2e 2e 47 2e 41 20 22  0d 07 c6 1b dc 22 20 41  |...G.A "....." A|
00000ff0  2e 2e 2e 47 2e 43 42 42  42 44 2e 4a 44 2e 2e 2e  |...G.CBBBD.JD...|
00001000  41 20 22 0d 07 d0 1b dc  22 42 4c 42 49 2e 2e 2e  |A "....."BLBI...|
00001010  41 20 20 20 41 2e 2e 4d  42 42 42 4c 42 22 0d 07  |A   A..MBBBLB"..|
00001020  da 1b dc 22 20 20 2e 2e  2e 4a 42 4b 20 20 20 4d  |..."  ...JBK   M|
00001030  49 2e 47 2e 2e 2e 20 20  22 0d 07 e4 1b dc 22 42  |I.G...  "....."B|
00001040  44 2e 48 2e 2e 2e 41 20  20 20 41 2e 2e 2e 2e 48  |D.H...A   A....H|
00001050  2e 43 42 22 0d 07 ee 1b  dc 22 20 41 2e 4d 42 49  |.CB"....." A.MBI|
00001060  2e 45 42 42 42 46 2e 43  49 2e 41 2e 41 20 22 0d  |.EBBBF.CI.A.A ".|
00001070  07 f8 1b dc 22 20 4d 20  4b 2e 2e 2e 2e 2e 20 2e  |...." M K..... .|
00001080  2e 2e 41 2e 2e 4d 20 4b  20 22 0d 08 02 1b dc 22  |..A..M K "....."|
00001090  20 41 2e 45 49 2e 4a 42  49 2e 48 2e 43 4b 2e 4a  | A.EI.JBI.H.CK.J|
000010a0  46 2e 41 20 22 0d 08 0c  1b dc 22 20 41 2e 2e 2e  |F.A "....." A...|
000010b0  2e 2e 2e 2e 2e 41 2e 45  46 2e 2e 2e 2e 41 20 22  |.....A.EF....A "|
000010c0  0d 08 16 1b dc 22 20 4d  42 42 49 2e 48 2e 48 2e  |....." MBBI.H.H.|
000010d0  41 2e 2e 2e 2e 4a 42 42  4b 20 22 0d 08 20 1b dc  |A....JBBK ".. ..|
000010e0  22 20 41 2e 2e 2e 2e 41  2e 47 2e 45 42 42 49 2e  |" A....A.G.EBBI.|
000010f0  2e 2e 2e 41 20 22 0d 08  2a 1b dc 22 20 41 2e 43  |...A "..*.." A.C|
00001100  44 2e 41 2e 2e 20 2e 2e  2e 2e 2e 43 44 2e 41 20  |D.A.. .....CD.A |
00001110  22 0d 08 34 1b dc 22 20  41 2e 45 46 2e 47 2e 48  |"..4.." A.EF.G.H|
00001120  2e 48 2e 4a 42 42 4c 46  2e 41 20 22 0d 08 3e 1b  |.H.JBBLF.A "..>.|
00001130  dc 22 20 41 2b 2e 2e 2e  2e 2e 4d 20 4b 2e 2e 2e  |." A+.....M K...|
00001140  2e 2e 2e 2b 41 20 22 0d  08 48 1b dc 22 20 45 42  |...+A "..H.." EB|
00001150  42 42 42 42 42 4b 20 4d  42 42 42 42 42 42 42 46  |BBBBBK MBBBBBBBF|
00001160  20 22 0d 08 52 1b dc 22  20 20 20 20 20 20 20 20  | "..R.."        |
00001170  41 20 41 20 20 20 20 20  20 20 20 20 22 0d 08 5c  |A A         "..\|
00001180  05 3a 0d 08 66 09 ee 20  85 20 87 0d 08 70 0d eb  |.:..f.. . ...p..|
00001190  20 37 3a 2a 46 58 31 32  0d 08 7a 09 2a 46 58 31  | 7:*FX12..z.*FX1|
000011a0  35 0d 08 84 14 f6 3a f1  22 20 61 74 20 6c 69 6e  |5.....:." at lin|
000011b0  65 20 22 3b 9e 0d 08 8e  05 e0 0d 08 98 05 3a 0d  |e ";..........:.|
000011c0  08 a2 0d dd f2 43 48 41  52 53 45 54 0d 08 ac 2b  |.....CHARSET...+|
000011d0  ef 32 33 2c 32 32 34 2c  31 30 32 2c 31 30 32 2c  |.23,224,102,102,|
000011e0  31 30 32 2c 31 30 32 2c  31 30 32 2c 31 30 32 2c  |102,102,102,102,|
000011f0  31 30 32 2c 31 30 32 0d  08 b6 23 ef 32 33 2c 32  |102,102...#.23,2|
00001200  32 35 2c 30 2c 32 35 35  2c 32 35 35 2c 30 2c 30  |25,0,255,255,0,0|
00001210  2c 32 35 35 2c 32 35 35  2c 30 0d 08 c0 27 ef 32  |,255,255,0...'.2|
00001220  33 2c 32 32 36 2c 30 2c  31 32 37 2c 31 32 37 2c  |3,226,0,127,127,|
00001230  39 36 2c 39 36 2c 31 30  33 2c 31 30 33 2c 31 30  |96,96,103,103,10|
00001240  32 0d 08 ca 25 ef 32 33  2c 32 32 37 2c 30 2c 32  |2...%.23,227,0,2|
00001250  35 34 2c 32 35 34 2c 36  2c 36 2c 32 33 30 2c 32  |54,254,6,6,230,2|
00001260  33 30 2c 31 30 32 0d 08  d4 20 20 ef 32 33 2c 32  |30,102...  .23,2|
00001270  34 35 2c 30 2c 30 2c 30  2c 32 35 35 2c 32 35 35  |45,0,0,0,255,255|
00001280  2c 30 2c 30 2c 30 0d 08  de 29 ef 32 33 2c 32 34  |,0,0,0...).23,24|
00001290  36 2c 36 30 2c 31 32 36  2c 32 35 35 2c 32 35 35  |6,60,126,255,255|
000012a0  2c 32 35 35 2c 32 35 35  2c 31 32 36 2c 36 30 0d  |,255,255,126,60.|
000012b0  08 e8 27 ef 32 33 2c 32  32 38 2c 31 30 32 2c 31  |..'.23,228,102,1|
000012c0  30 33 2c 31 30 33 2c 39  36 2c 39 36 2c 31 32 37  |03,103,96,96,127|
000012d0  2c 31 32 37 2c 30 0d 08  f2 25 ef 32 33 2c 32 32  |,127,0...%.23,22|
000012e0  39 2c 31 30 32 2c 32 33  30 2c 32 33 30 2c 36 2c  |9,102,230,230,6,|
000012f0  36 2c 32 35 34 2c 32 35  34 2c 30 0d 08 fc 29 ef  |6,254,254,0...).|
00001300  32 33 2c 32 33 30 2c 31  30 32 2c 31 30 32 2c 31  |23,230,102,102,1|
00001310  30 32 2c 31 30 32 2c 31  30 32 2c 31 32 36 2c 31  |02,102,102,126,1|
00001320  32 36 2c 30 0d 09 06 29  ef 32 33 2c 32 33 31 2c  |26,0...).23,231,|
00001330  30 2c 31 32 36 2c 31 32  36 2c 31 30 32 2c 31 30  |0,126,126,102,10|
00001340  32 2c 31 30 32 2c 31 30  32 2c 31 30 32 0d 09 10  |2,102,102,102...|
00001350  23 ef 32 33 2c 32 33 32  2c 30 2c 32 35 34 2c 32  |#.23,232,0,254,2|
00001360  35 34 2c 36 2c 36 2c 32  35 34 2c 32 35 34 2c 30  |54,6,6,254,254,0|
00001370  0d 09 1a 25 ef 32 33 2c  32 33 33 2c 30 2c 31 32  |...%.23,233,0,12|
00001380  37 2c 31 32 37 2c 39 36  2c 39 36 2c 31 32 37 2c  |7,127,96,96,127,|
00001390  31 32 37 2c 30 0d 09 24  27 ef 32 33 2c 32 33 34  |127,0..$'.23,234|
000013a0  2c 31 30 32 2c 32 33 30  2c 32 33 30 2c 36 2c 36  |,102,230,230,6,6|
000013b0  2c 32 33 30 2c 32 33 30  2c 31 30 32 0d 09 2e 25  |,230,230,102...%|
000013c0  ef 32 33 2c 32 33 35 2c  31 30 32 2c 32 33 31 2c  |.23,235,102,231,|
000013d0  32 33 31 2c 30 2c 30 2c  32 35 35 2c 32 35 35 2c  |231,0,0,255,255,|
000013e0  30 0d 09 38 29 ef 32 33  2c 32 33 36 2c 31 30 32  |0..8).23,236,102|
000013f0  2c 31 30 33 2c 31 30 33  2c 39 36 2c 39 36 2c 31  |,103,103,96,96,1|
00001400  30 33 2c 31 30 33 2c 31  30 32 0d 09 42 29 ef 32  |03,103,102..B).2|
00001410  33 2c 32 33 37 2c 36 30  2c 31 32 36 2c 32 35 35  |3,237,60,126,255|
00001420  2c 32 32 34 2c 32 32 34  2c 32 35 35 2c 31 32 36  |,224,224,255,126|
00001430  2c 36 30 0d 09 4c 25 ef  32 33 2c 32 33 38 2c 36  |,60..L%.23,238,6|
00001440  30 2c 31 32 36 2c 32 35  35 2c 37 2c 37 2c 32 35  |0,126,255,7,7,25|
00001450  35 2c 31 32 36 2c 36 30  0d 09 56 29 ef 32 33 2c  |5,126,60..V).23,|
00001460  32 33 39 2c 33 36 2c 31  30 32 2c 32 33 31 2c 32  |239,36,102,231,2|
00001470  33 31 2c 32 33 31 2c 32  35 35 2c 31 32 36 2c 36  |31,231,255,126,6|
00001480  30 0d 09 60 29 ef 32 33  2c 32 34 30 2c 36 30 2c  |0..`).23,240,60,|
00001490  31 32 36 2c 32 35 35 2c  32 33 31 2c 32 33 31 2c  |126,255,231,231,|
000014a0  32 33 31 2c 31 30 32 2c  33 36 0d 09 6a 1e ef 32  |231,102,36..j..2|
000014b0  33 2c 32 34 31 2c 30 2c  30 2c 34 32 2c 30 2c 33  |3,241,0,0,42,0,3|
000014c0  34 2c 30 2c 34 32 2c 30  0d 09 74 20 ef 32 33 2c  |4,0,42,0..t .23,|
000014d0  32 34 32 2c 38 2c 37 33  2c 34 32 2c 30 2c 39 39  |242,8,73,42,0,99|
000014e0  2c 30 2c 34 32 2c 37 33  0d 09 7e 2a ef 32 33 2c  |,0,42,73..~*.23,|
000014f0  32 34 33 2c 31 32 36 2c  39 30 2c 32 31 39 2c 32  |243,126,90,219,2|
00001500  35 35 2c 32 31 33 2c 31  37 31 2c 32 35 35 2c 32  |55,213,171,255,2|
00001510  31 39 0d 09 88 29 ef 32  33 2c 32 34 34 2c 31 39  |19...).23,244,19|
00001520  38 2c 35 36 2c 31 30 38  2c 32 32 32 2c 31 39 30  |8,56,108,222,190|
00001530  2c 32 32 32 2c 31 30 38  2c 35 36 0d 09 92 05 e1  |,222,108,56.....|
00001540  0d ff                                             |..|
00001542
GAMES2/MUNCHMAN_K.m0
GAMES2/MUNCHMAN_K.m1
GAMES2/MUNCHMAN_K.m2
GAMES2/MUNCHMAN_K.m4
GAMES2/MUNCHMAN_K.m5