Home » Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TAPE1/A/UNLOCK
TAPE1/A/UNLOCK
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 ADFS disks » Electron » Finished_programs.ADF |
| Filename: | TAPE1/A/UNLOCK |
| Read OK: | ✔ |
| File size: | 01B2 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There are 8 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Memlist_B.ADF » Library/UNLOCK
- Personal collection » Acorn ADFS disks » Electron » Memlist_C.ADF » Library/UNLOCK
- Personal collection » Acorn ADFS disks » Electron » Memlist_final.ADF » Library/UNLOCK
- Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » TAPE1/A/UNLOCK
- Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TAPE1/A/UNLOCK
- Personal collection » Acorn ADFS disks » Electron » Memlist.ADF » Library/UNLOCK
- Personal collection » Acorn hard disk » misc » memlist » Library/UNLOCK
- Personal collection » Acorn hard disk » zipped_disks » elk03 » finished/TAPE1/A/UNLOCK
- Personal collection » Acorn tapes » Commercial_Releases » box02_tape02a_c15_acorn_eu_utils.wav » UNLOCK
File contents
10 MODE 6 20 P%=&AF0:[OPT0:LDA&3CA:AND#254:STA&3CA:RTS:]:?&220=&F0:?&221=&0A 30 INPUT''"Filename";F$ 40 INPUT''"Load to address: &"A$ 50 *FX 14,4 60 OSCLI"LOAD "+F$+" "+A$ 70 PRINT'"OK"''"Load memory editor? (Y/N)" 80 key$=GET$:IF key$="N" THEN END 90 IF key$<>"Y" THEN GOTO 80 100 PRINT''"Small or Large? (S/L)" 110 key$=GET$:IF key$="S" THEN PRINT"Searching for ""MEDITSMALL""":*RUN MEDITSMALL 120 IF key$<>"L" THEN GOTO 110 130 PRINT"Searching for ""MEDITLARGE""":*RUN MEDITLARGE
� 6 B P%=&AF0:[OPT0:LDA&3CA:�#254:STA&3CA:RTS:]:?&220=&F0:?&221=&0A �''"Filename";F$ ( �''"Load to address: &"A$ 2 *FX 14,4 < �"LOAD "+F$+" "+A$ F( �'"OK"''"Load memory editor? (Y/N)" P key$=�:� key$="N" � � Z � key$<>"Y" � � �DP@ d �''"Small or Large? (S/L)" nH key$=�:� key$="S" � �"Searching for ""MEDITSMALL""":*RUN MEDITSMALL x � key$<>"L" � � �Dn@ �4 �"Searching for ""MEDITLARGE""":*RUN MEDITLARGE �
00000000 0d 00 0a 08 20 eb 20 36 0d 00 14 42 20 50 25 3d |.... . 6...B P%=| 00000010 26 41 46 30 3a 5b 4f 50 54 30 3a 4c 44 41 26 33 |&AF0:[OPT0:LDA&3| 00000020 43 41 3a 80 23 32 35 34 3a 53 54 41 26 33 43 41 |CA:.#254:STA&3CA| 00000030 3a 52 54 53 3a 5d 3a 3f 26 32 32 30 3d 26 46 30 |:RTS:]:?&220=&F0| 00000040 3a 3f 26 32 32 31 3d 26 30 41 0d 00 1e 15 20 e8 |:?&221=&0A.... .| 00000050 27 27 22 46 69 6c 65 6e 61 6d 65 22 3b 46 24 0d |''"Filename";F$.| 00000060 00 28 1e 20 e8 27 27 22 4c 6f 61 64 20 74 6f 20 |.(. .''"Load to | 00000070 61 64 64 72 65 73 73 3a 20 26 22 41 24 0d 00 32 |address: &"A$..2| 00000080 0d 20 2a 46 58 20 31 34 2c 34 0d 00 3c 17 20 ff |. *FX 14,4..<. .| 00000090 22 4c 4f 41 44 20 22 2b 46 24 2b 22 20 22 2b 41 |"LOAD "+F$+" "+A| 000000a0 24 0d 00 46 28 20 f1 27 22 4f 4b 22 27 27 22 4c |$..F( .'"OK"''"L| 000000b0 6f 61 64 20 6d 65 6d 6f 72 79 20 65 64 69 74 6f |oad memory edito| 000000c0 72 3f 20 28 59 2f 4e 29 22 0d 00 50 1a 20 6b 65 |r? (Y/N)"..P. ke| 000000d0 79 24 3d be 3a e7 20 6b 65 79 24 3d 22 4e 22 20 |y$=.:. key$="N" | 000000e0 8c 20 e0 0d 00 5a 19 20 e7 20 6b 65 79 24 3c 3e |. ...Z. . key$<>| 000000f0 22 59 22 20 8c 20 e5 20 8d 44 50 40 0d 00 64 1f |"Y" . . .DP@..d.| 00000100 20 f1 27 27 22 53 6d 61 6c 6c 20 6f 72 20 4c 61 | .''"Small or La| 00000110 72 67 65 3f 20 28 53 2f 4c 29 22 0d 00 6e 48 20 |rge? (S/L)"..nH | 00000120 6b 65 79 24 3d be 3a e7 20 6b 65 79 24 3d 22 53 |key$=.:. key$="S| 00000130 22 20 8c 20 f1 22 53 65 61 72 63 68 69 6e 67 20 |" . ."Searching | 00000140 66 6f 72 20 22 22 4d 45 44 49 54 53 4d 41 4c 4c |for ""MEDITSMALL| 00000150 22 22 22 3a 2a 52 55 4e 20 4d 45 44 49 54 53 4d |""":*RUN MEDITSM| 00000160 41 4c 4c 0d 00 78 19 20 e7 20 6b 65 79 24 3c 3e |ALL..x. . key$<>| 00000170 22 4c 22 20 8c 20 e5 20 8d 44 6e 40 0d 00 82 34 |"L" . . .Dn@...4| 00000180 20 f1 22 53 65 61 72 63 68 69 6e 67 20 66 6f 72 | ."Searching for| 00000190 20 22 22 4d 45 44 49 54 4c 41 52 47 45 22 22 22 | ""MEDITLARGE"""| 000001a0 3a 2a 52 55 4e 20 4d 45 44 49 54 4c 41 52 47 45 |:*RUN MEDITLARGE| 000001b0 0d ff |..| 000001b2
.