�>Copydisc
!� I%=C% � R%<>0 � R%=0:� �D@A
� � � �DrA
(� R% � �6:� �df@
2'�3:*K.1  *BAS.|M OLD|M VDU7|M RUN|M
<R%=-1:C%=0:I%=0
F?�"COPYDISC - reproduces multiple copies of a master disc"''
P:�"Put the master disc in Drive 0 now & press any key"'
Z� � �:*MOUNT 0
d(d%=�("DUMMY"):�#d%,0:�#d%:*DEL.DUMMY
nL�0,5)"The master disc is not protected. Switch the tab and press a key"
x� � �:� �Dd@
�=�0,5)�79�0,5)"The new discs will be written in Drive 1"'
�5�"Do you want to format the discs first (Y/N) ?";
�*FX15,1
�F%=(�(�) � &DF):�(F%)
�� F%=78 � F%=0:� �dH@
�� F%<>89 � �tL@
�	F%=-1
�'�'"How many copies do you want ",C%
��28,0,24,79,11
�:
��:I%+=1
�8�"Put disc No. "�(I%)" into Drive 1 & press any key"
�	� � �

+� F% �"About to format ...":*FORMAT 1 D

(�'"About to copy the whole disc ..."

*BACKUP 0 1

"
*VERIFY 1

,�21

6*FX138,0,129

7
� �D^A

@�6,12:�'�(I%);

J-� C%=1 �" disc copied" � �" discs copied"

T	� � �

^�

h:

r� �=100 � �tB@

|� �<>17 �:�" at line "�:�7

�
� �DTA
�

00000000  0d 00 0a 0e f4 3e 43 6f  70 79 64 69 73 63 0d 00  |.....>Copydisc..|
00000010  14 21 e7 20 49 25 3d 43  25 20 80 20 52 25 3c 3e  |.!. I%=C% . R%<>|
00000020  30 20 8c 20 52 25 3d 30  3a e5 20 8d 44 40 41 0d  |0 . R%=0:. .D@A.|
00000030  00 1e 0e ee 20 85 20 e5  20 8d 44 72 41 0d 00 28  |.... . . .DrA..(|
00000040  14 e7 20 52 25 20 8c 20  ef 36 3a e5 20 8d 64 66  |.. R% . .6:. .df|
00000050  40 0d 00 32 27 eb 33 3a  2a 4b 2e 31 20 20 2a 42  |@..2'.3:*K.1  *B|
00000060  41 53 2e 7c 4d 20 4f 4c  44 7c 4d 20 56 44 55 37  |AS.|M OLD|M VDU7|
00000070  7c 4d 20 52 55 4e 7c 4d  0d 00 3c 13 52 25 3d 2d  ||M RUN|M..<.R%=-|
00000080  31 3a 43 25 3d 30 3a 49  25 3d 30 0d 00 46 3f f1  |1:C%=0:I%=0..F?.|
00000090  22 43 4f 50 59 44 49 53  43 20 2d 20 72 65 70 72  |"COPYDISC - repr|
000000a0  6f 64 75 63 65 73 20 6d  75 6c 74 69 70 6c 65 20  |oduces multiple |
000000b0  63 6f 70 69 65 73 20 6f  66 20 61 20 6d 61 73 74  |copies of a mast|
000000c0  65 72 20 64 69 73 63 22  27 27 0d 00 50 3a f1 22  |er disc"''..P:."|
000000d0  50 75 74 20 74 68 65 20  6d 61 73 74 65 72 20 64  |Put the master d|
000000e0  69 73 63 20 69 6e 20 44  72 69 76 65 20 30 20 6e  |isc in Drive 0 n|
000000f0  6f 77 20 26 20 70 72 65  73 73 20 61 6e 79 20 6b  |ow & press any k|
00000100  65 79 22 27 0d 00 5a 12  f5 20 fd 20 a5 3a 2a 4d  |ey"'..Z.. . .:*M|
00000110  4f 55 4e 54 20 30 0d 00  64 28 64 25 3d ae 28 22  |OUNT 0..d(d%=.("|
00000120  44 55 4d 4d 59 22 29 3a  d5 23 64 25 2c 30 3a d9  |DUMMY"):.#d%,0:.|
00000130  23 64 25 3a 2a 44 45 4c  2e 44 55 4d 4d 59 0d 00  |#d%:*DEL.DUMMY..|
00000140  6e 4c f1 8a 30 2c 35 29  22 54 68 65 20 6d 61 73  |nL..0,5)"The mas|
00000150  74 65 72 20 64 69 73 63  20 69 73 20 6e 6f 74 20  |ter disc is not |
00000160  70 72 6f 74 65 63 74 65  64 2e 20 53 77 69 74 63  |protected. Switc|
00000170  68 20 74 68 65 20 74 61  62 20 61 6e 64 20 70 72  |h the tab and pr|
00000180  65 73 73 20 61 20 6b 65  79 22 0d 00 78 10 f5 20  |ess a key"..x.. |
00000190  fd 20 a5 3a e5 20 8d 44  64 40 0d 00 82 3d f1 8a  |. .:. .Dd@...=..|
000001a0  30 2c 35 29 89 37 39 8a  30 2c 35 29 22 54 68 65  |0,5).79.0,5)"The|
000001b0  20 6e 65 77 20 64 69 73  63 73 20 77 69 6c 6c 20  | new discs will |
000001c0  62 65 20 77 72 69 74 74  65 6e 20 69 6e 20 44 72  |be written in Dr|
000001d0  69 76 65 20 31 22 27 0d  00 8c 35 f1 22 44 6f 20  |ive 1"'...5."Do |
000001e0  79 6f 75 20 77 61 6e 74  20 74 6f 20 66 6f 72 6d  |you want to form|
000001f0  61 74 20 74 68 65 20 64  69 73 63 73 20 66 69 72  |at the discs fir|
00000200  73 74 20 28 59 2f 4e 29  20 3f 22 3b 0d 00 96 0b  |st (Y/N) ?";....|
00000210  2a 46 58 31 35 2c 31 0d  00 a0 1a 46 25 3d 28 97  |*FX15,1....F%=(.|
00000220  28 be 29 20 80 20 26 44  46 29 3a f1 bd 28 46 25  |(.) . &DF):..(F%|
00000230  29 0d 00 aa 19 e7 20 46  25 3d 37 38 20 8c 20 46  |)..... F%=78 . F|
00000240  25 3d 30 3a e5 20 8d 64  48 40 0d 00 b4 13 e7 20  |%=0:. .dH@..... |
00000250  46 25 3c 3e 38 39 20 8c  20 8d 74 4c 40 0d 00 be  |F%<>89 . .tL@...|
00000260  09 46 25 3d 2d 31 0d 00  c8 27 e8 27 22 48 6f 77  |.F%=-1...'.'"How|
00000270  20 6d 61 6e 79 20 63 6f  70 69 65 73 20 64 6f 20  | many copies do |
00000280  79 6f 75 20 77 61 6e 74  20 22 2c 43 25 0d 00 d2  |you want ",C%...|
00000290  12 ef 32 38 2c 30 2c 32  34 2c 37 39 2c 31 31 0d  |..28,0,24,79,11.|
000002a0  00 dc 05 3a 0d 00 e6 0b  db 3a 49 25 2b 3d 31 0d  |...:.....:I%+=1.|
000002b0  00 f0 38 f1 22 50 75 74  20 64 69 73 63 20 4e 6f  |..8."Put disc No|
000002c0  2e 20 22 c3 28 49 25 29  22 20 69 6e 74 6f 20 44  |. ".(I%)" into D|
000002d0  72 69 76 65 20 31 20 26  20 70 72 65 73 73 20 61  |rive 1 & press a|
000002e0  6e 79 20 6b 65 79 22 0d  00 fa 09 f5 20 fd 20 a5  |ny key"..... . .|
000002f0  0d 01 04 2b e7 20 46 25  20 f1 22 41 62 6f 75 74  |...+. F% ."About|
00000300  20 74 6f 20 66 6f 72 6d  61 74 20 2e 2e 2e 22 3a  | to format ...":|
00000310  2a 46 4f 52 4d 41 54 20  31 20 44 0d 01 0e 28 f1  |*FORMAT 1 D...(.|
00000320  27 22 41 62 6f 75 74 20  74 6f 20 63 6f 70 79 20  |'"About to copy |
00000330  74 68 65 20 77 68 6f 6c  65 20 64 69 73 63 20 2e  |the whole disc .|
00000340  2e 2e 22 0d 01 18 0f 2a  42 41 43 4b 55 50 20 30  |.."....*BACKUP 0|
00000350  20 31 0d 01 22 0d 2a 56  45 52 49 46 59 20 31 0d  | 1..".*VERIFY 1.|
00000360  01 2c 07 ef 32 31 0d 01  36 10 2a 46 58 31 33 38  |.,..21..6.*FX138|
00000370  2c 30 2c 31 32 39 0d 01  37 0a e5 20 8d 44 5e 41  |,0,129..7.. .D^A|
00000380  0d 01 40 12 ef 36 2c 31  32 3a f1 27 c3 28 49 25  |..@..6,12:.'.(I%|
00000390  29 3b 0d 01 4a 2d e7 20  43 25 3d 31 20 f1 22 20  |);..J-. C%=1 ." |
000003a0  64 69 73 63 20 63 6f 70  69 65 64 22 20 8b 20 f1  |disc copied" . .|
000003b0  22 20 64 69 73 63 73 20  63 6f 70 69 65 64 22 0d  |" discs copied".|
000003c0  01 54 09 ee 20 85 20 87  0d 01 5e 05 e0 0d 01 68  |.T.. . ...^....h|
000003d0  05 3a 0d 01 72 12 e7 20  9e 3d 31 30 30 20 8c 20  |.:..r.. .=100 . |
000003e0  8d 74 42 40 0d 01 7c 1e  e7 20 9f 3c 3e 31 37 20  |.tB@..|.. .<>17 |
000003f0  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 9e 3a  |.:." at line ".:|
00000400  ef 37 0d 01 86 0a e5 20  8d 44 54 41 0d ff        |.7..... .DTA..|
0000040e