Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_15.ADF » Copier
Copier
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_User_Group » EUG_15.ADF |
| Filename: | Copier |
| Read OK: | ✔ |
| File size: | 01C5 bytes |
| Load address: | FFFFFB00 |
| Exec address: | FFFF8023 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » headfirst » headfirst_5_25_discs_HeadFirst-PD-Disk-005_D-HD005.ssd » Copier
- AEW website » eug » eug_5_25_discs_Eug-15_D-EUG15.dsd » Copier
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_15.ADF » Copier
File contents
10REM HeadFirst File Copier
20
30*FX200 3
40MODE7
50VDU23;8202;0;0;0;
60REPEAT:INPUT''"Enter set to copy (A-F):" set$
70CLS
80UNTIL INSTR("ABCDEF",set$) AND LENset$=1
90PRINT''"Insert disc and press any key..."
100A=GET
110A%=0:Y%=0:X%=&70:A%=USR(&FFDA)AND&FF
120IF A%=8 THEN *MOUNT
130f%=OPENIN("SET"+set$)
140length%=EXT#f%:CLOSE#f%
150OSCLI"Load SET"+set$+" 3000"
160*TAPE
170OSCLI"Save SET"+set$+" 3000 +"+STR$~length%
180PRINT''"File transferred successfully..."
190IF A%=8 THEN OSCLI"ADFS" ELSE *DISC
200*/!Boot
210END
� HeadFirst File Copier
*FX200 3
(�7
2�23;8202;0;0;0;
<(�:�''"Enter set to copy (A-F):" set$
F�
P � �"ABCDEF",set$) � �set$=1
Z)�''"Insert disc and press any key..."
dA=�
n$A%=0:Y%=0:X%=&70:A%=�(&FFDA)�&FF
x� A%=8 � *MOUNT
�f%=�("SET"+set$)
�length%=�#f%:�#f%
� �"Load SET"+set$+" 3000"
� *TAPE
�(�"Save SET"+set$+" 3000 +"+�~length%
�)�''"File transferred successfully..."
� � A%=8 � �"ADFS" � *DISC
� */!Boot
��
� 00000000 0d 00 0a 1b f4 20 48 65 61 64 46 69 72 73 74 20 |..... HeadFirst |
00000010 46 69 6c 65 20 43 6f 70 69 65 72 0d 00 14 05 20 |File Copier.... |
00000020 0d 00 1e 0c 2a 46 58 32 30 30 20 33 0d 00 28 06 |....*FX200 3..(.|
00000030 eb 37 0d 00 32 13 ef 32 33 3b 38 32 30 32 3b 30 |.7..2..23;8202;0|
00000040 3b 30 3b 30 3b 0d 00 3c 28 f5 3a e8 27 27 22 45 |;0;0;..<(.:.''"E|
00000050 6e 74 65 72 20 73 65 74 20 74 6f 20 63 6f 70 79 |nter set to copy|
00000060 20 28 41 2d 46 29 3a 22 20 73 65 74 24 0d 00 46 | (A-F):" set$..F|
00000070 05 db 0d 00 50 1f fd 20 a7 22 41 42 43 44 45 46 |....P.. ."ABCDEF|
00000080 22 2c 73 65 74 24 29 20 80 20 a9 73 65 74 24 3d |",set$) . .set$=|
00000090 31 0d 00 5a 29 f1 27 27 22 49 6e 73 65 72 74 20 |1..Z).''"Insert |
000000a0 64 69 73 63 20 61 6e 64 20 70 72 65 73 73 20 61 |disc and press a|
000000b0 6e 79 20 6b 65 79 2e 2e 2e 22 0d 00 64 07 41 3d |ny key..."..d.A=|
000000c0 a5 0d 00 6e 24 41 25 3d 30 3a 59 25 3d 30 3a 58 |...n$A%=0:Y%=0:X|
000000d0 25 3d 26 37 30 3a 41 25 3d ba 28 26 46 46 44 41 |%=&70:A%=.(&FFDA|
000000e0 29 80 26 46 46 0d 00 78 13 e7 20 41 25 3d 38 20 |).&FF..x.. A%=8 |
000000f0 8c 20 2a 4d 4f 55 4e 54 0d 00 82 14 66 25 3d 8e |. *MOUNT....f%=.|
00000100 28 22 53 45 54 22 2b 73 65 74 24 29 0d 00 8c 15 |("SET"+set$)....|
00000110 6c 65 6e 67 74 68 25 3d a2 23 66 25 3a d9 23 66 |length%=.#f%:.#f|
00000120 25 0d 00 96 1c ff 22 4c 6f 61 64 20 53 45 54 22 |%....."Load SET"|
00000130 2b 73 65 74 24 2b 22 20 33 30 30 30 22 0d 00 a0 |+set$+" 3000"...|
00000140 09 2a 54 41 50 45 0d 00 aa 28 ff 22 53 61 76 65 |.*TAPE...(."Save|
00000150 20 53 45 54 22 2b 73 65 74 24 2b 22 20 33 30 30 | SET"+set$+" 300|
00000160 30 20 2b 22 2b c3 7e 6c 65 6e 67 74 68 25 0d 00 |0 +"+.~length%..|
00000170 b4 29 f1 27 27 22 46 69 6c 65 20 74 72 61 6e 73 |.).''"File trans|
00000180 66 65 72 72 65 64 20 73 75 63 63 65 73 73 66 75 |ferred successfu|
00000190 6c 6c 79 2e 2e 2e 22 0d 00 be 1c e7 20 41 25 3d |lly..."..... A%=|
000001a0 38 20 8c 20 ff 22 41 44 46 53 22 20 8b 20 2a 44 |8 . ."ADFS" . *D|
000001b0 49 53 43 0d 00 c8 0b 2a 2f 21 42 6f 6f 74 0d 00 |ISC....*/!Boot..|
000001c0 d2 05 e0 0d ff |.....|
000001c5 
.