COPY ALL

00000000: 01 04 2D 04 64 00 99 22  93 20 44 49 53 4B 2E 43  |..-.d..". DISK.C|
00000010: 4F 50 59 2E 41 4C 4C 20  20 20 20 20 20 4A 49 4D  |OPY.ALL      JIM|
00000020: 20 42 55 54 54 45 52 46  49 45 4C 44 22 00 4B 04  | BUTTERFIELD".K.|
00000030: 6E 00 86 20 4C 25 28 32  33 32 29 2C 4E 24 28 32  |n.. L%(232),N$(2|
00000040: 33 32 29 2C 54 25 28 32  33 32 29 00 64 04 78 00  |32),T%(232).d.x.|
00000050: 85 22 46 52 4F 4D 20 55  4E 49 54 20 20 38 9D 9D  |."FROM UNIT  8..|
00000060: 9D 22 3B 46 00 6D 04 82  00 8D 36 37 30 00 77 04  |.";F.m....670.w.|
00000070: 8C 00 46 24 B2 44 24 00  8E 04 96 00 85 22 54 4F  |..F$.D$......"TO|
00000080: 20 55 4E 49 54 20 20 39  9D 9D 9D 22 3B 54 00 97  | UNIT  9...";T..|
00000090: 04 A0 00 8D 36 37 30 00  A1 04 AA 00 54 24 B2 44  |....670.....T$.D|
000000A0: 24 00 B3 04 B4 00 8B 46  B2 54 20 AF 46 24 B2 54  |$......F.T .F$.T|
000000B0: 24 A7 8A 00 BC 04 BE 00  8D 37 33 30 00 DC 04 C8  |$........730....|
000000C0: 00 A0 31 3A A0 31 35 3A  9F 20 31 35 2C 46 2C 31  |..1:.15:. 15,F,1|
000000D0: 35 3A 98 31 35 2C 22 49  22 AA 46 24 00 F2 04 D2  |5:.15,"I".F$....|
000000E0: 00 8D 37 30 30 3A 8B 20  45 20 A7 20 90 3A 89 32  |..700:. E . .:.2|
000000F0: 30 30 00 1C 05 DC 00 99  22 48 4F 4C 44 20 44 4F  |00......"HOLD DO|
00000100: 57 4E 20 27 59 27 20 4F  52 20 27 4E 27 20 4B 45  |WN 'Y' OR 'N' KE|
00000110: 59 20 54 4F 20 53 45 4C  45 43 54 22 00 3C 05 E6  |Y TO SELECT".<..|
00000120: 00 99 22 50 52 4F 47 52  41 4D 53 20 54 4F 20 42  |.."PROGRAMS TO B|
00000130: 45 20 43 4F 50 49 45 44  2E 2E 2E 22 00 4F 05 F0  |E COPIED...".O..|
00000140: 00 9F 20 31 2C 46 2C 30  2C 22 24 22 AA 46 24 00  |.. 1,F,0,"$".F$.|
00000150: 62 05 FA 00 8D 37 30 30  3A 8B 45 A7 90 3A 89 32  |b....700:.E..:.2|
00000160: 30 30 00 7F 05 04 01 4E  B2 30 3A 52 B2 32 35 35  |00.....N.0:R.255|
00000170: 3A 5A B2 38 39 3A 8D 38  33 30 3A 89 32 38 30 00  |:Z.89:.830:.280.|
00000180: 88 05 0E 01 8D 38 35 30  00 97 05 18 01 4C 25 B2  |.....850.....L%.|
00000190: 58 AA 59 AC 32 35 36 00  AD 05 22 01 A1 23 31 2C  |X.Y.256..."..#1,|
000001A0: 58 24 3A 8B 58 24 B2 22  22 89 34 36 30 00 C0 05  |X$:.X$."".460...|
000001B0: 2C 01 8B 58 24 B3 B1 C7  28 33 34 29 89 32 39 30  |,..X$...(34).290|
000001C0: 00 CA 05 36 01 4E 24 B2  22 22 00 E3 05 40 01 A1  |...6.N$.""...@..|
000001D0: 23 31 2C 58 24 3A 8B 58  24 B2 C7 28 33 34 29 89  |#1,X$:.X$..(34).|
000001E0: 33 34 30 00 F5 05 4A 01  4E 24 B2 4E 24 AA 58 24  |340...J.N$.N$.X$|
000001F0: 3A 89 33 32 30 00 0B 06  54 01 A1 23 31 2C 58 24  |:.320...T..#1,X$|
00000200: 3A 8B 58 24 B2 22 22 89  32 37 30 00 27 06 5E 01  |:.X$."".270.'.^.|
00000210: 58 B2 C6 28 58 24 29 3A  8B 28 58 AF 31 32 37 29  |X..(X$):.(X.127)|
00000220: B2 33 32 89 33 34 30 00  3E 06 68 01 A1 23 31 2C  |.32.340.>.h..#1,|
00000230: 58 24 3A 8B 58 24 B3 B1  22 22 89 33 36 30 00 53  |X$:.X$.."".360.S|
00000240: 06 72 01 8B 58 B3 B1 38  30 AF 58 B3 B1 38 33 89  |.r..X..80.X..83.|
00000250: 32 37 30 00 65 06 7C 01  99 4E 24 3B A3 32 30 29  |270.e.|..N$;.20)|
00000260: 3B C7 28 58 29 00 74 06  86 01 50 B2 C2 28 31 35  |;.(X).t...P..(15|
00000270: 31 29 AF 52 00 8D 06 90  01 A1 5A 24 3A 8B 5A 24  |1).R......Z$:.Z$|
00000280: B2 22 22 AF 50 B3 32 35  35 89 34 33 30 00 B3 06  |."".P.255.430...|
00000290: 9A 01 8B 5A 24 B2 22 59  22 B0 5A 24 B2 22 4E 22  |...Z$."Y".Z$."N"|
000002A0: A7 5A B2 C6 28 5A 24 29  3A 52 B2 32 35 35 3A 89  |.Z..(Z$):R.255:.|
000002B0: 34 33 30 00 CA 06 9F 01  8B 5A 24 B2 C7 28 31 33  |430......Z$..(13|
000002C0: 29 A7 52 B2 30 3A 89 34  33 30 00 D3 06 A4 01 89  |).R.0:.430......|
000002D0: 34 30 30 00 FD 06 AE 01  8B 5A B3 38 30 A7 99 22  |400......Z.80.."|
000002E0: 91 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000002F0: 20 20 20 20 20 20 91 22  3A 89 32 37 30 00 21 07  |      .":.270.!.|
00000300: B8 01 4E B2 4E AA 31 3A  4C 25 28 4E 29 B2 4C 25  |..N.N.1:L%(N).L%|
00000310: 3A 4E 24 28 4E 29 B2 4E  24 3A 54 25 28 4E 29 B2  |:N$(N).N$:T%(N).|
00000320: 58 00 2A 07 C2 01 89 32  37 30 00 43 07 CC 01 A0  |X.*....270.C....|
00000330: 31 3A A0 31 35 3A 99 22  20 2A 20 2A 20 2A 20 2A  |1:.15:." * * * *|
00000340: 20 2A 22 00 4E 07 D6 01  81 4A B2 31 A4 4E 00 6E  | *".N....J.1.N.n|
00000350: 07 E0 01 4C 25 B2 4C 25  28 4A 29 3A 54 25 B2 54  |...L%.L%(J):T%.T|
00000360: 25 28 4A 29 3A 8B 4C B1  4C 25 89 35 33 30 00 8A  |%(J):.L.L%.530..|
00000370: 07 EA 01 99 22 2A 2A 2A  20 4F 55 54 50 55 54 20  |...."*** OUTPUT |
00000380: 44 49 53 4B 20 46 55 4C  4C 22 00 AA 07 F4 01 85  |DISK FULL"......|
00000390: 22 44 4F 20 59 4F 55 20  48 41 56 45 20 41 20 4E  |"DO YOU HAVE A N|
000003A0: 45 57 20 4F 4E 45 22 3B  5A 24 00 BB 07 FE 01 8B  |EW ONE";Z$......|
000003B0: C6 28 5A 24 29 B3 B1 38  39 A7 80 00 C9 07 08 02  |.(Z$)..89.......|
000003C0: 8D 37 33 30 3A 89 34 38  30 00 DF 07 12 02 9F 31  |.730:.480......1|
000003D0: 34 2C 46 2C 31 35 3A 9F  31 35 2C 54 2C 31 35 00  |4,F,15:.15,T,15.|
000003E0: 0D 08 1C 02 99 4E 24 28  4A 29 3B C8 28 22 20 20  |.....N$(J);.("  |
000003F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 2C  |              ",|
00000400: 31 37 AB C3 28 4E 24 28  4A 29 29 29 3B 00 2F 08  |17..(N$(J)));./.|
00000410: 26 02 9F 33 2C 46 2C 33  2C 46 24 AA 22 3A 22 AA  |&..3,F,3,F$.":".|
00000420: 4E 24 28 4A 29 AA 22 2C  22 AA C7 28 54 25 29 00  |N$(J).","..(T%).|
00000430: 5B 08 30 02 84 31 34 2C  45 2C 45 24 2C 45 31 2C  |[.0..14,E,E$,E1,|
00000440: 45 32 3A 8D 37 31 30 3A  8B 45 A7 99 22 2A 2A 20  |E2:.710:.E.."** |
00000450: 22 3B 45 24 3B 45 3A 89  36 32 30 00 89 08 3A 02  |";E$;E:.620...:.|
00000460: 9F 34 2C 54 2C 34 2C 54  24 AA 22 3A 22 AA 4E 24  |.4,T,4,T$.":".N$|
00000470: 28 4A 29 AA 22 2C 22 AA  C7 28 54 25 29 AA 22 2C  |(J).","..(T%).",|
00000480: 57 22 3A 4C B2 4C AB 4C  25 00 A7 08 44 02 8D 37  |W":L.L.L%...D..7|
00000490: 30 30 3A 8B 45 A7 99 22  2A 2A 2A 20 22 3B 45 24  |00:.E.."*** ";E$|
000004A0: 3B 45 3A 89 36 32 30 00  BA 08 4E 02 9E 32 38 36  |;E:.620...N..286|
000004B0: 32 3A 4E 24 28 4A 29 B2  22 22 00 D9 08 58 02 8D  |2:N$(J).""...X..|
000004C0: 37 30 30 3A 8B 45 A7 99  22 2A 2A 2A 2A 20 22 3B  |700:.E.."**** ";|
000004D0: 45 24 3B 45 3A 89 36 32  30 00 E2 08 62 02 99 22  |E$;E:.620...b.."|
000004E0: 91 22 00 F4 08 6C 02 A0  34 3A A0 33 3A A0 31 35  |."...l..4:.3:.15|
000004F0: 3A A0 31 34 00 FB 08 76  02 82 4A 00 25 09 80 02  |:.14...v..J.%...|
00000500: 58 B2 B8 28 30 29 3A 85  22 41 4E 4F 54 48 45 52  |X..(0):."ANOTHER|
00000510: 20 49 4E 50 55 54 20 44  49 53 4B 20 52 45 41 44  | INPUT DISK READ|
00000520: 59 22 3B 5A 24 00 37 09  8A 02 8B C6 28 5A 24 29  |Y";Z$.7.....(Z$)|
00000530: B2 38 39 89 32 30 30 00  3D 09 94 02 80 00 52 09  |.89.200.=.....R.|
00000540: 9E 02 85 22 44 52 49 56  45 20 20 30 9D 9D 9D 22  |..."DRIVE  0..."|
00000550: 3B 44 00 62 09 A8 02 8B  44 AC 44 B3 B1 44 89 36  |;D.b....D.D..D.6|
00000560: 37 30 00 73 09 B2 02 44  24 B2 C7 28 44 AA 34 38  |70.s...D$..(D.48|
00000570: 29 3A 8E 00 86 09 BC 02  84 31 35 2C 45 2C 45 24  |):.......15,E,E$|
00000580: 2C 45 31 2C 45 32 00 A6  09 C6 02 8B 45 B2 30 A7  |,E1,E2......E.0.|
00000590: 45 B2 28 53 54 20 AF 20  31 39 31 29 3A 45 24 B2  |E.(ST . 191):E$.|
000005A0: 22 2A 53 54 2A 22 00 AC  09 D0 02 8E 00 DB 09 DA  |"*ST*"..........|
000005B0: 02 9F 31 35 2C 54 2C 31  35 3A 85 22 57 41 4E 54  |..15,T,15:."WANT|
000005C0: 20 54 4F 20 4E 45 57 20  54 48 45 20 4F 55 54 50  | TO NEW THE OUTP|
000005D0: 55 54 20 44 49 53 4B 22  3B 5A 24 00 EE 09 E4 02  |UT DISK";Z$.....|
000005E0: 8B C6 28 5A 24 29 B3 B1  38 39 89 37 38 30 00 08  |..(Z$)..89.780..|
000005F0: 0A EE 02 85 22 44 49 53  4B 20 4E 41 4D 45 2C 49  |...."DISK NAME,I|
00000600: 44 22 3B 58 24 2C 59 24  00 25 0A F8 02 98 31 35  |D";X$,Y$.%....15|
00000610: 2C 22 4E 22 AA 54 24 AA  22 3A 22 AA 58 24 AA 22  |,"N".T$.":".X$."|
00000620: 2C 22 AA 59 24 00 38 0A  02 03 8D 37 30 30 3A 8B  |,".Y$.8....700:.|
00000630: 45 A7 90 3A 89 37 33 30  00 5E 0A 0C 03 98 31 35  |E..:.730.^....15|
00000640: 2C 22 49 22 AA 54 24 3A  9F 31 2C 54 2C 30 2C 22  |,"I".T$:.1,T,0,"|
00000650: 24 22 AA 54 24 AA 22 3A  21 23 24 25 26 22 00 71  |$".T$.":!#$%&".q|
00000660: 0A 16 03 8D 37 30 30 3A  8B 45 A7 90 3A 89 37 33  |....700:.E..:.73|
00000670: 30 00 7A 0A 20 03 8D 38  33 30 00 9F 0A 2A 03 4C  |0.z. ..830...*.L|
00000680: B2 58 AA 59 AC 32 35 36  3A 99 22 28 22 3B 4C 3B  |.X.Y.256:."(";L;|
00000690: 22 42 4C 4F 43 4B 53 20  46 52 45 45 20 29 22 00  |"BLOCKS FREE )".|
000006A0: AC 0A 34 03 A0 31 3A A0  31 35 3A 8E 00 C6 0A 3E  |..4..1:.15:....>|
000006B0: 03 A1 23 31 2C 58 24 2C  58 24 2C 58 24 2C 58 24  |..#1,X$,X$,X$,X$|
000006C0: 2C 58 24 2C 58 24 00 DD  0A 48 03 A1 23 31 2C 58  |,X$,X$...H..#1,X|
000006D0: 24 3A 8B 58 24 B3 B1 22  22 89 38 34 30 00 EE 0A  |$:.X$.."".840...|
000006E0: 52 03 A1 23 31 2C 58 24  2C 58 24 2C 58 24 00 05  |R..#1,X$,X$,X$..|
000006F0: 0B 5C 03 58 B2 C3 28 58  24 29 3A 8B 58 A7 58 B2  |.\.X..(X$):.X.X.|
00000700: C6 28 58 24 29 00 23 0B  66 03 A1 23 31 2C 58 24  |.(X$).#.f..#1,X$|
00000710: 3A 59 B2 C3 28 58 24 29  3A 8B 59 A7 59 B2 C6 28  |:Y..(X$):.Y.Y..(|
00000720: 58 24 29 00 29 0B 70 03  8E 00 00 00 00 00 00 20  |X$).).p........ |
00000730: CC FF A2 03 20 C6 FF A0  05 88 30 2F 20 E4 FF 8D  |.... .....0/ ...|
00000740: 40 02 A5 96 8D 41 02 29  03 D0 EE 20 CC FF A2 04  |@....A.)... ....|
00000750: 20 C9 FF A0 05 88 30 13  AD 40 02 20 D2 FF A5 96  | .....0..@. ....|
00000760: 29 03 D0 F1 AD 41 02 F0  C6 85 96 4C CC FF        |)....A.....L..  |

