Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape08b_c15_acorn_maze.wav » LEM1

LEM1

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: LEM1
Read OK: ✔
File size: 03C1 bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    3 PLAY=0
   10 DIM G%(320):DIM C%(9):SH=0:OUT=0
   20 LD=OPENIN"CHARS":FOR D=1 TO 9
   30 INPUT#LD,D1,D2D3,D4,D5,D6,D7,D8,D9,D10
   40 VDU 23,D1,D2,D3,D4,D5,D6,D7,D8,D9
   50 C%(D)=10:NEXT:FOR D=0 TO 3:INPUT#LD,D1
   60 VDU 19,D,D1,0;0;0;:NEXT:INPUT#LD,PASS1$,PASS2$
   70 CLOSE LD,INPUT"PASSWORD";PASS
   80 IF PASS<>THEN PRINT"WRONG!":GOTO 20
   90 VDU 28,0,4,19,0:LD=OPENIN"DATA"
   95 FOR LD1=1 TO 320:INPUT#LD,G(LD1):NEXT:CLOSE LD
  100 FOR P=0 TO 9:PRINT:NEXT:CLS
  110 FOR P=0 TO 18:FOR P1=0 TO 4:PRINTTAB(P,P1);
  120 G%(P+SH*10+P1)=0 THEN PRINT"O"
  130 IF G%(P+SH*10+P1)=1 THEN COLOUR C%(1):PRINTCHR$(128)
  140 IF G%(P+SH*10+P1)=2 THEN PRINT"@
  150 IF G%(P+SH*10+P1)=3 THEN PRINT"<"
  160 IF G%(P+SH*10+P1)=4 THEN COLOUR C%(2):PRINTCHR$(129)
  170 IF G%(P+SH*10+P1)=5 THEN COLOUR C%(3):PRINTCHR$(130)
  180 IF G%(P+SH*10+P1)=6 THEN COLOUR C%(4):PRINTCHR$(131)
  190 IF G%(P+SH*10+P1)=7 THEN COLOUR C%(5):PRINTCHR$(132)
  200 IF G%(P+SH*10+P1)=8 THEN COLOUR C%(6):PRINTCHR$(133)
  210 IF G%(P+SH*10+P1)=9 THEN COLOUR C%(7):PRINTCHR$(134)
  220 IF G%(P+SH*10+P1)=10 THEN PRINT" "
  230 IF G%(P+SH*10+P1)=11 THEN COLOUR C%(9):PRINTCHR$(135)
  240 NEXT P1:NEXT P:FOR LAD=1 TO 320
  250 IF G%LAD)=4 THEN IF G%(LAD+5=10 THEN G%(LAD+5)=4:G%(LAD)=10:NEXT
  260 IF G%(LAD)=4 THEN GD(LAD)=11

 PLAY=0

! � G%(320):� C%(9):SH=0:OUT=0
 LD=�"CHARS":� D=1 � 9
' �#LD,D1,D2D3,D4,D5,D6,D7,D8,D9,D10
($ � 23,D1,D2,D3,D4,D5,D6,D7,D8,D9
2! C%(D)=10:�:� D=0 � 3:�#LD,D1
<* � 19,D,D1,0;0;0;:�:�#LD,PASS1$,PASS2$
F � LD,�"PASSWORD";PASS
P � PASS<>� �"WRONG!":� �TT@
Z � 28,0,4,19,0:LD=�"DATA"
_% � LD1=1 � 320:�#LD,G(LD1):�:� LD
d � P=0 � 9:�:�:�
n# � P=0 � 18:� P1=0 � 4:�P,P1);
x G%(P+SH*10+P1)=0 � �"O"
�) � G%(P+SH*10+P1)=1 � � C%(1):�(128)
� � G%(P+SH*10+P1)=2 � �"@
� � G%(P+SH*10+P1)=3 � �"<"
�) � G%(P+SH*10+P1)=4 � � C%(2):�(129)
�) � G%(P+SH*10+P1)=5 � � C%(3):�(130)
�) � G%(P+SH*10+P1)=6 � � C%(4):�(131)
�) � G%(P+SH*10+P1)=7 � � C%(5):�(132)
�) � G%(P+SH*10+P1)=8 � � C%(6):�(133)
�) � G%(P+SH*10+P1)=9 � � C%(7):�(134)
� � G%(P+SH*10+P1)=10 � �" "
�* � G%(P+SH*10+P1)=11 � � C%(9):�(135)
� � P1:� P:� LAD=1 � 320
�: � G%LAD)=4 � � G%(LAD+5=10 � G%(LAD+5)=4:G%(LAD)=10:�
 � G%(LAD)=4 � GD(LAD)=11
�
00000000  0d 00 03 0b 20 50 4c 41  59 3d 30 0d 00 0a 21 20  |.... PLAY=0...! |
00000010  de 20 47 25 28 33 32 30  29 3a de 20 43 25 28 39  |. G%(320):. C%(9|
00000020  29 3a 53 48 3d 30 3a 4f  55 54 3d 30 0d 00 14 1a  |):SH=0:OUT=0....|
00000030  20 4c 44 3d 8e 22 43 48  41 52 53 22 3a e3 20 44  | LD=."CHARS":. D|
00000040  3d 31 20 b8 20 39 0d 00  1e 27 20 e8 23 4c 44 2c  |=1 . 9...' .#LD,|
00000050  44 31 2c 44 32 44 33 2c  44 34 2c 44 35 2c 44 36  |D1,D2D3,D4,D5,D6|
00000060  2c 44 37 2c 44 38 2c 44  39 2c 44 31 30 0d 00 28  |,D7,D8,D9,D10..(|
00000070  24 20 ef 20 32 33 2c 44  31 2c 44 32 2c 44 33 2c  |$ . 23,D1,D2,D3,|
00000080  44 34 2c 44 35 2c 44 36  2c 44 37 2c 44 38 2c 44  |D4,D5,D6,D7,D8,D|
00000090  39 0d 00 32 21 20 43 25  28 44 29 3d 31 30 3a ed  |9..2! C%(D)=10:.|
000000a0  3a e3 20 44 3d 30 20 b8  20 33 3a e8 23 4c 44 2c  |:. D=0 . 3:.#LD,|
000000b0  44 31 0d 00 3c 2a 20 ef  20 31 39 2c 44 2c 44 31  |D1..<* . 19,D,D1|
000000c0  2c 30 3b 30 3b 30 3b 3a  ed 3a e8 23 4c 44 2c 50  |,0;0;0;:.:.#LD,P|
000000d0  41 53 53 31 24 2c 50 41  53 53 32 24 0d 00 46 1a  |ASS1$,PASS2$..F.|
000000e0  20 d9 20 4c 44 2c e8 22  50 41 53 53 57 4f 52 44  | . LD,."PASSWORD|
000000f0  22 3b 50 41 53 53 0d 00  50 1f 20 e7 20 50 41 53  |";PASS..P. . PAS|
00000100  53 3c 3e 8c 20 f1 22 57  52 4f 4e 47 21 22 3a e5  |S<>. ."WRONG!":.|
00000110  20 8d 54 54 40 0d 00 5a  1d 20 ef 20 32 38 2c 30  | .TT@..Z. . 28,0|
00000120  2c 34 2c 31 39 2c 30 3a  4c 44 3d 8e 22 44 41 54  |,4,19,0:LD=."DAT|
00000130  41 22 0d 00 5f 25 20 e3  20 4c 44 31 3d 31 20 b8  |A".._% . LD1=1 .|
00000140  20 33 32 30 3a e8 23 4c  44 2c 47 28 4c 44 31 29  | 320:.#LD,G(LD1)|
00000150  3a ed 3a d9 20 4c 44 0d  00 64 14 20 e3 20 50 3d  |:.:. LD..d. . P=|
00000160  30 20 b8 20 39 3a f1 3a  ed 3a db 0d 00 6e 23 20  |0 . 9:.:.:...n# |
00000170  e3 20 50 3d 30 20 b8 20  31 38 3a e3 20 50 31 3d  |. P=0 . 18:. P1=|
00000180  30 20 b8 20 34 3a f1 8a  50 2c 50 31 29 3b 0d 00  |0 . 4:..P,P1);..|
00000190  78 1c 20 47 25 28 50 2b  53 48 2a 31 30 2b 50 31  |x. G%(P+SH*10+P1|
000001a0  29 3d 30 20 8c 20 f1 22  4f 22 0d 00 82 29 20 e7  |)=0 . ."O"...) .|
000001b0  20 47 25 28 50 2b 53 48  2a 31 30 2b 50 31 29 3d  | G%(P+SH*10+P1)=|
000001c0  31 20 8c 20 fb 20 43 25  28 31 29 3a f1 bd 28 31  |1 . . C%(1):..(1|
000001d0  32 38 29 0d 00 8c 1d 20  e7 20 47 25 28 50 2b 53  |28).... . G%(P+S|
000001e0  48 2a 31 30 2b 50 31 29  3d 32 20 8c 20 f1 22 40  |H*10+P1)=2 . ."@|
000001f0  0d 00 96 1e 20 e7 20 47  25 28 50 2b 53 48 2a 31  |.... . G%(P+SH*1|
00000200  30 2b 50 31 29 3d 33 20  8c 20 f1 22 3c 22 0d 00  |0+P1)=3 . ."<"..|
00000210  a0 29 20 e7 20 47 25 28  50 2b 53 48 2a 31 30 2b  |.) . G%(P+SH*10+|
00000220  50 31 29 3d 34 20 8c 20  fb 20 43 25 28 32 29 3a  |P1)=4 . . C%(2):|
00000230  f1 bd 28 31 32 39 29 0d  00 aa 29 20 e7 20 47 25  |..(129)...) . G%|
00000240  28 50 2b 53 48 2a 31 30  2b 50 31 29 3d 35 20 8c  |(P+SH*10+P1)=5 .|
00000250  20 fb 20 43 25 28 33 29  3a f1 bd 28 31 33 30 29  | . C%(3):..(130)|
00000260  0d 00 b4 29 20 e7 20 47  25 28 50 2b 53 48 2a 31  |...) . G%(P+SH*1|
00000270  30 2b 50 31 29 3d 36 20  8c 20 fb 20 43 25 28 34  |0+P1)=6 . . C%(4|
00000280  29 3a f1 bd 28 31 33 31  29 0d 00 be 29 20 e7 20  |):..(131)...) . |
00000290  47 25 28 50 2b 53 48 2a  31 30 2b 50 31 29 3d 37  |G%(P+SH*10+P1)=7|
000002a0  20 8c 20 fb 20 43 25 28  35 29 3a f1 bd 28 31 33  | . . C%(5):..(13|
000002b0  32 29 0d 00 c8 29 20 e7  20 47 25 28 50 2b 53 48  |2)...) . G%(P+SH|
000002c0  2a 31 30 2b 50 31 29 3d  38 20 8c 20 fb 20 43 25  |*10+P1)=8 . . C%|
000002d0  28 36 29 3a f1 bd 28 31  33 33 29 0d 00 d2 29 20  |(6):..(133)...) |
000002e0  e7 20 47 25 28 50 2b 53  48 2a 31 30 2b 50 31 29  |. G%(P+SH*10+P1)|
000002f0  3d 39 20 8c 20 fb 20 43  25 28 37 29 3a f1 bd 28  |=9 . . C%(7):..(|
00000300  31 33 34 29 0d 00 dc 1f  20 e7 20 47 25 28 50 2b  |134).... . G%(P+|
00000310  53 48 2a 31 30 2b 50 31  29 3d 31 30 20 8c 20 f1  |SH*10+P1)=10 . .|
00000320  22 20 22 0d 00 e6 2a 20  e7 20 47 25 28 50 2b 53  |" "...* . G%(P+S|
00000330  48 2a 31 30 2b 50 31 29  3d 31 31 20 8c 20 fb 20  |H*10+P1)=11 . . |
00000340  43 25 28 39 29 3a f1 bd  28 31 33 35 29 0d 00 f0  |C%(9):..(135)...|
00000350  1b 20 ed 20 50 31 3a ed  20 50 3a e3 20 4c 41 44  |. . P1:. P:. LAD|
00000360  3d 31 20 b8 20 33 32 30  0d 00 fa 3a 20 e7 20 47  |=1 . 320...: . G|
00000370  25 4c 41 44 29 3d 34 20  8c 20 e7 20 47 25 28 4c  |%LAD)=4 . . G%(L|
00000380  41 44 2b 35 3d 31 30 20  8c 20 47 25 28 4c 41 44  |AD+5=10 . G%(LAD|
00000390  2b 35 29 3d 34 3a 47 25  28 4c 41 44 29 3d 31 30  |+5)=4:G%(LAD)=10|
000003a0  3a ed 0d 01 04 1d 20 e7  20 47 25 28 4c 41 44 29  |:..... . G%(LAD)|
000003b0  3d 34 20 8c 20 47 44 28  4c 41 44 29 3d 31 31 0d  |=4 . GD(LAD)=11.|
000003c0  ff                                                |.|
000003c1
LEM1.m0
LEM1.m1
LEM1.m2
LEM1.m4
LEM1.m5

© Dominic Ford 2021–2024.

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