Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape01a_d90_acorn_finished_progs.wav » Maze

Maze

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 tapes » Own_Work » drawer_tl_tape01a_d90_acorn_finished_progs.wav
Filename: Maze
Read OK:
File size: 0553 bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

There are 6 duplicate copies of this file in the archive:

File contents
   10 *OPT 1,2
   20 *OPT 3,1
   30 MODE 6
   40 DIM A(20,20)
   50 INPUT"DO YOU WANT D OR P";TY$
   60 IF TY$="D"THEN 90
   70 IF TY$="P"THEN 470
   80 GOTO 50
   90 YA=0:YD=0
  100 CLS
  110 A$=GET$
  120 IF A$="W" THEN A(YA,YD)=10
  130 IF A$="S" THEN A(YA,YD)=0
  140 IF A$="B"THEN A(YA,YD)=8
  150 IF A$="F"THEN A(YA,YD)=9
  160PRINTTAB(YA,YD);CHR$(A(YA,YD)+32);
  170 IF A$="Q"THEN END
  180 IF A$="T"THEN 320
  190 IF A$="L"THEN 380
  200 IF A$="Z"THEN YA=YA-1
  210 IF A$="X"THEN YA=YA+1
  220 IF A$="/"THEN YD=YD+1
  230 IF A$=":"THEN YD=YD-1
  240 IF YA>20 THEN YA=20
  250 IF YA<0 THEN YA=0
  260 IF YD>20 THEN YD=20
  270 IF YD<0 THEN YD=0
  280 VDU 23,1,0;0;0;0,11
  290 VDU 23,1,1;0;0;0,11
  300 PRINT TAB(YA,YD);
  310 GOTO 110
  320 CLS:PRINT
  330 F=OPENOUT"MAZE-DATA"
  340 FOR Z=0 TO 20:FOR X=0 TO 20
  350 PRINT#F,A(Z,X)
  360 NEXT X:NEXT Z
  370 CLOSE#F:GOTO 440
  380 CLS:PRINT
  390 F=OPENIN"MAZE-DATA"
  400 FOR Z=0 TO 20:FOR X=0 TO 20
  410 INPUT#F,A(Z,X)
  420 NEXT X:NEXT Z
  430 CLOSE#F
  440 CLS:FOR Z=0 TO 20:FOR X=0 TO 20
  450 PRINTTAB(Z,X);CHR$(A(Z,X)+32);
  460 NEXT,:YA=0:YD=0:GOTO 110
  470 F=OPENIN"MAZE-DATA"
  480 FOR Z=0 TO 20:FOR X=0 TO 20
  490 INPUT#F,A(Z,X)
  500 NEXT X:NEXT Z
  510 CLOSE#F
  520 CLS:FOR Z=0 TO 20:FOR X=0 TO 20
  530 PRINTTAB(Z,X);CHR$(A(Z,X)+32);
  540 NEXT
  550 FOR Z=0 TO 20:FOR X=0 TO 20
  560 IF A(Z,X)=8 THEN Q=Z:W=X
  570 IF A(Z,X)=9 THEN E=Z:W=X
  580 NEXT X:NEXT Z
  590 YA=Q:YD=W:TE=TIME
  600 A$=GET$
  610 IF A$="Z"THEN IF A(YA-1,YD)=0 OR A(YA-1,YD)=9 THEN YA=YA-1
  620 IF A$="X"THEN IF A(YA+1,YD)=0OR A(YA+1,YD)=9 THEN YA=YA+1
  630 IF A$=":"THEN IF A(YA,YD-1)=0 OR A(YA,YD-1)=9 THEN YD=YD-1
  640 IF A$="/"THEN IF A(YA,YD+1)=0 OR A(YA,YD+1)=9 THEN YD=YD+1
  650 IF A(YA,YD)=9 THEN RUN
  660 IF TIME>TE+30 THEN 590
  670 GOTO 600


 *OPT 1,2

 *OPT 3,1
 � 6
( � A(20,20)
2 �"DO YOU WANT D OR P";TY$
< � TY$="D"� �DZ@
F � TY$="P"� �dVA
P � �Tr@
Z YA=0:YD=0
d �
n	 A$=�
x � A$="W" � A(YA,YD)=10
� � A$="S" � A(YA,YD)=0
� � A$="B"� A(YA,YD)=8
� � A$="F"� A(YA,YD)=9
��YA,YD);�(A(YA,YD)+32);
� � A$="Q"� �
� � A$="T"� �D@A
� � A$="L"� �D|A
� � A$="Z"� YA=YA-1
� � A$="X"� YA=YA+1
� � A$="/"� YD=YD+1
� � A$=":"� YD=YD-1
� � YA>20 � YA=20
� � YA<0 � YA=0
 � YD>20 � YD=20
 � YD<0 � YD=0
 � 23,1,0;0;0;0,11