..-.D..". DISK.COPY.ALL      JIM BUTTERF
IELD".K.N.. L%(232),N$(232),T%(232).D.X.
."FROM UNIT  8...";F.M....670.W...F$.D$.
....."TO UNIT  9...";T... ..670.....T$.D
$......F.T .F$.T$........730...H. 1: 15:
. 15,F,15:.15,"I".F$...R..700:. E . .:.2
00......"HOLD DOWN 'Y' OR 'N' KEY TO SEL
ECT".<...."PROGRAMS TO BE COPIED...".O..
.. 1,F,0,"$".F$.B....700:.E..:.200....N
.0:R.255:Z.89:.830:.280......850.....L%.
X.Y.256..."..#1,X$:.X$."".460...,..X$..G
(34).290.J.6.N$.""...@..#1,X$:.X$.G(34).
340...J.N$.N$.X$:.320...T..#1,X$:.X$."".
270.'.^.X.F(X$):.(X.127).32.340.>.H..#1,
X$:.X$.."".360.S.R..X..80.X..83.270.E.|.
.N$;.20);G(X).T...P.B(151).R......Z$:.Z$
."".P.255.430......Z$."Y".Z$."N".Z.F(Z$)
:R.255:.430.J....Z$.G(13).R.0:.430.S....
400......Z.80..".                     ."
:.270.!...N.N.1:L%(N).L%:N$(N).N$:T%(N).
X.*.B..270.C.L. 1: 15:." * * * * *".N.V.
.J.1.N.N...L%.L%(J):T%.T%(J):.L.L%.530..
...."*** OUTPUT DISK FULL"......"DO YOU 
HAVE A NEW ONE";Z$......F(Z$)..89...I...
.730:.480......14,F,15:.15,T,15......N$(
J);H("                ",17.C(N$(J)));./.
&..3,F,3,F$.":".N$(J).",".G(T%).[.0..14,
E,E$,E1,E2:.710:.E.."** ";E$;E:.620...:.
.4,T,4,T$.":".N$(J).",".G(T%).",W":L.L.L
%...D..700:.E.."*** ";E$;E:.620...N..286
2:N$(J)."".Y.X..700:.E.."**** ";E$;E:.62
0...B.."."...L. 4: 3: 15: 14...V..J.%...
X..(0):."ANOTHER INPUT DISK READY";Z$.7.
...F(Z$).89.200.=.....R...."DRIVE  0..."
;D.B....D.D..D.670.S...D$.G(D.48):......
.15,E,E$,E1,E2...F..E.0.E.(ST . 191):E$.
"*ST*"...P.....Z..15,T,15:."WANT TO NEW 
THE OUTPUT DISK";Z$......F(Z$)..89.780..
...."DISK NAME,ID";X$,Y$.%....15,"N".T$.
":".X$.",".Y$.8....700:.E..:.730.^....15
,"I".T$:.1,T,0,"$".T$.":!#$%&".Q....700:
.E..:.730.Z. ..830...*.L.X.Y.256:."(";L;
"BLOCKS FREE )"...4. 1: 15:..F.>..#1,X$,
X$,X$,X$,X$,X$...H..#1,X$:.X$.."".840...
R..#1,X$,X$,X$...\.X.C(X$):.X.X.F(X$).#.
F..#1,X$:Y.C(X$):.Y.Y.F(X$).).P........ 
L... F. ..0/ ...@....A.).P. L... I. ..0.
.@. R...).P..A..F..LL.

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL