Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape08b_c15_acorn_maze.wav » TUNNEL-DES

TUNNEL-DES

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_tape08b_c15_acorn_maze.wav
Filename: TUNNEL-DES
Read OK: ✔
File size: 0404 bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

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

File contents
    5 *OPT 1,2
   10 INPUT"DO YOU WANT C OR G";T
   20 IF T=1THEN V=128:GOTO 50
   30 IF T=2THEN 170
   40 GOTO 10
   45 SD=OPENOUT CHARS
   50 INPUT"WALL";D1,D2,D3,D4,D5,D6,D7,D8,D9
   55 PROCsad
   60 INPUT"WALK R";D1,D2,D3,D4,D5,D6,D7,D8,D9
   65 PROCsad
   70 INPUT"PICK L";D1,D2,D3,D4,D5,D6,D7,D8,D9
   75 PROCsad
   80 INPUT"BOMB";D1,D2,D3,D4,D5,D6,D7,D8,D9
   85 PROCsad
   90 INPUT"STAY";D1,D2,D3,D4,D5,D6,D7,D8,D9
   95 PROCsad
  100 INPUT"BUILD L";D1,D2,D3,D4,D5,D6,D7,D8,D9
  105 PROCsad
  110 INPUT"BUILD R";D1,D2,D3,D4,D5,D6,D7,D8,D9
  115 PROCsad
  120 INPUT"WALK L";D1,D2,D3,D4,D5,D6,D7,D8,D9
  125 PROCsad
  130 INPUT"PICK R";D1,D2,D3,D4,D5,D6,D7,D8,D9
  135 PROCsad
  140 INPUT"COLOURS";C,C2,C3,C4:PRINT# SD,C,C2,C3,C4
  150 INPUT"PASSWORD";P:INPUT"NEXT PASS";P2
  160 PRINT#SD,P,P2:CLOSE SD:ONERRORGOTO10:*.
  170 MODE 0:DIM GD%(320):FOR LAD=2 TO 319
  180 GD%(LAD)=10:NEXT:GD%(1)=0:GD%(320)=2
  190 INPUTTAB(0,15);"CHANGE";C,C1,C2
  200 IF C2=13 THEN PROCpri
  210 IF C2=14THEN PROCsas
  220 GD%(C*10+C1)=C2
  230 GOTO 190
  240 DEFPROCpri
  250 P=1
  260 FOR LA=0 TO 64:FOR LA1=0 TO 4
  270 PRINTTAB(LA,LA1);~GD%(LA*10+LA1):NEXT:NEXT
  280 ENDPROC
  290 DEFPROCsas
  300 SD=OPENOUT"DATA":FOR S=1 TO 320
  310 PRINT#SD,GD%(S):NEXT
  320 ENDPROC
  330 DEFPROCsad
  340 PRINT#V,D1,D2,D3,D4,D5,D6,D7,D8,D9
  350 ENDPROC


 *OPT 1,2

 �"DO YOU WANT C OR G";T
 � T=1� V=128:� �Tr@
 � T=2� �tj@
( � �TJ@
- SD=� CHARS
2' �"WALL";D1,D2,D3,D4,D5,D6,D7,D8,D9
7	 �sad
<) �"WALK R";D1,D2,D3,D4,D5,D6,D7,D8,D9
A	 �sad
F) �"PICK L";D1,D2,D3,D4,D5,D6,D7,D8,D9
K	 �sad
P' �"BOMB";D1,D2,D3,D4,D5,D6,D7,D8,D9
U	 �sad
Z' �"STAY";D1,D2,D3,D4,D5,D6,D7,D8,D9
_	 �sad
d* �"BUILD L";D1,D2,D3,D4,D5,D6,D7,D8,D9
i	 �sad
n* �"BUILD R";D1,D2,D3,D4,D5,D6,D7,D8,D9
s	 �sad
x) �"WALK L";D1,D2,D3,D4,D5,D6,D7,D8,D9
}	 �sad
�) �"PICK R";D1,D2,D3,D4,D5,D6,D7,D8,D9
�	 �sad
�+ �"COLOURS";C,C2,C3,C4:�# SD,C,C2,C3,C4
�" �"PASSWORD";P:�"NEXT PASS";P2
� �#SD,P,P2:� SD:��TJ@:*.
�! � 0:� GD%(320):� LAD=2 � 319
�& GD%(LAD)=10:�:GD%(1)=0:GD%(320)=2
� �0,15);"CHANGE";C,C1,C2
� � C2=13 � �pri
� � C2=14� �sas
� GD%(C*10+C1)=C2
� � �t~@
�
 ��pri
� P=1
 � LA=0 � 64:� LA1=0 � 4
" �LA,LA1);~GD%(LA*10+LA1):�:�
 �
"
 ��sas