" � 23,1,1;0;0;0,11
, � �YA,YD);
6 � �Dn@
@ �:�
J F=�"MAZE-DATA"
T � Z=0 � 20:� X=0 � 20
^ �#F,A(Z,X)
h � X:� Z
r �#F:� �txA
| �:�
� F=�"MAZE-DATA"
� � Z=0 � 20:� X=0 � 20
� �#F,A(Z,X)
� � X:� Z
� �#F
� �:� Z=0 � 20:� X=0 � 20
� �Z,X);�(A(Z,X)+32);
� �,:YA=0:YD=0:� �Dn@
� F=�"MAZE-DATA"
� � Z=0 � 20:� X=0 � 20
� �#F,A(Z,X)
� � X:� Z
� �#F
 �:� Z=0 � 20:� X=0 � 20
 �Z,X);�(A(Z,X)+32);
 �
& � Z=0 � 20:� X=0 � 20
0 � A(Z,X)=8 � Q=Z:W=X
: � A(Z,X)=9 � E=Z:W=X
D � X:� Z
N YA=Q:YD=W:TE=�
X	 A$=�
b6 � A$="Z"� � A(YA-1,YD)=0 � A(YA-1,YD)=9 � YA=YA-1
l5 � A$="X"� � A(YA+1,YD)=0� A(YA+1,YD)=9 � YA=YA+1
v6 � A$=":"� � A(YA,YD-1)=0 � A(YA,YD-1)=9 � YD=YD-1
�6 � A$="/"� � A(YA,YD+1)=0 � A(YA,YD+1)=9 � YD=YD+1
� � A(YA,YD)=9 � �
� � �>TE+30 � �DNB
� � �DXB
�
00000000  0d 00 0a 0d 20 2a 4f 50  54 20 31 2c 32 0d 00 14  |.... *OPT 1,2...|
00000010  0d 20 2a 4f 50 54 20 33  2c 31 0d 00 1e 08 20 eb  |. *OPT 3,1.... .|
00000020  20 36 0d 00 28 0f 20 de  20 41 28 32 30 2c 32 30  | 6..(. . A(20,20|
00000030  29 0d 00 32 1e 20 e8 22  44 4f 20 59 4f 55 20 57  |)..2. ."DO YOU W|
00000040  41 4e 54 20 44 20 4f 52  20 50 22 3b 54 59 24 0d  |ANT D OR P";TY$.|
00000050  00 3c 14 20 e7 20 54 59  24 3d 22 44 22 8c 20 8d  |.<. . TY$="D". .|
00000060  44 5a 40 0d 00 46 14 20  e7 20 54 59 24 3d 22 50  |DZ@..F. . TY$="P|
00000070  22 8c 20 8d 64 56 41 0d  00 50 0b 20 e5 20 8d 54  |". .dVA..P. . .T|
00000080  72 40 0d 00 5a 0e 20 59  41 3d 30 3a 59 44 3d 30  |r@..Z. YA=0:YD=0|
00000090  0d 00 64 06 20 db 0d 00  6e 09 20 41 24 3d be 0d  |..d. ...n. A$=..|
000000a0  00 78 1b 20 e7 20 41 24  3d 22 57 22 20 8c 20 41  |.x. . A$="W" . A|
000000b0  28 59 41 2c 59 44 29 3d  31 30 0d 00 82 1a 20 e7  |(YA,YD)=10.... .|
000000c0  20 41 24 3d 22 53 22 20  8c 20 41 28 59 41 2c 59  | A$="S" . A(YA,Y|
000000d0  44 29 3d 30 0d 00 8c 19  20 e7 20 41 24 3d 22 42  |D)=0.... . A$="B|
000000e0  22 8c 20 41 28 59 41 2c  59 44 29 3d 38 0d 00 96  |". A(YA,YD)=8...|
000000f0  19 20 e7 20 41 24 3d 22  46 22 8c 20 41 28 59 41  |. . A$="F". A(YA|
00000100  2c 59 44 29 3d 39 0d 00  a0 1c f1 8a 59 41 2c 59  |,YD)=9......YA,Y|
00000110  44 29 3b bd 28 41 28 59  41 2c 59 44 29 2b 33 32  |D);.(A(YA,YD)+32|
00000120  29 3b 0d 00 aa 10 20 e7  20 41 24 3d 22 51 22 8c  |);.... . A$="Q".|
00000130  20 e0 0d 00 b4 13 20 e7  20 41 24 3d 22 54 22 8c  | ..... . A$="T".|
00000140  20 8d 44 40 41 0d 00 be  13 20 e7 20 41 24 3d 22  | .D@A.... . A$="|
00000150  4c 22 8c 20 8d 44 7c 41  0d 00 c8 16 20 e7 20 41  |L". .D|A.... . A|
00000160  24 3d 22 5a 22 8c 20 59  41 3d 59 41 2d 31 0d 00  |$="Z". YA=YA-1..|
00000170  d2 16 20 e7 20 41 24 3d  22 58 22 8c 20 59 41 3d  |.. . A$="X". YA=|
00000180  59 41 2b 31 0d 00 dc 16  20 e7 20 41 24 3d 22 2f  |YA+1.... . A$="/|
00000190  22 8c 20 59 44 3d 59 44  2b 31 0d 00 e6 16 20 e7  |". YD=YD+1.... .|
000001a0  20 41 24 3d 22 3a 22 8c  20 59 44 3d 59 44 2d 31  | A$=":". YD=YD-1|
000001b0  0d 00 f0 14 20 e7 20 59  41 3e 32 30 20 8c 20 59  |.... . YA>20 . Y|
000001c0  41 3d 32 30 0d 00 fa 12  20 e7 20 59 41 3c 30 20  |A=20.... . YA<0 |
000001d0  8c 20 59 41 3d 30 0d 01  04 14 20 e7 20 59 44 3e  |. YA=0.... . YD>|
000001e0  32 30 20 8c 20 59 44 3d  32 30 0d 01 0e 12 20 e7  |20 . YD=20.... .|
000001f0  20 59 44 3c 30 20 8c 20  59 44 3d 30 0d 01 18 16  | YD<0 . YD=0....|
00000200  20 ef 20 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 2c  | . 23,1,0;0;0;0,|
00000210  31 31 0d 01 22 16 20 ef  20 32 33 2c 31 2c 31 3b  |11..". . 23,1,1;|
00000220  30 3b 30 3b 30 2c 31 31  0d 01 2c 0f 20 f1 20 8a  |0;0;0,11..,. . .|
00000230  59 41 2c 59 44 29 3b 0d  01 36 0b 20 e5 20 8d 44  |YA,YD);..6. . .D|
00000240  6e 40 0d 01 40 08 20 db  3a f1 0d 01 4a 13 20 46  |n@..@. .:...J. F|
00000250  3d ae 22 4d 41 5a 45 2d  44 41 54 41 22 0d 01 54  |=."MAZE-DATA"..T|
00000260  1a 20 e3 20 5a 3d 30 20  b8 20 32 30 3a e3 20 58  |. . Z=0 . 20:. X|
00000270  3d 30 20 b8 20 32 30 0d  01 5e 0f 20 f1 23 46 2c  |=0 . 20..^. .#F,|
00000280  41 28 5a 2c 58 29 0d 01  68 0c 20 ed 20 58 3a ed  |A(Z,X)..h. . X:.|
00000290  20 5a 0d 01 72 0f 20 d9  23 46 3a e5 20 8d 74 78  | Z..r. .#F:. .tx|
000002a0  41 0d 01 7c 08 20 db 3a  f1 0d 01 86 13 20 46 3d  |A..|. .:..... F=|
000002b0  8e 22 4d 41 5a 45 2d 44  41 54 41 22 0d 01 90 1a  |."MAZE-DATA"....|
000002c0  20 e3 20 5a 3d 30 20 b8  20 32 30 3a e3 20 58 3d  | . Z=0 . 20:. X=|
000002d0  30 20 b8 20 32 30 0d 01  9a 0f 20 e8 23 46 2c 41  |0 . 20.... .#F,A|
000002e0  28 5a 2c 58 29 0d 01 a4  0c 20 ed 20 58 3a ed 20  |(Z,X).... . X:. |
000002f0  5a 0d 01 ae 08 20 d9 23  46 0d 01 b8 1c 20 db 3a  |Z.... .#F.... .:|
00000300  e3 20 5a 3d 30 20 b8 20  32 30 3a e3 20 58 3d 30  |. Z=0 . 20:. X=0|
00000310  20 b8 20 32 30 0d 01 c2  19 20 f1 8a 5a 2c 58 29  | . 20.... ..Z,X)|
00000320  3b bd 28 41 28 5a 2c 58  29 2b 33 32 29 3b 0d 01  |;.(A(Z,X)+32);..|
00000330  cc 18 20 ed 2c 3a 59 41  3d 30 3a 59 44 3d 30 3a  |.. .,:YA=0:YD=0:|
00000340  e5 20 8d 44 6e 40 0d 01  d6 13 20 46 3d 8e 22 4d  |. .Dn@.... F=."M|
00000350  41 5a 45 2d 44 41 54 41  22 0d 01 e0 1a 20 e3 20  |AZE-DATA".... . |
00000360  5a 3d 30 20 b8 20 32 30  3a e3 20 58 3d 30 20 b8  |Z=0 . 20:. X=0 .|
00000370  20 32 30 0d 01 ea 0f 20  e8 23 46 2c 41 28 5a 2c  | 20.... .#F,A(Z,|
00000380  58 29 0d 01 f4 0c 20 ed  20 58 3a ed 20 5a 0d 01  |X).... . X:. Z..|
00000390  fe 08 20 d9 23 46 0d 02  08 1c 20 db 3a e3 20 5a  |.. .#F.... .:. Z|
000003a0  3d 30 20 b8 20 32 30 3a  e3 20 58 3d 30 20 b8 20  |=0 . 20:. X=0 . |
000003b0  32 30 0d 02 12 19 20 f1  8a 5a 2c 58 29 3b bd 28  |20.... ..Z,X);.(|
000003c0  41 28 5a 2c 58 29 2b 33  32 29 3b 0d 02 1c 06 20  |A(Z,X)+32);.... |
000003d0  ed 0d 02 26 1a 20 e3 20  5a 3d 30 20 b8 20 32 30  |...&. . Z=0 . 20|
000003e0  3a e3 20 58 3d 30 20 b8  20 32 30 0d 02 30 19 20  |:. X=0 . 20..0. |
000003f0  e7 20 41 28 5a 2c 58 29  3d 38 20 8c 20 51 3d 5a  |. A(Z,X)=8 . Q=Z|
00000400  3a 57 3d 58 0d 02 3a 19  20 e7 20 41 28 5a 2c 58  |:W=X..:. . A(Z,X|
00000410  29 3d 39 20 8c 20 45 3d  5a 3a 57 3d 58 0d 02 44  |)=9 . E=Z:W=X..D|
00000420  0c 20 ed 20 58 3a ed 20  5a 0d 02 4e 13 20 59 41  |. . X:. Z..N. YA|
00000430  3d 51 3a 59 44 3d 57 3a  54 45 3d 91 0d 02 58 09  |=Q:YD=W:TE=...X.|
00000440  20 41 24 3d be 0d 02 62  36 20 e7 20 41 24 3d 22  | A$=...b6 . A$="|
00000450  5a 22 8c 20 e7 20 41 28  59 41 2d 31 2c 59 44 29  |Z". . A(YA-1,YD)|
00000460  3d 30 20 84 20 41 28 59  41 2d 31 2c 59 44 29 3d  |=0 . A(YA-1,YD)=|
00000470  39 20 8c 20 59 41 3d 59  41 2d 31 0d 02 6c 35 20  |9 . YA=YA-1..l5 |
00000480  e7 20 41 24 3d 22 58 22  8c 20 e7 20 41 28 59 41  |. A$="X". . A(YA|
00000490  2b 31 2c 59 44 29 3d 30  84 20 41 28 59 41 2b 31  |+1,YD)=0. A(YA+1|
000004a0  2c 59 44 29 3d 39 20 8c  20 59 41 3d 59 41 2b 31  |,YD)=9 . YA=YA+1|
000004b0  0d 02 76 36 20 e7 20 41  24 3d 22 3a 22 8c 20 e7  |..v6 . A$=":". .|
000004c0  20 41 28 59 41 2c 59 44  2d 31 29 3d 30 20 84 20  | A(YA,YD-1)=0 . |
000004d0  41 28 59 41 2c 59 44 2d  31 29 3d 39 20 8c 20 59  |A(YA,YD-1)=9 . Y|
000004e0  44 3d 59 44 2d 31 0d 02  80 36 20 e7 20 41 24 3d  |D=YD-1...6 . A$=|
000004f0  22 2f 22 8c 20 e7 20 41  28 59 41 2c 59 44 2b 31  |"/". . A(YA,YD+1|
00000500  29 3d 30 20 84 20 41 28  59 41 2c 59 44 2b 31 29  |)=0 . A(YA,YD+1)|
00000510  3d 39 20 8c 20 59 44 3d  59 44 2b 31 0d 02 8a 15  |=9 . YD=YD+1....|
00000520  20 e7 20 41 28 59 41 2c  59 44 29 3d 39 20 8c 20  | . A(YA,YD)=9 . |
00000530  f9 0d 02 94 15 20 e7 20  91 3e 54 45 2b 33 30 20  |..... . .>TE+30 |
00000540  8c 20 8d 44 4e 42 0d 02  9e 0b 20 e5 20 8d 44 58  |. .DNB.... . .DX|
00000550  42 0d ff                                          |B..|
00000553
Maze.m0
Maze.m1
Maze.m2
Maze.m4
Maze.m5