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�20t(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	dA$��(SC):LSC��(A$):Q�32�LSC:Z�1	n� 940	x� 2208	�Q�31:Z�3:A$��(L1):� 940T	�� FOOD�0 � L1�L2 � � 60x	�� 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 � 3P
�� 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 � 36X�G(L,1):Y�G(L,2):GD�G(L,3):GC�G(L,4)2@Q�X:Z�Y:A$�M$(X,Y):� 940fJ� G(L,4)�3 � TX�3:TY�8:� X�9 � Y�7 � GD�2:� 350pT� 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:�760X 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�1R� O$�"." � FOOD�FOOD�1:SC�SC�10\� O$��"+" � 900=fFOOD�FOOD�1:SC�SC�10:PWRTIM�TMR�PWRChp�L�1�3:�G$(L)�"*" � G$(L)�"O":G(L,4)�2pz� 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:�940O��B�1�17:M$(B,A)��(A$,B,1):� BW�� AuQ�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�PYBC$�""
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

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 18 Aug 2025, 13:06 UTC
Website designed by .