, SD=�"DATA":� S=1 � 320
6 �#SD,GD%(S):�
@ �
J
 ��sad
T# �#V,D1,D2,D3,D4,D5,D6,D7,D8,D9
^ �
�
00000000  0d 00 05 0d 20 2a 4f 50  54 20 31 2c 32 0d 00 0a  |.... *OPT 1,2...|
00000010  1c 20 e8 22 44 4f 20 59  4f 55 20 57 41 4e 54 20  |. ."DO YOU WANT |
00000020  43 20 4f 52 20 47 22 3b  54 0d 00 14 18 20 e7 20  |C OR G";T.... . |
00000030  54 3d 31 8c 20 56 3d 31  32 38 3a e5 20 8d 54 72  |T=1. V=128:. .Tr|
00000040  40 0d 00 1e 10 20 e7 20  54 3d 32 8c 20 8d 74 6a  |@.... . T=2. .tj|
00000050  40 0d 00 28 0b 20 e5 20  8d 54 4a 40 0d 00 2d 0f  |@..(. . .TJ@..-.|
00000060  20 53 44 3d ae 20 43 48  41 52 53 0d 00 32 27 20  | SD=. CHARS..2' |
00000070  e8 22 57 41 4c 4c 22 3b  44 31 2c 44 32 2c 44 33  |."WALL";D1,D2,D3|
00000080  2c 44 34 2c 44 35 2c 44  36 2c 44 37 2c 44 38 2c  |,D4,D5,D6,D7,D8,|
00000090  44 39 0d 00 37 09 20 f2  73 61 64 0d 00 3c 29 20  |D9..7. .sad..<) |
000000a0  e8 22 57 41 4c 4b 20 52  22 3b 44 31 2c 44 32 2c  |."WALK R";D1,D2,|
000000b0  44 33 2c 44 34 2c 44 35  2c 44 36 2c 44 37 2c 44  |D3,D4,D5,D6,D7,D|
000000c0  38 2c 44 39 0d 00 41 09  20 f2 73 61 64 0d 00 46  |8,D9..A. .sad..F|
000000d0  29 20 e8 22 50 49 43 4b  20 4c 22 3b 44 31 2c 44  |) ."PICK L";D1,D|
000000e0  32 2c 44 33 2c 44 34 2c  44 35 2c 44 36 2c 44 37  |2,D3,D4,D5,D6,D7|
000000f0  2c 44 38 2c 44 39 0d 00  4b 09 20 f2 73 61 64 0d  |,D8,D9..K. .sad.|
00000100  00 50 27 20 e8 22 42 4f  4d 42 22 3b 44 31 2c 44  |.P' ."BOMB";D1,D|
00000110  32 2c 44 33 2c 44 34 2c  44 35 2c 44 36 2c 44 37  |2,D3,D4,D5,D6,D7|
00000120  2c 44 38 2c 44 39 0d 00  55 09 20 f2 73 61 64 0d  |,D8,D9..U. .sad.|
00000130  00 5a 27 20 e8 22 53 54  41 59 22 3b 44 31 2c 44  |.Z' ."STAY";D1,D|
00000140  32 2c 44 33 2c 44 34 2c  44 35 2c 44 36 2c 44 37  |2,D3,D4,D5,D6,D7|
00000150  2c 44 38 2c 44 39 0d 00  5f 09 20 f2 73 61 64 0d  |,D8,D9.._. .sad.|
00000160  00 64 2a 20 e8 22 42 55  49 4c 44 20 4c 22 3b 44  |.d* ."BUILD L";D|
00000170  31 2c 44 32 2c 44 33 2c  44 34 2c 44 35 2c 44 36  |1,D2,D3,D4,D5,D6|
00000180  2c 44 37 2c 44 38 2c 44  39 0d 00 69 09 20 f2 73  |,D7,D8,D9..i. .s|
00000190  61 64 0d 00 6e 2a 20 e8  22 42 55 49 4c 44 20 52  |ad..n* ."BUILD R|
000001a0  22 3b 44 31 2c 44 32 2c  44 33 2c 44 34 2c 44 35  |";D1,D2,D3,D4,D5|
000001b0  2c 44 36 2c 44 37 2c 44  38 2c 44 39 0d 00 73 09  |,D6,D7,D8,D9..s.|
000001c0  20 f2 73 61 64 0d 00 78  29 20 e8 22 57 41 4c 4b  | .sad..x) ."WALK|
000001d0  20 4c 22 3b 44 31 2c 44  32 2c 44 33 2c 44 34 2c  | L";D1,D2,D3,D4,|
000001e0  44 35 2c 44 36 2c 44 37  2c 44 38 2c 44 39 0d 00  |D5,D6,D7,D8,D9..|
000001f0  7d 09 20 f2 73 61 64 0d  00 82 29 20 e8 22 50 49  |}. .sad...) ."PI|
00000200  43 4b 20 52 22 3b 44 31  2c 44 32 2c 44 33 2c 44  |CK R";D1,D2,D3,D|
00000210  34 2c 44 35 2c 44 36 2c  44 37 2c 44 38 2c 44 39  |4,D5,D6,D7,D8,D9|
00000220  0d 00 87 09 20 f2 73 61  64 0d 00 8c 2b 20 e8 22  |.... .sad...+ ."|
00000230  43 4f 4c 4f 55 52 53 22  3b 43 2c 43 32 2c 43 33  |COLOURS";C,C2,C3|
00000240  2c 43 34 3a f1 23 20 53  44 2c 43 2c 43 32 2c 43  |,C4:.# SD,C,C2,C|
00000250  33 2c 43 34 0d 00 96 22  20 e8 22 50 41 53 53 57  |3,C4..." ."PASSW|
00000260  4f 52 44 22 3b 50 3a e8  22 4e 45 58 54 20 50 41  |ORD";P:."NEXT PA|
00000270  53 53 22 3b 50 32 0d 00  a0 1e 20 f1 23 53 44 2c  |SS";P2.... .#SD,|
00000280  50 2c 50 32 3a d9 20 53  44 3a ee 85 e5 8d 54 4a  |P,P2:. SD:....TJ|
00000290  40 3a 2a 2e 0d 00 aa 21  20 eb 20 30 3a de 20 47  |@:*....! . 0:. G|
000002a0  44 25 28 33 32 30 29 3a  e3 20 4c 41 44 3d 32 20  |D%(320):. LAD=2 |
000002b0  b8 20 33 31 39 0d 00 b4  26 20 47 44 25 28 4c 41  |. 319...& GD%(LA|
000002c0  44 29 3d 31 30 3a ed 3a  47 44 25 28 31 29 3d 30  |D)=10:.:GD%(1)=0|
000002d0  3a 47 44 25 28 33 32 30  29 3d 32 0d 00 be 1d 20  |:GD%(320)=2.... |
000002e0  e8 8a 30 2c 31 35 29 3b  22 43 48 41 4e 47 45 22  |..0,15);"CHANGE"|
000002f0  3b 43 2c 43 31 2c 43 32  0d 00 c8 13 20 e7 20 43  |;C,C1,C2.... . C|
00000300  32 3d 31 33 20 8c 20 f2  70 72 69 0d 00 d2 12 20  |2=13 . .pri.... |
00000310  e7 20 43 32 3d 31 34 8c  20 f2 73 61 73 0d 00 dc  |. C2=14. .sas...|
00000320  14 20 47 44 25 28 43 2a  31 30 2b 43 31 29 3d 43  |. GD%(C*10+C1)=C|
00000330  32 0d 00 e6 0b 20 e5 20  8d 74 7e 40 0d 00 f0 0a  |2.... . .t~@....|
00000340  20 dd f2 70 72 69 0d 00  fa 08 20 50 3d 31 0d 01  | ..pri.... P=1..|
00000350  04 1c 20 e3 20 4c 41 3d  30 20 b8 20 36 34 3a e3  |.. . LA=0 . 64:.|
00000360  20 4c 41 31 3d 30 20 b8  20 34 0d 01 0e 22 20 f1  | LA1=0 . 4..." .|
00000370  8a 4c 41 2c 4c 41 31 29  3b 7e 47 44 25 28 4c 41  |.LA,LA1);~GD%(LA|
00000380  2a 31 30 2b 4c 41 31 29  3a ed 3a ed 0d 01 18 06  |*10+LA1):.:.....|
00000390  20 e1 0d 01 22 0a 20 dd  f2 73 61 73 0d 01 2c 1b  | ...". ..sas..,.|
000003a0  20 53 44 3d ae 22 44 41  54 41 22 3a e3 20 53 3d  | SD=."DATA":. S=|
000003b0  31 20 b8 20 33 32 30 0d  01 36 12 20 f1 23 53 44  |1 . 320..6. .#SD|
000003c0  2c 47 44 25 28 53 29 3a  ed 0d 01 40 06 20 e1 0d  |,GD%(S):...@. ..|
000003d0  01 4a 0a 20 dd f2 73 61  64 0d 01 54 23 20 f1 23  |.J. ..sad..T# .#|
000003e0  56 2c 44 31 2c 44 32 2c  44 33 2c 44 34 2c 44 35  |V,D1,D2,D3,D4,D5|
000003f0  2c 44 36 2c 44 37 2c 44  38 2c 44 39 0d 01 5e 06  |,D6,D7,D8,D9..^.|
00000400  20 e1 0d ff                                       | ...|
00000404
TUNNEL-DES.m0
TUNNEL-DES.m1
TUNNEL-DES.m2
TUNNEL-DES.m4
TUNNEL-DES.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .