Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_55.ADF » U/CPYMENU

U/CPYMENU

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_55.ADF
Filename: U/CPYMENU
Read OK: ✔
File size: 01F5 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

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

File contents
   10MODE6:VDU23;8202;0;0;0;19,7,0;0;
   20PRINTTAB(5,3)"Headfirst PD Copying Utilities"
   30PRINTTAB(5,4)"=============================="
   40READ no%
   50DIM file$(no%)
   60PRINTTAB(0,7)
   70FORI=1TOno%
   80  PRINT"      ";I;") ";
   90  READ S$
  100  PRINTS$;'
  110  READ file$(I)
  120NEXTI
  130PRINTTAB(11,20)"Select With 1 to 5";
  140VDU19,7,7;0;:*FX 21
  150J=GET
  160J=J-48
  170IFJ<1 OR J>no% THEN VDU7:GOTO150
  180CHAIN file$(J)
  190:
  200DATA 5
  210DATA ADFS To ADFS Copy,U.AACOPY
  220DATA ADFS To DFS Copy,U.ADCOPY
  230DATA DFS To ADFS Copy,U.DACOPY
  240DATA DFS To DFS Copy,U.DDCOPY
  250DATA Supercopy,U.SUPER


�6:�23;8202;0;0;0;19,7,0;0;
*�5,3)"Headfirst PD Copying Utilities"
*�5,4)"=============================="
(	� no%
2� file$(no%)
<
�0,7)
F�I=1�no%
P  �"      ";I;") ";
Z
  � S$
d  �S$;'
n  � file$(I)
x�I
�!�11,20)"Select With 1 to 5";
��19,7,7;0;:*FX 21
�J=�
�
J=J-48
��J<1 � J>no% � �7:�tV@
�� file$(J)
�:
�� 5
� � ADFS To ADFS Copy,U.AACOPY
�� ADFS To DFS Copy,U.ADCOPY
�� DFS To ADFS Copy,U.DACOPY
�� DFS To DFS Copy,U.DDCOPY
�� Supercopy,U.SUPER
�
00000000  0d 00 0a 1f eb 36 3a ef  32 33 3b 38 32 30 32 3b  |.....6:.23;8202;|
00000010  30 3b 30 3b 30 3b 31 39  2c 37 2c 30 3b 30 3b 0d  |0;0;0;19,7,0;0;.|
00000020  00 14 2a f1 8a 35 2c 33  29 22 48 65 61 64 66 69  |..*..5,3)"Headfi|
00000030  72 73 74 20 50 44 20 43  6f 70 79 69 6e 67 20 55  |rst PD Copying U|
00000040  74 69 6c 69 74 69 65 73  22 0d 00 1e 2a f1 8a 35  |tilities"...*..5|
00000050  2c 34 29 22 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |,4)"============|
00000060  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000070  3d 3d 22 0d 00 28 09 f3  20 6e 6f 25 0d 00 32 10  |=="..(.. no%..2.|
00000080  de 20 66 69 6c 65 24 28  6e 6f 25 29 0d 00 3c 0a  |. file$(no%)..<.|
00000090  f1 8a 30 2c 37 29 0d 00  46 0c e3 49 3d 31 b8 6e  |..0,7)..F..I=1.n|
000000a0  6f 25 0d 00 50 17 20 20  f1 22 20 20 20 20 20 20  |o%..P.  ."      |
000000b0  22 3b 49 3b 22 29 20 22  3b 0d 00 5a 0a 20 20 f3  |";I;") ";..Z.  .|
000000c0  20 53 24 0d 00 64 0b 20  20 f1 53 24 3b 27 0d 00  | S$..d.  .S$;'..|
000000d0  6e 10 20 20 f3 20 66 69  6c 65 24 28 49 29 0d 00  |n.  . file$(I)..|
000000e0  78 06 ed 49 0d 00 82 21  f1 8a 31 31 2c 32 30 29  |x..I...!..11,20)|
000000f0  22 53 65 6c 65 63 74 20  57 69 74 68 20 31 20 74  |"Select With 1 t|
00000100  6f 20 35 22 3b 0d 00 8c  15 ef 31 39 2c 37 2c 37  |o 5";.....19,7,7|
00000110  3b 30 3b 3a 2a 46 58 20  32 31 0d 00 96 07 4a 3d  |;0;:*FX 21....J=|
00000120  a5 0d 00 a0 0a 4a 3d 4a  2d 34 38 0d 00 aa 1b e7  |.....J=J-48.....|
00000130  4a 3c 31 20 84 20 4a 3e  6e 6f 25 20 8c 20 ef 37  |J<1 . J>no% . .7|
00000140  3a e5 8d 74 56 40 0d 00  b4 0e d7 20 66 69 6c 65  |:..tV@..... file|
00000150  24 28 4a 29 0d 00 be 05  3a 0d 00 c8 07 dc 20 35  |$(J)....:..... 5|
00000160  0d 00 d2 20 dc 20 41 44  46 53 20 54 6f 20 41 44  |... . ADFS To AD|
00000170  46 53 20 43 6f 70 79 2c  55 2e 41 41 43 4f 50 59  |FS Copy,U.AACOPY|
00000180  0d 00 dc 1f dc 20 41 44  46 53 20 54 6f 20 44 46  |..... ADFS To DF|
00000190  53 20 43 6f 70 79 2c 55  2e 41 44 43 4f 50 59 0d  |S Copy,U.ADCOPY.|
000001a0  00 e6 1f dc 20 44 46 53  20 54 6f 20 41 44 46 53  |.... DFS To ADFS|
000001b0  20 43 6f 70 79 2c 55 2e  44 41 43 4f 50 59 0d 00  | Copy,U.DACOPY..|
000001c0  f0 1e dc 20 44 46 53 20  54 6f 20 44 46 53 20 43  |... DFS To DFS C|
000001d0  6f 70 79 2c 55 2e 44 44  43 4f 50 59 0d 00 fa 17  |opy,U.DDCOPY....|
000001e0  dc 20 53 75 70 65 72 63  6f 70 79 2c 55 2e 53 55  |. Supercopy,U.SU|
000001f0  50 45 52 0d ff                                    |PER..|
000001f5
U/CPYMENU.m0
U/CPYMENU.m1
U/CPYMENU.m2
U/CPYMENU.m4
U/CPYMENU.m5

© Dominic Ford 2021–2024.

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