Home » Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav » pacman1
pacman1
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 » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav |
| Filename: | pacman1 |
| Read OK: | ✔ |
| File size: | 0CD7 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
10 REM PACMAN
20 PRINTCHR$(147);:X=RND(-TI)
30 DIM M$(18,17):DIM G(3,4):DIM G$(3):PWRC=20
40 PWRTIM=0:TMR=0:SC=0:L1=3:L2=3:GOSUB980
50 GOSUB1070
60 GOSUB 760:GOSUB 780:GOSUB 220
70 GOSUB 970:IF PWRTIM-TMR>0 THEN TX=9:TY=8
80 IF PWRTIM-TMR<0 THEN TX=PX:TY=PY
90 GOSUB 300
100 A$=STR$(SC):LSC=LEN(A$):Q=32-LSC:Z=1
110 GOSUB 940
120 GOSUB 220
130 Q=31:Z=3:A$=STR$(L1):GOSUB 940
140 IF FOOD>0 AND L1=L2 THEN GOTO 60
150 IF L1<>L2 THEN L2=L2-1:GOSUB 1070:GOSUB1110
160 IF FOOD=0 THEN GOSUB980
170 IF L1>0 THEN 50
180 GOSUB 950:IFK$<>"" THEN 180
190 Q=24:Z=10:A$="GAME OVER":GOSUB940
200 Z=12:A$="PRESS ANY KEY":GOSUB940
210 GOTO 40
220 HIT=0:FOR L=1 TO 3
230 IF G(L,1)=PX AND G(L,2)=PY AND TMR>PWRTIM AND G(L,4)=1 THEN HIT=1
240 IF G(L,1)=PX AND G(L,2)=PY AND TMR>PWRTIM AND G(L,4)=2 THEN GOTO 260
250 GOTO 270
260 G(L,4)=3:G$(L)=CHR$(34):SC=SC+150
270 NEXT L
280 IF HIT=1 THEN L1=L1-1
290 RETURN
300 FOR L=1 TO 3
310 X=G(L,1):Y=G(L,2):GD=G(L,3):GC=G(L,4)
320 Q=X:Z=Y:A$=M$(X,Y):GOSUB 940
330 IF G(L,4)=3 THEN TX=3:TY=8:IF X=9 AND Y=7 THEN GD=2:GOTO 350
340 GOSUB 450
350 IF GD=1 OR GD=3 THEN X=X+(GD-2)
360 IF GD=0 OR GD=2 THEN Y=Y+(GD-1)
370 XX=X:IF XX=1 THEN X=16
380 IF XX=17 THEN X=2
390 IF G(L,4)=3 AND G(L,1)=9 AND G(L,2)=9 THEN G$(L)="*":GC=1
400 IF G(L,4)=2 AND TMR>PWRTIM THEN GC=1:G$(L)="*"
410 Q=X:Z=Y:A$=G$(L):GOSUB 940
420 G(L,1)=X:G(L,2)=Y:G(L,3)=GD:G(L,4)=GC
430 NEXT L
440 RETURN
450 GOSUB 760:N=INT(RND(0)*6+1)
460 XX=-2:IF GD<2 THEN XX=2
470 FF=0:IF GD=1 OR GD=3 THEN FF=1
480 IFFF=1 THEN IF M$(X+(GD-2),Y)="#" AND U$="#" AND D$="#" THEN GD=GD+XX:RETURN
490 IFFF=0 THEN IF M$(X,Y+(GD-1))="#" AND L$="#" AND R$="#" THEN GD=GD+XX:RETURN
500 IF FF=1 AND U$="#" AND D$="#" THEN RETURN
510 IF FF=0 AND L$="#" AND R$="#" THEN RETURN
520 IF GD=0 AND U$="#" THEN GOSUB 640:RETURN
530 IF GD=1 AND L$="#" THEN GOSUB 700:RETURN
540 IF GD=2 AND D$="#" THEN GOSUB 640:RETURN
550 IF GD=3 AND R$="#"THEN GOSUB 700:RETURN
560 IF N>4 THEN RETURN
570 IF GD=1 OR GD=3 THEN GOSUB 610:RETURN
580 IF L$="#" AND TX>X THEN GD=3:RETURN
590 IF R$="#" AND TX<X THEN GD=1
600 RETURN
610 IF U$="#" AND TY>Y THEN GD=2:RETURN
620 IF D$="#" AND (TY<Y OR X=9) THEN GD=0
630 RETURN
640 IF L$="#" THEN GD=3:RETURN
650 IF R$="#" THEN GD=1:RETURN
660 IF TX>X AND N<5 THEN GD=3:RETURN
670 IF TX<=X AND N<5 THEN GD=1:RETURN
680 GD=3:IF N=5 THEN GD=1
690 RETURN
700 IF U$="#"THEN GD=2:RETURN
710 IF D$="#" THEN GD=0:RETURN
720 IF TY>Y AND N<5 THEN GD=2:RETURN
730 IF TY<Y AND N<5 THEN GD=0:RETURN
740 GD=0:IF N=5 THEN GD=2
750 RETURN
760 O$=M$(X,Y):U$=M$(X,Y-1):D$=M$(X,Y+1):L$=M$(X-1,Y)
770 R$=M$(X+1,Y):RETURN
780 GOSUB950:IF K$<>"" THEN C$=K$
790 X=PX:Y=PY:GOSUB760
800 Q=PX:Z=PY:A$=" ":GOSUB940:M$(PX,PY)=" "
810 IF C$="A" AND U$<>"#" THEN PY=PY-1
820 IF C$="Z" AND D$<>"#" THEN PY=PY+1
830 IF C$="N" AND L$<>"#" THEN PX=PX-1
840 IF C$="M" AND R$<>"#" THEN PX=PX+1
850 IF O$="." THEN FOOD=FOOD-1:SC=SC+10
860 IF O$<>"+" THEN 900
870 FOOD=FOOD-1:SC=SC+10:PWRTIM=TMR+PWRC
880 FORL=1TO3:IFG$(L)="*" THEN G$(L)="O":G(L,4)=2
890 NEXT L
900 XX=PX:IF XX=1 THEN PX=16
910 IF XX=17 THEN PX=2
920 Q=PX:Z=PY:A$="C":GOSUB 940
930 RETURN
940 POKE 211,Q+1:POKE214,Z+1:SYS58732:PRINTA$;:RETURN
950 GET K$:RETURN
960 RETURN
970 TMR=TMR+1:RETURN
980 RESTORE
990 FOR A=1 TO 16
1000 READA$:Q=1:Z=A:GOSUB940
1010 FORB=1TO17:M$(B,A)=MID$(A$,B,1):NEXT B
1020 NEXT A
1030 Q=20:Z=1:A$="SCORE:":GOSUB940
1040 Z=3:A$="LIVES:":GOSUB940
1050 FOOD=127
1060 RETURN
1070 FORL=1 TO 3:G(L,1)=L+7:G(L,2)=9:G(L,3)=0:G(L,4)=1:G$(L)="*":NEXTL
1080 PX=9:PY=13:X=PX:Y=PY
1090 C$=""
1100 RETURN
1110 FORZ=1TO16:FORQ=1TO17:A$=M$(Q,Z):GOSUB940:NEXTQ:NEXTZ:RETURN
1120 DATA "#################"
1130 DATA "#+......#......+#"
1140 DATA "#.#.###.#.###.#.#"
1150 DATA "#.#.#...#...#.#.#"
1160 DATA "#.....#.#.#.....#"
1170 DATA "#.#####.#.#####.#"
1180 DATA "#...............#"
1190 DATA "###.#.## ##.#.###"
1200 DATA " ...#.# #.#... "
1210 DATA "###.#.#####.#.###"
1220 DATA "#...............#"
1230 DATA "#.#.####.####.#.#"
1240 DATA "#.#...#. .#...#.#"
1250 DATA "#.###.#.#.#.###.#"
1260 DATA "#+......#......+#"
1270 DATA "#################"
� PACMAN $ ��(147);:X��(�TI) M � M$(18,17):� G(3,4):� G$(3):PWRC�20 t( PWRTIM�0:TMR�0:SC�0:L1�3:L2�3:�980 ~2 �1070 �< � 760:� 780:� 220 �F � 970:� PWRTIM�TMR�0 � TX�9:TY�8 �P � PWRTIM�TMR�0 � TX�PX:TY�PY �Z � 300 d A$��(SC):LSC��(A$):Q�32�LSC:Z�1 n � 940 x � 220 8 � Q�31:Z�3:A$��(L1):� 940 T � � FOOD�0 � L1�L2 � � 60 x � � L1��L2 � L2�L2�1:� 1070:�1110 � � � FOOD�0 � �980 � � � L1�0 � 50 � � � 950:�K$��"" � 180 � � Q�24:Z�10:A$�"GAME OVER":�940 � � Z�12:A$�"PRESS ANY KEY":�940 � � 40 � HIT�0:� L�1 � 3 P � � G(L,1)�PX � G(L,2)�PY � TMR�PWRTIM � G(L,4)�1 � HIT�1 � � � G(L,1)�PX � G(L,2)�PY � TMR�PWRTIM � G(L,4)�2 � � 260 � � � 270 � G(L,4)�3:G$(L)��(34):SC�SC�150 � � L � � HIT�1 � L1�L1�1 � "� � ,� L�1 � 3 6X�G(L,1):Y�G(L,2):GD�G(L,3):GC�G(L,4) 2 @Q�X:Z�Y:A$�M$(X,Y):� 940 f J� G(L,4)�3 � TX�3:TY�8:� X�9 � Y�7 � GD�2:� 350 p T� 450 � ^� GD�1 � GD�3 � X�X�(GD�2) � h� GD�0 � GD�2 � Y�Y�(GD�1) � rXX�X:� XX�1 � X�16 � |� XX�17 � X�2 �� G(L,4)�3 � G(L,1)�9 � G(L,2)�9 � G$(L)�"*":GC�1 : �� G(L,4)�2 � TMR�PWRTIM � GC�1:G$(L)�"*" U �Q�X:Z�Y:A$�G$(L):� 940 �G(L,1)�X:G(L,2)�Y:G(L,3)�GD:G(L,4)�GC � �� L � �� � �� 760:N��(�(0)�6�1) � �XX��2:� GD�2 � XX�2 � �FF�0:� GD�1 � GD�3 � FF�1 ��FF�1 � � M$(X�(GD�2),Y)�"#" � U$�"#" � D$�"#" � GD�GD�XX:� [ ��FF�0 � � M$(X,Y�(GD�1))�"#" � L$�"#" � R$�"#" � GD�GD�XX:� | �� FF�1 � U$�"#" � D$�"#" � � � �� FF�0 � L$�"#" � R$�"#" � � � � GD�0 � U$�"#" � � 640:� � � GD�1 � L$�"#" � � 700:� � � GD�2 � D$�"#" � � 640:� &� GD�3 � R$�"#"� � 700:� "0� N�4 � � >:� GD�1 � GD�3 � � 610:� [D� L$�"#" � TX�X � GD�3:� vN� R$�"#" � TX�X � GD�1 |X� �b� U$�"#" � TY�Y � GD�2:� �l� D$�"#" � (TY�Y � X�9) � GD�0 �v� ��� L$�"#" � GD�3:� ��� R$�"#" � GD�1:� �� TX�X � N�5 � GD�3:� #�� TX��X � N�5 � GD�1:� 9�GD�3:� N�5 � GD�1 ?�� T�� U$�"#"� GD�2:� j�� D$�"#" � GD�0:� ��� TY�Y � N�5 � GD�2:� ��� TY�Y � N�5 � GD�0:� ��GD�0:� N�5 � GD�2 ��� ��O$�M$(X,Y):U$�M$(X,Y�1):D$�M$(X,Y�1):L$�M$(X�1,Y) R$�M$(X�1,Y):� �950:� K$��"" � C$�K$ 0X�PX:Y�PY:�760 X Q�PX:Z�PY:A$�" ":�940:M$(PX,PY)�" " y*� C$�"A" � U$��"#" � PY�PY�1 �4� C$�"Z" � D$��"#" � PY�PY�1 �>� C$�"N" � L$��"#" � PX�PX�1 �H� C$�"M" � R$��"#" � PX�PX�1 R� O$�"." � FOOD�FOOD�1:SC�SC�10 \� O$��"+" � 900 =fFOOD�FOOD�1:SC�SC�10:PWRTIM�TMR�PWRC hp�L�1�3:�G$(L)�"*" � G$(L)�"O":G(L,4)�2 pz� L ��XX�PX:� XX�1 � PX�16 ��� XX�17 � PX�2 ��Q�PX:Z�PY:A$�"C":� 940 ��� ��� 211,Q�1:�214,Z�1:�58732:�A$;:� ��� K$:� ��� �TMR�TMR�1:� �� �� A�1 � 16 -��A$:Q�1:Z�A:�940 O��B�1�17:M$(B,A)��(A$,B,1):� B W�� A uQ�20:Z�1:A$�"SCORE:":�940 �Z�3:A$�"LIVES:":�940 �FOOD�127 �$� �.�L�1 � 3:G(L,1)�L�7:G(L,2)�9:G(L,3)�0:G(L,4)�1:G$(L)�"*":�L �8PX�9:PY�13:X�PX:Y�PY BC$�"" L� 6V�Z�1�16:�Q�1�17:A$�M$(Q,Z):�940:�Q:�Z:� P`� "#################" jj� "#+......#......+#" �t� "#.#.###.#.###.#.#" �~� "#.#.#...#...#.#.#" ��� "#.....#.#.#.....#" ��� "#.#####.#.#####.#" ��� "#...............#" �� "###.#.## ##.#.###" �� " ...#.# #.#... " :�� "###.#.#####.#.###" T�� "#...............#" n�� "#.#.####.####.#.#" ��� "#.#...#. .#...#.#" ��� "#.###.#.#.#.###.#" ��� "#+......#......+#" ��� "#################"
NHJ@. pacman@$HT@..(147);:x..(.ti)@mH.@. m$(18,17):. g(3,4):. g$(3):pwrc.20@TH(@pwrtim.0:tmr.0:sc.0:l1.3:l2.3:.980@.H2@.1070@.H<@. 760:. 780:. 220@.Hf@. 970:. pwrtim.tmr.0 . tx.9:ty.8@.Hp@. pwrtim.tmr.0 . tx.px:ty.py@.Hz@. 300@HID@a$..(sc):lsc..(a$):q.32.lsc:z.1@RIN@. 940@£IX@. 220@8I.@q.31:z.3:a$..(l1):. 940@tI.@. food.0 . l1.l2 . . 60@XI.@. l1..l2 . l2.l2.1:. 1070:.1110@.I.@. food.0 . .980@.I.@. l1.0 . 50@.I.@. 950:.k$.."" . 180@.I.@q.24:z.10:a$."game over":.940@.I.@z.12:a$."press any key":.940@@J.@. 40@TJ.@hit.0:. l.1 . 3@pJ.@. g(l,1).px . g(l,2).py . tmr.pwrtim . g(l,4).1 . hit.1@.J.@. g(l,1).px . g(l,2).py . tmr.pwrtim . g(l,4).2 . . 260@.J.@. 270@.JDAg(l,4).3:g$(l)..(34):sc.sc.150@.JNA. l@.JXA. hit.1 . l1.l1.1@.J"A.@.J,A. l.1 . 3@UK6Ax.g(l,1):y.g(l,2):gd.g(l,3):gc.g(l,4)@2K@Aq.x:z.y:a$.m$(x,y):. 940@FKjA. g(l,4).3 . tx.3:ty.8:. x.9 . y.7 . gd.2:. 350@PKtA. 450@.K.A. gd.1 . gd.3 . x.x.(gd.2)@.KHA. gd.0 . gd.2 . y.y.(gd.1)@.KRAxx.x:. xx.1 . x.16@.K.A. xx.17 . x.2@ML.A. g(l,4).3 . g(l,1).9 . g(l,2).9 . g$(l)."*":gc.1@:L.A. g(l,4).2 . tmr.pwrtim . gc.1:g$(l)."*"@uL.Aq.x:z.y:a$.g$(l):. 940@.L.Ag(l,1).x:g(l,2).y:g(l,3).gd:g(l,4).gc@.L.A. l@.L.A.@.L.A. 760:n..(.(0).6.1)@.L.Axx..2:. gd.2 . xx.2@.L.Aff.0:. gd.1 . gd.3 . ff.1@[M.A.ff.1 . . m$(x.(gd.2),y)."#" . u$."#" . d$."#" . gd.gd.xx:.@[M.A.ff.0 . . m$(x,y.(gd.1))."#" . l$."#" . r$."#" . gd.gd.xx:.@.M.A. ff.1 . u$."#" . d$."#" . .@.M.A. ff.0 . l$."#" . r$."#" . .@.MHB. gd.0 . u$."#" . . 640:.@.MRB. gd.1 . l$."#" . . 700:.@.M£B. gd.2 . d$."#" . . 640:.@TN&B. gd.3 . r$."#". . 700:.@"N0B. n.4 . .@>N:B. gd.1 . gd.3 . . 610:.@[NdB. l$."#" . tx.x . gd.3:.@VNnB. r$."#" . tx.x . gd.1@.NxB.@.NBB. u$."#" . ty.y . gd.2:.@.NLB. d$."#" . (ty.y . x.9) . gd.0@.NVB.@.N.B. l$."#" . gd.3:.@.N.B. r$."#" . gd.1:.@HO.B. tx.x . n.5 . gd.3:.@#O.B. tx..x . n.5 . gd.1:.@9O.Bgd.3:. n.5 . gd.1@?O.B.@tO.B. u$."#". gd.2:.@JO.B. d$."#" . gd.0:.@.O.B. ty.y . n.5 . gd.2:.@.O.B. ty.y . n.5 . gd.0:.@.O.Bgd.0:. n.5 . gd.2@.O.B.@.O.Bo$.m$(x,y):u$.m$(x,y.1):d$.m$(x,y.1):l$.m$(x.1,y)@CPBCr$.m$(x.1,y):.@]PLC.950:. k$.."" . c$.k$@0PVCx.px:y.py:.760@xP Cq.px:z.py:a$." ":.940:m$(px,py)." "@YP*C. c$."a" . u$.."#" . py.py.1@.P4C. c$."z" . d$.."#" . py.py.1@.P>C. c$."n" . l$.."#" . px.px.1@.PhC. c$."m" . r$.."#" . px.px.1@@QrC. o$."." . food.food.1:sc.sc.10@TQ£C. o$.."+" . 900@=QFCfood.food.1:sc.sc.10:pwrtim.tmr.pwrc@HQPC.l.1.3:.g$(l)."*" . g$(l)."o":g(l,4).2@PQZC. l@.Q.Cxx.px:. xx.1 . px.16@.Q.C. xx.17 . px.2@.Q.Cq.px:z.py:a$."c":. 940@.Q.C.@.Q.C. 211,q.1:.214,z.1:.58732:.a$;:.@.Q.C. k$:.@.Q.C.@CR.Ctmr.tmr.1:.@IR.C.@XR.C. a.1 . 16@-R.C.a$:q.1:z.a:.940@oR.C.b.1.17:m$(b,a)..(a$,b,1):. b@wR.C. a@URFDq.20:z.1:a$."score:":.940@.RPDz.3:a$."lives:":.940@.RZDfood.127@.R$D.@.R.D.l.1 . 3:g(l,1).l.7:g(l,2).9:g(l,3).0:g(l,4).1:g$(l)."*":.l@.R8Dpx.9:py.13:x.px:y.py@DSbDc$.""@JSlD.@6SvD.z.1.16:.q.1.17:a$.m$(q,z):.940:.q:.z:.@pS.D. "#################"@JSJD. "#+......#......+#"@.STD. "#.#.###.#.###.#.#"@.S.D. "#.#.#...#...#.#.#"@.S.D. "#.....#.#.#.....#"@.S.D. "#.#####.#.#####.#"@.S.D. "#...............#"@FT.D. "###.#.## ##.#.###"@ T.D. " ...#.# #.#... "@:T.D. "###.#.#####.#.###"@tT.D. "#...............#"@NT.D. "#.#.####.####.#.#"@.T.D. "#.#...#. .#...#.#"@.T.D. "#.###.#.#.#.###.#"@.T.D. "#+......#......+#"@.T.D. "#################"@@@
00000000 0e 08 0a 00 8f 20 50 41 43 4d 41 4e 00 24 08 14 |..... PACMAN.$..| 00000010 00 99 c7 28 31 34 37 29 3b 3a 58 b2 bb 28 ab 54 |...(147);:X..(.T| 00000020 49 29 00 4d 08 1e 00 86 20 4d 24 28 31 38 2c 31 |I).M.... M$(18,1| 00000030 37 29 3a 86 20 47 28 33 2c 34 29 3a 86 20 47 24 |7):. G(3,4):. G$| 00000040 28 33 29 3a 50 57 52 43 b2 32 30 00 74 08 28 00 |(3):PWRC.20.t.(.| 00000050 50 57 52 54 49 4d b2 30 3a 54 4d 52 b2 30 3a 53 |PWRTIM.0:TMR.0:S| 00000060 43 b2 30 3a 4c 31 b2 33 3a 4c 32 b2 33 3a 8d 39 |C.0:L1.3:L2.3:.9| 00000070 38 30 00 7e 08 32 00 8d 31 30 37 30 00 94 08 3c |80.~.2..1070...<| 00000080 00 8d 20 37 36 30 3a 8d 20 37 38 30 3a 8d 20 32 |.. 760:. 780:. 2| 00000090 32 30 00 b9 08 46 00 8d 20 39 37 30 3a 8b 20 50 |20...F.. 970:. P| 000000a0 57 52 54 49 4d ab 54 4d 52 b1 30 20 a7 20 54 58 |WRTIM.TMR.0 . TX| 000000b0 b2 39 3a 54 59 b2 38 00 da 08 50 00 8b 20 50 57 |.9:TY.8...P.. PW| 000000c0 52 54 49 4d ab 54 4d 52 b3 30 20 a7 20 54 58 b2 |RTIM.TMR.0 . TX.| 000000d0 50 58 3a 54 59 b2 50 59 00 e4 08 5a 00 8d 20 33 |PX:TY.PY...Z.. 3| 000000e0 30 30 00 08 09 64 00 41 24 b2 c4 28 53 43 29 3a |00...d.A$..(SC):| 000000f0 4c 53 43 b2 c3 28 41 24 29 3a 51 b2 33 32 ab 4c |LSC..(A$):Q.32.L| 00000100 53 43 3a 5a b2 31 00 12 09 6e 00 8d 20 39 34 30 |SC:Z.1...n.. 940| 00000110 00 1c 09 78 00 8d 20 32 32 30 00 38 09 82 00 51 |...x.. 220.8...Q| 00000120 b2 33 31 3a 5a b2 33 3a 41 24 b2 c4 28 4c 31 29 |.31:Z.3:A$..(L1)| 00000130 3a 8d 20 39 34 30 00 54 09 8c 00 8b 20 46 4f 4f |:. 940.T.... FOO| 00000140 44 b1 30 20 af 20 4c 31 b2 4c 32 20 a7 20 89 20 |D.0 . L1.L2 . . | 00000150 36 30 00 78 09 96 00 8b 20 4c 31 b3 b1 4c 32 20 |60.x.... L1..L2 | 00000160 a7 20 4c 32 b2 4c 32 ab 31 3a 8d 20 31 30 37 30 |. L2.L2.1:. 1070| 00000170 3a 8d 31 31 31 30 00 8c 09 a0 00 8b 20 46 4f 4f |:.1110...... FOO| 00000180 44 b2 30 20 a7 20 8d 39 38 30 00 9c 09 aa 00 8b |D.0 . .980......| 00000190 20 4c 31 b1 30 20 a7 20 35 30 00 b4 09 b4 00 8d | L1.0 . 50......| 000001a0 20 39 35 30 3a 8b 4b 24 b3 b1 22 22 20 a7 20 31 | 950:.K$.."" . 1| 000001b0 38 30 00 d6 09 be 00 51 b2 32 34 3a 5a b2 31 30 |80.....Q.24:Z.10| 000001c0 3a 41 24 b2 22 47 41 4d 45 20 4f 56 45 52 22 3a |:A$."GAME OVER":| 000001d0 8d 39 34 30 00 f7 09 c8 00 5a b2 31 32 3a 41 24 |.940.....Z.12:A$| 000001e0 b2 22 50 52 45 53 53 20 41 4e 59 20 4b 45 59 22 |."PRESS ANY KEY"| 000001f0 3a 8d 39 34 30 00 00 0a d2 00 89 20 34 30 00 14 |:.940...... 40..| 00000200 0a dc 00 48 49 54 b2 30 3a 81 20 4c b2 31 20 a4 |...HIT.0:. L.1 .| 00000210 20 33 00 50 0a e6 00 8b 20 47 28 4c 2c 31 29 b2 | 3.P.... G(L,1).| 00000220 50 58 20 af 20 47 28 4c 2c 32 29 b2 50 59 20 af |PX . G(L,2).PY .| 00000230 20 54 4d 52 b1 50 57 52 54 49 4d 20 af 20 47 28 | TMR.PWRTIM . G(| 00000240 4c 2c 34 29 b2 31 20 a7 20 48 49 54 b2 31 00 8c |L,4).1 . HIT.1..| 00000250 0a f0 00 8b 20 47 28 4c 2c 31 29 b2 50 58 20 af |.... G(L,1).PX .| 00000260 20 47 28 4c 2c 32 29 b2 50 59 20 af 20 54 4d 52 | G(L,2).PY . TMR| 00000270 b1 50 57 52 54 49 4d 20 af 20 47 28 4c 2c 34 29 |.PWRTIM . G(L,4)| 00000280 b2 32 20 a7 20 89 20 32 36 30 00 96 0a fa 00 89 |.2 . . 260......| 00000290 20 32 37 30 00 b9 0a 04 01 47 28 4c 2c 34 29 b2 | 270.....G(L,4).| 000002a0 33 3a 47 24 28 4c 29 b2 c7 28 33 34 29 3a 53 43 |3:G$(L)..(34):SC| 000002b0 b2 53 43 aa 31 35 30 00 c1 0a 0e 01 82 20 4c 00 |.SC.150...... L.| 000002c0 d7 0a 18 01 8b 20 48 49 54 b2 31 20 a7 20 4c 31 |..... HIT.1 . L1| 000002d0 b2 4c 31 ab 31 00 dd 0a 22 01 8e 00 eb 0a 2c 01 |.L1.1...".....,.| 000002e0 81 20 4c b2 31 20 a4 20 33 00 15 0b 36 01 58 b2 |. L.1 . 3...6.X.| 000002f0 47 28 4c 2c 31 29 3a 59 b2 47 28 4c 2c 32 29 3a |G(L,1):Y.G(L,2):| 00000300 47 44 b2 47 28 4c 2c 33 29 3a 47 43 b2 47 28 4c |GD.G(L,3):GC.G(L| 00000310 2c 34 29 00 32 0b 40 01 51 b2 58 3a 5a b2 59 3a |,4).2.@.Q.X:Z.Y:| 00000320 41 24 b2 4d 24 28 58 2c 59 29 3a 8d 20 39 34 30 |A$.M$(X,Y):. 940| 00000330 00 66 0b 4a 01 8b 20 47 28 4c 2c 34 29 b2 33 20 |.f.J.. G(L,4).3 | 00000340 a7 20 54 58 b2 33 3a 54 59 b2 38 3a 8b 20 58 b2 |. TX.3:TY.8:. X.| 00000350 39 20 af 20 59 b2 37 20 a7 20 47 44 b2 32 3a 89 |9 . Y.7 . GD.2:.| 00000360 20 33 35 30 00 70 0b 54 01 8d 20 34 35 30 00 8f | 350.p.T.. 450..| 00000370 0b 5e 01 8b 20 47 44 b2 31 20 b0 20 47 44 b2 33 |.^.. GD.1 . GD.3| 00000380 20 a7 20 58 b2 58 aa 28 47 44 ab 32 29 00 ae 0b | . X.X.(GD.2)...| 00000390 68 01 8b 20 47 44 b2 30 20 b0 20 47 44 b2 32 20 |h.. GD.0 . GD.2 | 000003a0 a7 20 59 b2 59 aa 28 47 44 ab 31 29 00 c5 0b 72 |. Y.Y.(GD.1)...r| 000003b0 01 58 58 b2 58 3a 8b 20 58 58 b2 31 20 a7 20 58 |.XX.X:. XX.1 . X| 000003c0 b2 31 36 00 d7 0b 7c 01 8b 20 58 58 b2 31 37 20 |.16...|.. XX.17 | 000003d0 a7 20 58 b2 32 00 0d 0c 86 01 8b 20 47 28 4c 2c |. X.2...... G(L,| 000003e0 34 29 b2 33 20 af 20 47 28 4c 2c 31 29 b2 39 20 |4).3 . G(L,1).9 | 000003f0 af 20 47 28 4c 2c 32 29 b2 39 20 a7 20 47 24 28 |. G(L,2).9 . G$(| 00000400 4c 29 b2 22 2a 22 3a 47 43 b2 31 00 3a 0c 90 01 |L)."*":GC.1.:...| 00000410 8b 20 47 28 4c 2c 34 29 b2 32 20 af 20 54 4d 52 |. G(L,4).2 . TMR| 00000420 b1 50 57 52 54 49 4d 20 a7 20 47 43 b2 31 3a 47 |.PWRTIM . GC.1:G| 00000430 24 28 4c 29 b2 22 2a 22 00 55 0c 9a 01 51 b2 58 |$(L)."*".U...Q.X| 00000440 3a 5a b2 59 3a 41 24 b2 47 24 28 4c 29 3a 8d 20 |:Z.Y:A$.G$(L):. | 00000450 39 34 30 00 7f 0c a4 01 47 28 4c 2c 31 29 b2 58 |940.....G(L,1).X| 00000460 3a 47 28 4c 2c 32 29 b2 59 3a 47 28 4c 2c 33 29 |:G(L,2).Y:G(L,3)| 00000470 b2 47 44 3a 47 28 4c 2c 34 29 b2 47 43 00 87 0c |.GD:G(L,4).GC...| 00000480 ae 01 82 20 4c 00 8d 0c b8 01 8e 00 a5 0c c2 01 |... L...........| 00000490 8d 20 37 36 30 3a 4e b2 b5 28 bb 28 30 29 ac 36 |. 760:N..(.(0).6| 000004a0 aa 31 29 00 bd 0c cc 01 58 58 b2 ab 32 3a 8b 20 |.1).....XX..2:. | 000004b0 47 44 b3 32 20 a7 20 58 58 b2 32 00 db 0c d6 01 |GD.2 . XX.2.....| 000004c0 46 46 b2 30 3a 8b 20 47 44 b2 31 20 b0 20 47 44 |FF.0:. GD.1 . GD| 000004d0 b2 33 20 a7 20 46 46 b2 31 00 1b 0d e0 01 8b 46 |.3 . FF.1......F| 000004e0 46 b2 31 20 a7 20 8b 20 4d 24 28 58 aa 28 47 44 |F.1 . . M$(X.(GD| 000004f0 ab 32 29 2c 59 29 b2 22 23 22 20 af 20 55 24 b2 |.2),Y)."#" . U$.| 00000500 22 23 22 20 af 20 44 24 b2 22 23 22 20 a7 20 47 |"#" . D$."#" . G| 00000510 44 b2 47 44 aa 58 58 3a 8e 00 5b 0d ea 01 8b 46 |D.GD.XX:..[....F| 00000520 46 b2 30 20 a7 20 8b 20 4d 24 28 58 2c 59 aa 28 |F.0 . . M$(X,Y.(| 00000530 47 44 ab 31 29 29 b2 22 23 22 20 af 20 4c 24 b2 |GD.1))."#" . L$.| 00000540 22 23 22 20 af 20 52 24 b2 22 23 22 20 a7 20 47 |"#" . R$."#" . G| 00000550 44 b2 47 44 aa 58 58 3a 8e 00 7c 0d f4 01 8b 20 |D.GD.XX:..|.... | 00000560 46 46 b2 31 20 af 20 55 24 b2 22 23 22 20 af 20 |FF.1 . U$."#" . | 00000570 44 24 b2 22 23 22 20 a7 20 8e 00 9d 0d fe 01 8b |D$."#" . .......| 00000580 20 46 46 b2 30 20 af 20 4c 24 b2 22 23 22 20 af | FF.0 . L$."#" .| 00000590 20 52 24 b2 22 23 22 20 a7 20 8e 00 bb 0d 08 02 | R$."#" . ......| 000005a0 8b 20 47 44 b2 30 20 af 20 55 24 b2 22 23 22 20 |. GD.0 . U$."#" | 000005b0 a7 20 8d 20 36 34 30 3a 8e 00 d9 0d 12 02 8b 20 |. . 640:....... | 000005c0 47 44 b2 31 20 af 20 4c 24 b2 22 23 22 20 a7 20 |GD.1 . L$."#" . | 000005d0 8d 20 37 30 30 3a 8e 00 f7 0d 1c 02 8b 20 47 44 |. 700:....... GD| 000005e0 b2 32 20 af 20 44 24 b2 22 23 22 20 a7 20 8d 20 |.2 . D$."#" . . | 000005f0 36 34 30 3a 8e 00 14 0e 26 02 8b 20 47 44 b2 33 |640:....&.. GD.3| 00000600 20 af 20 52 24 b2 22 23 22 a7 20 8d 20 37 30 30 | . R$."#". . 700| 00000610 3a 8e 00 22 0e 30 02 8b 20 4e b1 34 20 a7 20 8e |:..".0.. N.4 . .| 00000620 00 3e 0e 3a 02 8b 20 47 44 b2 31 20 b0 20 47 44 |.>.:.. GD.1 . GD| 00000630 b2 33 20 a7 20 8d 20 36 31 30 3a 8e 00 5b 0e 44 |.3 . . 610:..[.D| 00000640 02 8b 20 4c 24 b2 22 23 22 20 af 20 54 58 b1 58 |.. L$."#" . TX.X| 00000650 20 a7 20 47 44 b2 33 3a 8e 00 76 0e 4e 02 8b 20 | . GD.3:..v.N.. | 00000660 52 24 b2 22 23 22 20 af 20 54 58 b3 58 20 a7 20 |R$."#" . TX.X . | 00000670 47 44 b2 31 00 7c 0e 58 02 8e 00 99 0e 62 02 8b |GD.1.|.X.....b..| 00000680 20 55 24 b2 22 23 22 20 af 20 54 59 b1 59 20 a7 | U$."#" . TY.Y .| 00000690 20 47 44 b2 32 3a 8e 00 bc 0e 6c 02 8b 20 44 24 | GD.2:....l.. D$| 000006a0 b2 22 23 22 20 af 20 28 54 59 b3 59 20 b0 20 58 |."#" . (TY.Y . X| 000006b0 b2 39 29 20 a7 20 47 44 b2 30 00 c2 0e 76 02 8e |.9) . GD.0...v..| 000006c0 00 d8 0e 80 02 8b 20 4c 24 b2 22 23 22 20 a7 20 |...... L$."#" . | 000006d0 47 44 b2 33 3a 8e 00 ee 0e 8a 02 8b 20 52 24 b2 |GD.3:....... R$.| 000006e0 22 23 22 20 a7 20 47 44 b2 31 3a 8e 00 08 0f 94 |"#" . GD.1:.....| 000006f0 02 8b 20 54 58 b1 58 20 af 20 4e b3 35 20 a7 20 |.. TX.X . N.5 . | 00000700 47 44 b2 33 3a 8e 00 23 0f 9e 02 8b 20 54 58 b3 |GD.3:..#.... TX.| 00000710 b2 58 20 af 20 4e b3 35 20 a7 20 47 44 b2 31 3a |.X . N.5 . GD.1:| 00000720 8e 00 39 0f a8 02 47 44 b2 33 3a 8b 20 4e b2 35 |..9...GD.3:. N.5| 00000730 20 a7 20 47 44 b2 31 00 3f 0f b2 02 8e 00 54 0f | . GD.1.?.....T.| 00000740 bc 02 8b 20 55 24 b2 22 23 22 a7 20 47 44 b2 32 |... U$."#". GD.2| 00000750 3a 8e 00 6a 0f c6 02 8b 20 44 24 b2 22 23 22 20 |:..j.... D$."#" | 00000760 a7 20 47 44 b2 30 3a 8e 00 84 0f d0 02 8b 20 54 |. GD.0:....... T| 00000770 59 b1 59 20 af 20 4e b3 35 20 a7 20 47 44 b2 32 |Y.Y . N.5 . GD.2| 00000780 3a 8e 00 9e 0f da 02 8b 20 54 59 b3 59 20 af 20 |:....... TY.Y . | 00000790 4e b3 35 20 a7 20 47 44 b2 30 3a 8e 00 b4 0f e4 |N.5 . GD.0:.....| 000007a0 02 47 44 b2 30 3a 8b 20 4e b2 35 20 a7 20 47 44 |.GD.0:. N.5 . GD| 000007b0 b2 32 00 ba 0f ee 02 8e 00 f0 0f f8 02 4f 24 b2 |.2...........O$.| 000007c0 4d 24 28 58 2c 59 29 3a 55 24 b2 4d 24 28 58 2c |M$(X,Y):U$.M$(X,| 000007d0 59 ab 31 29 3a 44 24 b2 4d 24 28 58 2c 59 aa 31 |Y.1):D$.M$(X,Y.1| 000007e0 29 3a 4c 24 b2 4d 24 28 58 ab 31 2c 59 29 00 03 |):L$.M$(X.1,Y)..| 000007f0 10 02 03 52 24 b2 4d 24 28 58 aa 31 2c 59 29 3a |...R$.M$(X.1,Y):| 00000800 8e 00 1d 10 0c 03 8d 39 35 30 3a 8b 20 4b 24 b3 |.......950:. K$.| 00000810 b1 22 22 20 a7 20 43 24 b2 4b 24 00 30 10 16 03 |."" . C$.K$.0...| 00000820 58 b2 50 58 3a 59 b2 50 59 3a 8d 37 36 30 00 58 |X.PX:Y.PY:.760.X| 00000830 10 20 03 51 b2 50 58 3a 5a b2 50 59 3a 41 24 b2 |. .Q.PX:Z.PY:A$.| 00000840 22 20 22 3a 8d 39 34 30 3a 4d 24 28 50 58 2c 50 |" ":.940:M$(PX,P| 00000850 59 29 b2 22 20 22 00 79 10 2a 03 8b 20 43 24 b2 |Y)." ".y.*.. C$.| 00000860 22 41 22 20 af 20 55 24 b3 b1 22 23 22 20 a7 20 |"A" . U$.."#" . | 00000870 50 59 b2 50 59 ab 31 00 9a 10 34 03 8b 20 43 24 |PY.PY.1...4.. C$| 00000880 b2 22 5a 22 20 af 20 44 24 b3 b1 22 23 22 20 a7 |."Z" . D$.."#" .| 00000890 20 50 59 b2 50 59 aa 31 00 bb 10 3e 03 8b 20 43 | PY.PY.1...>.. C| 000008a0 24 b2 22 4e 22 20 af 20 4c 24 b3 b1 22 23 22 20 |$."N" . L$.."#" | 000008b0 a7 20 50 58 b2 50 58 ab 31 00 dc 10 48 03 8b 20 |. PX.PX.1...H.. | 000008c0 43 24 b2 22 4d 22 20 af 20 52 24 b3 b1 22 23 22 |C$."M" . R$.."#"| 000008d0 20 a7 20 50 58 b2 50 58 aa 31 00 00 11 52 03 8b | . PX.PX.1...R..| 000008e0 20 4f 24 b2 22 2e 22 20 a7 20 46 4f 4f 44 b2 46 | O$."." . FOOD.F| 000008f0 4f 4f 44 ab 31 3a 53 43 b2 53 43 aa 31 30 00 14 |OOD.1:SC.SC.10..| 00000900 11 5c 03 8b 20 4f 24 b3 b1 22 2b 22 20 a7 20 39 |.\.. O$.."+" . 9| 00000910 30 30 00 3d 11 66 03 46 4f 4f 44 b2 46 4f 4f 44 |00.=.f.FOOD.FOOD| 00000920 ab 31 3a 53 43 b2 53 43 aa 31 30 3a 50 57 52 54 |.1:SC.SC.10:PWRT| 00000930 49 4d b2 54 4d 52 aa 50 57 52 43 00 68 11 70 03 |IM.TMR.PWRC.h.p.| 00000940 81 4c b2 31 a4 33 3a 8b 47 24 28 4c 29 b2 22 2a |.L.1.3:.G$(L)."*| 00000950 22 20 a7 20 47 24 28 4c 29 b2 22 4f 22 3a 47 28 |" . G$(L)."O":G(| 00000960 4c 2c 34 29 b2 32 00 70 11 7a 03 82 20 4c 00 89 |L,4).2.p.z.. L..| 00000970 11 84 03 58 58 b2 50 58 3a 8b 20 58 58 b2 31 20 |...XX.PX:. XX.1 | 00000980 a7 20 50 58 b2 31 36 00 9c 11 8e 03 8b 20 58 58 |. PX.16...... XX| 00000990 b2 31 37 20 a7 20 50 58 b2 32 00 b7 11 98 03 51 |.17 . PX.2.....Q| 000009a0 b2 50 58 3a 5a b2 50 59 3a 41 24 b2 22 43 22 3a |.PX:Z.PY:A$."C":| 000009b0 8d 20 39 34 30 00 bd 11 a2 03 8e 00 e2 11 ac 03 |. 940...........| 000009c0 97 20 32 31 31 2c 51 aa 31 3a 97 32 31 34 2c 5a |. 211,Q.1:.214,Z| 000009d0 aa 31 3a 9e 35 38 37 33 32 3a 99 41 24 3b 3a 8e |.1:.58732:.A$;:.| 000009e0 00 ed 11 b6 03 a1 20 4b 24 3a 8e 00 f3 11 c0 03 |...... K$:......| 000009f0 8e 00 03 12 ca 03 54 4d 52 b2 54 4d 52 aa 31 3a |......TMR.TMR.1:| 00000a00 8e 00 09 12 d4 03 8c 00 18 12 de 03 81 20 41 b2 |............. A.| 00000a10 31 20 a4 20 31 36 00 2d 12 e8 03 87 41 24 3a 51 |1 . 16.-....A$:Q| 00000a20 b2 31 3a 5a b2 41 3a 8d 39 34 30 00 4f 12 f2 03 |.1:Z.A:.940.O...| 00000a30 81 42 b2 31 a4 31 37 3a 4d 24 28 42 2c 41 29 b2 |.B.1.17:M$(B,A).| 00000a40 ca 28 41 24 2c 42 2c 31 29 3a 82 20 42 00 57 12 |.(A$,B,1):. B.W.| 00000a50 fc 03 82 20 41 00 75 12 06 04 51 b2 32 30 3a 5a |... A.u...Q.20:Z| 00000a60 b2 31 3a 41 24 b2 22 53 43 4f 52 45 3a 22 3a 8d |.1:A$."SCORE:":.| 00000a70 39 34 30 00 8e 12 10 04 5a b2 33 3a 41 24 b2 22 |940.....Z.3:A$."| 00000a80 4c 49 56 45 53 3a 22 3a 8d 39 34 30 00 9b 12 1a |LIVES:":.940....| 00000a90 04 46 4f 4f 44 b2 31 32 37 00 a1 12 24 04 8e 00 |.FOOD.127...$...| 00000aa0 e1 12 2e 04 81 4c b2 31 20 a4 20 33 3a 47 28 4c |.....L.1 . 3:G(L| 00000ab0 2c 31 29 b2 4c aa 37 3a 47 28 4c 2c 32 29 b2 39 |,1).L.7:G(L,2).9| 00000ac0 3a 47 28 4c 2c 33 29 b2 30 3a 47 28 4c 2c 34 29 |:G(L,3).0:G(L,4)| 00000ad0 b2 31 3a 47 24 28 4c 29 b2 22 2a 22 3a 82 4c 00 |.1:G$(L)."*":.L.| 00000ae0 fa 12 38 04 50 58 b2 39 3a 50 59 b2 31 33 3a 58 |..8.PX.9:PY.13:X| 00000af0 b2 50 58 3a 59 b2 50 59 00 04 13 42 04 43 24 b2 |.PX:Y.PY...B.C$.| 00000b00 22 22 00 0a 13 4c 04 8e 00 36 13 56 04 81 5a b2 |""...L...6.V..Z.| 00000b10 31 a4 31 36 3a 81 51 b2 31 a4 31 37 3a 41 24 b2 |1.16:.Q.1.17:A$.| 00000b20 4d 24 28 51 2c 5a 29 3a 8d 39 34 30 3a 82 51 3a |M$(Q,Z):.940:.Q:| 00000b30 82 5a 3a 8e 00 50 13 60 04 83 20 22 23 23 23 23 |.Z:..P.`.. "####| 00000b40 23 23 23 23 23 23 23 23 23 23 23 23 23 22 00 6a |#############".j| 00000b50 13 6a 04 83 20 22 23 2b 2e 2e 2e 2e 2e 2e 23 2e |.j.. "#+......#.| 00000b60 2e 2e 2e 2e 2e 2b 23 22 00 84 13 74 04 83 20 22 |.....+#"...t.. "| 00000b70 23 2e 23 2e 23 23 23 2e 23 2e 23 23 23 2e 23 2e |#.#.###.#.###.#.| 00000b80 23 22 00 9e 13 7e 04 83 20 22 23 2e 23 2e 23 2e |#"...~.. "#.#.#.| 00000b90 2e 2e 23 2e 2e 2e 23 2e 23 2e 23 22 00 b8 13 88 |..#...#.#.#"....| 00000ba0 04 83 20 22 23 2e 2e 2e 2e 2e 23 2e 23 2e 23 2e |.. "#.....#.#.#.| 00000bb0 2e 2e 2e 2e 23 22 00 d2 13 92 04 83 20 22 23 2e |....#"...... "#.| 00000bc0 23 23 23 23 23 2e 23 2e 23 23 23 23 23 2e 23 22 |#####.#.#####.#"| 00000bd0 00 ec 13 9c 04 83 20 22 23 2e 2e 2e 2e 2e 2e 2e |...... "#.......| 00000be0 2e 2e 2e 2e 2e 2e 2e 2e 23 22 00 06 14 a6 04 83 |........#"......| 00000bf0 20 22 23 23 23 2e 23 2e 23 23 20 23 23 2e 23 2e | "###.#.## ##.#.| 00000c00 23 23 23 22 00 20 14 b0 04 83 20 22 20 2e 2e 2e |###". .... " ...| 00000c10 23 2e 23 20 20 20 23 2e 23 2e 2e 2e 20 22 00 3a |#.# #.#... ".:| 00000c20 14 ba 04 83 20 22 23 23 23 2e 23 2e 23 23 23 23 |.... "###.#.####| 00000c30 23 2e 23 2e 23 23 23 22 00 54 14 c4 04 83 20 22 |#.#.###".T.... "| 00000c40 23 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e |#...............| 00000c50 23 22 00 6e 14 ce 04 83 20 22 23 2e 23 2e 23 23 |#".n.... "#.#.##| 00000c60 23 23 2e 23 23 23 23 2e 23 2e 23 22 00 88 14 d8 |##.####.#.#"....| 00000c70 04 83 20 22 23 2e 23 2e 2e 2e 23 2e 20 2e 23 2e |.. "#.#...#. .#.| 00000c80 2e 2e 23 2e 23 22 00 a2 14 e2 04 83 20 22 23 2e |..#.#"...... "#.| 00000c90 23 23 23 2e 23 2e 23 2e 23 2e 23 23 23 2e 23 22 |###.#.#.#.###.#"| 00000ca0 00 bc 14 ec 04 83 20 22 23 2b 2e 2e 2e 2e 2e 2e |...... "#+......| 00000cb0 23 2e 2e 2e 2e 2e 2e 2b 23 22 00 d6 14 f6 04 83 |#......+#"......| 00000cc0 20 22 23 23 23 23 23 23 23 23 23 23 23 23 23 23 | "##############| 00000cd0 23 23 23 22 00 00 00 |###"...| 00000cd7
.