Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape10b_d46_c16_ghost_maze.wav » g(error)
g(error)
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_16 » drawer_br_tape10b_d46_c16_ghost_maze.wav |
| Filename: | g(error) |
| Read OK: | ✔ |
| File size: | 04D8 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 SCNCLR
20 COLOR 0,1:COLOR 1,2:COLOR 4,3,3
30 GRAPHIC 2,1
40 CHAR 1,0,0,"*******"
50 CHAR 1,0,1,"* YW *"
60 CHAR 1,0,2,"* WWW *"
70 CHAR 1,0,3,"* G *"
80 CHAR 1,0,4,"* W W *"
90 CHAR 1,0,5,"* WWWF*"
100 CHAR1,0,6,"*******"
110 Y1=2:Y2=1:G11=3:G12=3
120 INPUT"UP"; U$:IF LEN(U$)>1 THEN 120
130 INPUT"DOWN"; D$:IF LEN(D$)>1 THEN 130
140 INPUT"LEFT"; L$:IF LEN(L$)>1 THEN 140
150 INPUT"RIGHT"; R$:IF LEN(R$)>1 THEN 150
160 READ MN
170 IF MN=0 THEN G11=G11+1
180 IF MN=1 THEN G11=G11-1
190 IF MN=2 THEN G12=G12-1
200 IF MN=3 THEN G12=G12+1
210 GET A$:IF MN=4 THEN RESTORE 450
220 IF A$=U$ THEN Y1=Y1-1
230 IF A$=D$ THEN Y1=Y1+1
240 IF A$=L$ THEN Y2=Y2-1
250 IF A$=R$ THEN Y2=Y2+1
260 IF Y1<1 THEN Y1=1
270 IF Y1>5 THEN Y1=5
280 IF Y2<1 THEN Y2=1
290 IF Y2>5 THEN Y2=5
300 IF Y1=3 AND Y2=1 THEN IF A$=L$ THEN Y1=1 ELSE Y1=4
310 IF Y1=2 OR Y1=3 OR Y1=4 AND Y2=2 THEN 320 ELSE 360
320 IF A$=U$ THEN Y1=Y1+1
330 IF A$=D$ THEN Y1=Y1-1
340 IF A$=L$ THEN Y2=Y2+1
350 IF A$=R$ THEN Y2=Y2-1
360 IF L1=G11 AND L2=G12 THEN L=L-1:IF L=0 THEN PRINT"GAME OVER":END ELSE GOTO 2
370 IF L1=2 OR L1=4 AND L2=4 THEN 380 ELSE 430
380 IF A$=U$ THEN Y1=Y1+1
390 IF A$=D$ THEN Y1=Y1-1
400 IF A$=L$ THEN Y2=Y2+1
410 IF A$=R$ THEN Y2=Y2-1
420 IF L1=2 OR L1=3 OR L1=4 THEN 380
430 IF L1=5 AND L2=5 THEN LOAD"L2"
431 CHAR 1,1,1," W "
432 CHAR 1,1,2," WWW "
433 CHAR 1,1,3," "
434 CHAR 1,1,4," W W "
435 CHAR 1,1,5," WWWF"
436 CHAR 1,Y1,Y2,"Y"
437 CHAR 1,G11,G12,"G"
440 GOTO 160
450 DATA 1,0,1,0,1,0,1,0,1,0,1,3,3,2,3,2,2,0,4
� � 0,1:� 1,2:� 4,3,3 ) � 2,1 ?( � 1,0,0,"*******" U2 � 1,0,1,"* YW *" k< � 1,0,2,"* WWW *" �F � 1,0,3,"* G *" �P � 1,0,4,"* W W *" �Z � 1,0,5,"* WWWF*" �d �1,0,6,"*******" �n Y1�2:Y2�1:G11�3:G12�3 �x �"UP"; U$:� �(U$)�1 � 120 � �"DOWN"; D$:� �(D$)�1 � 130 :� �"LEFT"; L$:� �(L$)�1 � 140 [� �"RIGHT"; R$:� �(R$)�1 � 150 d� � MN {� � MN�0 � G11�G11�1 �� � MN�1 � G11�G11�1 �� � MN�2 � G12�G12�1 �� � MN�3 � G12�G12�1 �� � A$:� MN�4 � � 450 �� � A$�U$ � Y1�Y1�1 � � A$�D$ � Y1�Y1�1 � � A$�L$ � Y2�Y2�1 0� � A$�R$ � Y2�Y2�1 B� Y1�1 � Y1�1 T� Y1�5 � Y1�5 f� Y2�1 � Y2�1 x"� Y2�5 � Y2�5 �,� Y1�3 � Y2�1 � � A$�L$ � Y1�1 � Y1�4 �6� Y1�2 � Y1�3 � Y1�4 � Y2�2 � 320 � 360 �@� A$�U$ � Y1�Y1�1 �J� A$�D$ � Y1�Y1�1 T� A$�L$ � Y2�Y2�1 &^� A$�R$ � Y2�Y2�1 ah� L1�G11 � L2�G12 � L�L�1:� L�0 � �"GAME OVER":� � � 2 �r� L1�2 � L1�4 � L2�4 � 380 � 430 �|� A$�U$ � Y1�Y1�1 ��� A$�D$ � Y1�Y1�1 ��� A$�L$ � Y2�Y2�1 ��� A$�R$ � Y2�Y2�1 ��� L1�2 � L1�3 � L1�4 � 380 �� L1�5 � L2�5 � �"L2" +�� 1,1,1," W " ?�� 1,1,2," WWW " S�� 1,1,3," " g�� 1,1,4," W W " {�� 1,1,5," WWWF" ��� 1,Y1,Y2,"Y" ��� 1,G11,G12,"G" ��� 160 ��� 1,0,1,0,1,0,1,0,1,0,1,3,3,2,3,2,2,0,4 GPJ@.@.PT@. 0,1:. 1,2:. 4,3,3@)P.@. 2,1@?P(@. 1,0,0,"*******"@uP2@. 1,0,1,"* yw *"@KP<@. 1,0,2,"* www *"@.Pf@. 1,0,3,"* g *"@.Pp@. 1,0,4,"* w w *"@.Pz@. 1,0,5,"* wwwf*"@.PD@.1,0,6,"*******"@.PN@y1.2:y2.1:g11.3:g12.3@.PX@."up"; u$:. .(u$).1 . 120@ZQ.@."down"; d$:. .(d$).1 . 130@:Q.@."left"; l$:. .(l$).1 . 140@[Q.@."right"; r$:. .(r$).1 . 150@DQ.@. mn@.Q.@. mn.0 . g11.g11.1@.Q.@. mn.1 . g11.g11.1@.Q.@. mn.2 . g12.g12.1@.Q.@. mn.3 . g12.g12.1@.Q.@. a$:. mn.4 . . 450@.Q.@. a$.u$ . y1.y1.1@DR.@. a$.d$ . y1.y1.1@ZR.@. a$.l$ . y2.y2.1@0R.@. a$.r$ . y2.y2.1@bRDA. y1.1 . y1.1@tRNA. y1.5 . y1.5@FRXA. y2.1 . y2.1@XR"A. y2.5 . y2.5@.R,A. y1.3 . y2.1 . . a$.l$ . y1.1 . y1.4@.R6A. y1.2 . y1.3 . y1.4 . y2.2 . 320 . 360@.R@A. a$.u$ . y1.y1.1@.RjA. a$.d$ . y1.y1.1@PStA. a$.l$ . y2.y2.1@&S.A. a$.r$ . y2.y2.1@ASHA. l1.g11 . l2.g12 . l.l.1:. l.0 . ."game over":. . . 2@.SRA. l1.2 . l1.4 . l2.4 . 380 . 430@.S.A. a$.u$ . y1.y1.1@.S.A. a$.d$ . y1.y1.1@.S.A. a$.l$ . y2.y2.1@.S.A. a$.r$ . y2.y2.1@.S.A. l1.2 . l1.3 . l1.4 . 380@WT.A. l1.5 . l2.5 . ."l2"@+T.A. 1,1,1," w "@?T.A. 1,1,2," www "@sT.A. 1,1,3," "@GT.A. 1,1,4," w w "@.T.A. 1,1,5," wwwf"@.T.A. 1,y1,y2,"y"@.T.A. 1,g11,g12,"g"@.T.A. 160@.T.A. 1,0,1,0,1,0,1,0,1,0,1,3,3,2,3,2,2,0,4@@@
00000000 07 10 0a 00 e8 00 1f 10 14 00 e7 20 30 2c 31 3a |........... 0,1:|
00000010 e7 20 31 2c 32 3a e7 20 34 2c 33 2c 33 00 29 10 |. 1,2:. 4,3,3.).|
00000020 1e 00 de 20 32 2c 31 00 3f 10 28 00 e0 20 31 2c |... 2,1.?.(.. 1,|
00000030 30 2c 30 2c 22 2a 2a 2a 2a 2a 2a 2a 22 00 55 10 |0,0,"*******".U.|
00000040 32 00 e0 20 31 2c 30 2c 31 2c 22 2a 20 59 57 20 |2.. 1,0,1,"* YW |
00000050 20 2a 22 00 6b 10 3c 00 e0 20 31 2c 30 2c 32 2c | *".k.<.. 1,0,2,|
00000060 22 2a 20 57 57 57 20 2a 22 00 81 10 46 00 e0 20 |"* WWW *"...F.. |
00000070 31 2c 30 2c 33 2c 22 2a 20 20 47 20 20 2a 22 00 |1,0,3,"* G *".|
00000080 97 10 50 00 e0 20 31 2c 30 2c 34 2c 22 2a 20 57 |..P.. 1,0,4,"* W|
00000090 20 57 20 2a 22 00 ad 10 5a 00 e0 20 31 2c 30 2c | W *"...Z.. 1,0,|
000000a0 35 2c 22 2a 20 57 57 57 46 2a 22 00 c2 10 64 00 |5,"* WWWF*"...d.|
000000b0 e0 31 2c 30 2c 36 2c 22 2a 2a 2a 2a 2a 2a 2a 22 |.1,0,6,"*******"|
000000c0 00 dc 10 6e 00 59 31 b2 32 3a 59 32 b2 31 3a 47 |...n.Y1.2:Y2.1:G|
000000d0 31 31 b2 33 3a 47 31 32 b2 33 00 fa 10 78 00 85 |11.3:G12.3...x..|
000000e0 22 55 50 22 3b 20 55 24 3a 8b 20 c3 28 55 24 29 |"UP"; U$:. .(U$)|
000000f0 b1 31 20 a7 20 31 32 30 00 1a 11 82 00 85 22 44 |.1 . 120......"D|
00000100 4f 57 4e 22 3b 20 44 24 3a 8b 20 c3 28 44 24 29 |OWN"; D$:. .(D$)|
00000110 b1 31 20 a7 20 31 33 30 00 3a 11 8c 00 85 22 4c |.1 . 130.:...."L|
00000120 45 46 54 22 3b 20 4c 24 3a 8b 20 c3 28 4c 24 29 |EFT"; L$:. .(L$)|
00000130 b1 31 20 a7 20 31 34 30 00 5b 11 96 00 85 22 52 |.1 . 140.[...."R|
00000140 49 47 48 54 22 3b 20 52 24 3a 8b 20 c3 28 52 24 |IGHT"; R$:. .(R$|
00000150 29 b1 31 20 a7 20 31 35 30 00 64 11 a0 00 87 20 |).1 . 150.d.... |
00000160 4d 4e 00 7b 11 aa 00 8b 20 4d 4e b2 30 20 a7 20 |MN.{.... MN.0 . |
00000170 47 31 31 b2 47 31 31 aa 31 00 92 11 b4 00 8b 20 |G11.G11.1...... |
00000180 4d 4e b2 31 20 a7 20 47 31 31 b2 47 31 31 ab 31 |MN.1 . G11.G11.1|
00000190 00 a9 11 be 00 8b 20 4d 4e b2 32 20 a7 20 47 31 |...... MN.2 . G1|
000001a0 32 b2 47 31 32 ab 31 00 c0 11 c8 00 8b 20 4d 4e |2.G12.1...... MN|
000001b0 b2 33 20 a7 20 47 31 32 b2 47 31 32 aa 31 00 d8 |.3 . G12.G12.1..|
000001c0 11 d2 00 a1 20 41 24 3a 8b 20 4d 4e b2 34 20 a7 |.... A$:. MN.4 .|
000001d0 20 8c 20 34 35 30 00 ee 11 dc 00 8b 20 41 24 b2 | . 450...... A$.|
000001e0 55 24 20 a7 20 59 31 b2 59 31 ab 31 00 04 12 e6 |U$ . Y1.Y1.1....|
000001f0 00 8b 20 41 24 b2 44 24 20 a7 20 59 31 b2 59 31 |.. A$.D$ . Y1.Y1|
00000200 aa 31 00 1a 12 f0 00 8b 20 41 24 b2 4c 24 20 a7 |.1...... A$.L$ .|
00000210 20 59 32 b2 59 32 ab 31 00 30 12 fa 00 8b 20 41 | Y2.Y2.1.0.... A|
00000220 24 b2 52 24 20 a7 20 59 32 b2 59 32 aa 31 00 42 |$.R$ . Y2.Y2.1.B|
00000230 12 04 01 8b 20 59 31 b3 31 20 a7 20 59 31 b2 31 |.... Y1.1 . Y1.1|
00000240 00 54 12 0e 01 8b 20 59 31 b1 35 20 a7 20 59 31 |.T.... Y1.5 . Y1|
00000250 b2 35 00 66 12 18 01 8b 20 59 32 b3 31 20 a7 20 |.5.f.... Y2.1 . |
00000260 59 32 b2 31 00 78 12 22 01 8b 20 59 32 b1 35 20 |Y2.1.x.".. Y2.5 |
00000270 a7 20 59 32 b2 35 00 a2 12 2c 01 8b 20 59 31 b2 |. Y2.5...,.. Y1.|
00000280 33 20 af 20 59 32 b2 31 20 a7 20 8b 20 41 24 b2 |3 . Y2.1 . . A$.|
00000290 4c 24 20 a7 20 59 31 b2 31 20 d5 20 59 31 b2 34 |L$ . Y1.1 . Y1.4|
000002a0 00 ce 12 36 01 8b 20 59 31 b2 32 20 b0 20 59 31 |...6.. Y1.2 . Y1|
000002b0 b2 33 20 b0 20 59 31 b2 34 20 af 20 59 32 b2 32 |.3 . Y1.4 . Y2.2|
000002c0 20 a7 20 33 32 30 20 d5 20 33 36 30 00 e4 12 40 | . 320 . 360...@|
000002d0 01 8b 20 41 24 b2 55 24 20 a7 20 59 31 b2 59 31 |.. A$.U$ . Y1.Y1|
000002e0 aa 31 00 fa 12 4a 01 8b 20 41 24 b2 44 24 20 a7 |.1...J.. A$.D$ .|
000002f0 20 59 31 b2 59 31 ab 31 00 10 13 54 01 8b 20 41 | Y1.Y1.1...T.. A|
00000300 24 b2 4c 24 20 a7 20 59 32 b2 59 32 aa 31 00 26 |$.L$ . Y2.Y2.1.&|
00000310 13 5e 01 8b 20 41 24 b2 52 24 20 a7 20 59 32 b2 |.^.. A$.R$ . Y2.|
00000320 59 32 ab 31 00 61 13 68 01 8b 20 4c 31 b2 47 31 |Y2.1.a.h.. L1.G1|
00000330 31 20 af 20 4c 32 b2 47 31 32 20 a7 20 4c b2 4c |1 . L2.G12 . L.L|
00000340 ab 31 3a 8b 20 4c b2 30 20 a7 20 99 22 47 41 4d |.1:. L.0 . ."GAM|
00000350 45 20 4f 56 45 52 22 3a 80 20 d5 20 89 20 32 00 |E OVER":. . . 2.|
00000360 86 13 72 01 8b 20 4c 31 b2 32 20 b0 20 4c 31 b2 |..r.. L1.2 . L1.|
00000370 34 20 af 20 4c 32 b2 34 20 a7 20 33 38 30 20 d5 |4 . L2.4 . 380 .|
00000380 20 34 33 30 00 9c 13 7c 01 8b 20 41 24 b2 55 24 | 430...|.. A$.U$|
00000390 20 a7 20 59 31 b2 59 31 aa 31 00 b2 13 86 01 8b | . Y1.Y1.1......|
000003a0 20 41 24 b2 44 24 20 a7 20 59 31 b2 59 31 ab 31 | A$.D$ . Y1.Y1.1|
000003b0 00 c8 13 90 01 8b 20 41 24 b2 4c 24 20 a7 20 59 |...... A$.L$ . Y|
000003c0 32 b2 59 32 aa 31 00 de 13 9a 01 8b 20 41 24 b2 |2.Y2.1...... A$.|
000003d0 52 24 20 a7 20 59 32 b2 59 32 ab 31 00 fd 13 a4 |R$ . Y2.Y2.1....|
000003e0 01 8b 20 4c 31 b2 32 20 b0 20 4c 31 b2 33 20 b0 |.. L1.2 . L1.3 .|
000003f0 20 4c 31 b2 34 20 a7 20 33 38 30 00 17 14 ae 01 | L1.4 . 380.....|
00000400 8b 20 4c 31 b2 35 20 af 20 4c 32 b2 35 20 a7 20 |. L1.5 . L2.5 . |
00000410 93 22 4c 32 22 00 2b 14 af 01 e0 20 31 2c 31 2c |."L2".+.... 1,1,|
00000420 31 2c 22 20 20 57 20 20 22 00 3f 14 b0 01 e0 20 |1," W ".?.... |
00000430 31 2c 31 2c 32 2c 22 20 57 57 57 20 22 00 53 14 |1,1,2," WWW ".S.|
00000440 b1 01 e0 20 31 2c 31 2c 33 2c 22 20 20 20 20 20 |... 1,1,3," |
00000450 22 00 67 14 b2 01 e0 20 31 2c 31 2c 34 2c 22 20 |".g.... 1,1,4," |
00000460 57 20 57 20 22 00 7b 14 b3 01 e0 20 31 2c 31 2c |W W ".{.... 1,1,|
00000470 35 2c 22 20 57 57 57 46 22 00 8d 14 b4 01 e0 20 |5," WWWF"...... |
00000480 31 2c 59 31 2c 59 32 2c 22 59 22 00 a1 14 b5 01 |1,Y1,Y2,"Y".....|
00000490 e0 20 31 2c 47 31 31 2c 47 31 32 2c 22 47 22 00 |. 1,G11,G12,"G".|
000004a0 ab 14 b8 01 89 20 31 36 30 00 d7 14 c2 01 83 20 |..... 160...... |
000004b0 31 2c 30 2c 31 2c 30 2c 31 2c 30 2c 31 2c 30 2c |1,0,1,0,1,0,1,0,|
000004c0 31 2c 30 2c 31 2c 33 2c 33 2c 32 2c 33 2c 32 2c |1,0,1,3,3,2,3,2,|
000004d0 32 2c 30 2c 34 00 00 00 |2,0,4...|
000004d8 
.