Home » Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Games/Lemmings/TUNNEL-DES
dcfprogs/Games/Lemmings/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 hard disk » misc » misc2 |
| Filename: | dcfprogs/Games/Lemmings/TUNNEL-DES |
| Read OK: | ✔ |
| File size: | 0404 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 6 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Games/Lemmings/TUNNEL-DES
- Personal collection » Acorn ADFS disks » Electron » Programs.ADF » Games/Lemmings/TUNNEL-DES
- Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » Games/Lemmings/TUNNEL-DES
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Games/Lemmings/TUNNEL-DES
- Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Games/Lemmings/TUNNEL-DES
- Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Games/Lemmings/TUNNEL-DES
- Personal collection » Acorn tapes » Own_Work » drawer_tl_tape08b_c15_acorn_maze.wav » TUNNEL-DES
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
.