COPY/64

00000000: 01 08 16 08 64 00 99 22  93 20 44 49 53 4B 2E 43  |....d..". DISK.C|
00000010: 4F 50 59 2E 36 34 00 43  08 6E 00 86 20 4C 32 28  |OPY.64.C.n.. L2(|
00000020: 32 33 32 29 2C 4C 31 25  28 32 33 32 29 2C 4E 24  |232),L1%(232),N$|
00000030: 28 32 33 32 29 2C 54 25  28 32 33 32 29 2C 54 24  |(232),T%(232),T$|
00000040: 28 34 29 00 5D 08 78 00  83 20 58 58 58 2C 53 45  |(4).].x.. XXX,SE|
00000050: 51 2C 50 52 47 2C 55 53  52 2C 52 45 4C 00 72 08  |Q,PRG,USR,REL.r.|
00000060: 82 00 81 4A B2 30 A4 34  3A 87 54 24 28 4A 29 3A  |...J.0.4:.T$(J):|
00000070: 82 4A 00 8B 08 8C 00 85  22 46 52 4F 4D 20 55 4E  |.J......"FROM UN|
00000080: 49 54 20 20 38 9D 9D 9D  22 3B 46 00 94 08 96 00  |IT  8...";F.....|
00000090: 8D 38 30 30 00 9E 08 A0  00 46 24 B2 44 24 00 B5  |.800.....F$.D$..|
000000A0: 08 AA 00 85 22 54 4F 20  55 4E 49 54 20 20 39 9D  |...."TO UNIT  9.|
000000B0: 9D 9D 22 3B 54 00 BE 08  B4 00 8D 38 30 30 00 C8  |..";T......800..|
000000C0: 08 BE 00 54 24 B2 44 24  00 DA 08 C8 00 8B 46 B2  |...T$.D$......F.|
000000D0: 54 20 AF 46 24 B2 54 24  A7 8A 00 E3 08 D2 00 8D  |T .F$.T$........|
000000E0: 38 36 30 00 03 09 DC 00  A0 31 3A A0 31 35 3A 9F  |860......1:.15:.|
000000F0: 20 31 35 2C 46 2C 31 35  3A 98 31 35 2C 22 49 22  | 15,F,15:.15,"I"|
00000100: AA 46 24 00 19 09 E6 00  8D 38 33 30 3A 8B 20 45  |.F$......830:. E|
00000110: 20 A7 20 90 3A 89 32 32  30 00 31 09 F0 00 85 22  | . .:.220.1...."|
00000120: 50 41 54 54 45 52 4E 20  20 2A 9D 9D 9D 22 3B 50  |PATTERN  *...";P|
00000130: 24 00 53 09 FA 00 81 4A  B2 31 A4 C3 28 50 24 29  |$.S....J.1..(P$)|
00000140: 3A 8B CA 28 50 24 2C 4A  2C 31 29 B3 B1 22 2A 22  |:..(P$,J,1).."*"|
00000150: A7 82 4A 00 70 09 04 01  50 31 B2 4A AB 31 3A 8B  |..J.p...P1.J.1:.|
00000160: 50 31 B1 30 A7 50 24 B2  C8 28 50 24 2C 50 31 29  |P1.0.P$..(P$,P1)|
00000170: 00 9A 09 0E 01 99 22 48  4F 4C 44 20 44 4F 57 4E  |......"HOLD DOWN|
00000180: 20 27 59 27 20 4F 52 20  27 4E 27 20 4B 45 59 20  | 'Y' OR 'N' KEY |
00000190: 54 4F 20 53 45 4C 45 43  54 22 00 BA 09 18 01 99  |TO SELECT"......|
000001A0: 22 50 52 4F 47 52 41 4D  53 20 54 4F 20 42 45 20  |"PROGRAMS TO BE |
000001B0: 43 4F 50 49 45 44 2E 2E  2E 22 00 CD 09 22 01 9F  |COPIED..."..."..|
000001C0: 20 31 2C 46 2C 33 2C 22  24 22 AA 46 24 00 E0 09  | 1,F,3,"$".F$...|
000001D0: 2C 01 8D 38 33 30 3A 8B  45 A7 90 3A 89 32 32 30  |,..830:.E..:.220|
000001E0: 00 F7 09 36 01 A1 23 31  2C 41 24 3A 41 B2 C6 28  |...6..#1,A$:A..(|
000001F0: 41 24 AA 22 20 22 29 00  11 0A 40 01 8B 41 B2 31  |A$." ")...@..A.1|
00000200: B0 41 B2 36 35 A7 4C 31  B2 32 35 33 3A 89 33 35  |.A.65.L1.253:.35|
00000210: 30 00 27 0A 4A 01 8B 41  B2 36 37 A7 4C 31 B2 37  |0.'.J..A.67.L1.7|
00000220: 36 31 3A 89 33 35 30 00  39 0A 54 01 A0 31 3A 99  |61:.350.9.T..1:.|
00000230: 22 3F 3F 3F 3F 3F 22 3A  90 00 4F 0A 5E 01 81 4A  |"?????":..O.^..J|
00000240: B2 31 A4 4C 31 3A A1 23  31 2C 58 24 3A 82 4A 00  |.1.L1:.#1,X$:.J.|
00000250: 67 0A 68 01 4E B2 30 3A  4E 31 B2 30 3A 52 B2 32  |g.h.N.0:N1.0:R.2|
00000260: 35 35 3A 5A B2 38 39 00  86 0A 72 01 4E 24 B2 22  |55:Z.89...r.N$."|
00000270: 22 3A 8D 31 30 32 30 3A  54 39 B2 59 AB 31 32 38  |":.1020:T9.Y.128|
00000280: 3A 8D 31 30 30 30 00 B1  0A 7C 01 4A 31 B2 31 3A  |:.1000...|.J1.1:|
00000290: 5A 24 B2 C7 28 31 36 30  29 3A 81 4A B2 31 A4 31  |Z$..(160):.J.1.1|
000002A0: 36 3A A1 23 31 2C 58 24  3A 4E 24 B2 4E 24 AA 58  |6:.#1,X$:N$.N$.X|
000002B0: 24 00 C2 0A 86 01 8B 58  24 B3 B1 5A 24 A7 4A 31  |$......X$..Z$.J1|
000002C0: B2 4A 00 C9 0A 90 01 82  4A 00 D8 0A 9A 01 8D 39  |.J......J......9|
000002D0: 39 30 3A 4C 31 25 B2 59  00 E6 0A A4 01 8D 39 38  |90:L1%.Y......98|
000002E0: 30 3A 8D 39 38 30 00 F5  0A AE 01 4C 32 B2 58 AA  |0:.980.....L2.X.|
000002F0: 32 35 36 AC 59 00 08 0B  B8 01 8B 54 39 B3 31 B0  |256.Y......T9.1.|
00000300: 54 39 B1 34 89 35 34 30  00 24 0B C2 01 8B 50 31  |T9.4.540.$....P1|
00000310: B1 30 A7 8B 50 24 B3 B1  C8 28 4E 24 2C 50 31 29  |.0..P$...(N$,P1)|
00000320: 89 35 34 30 00 37 0B CC  01 99 4E 24 3B 22 20 22  |.540.7....N$;" "|
00000330: 3B 54 24 28 54 39 29 00  46 0B D6 01 50 B2 C2 28  |;T$(T9).F...P..(|
00000340: 31 39 37 29 AF 52 00 5F  0B E0 01 A1 5A 24 3A 8B  |197).R._....Z$:.|
00000350: 5A 24 B2 22 22 AF 50 B3  B1 36 34 89 35 32 30 00  |Z$."".P..64.520.|
00000360: 85 0B EA 01 8B 5A 24 B2  22 59 22 B0 5A 24 B2 22  |.....Z$."Y".Z$."|
00000370: 4E 22 A7 5A B2 C6 28 5A  24 29 3A 52 B2 32 35 35  |N".Z..(Z$):R.255|
00000380: 3A 89 35 32 30 00 9C 0B  F4 01 8B 5A 24 B2 C7 28  |:.520......Z$..(|
00000390: 31 33 29 A7 52 B2 30 3A  89 35 32 30 00 A5 0B FE  |13).R.0:.520....|
000003A0: 01 89 34 38 30 00 CF 0B  08 02 8B 5A B3 38 30 A7  |..480......Z.80.|
000003B0: 99 22 91 20 20 20 20 20  20 20 20 20 20 20 20 20  |.".             |
000003C0: 20 20 20 20 20 20 20 20  91 22 3A 89 35 34 30 00  |        .":.540.|
000003D0: 05 0C 12 02 4E B2 4E AA  31 3A 4C 32 28 4E 29 B2  |....N.N.1:L2(N).|
000003E0: 4C 32 3A 4E 24 28 4E 29  B2 C8 28 4E 24 2C 4A 31  |L2:N$(N)..(N$,J1|
000003F0: 29 3A 54 25 28 4E 29 B2  54 39 3A 4C 31 25 28 4E  |):T%(N).T9:L1%(N|
00000400: 29 B2 4C 31 25 00 13 0C  1C 02 8B 53 54 B1 30 89  |).L1%......ST.0.|
00000410: 35 37 30 00 2F 0C 26 02  4E 31 B2 4E 31 AA 31 3A  |570./.&.N1.N1.1:|
00000420: 8B 4E 31 B2 38 A7 4E 31  B2 30 3A 89 33 37 30 00  |.N1.8.N1.0:.370.|
00000430: 3E 0C 30 02 8D 31 30 30  30 3A 89 33 37 30 00 57  |>.0..1000:.370.W|
00000440: 0C 3A 02 A0 31 3A A0 31  35 3A 99 22 20 2A 20 2A  |.:..1:.15:." * *|
00000450: 20 2A 20 2A 20 2A 22 00  62 0C 44 02 81 4A B2 31  | * * *".b.D..J.1|
00000460: A4 4E 00 82 0C 4E 02 4C  32 B2 4C 32 28 4A 29 3A  |.N...N.L2.L2(J):|
00000470: 54 25 B2 54 25 28 4A 29  3A 8B 4C B1 4C 32 89 36  |T%.T%(J):.L.L2.6|
00000480: 34 30 00 9E 0C 58 02 99  22 2A 2A 2A 20 4F 55 54  |40...X.."*** OUT|
00000490: 50 55 54 20 44 49 53 4B  20 46 55 4C 4C 22 00 BE  |PUT DISK FULL"..|
000004A0: 0C 62 02 85 22 44 4F 20  59 4F 55 20 48 41 56 45  |.b.."DO YOU HAVE|
000004B0: 20 41 20 4E 45 57 20 4F  4E 45 22 3B 5A 24 00 CF  | A NEW ONE";Z$..|
000004C0: 0C 6C 02 8B C6 28 5A 24  29 B3 B1 38 39 A7 80 00  |.l...(Z$)..89...|
000004D0: DD 0C 76 02 8D 38 36 30  3A 89 35 39 30 00 F3 0C  |..v..860:.590...|
000004E0: 80 02 9F 31 34 2C 46 2C  31 35 3A 9F 31 35 2C 54  |...14,F,15:.15,T|
000004F0: 2C 31 35 00 21 0D 8A 02  99 4E 24 28 4A 29 3B C8  |,15.!....N$(J);.|
00000500: 28 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |("              |
00000510: 20 20 22 2C 31 37 AB C3  28 4E 24 28 4A 29 29 29  |  ",17..(N$(J)))|
00000520: 3B 00 44 0D 94 02 9F 33  2C 46 2C 33 2C 46 24 AA  |;.D....3,F,3,F$.|
00000530: 22 3A 22 AA 4E 24 28 4A  29 AA 22 2C 22 AA 54 24  |":".N$(J).",".T$|
00000540: 28 54 25 29 00 70 0D 9E  02 84 31 34 2C 45 2C 45  |(T%).p....14,E,E|
00000550: 24 2C 45 31 2C 45 32 3A  8D 38 34 30 3A 8B 45 A7  |$,E1,E2:.840:.E.|
00000560: 99 22 2A 2A 20 22 3B 45  24 3B 45 3A 89 37 35 30  |."** ";E$;E:.750|
00000570: 00 A3 0D A8 02 8B 54 25  B2 34 A7 9F 34 2C 54 2C  |......T%.4..4,T,|
00000580: 34 2C 54 24 AA 22 3A 22  AA 4E 24 28 4A 29 AA 22  |4,T$.":".N$(J)."|
00000590: 2C 4C 2C 22 AA C7 28 4C  31 25 28 4A 29 29 3A 89  |,L,"..(L1%(J)):.|
000005A0: 37 30 30 00 CB 0D B2 02  9F 34 2C 54 2C 34 2C 54  |700......4,T,4,T|
000005B0: 24 AA 22 3A 22 AA 4E 24  28 4A 29 AA 22 2C 22 AA  |$.":".N$(J).",".|
000005C0: 54 24 28 54 25 29 AA 22  2C 57 22 00 F0 0D BC 02  |T$(T%).",W".....|
000005D0: 4C B2 4C AB 4C 32 3A 8D  38 33 30 3A 8B 45 A7 99  |L.L.L2:.830:.E..|
000005E0: 22 2A 2A 2A 20 22 3B 45  24 3B 45 3A 89 37 35 30  |"*** ";E$;E:.750|
000005F0: 00 05 0E C6 02 8B 54 25  B2 34 A7 9E 34 33 39 35  |......T%.4..4395|
00000600: 3A 89 37 33 30 00 0F 0E  D0 02 9E 34 33 35 32 00  |:.730......4352.|
00000610: 37 0E DA 02 4E 24 28 4A  29 B2 22 22 3A 8D 38 33  |7...N$(J)."":.83|
00000620: 30 3A 8B 45 A7 99 22 2A  2A 2A 2A 20 22 3B 45 24  |0:.E.."**** ";E$|
00000630: 3B 45 3A 89 37 35 30 00  40 0E E4 02 99 22 91 22  |;E:.750.@...."."|
00000640: 00 52 0E EE 02 A0 34 3A  A0 33 3A A0 31 35 3A A0  |.R....4:.3:.15:.|
00000650: 31 34 00 59 0E F8 02 82  4A 00 83 0E 02 03 58 B2  |14.Y....J.....X.|
00000660: B8 28 30 29 3A 85 22 41  4E 4F 54 48 45 52 20 49  |.(0):."ANOTHER I|
00000670: 4E 50 55 54 20 44 49 53  4B 20 52 45 41 44 59 22  |NPUT DISK READY"|
00000680: 3B 5A 24 00 95 0E 0C 03  8B C6 28 5A 24 29 B2 38  |;Z$.......(Z$).8|
00000690: 39 89 32 32 30 00 9B 0E  16 03 80 00 B0 0E 20 03  |9.220......... .|
000006A0: 85 22 44 52 49 56 45 20  20 30 9D 9D 9D 22 3B 44  |."DRIVE  0...";D|
000006B0: 00 C0 0E 2A 03 8B 44 AC  44 B3 B1 44 89 38 30 30  |...*..D.D..D.800|
000006C0: 00 D1 0E 34 03 44 24 B2  C7 28 44 AA 34 38 29 3A  |...4.D$..(D.48):|
000006D0: 8E 00 E4 0E 3E 03 84 31  35 2C 45 2C 45 24 2C 45  |....>..15,E,E$,E|
000006E0: 31 2C 45 32 00 04 0F 48  03 8B 45 B2 30 A7 45 B2  |1,E2...H..E.0.E.|
000006F0: 28 53 54 20 AF 20 31 39  31 29 3A 45 24 B2 22 2A  |(ST . 191):E$."*|
00000700: 53 54 2A 22 00 0A 0F 52  03 8E 00 3F 0F 5C 03 9F  |ST*"...R...?.\..|
00000710: 31 35 2C 54 2C 31 35 3A  85 22 57 41 4E 54 20 54  |15,T,15:."WANT T|
00000720: 4F 20 4E 45 57 20 54 48  45 20 4F 55 54 50 55 54  |O NEW THE OUTPUT|
00000730: 20 44 49 53 4B 20 20 4E  9D 9D 9D 22 3B 5A 24 00  | DISK  N...";Z$.|
00000740: 52 0F 66 03 8B C6 28 5A  24 29 B3 B1 38 39 89 39  |R.f...(Z$)..89.9|
00000750: 31 30 00 6C 0F 70 03 85  22 44 49 53 4B 20 4E 41  |10.l.p.."DISK NA|
00000760: 4D 45 2C 49 44 22 3B 58  24 2C 59 24 00 89 0F 7A  |ME,ID";X$,Y$...z|
00000770: 03 98 31 35 2C 22 4E 22  AA 54 24 AA 22 3A 22 AA  |..15,"N".T$.":".|
00000780: 58 24 AA 22 2C 22 AA 59  24 00 9C 0F 84 03 8D 38  |X$.",".Y$......8|
00000790: 33 30 3A 8B 45 A7 90 3A  89 38 36 30 00 C2 0F 8E  |30:.E..:.860....|
000007A0: 03 98 31 35 2C 22 49 22  AA 54 24 3A 9F 31 2C 54  |..15,"I".T$:.1,T|
000007B0: 2C 30 2C 22 24 22 AA 54  24 AA 22 3A 21 23 24 25  |,0,"$".T$.":!#$%|
000007C0: 26 22 00 D5 0F 98 03 8D  38 33 30 3A 8B 45 A7 90  |&"......830:.E..|
000007D0: 3A 89 38 36 30 00 E3 0F  A2 03 8D 39 38 30 3A 8D  |:.860......980:.|
000007E0: 39 38 30 00 00 10 AC 03  51 B2 51 AA 31 3A A1 23  |980.....Q.Q.1:.#|
000007F0: 31 2C 58 24 3A 8B 58 24  B3 B1 22 22 89 39 34 30  |1,X$:.X$.."".940|
00000800: 00 09 10 B6 03 8D 39 38  30 00 2E 10 C0 03 4C B2  |......980.....L.|
00000810: 58 AA 59 AC 32 35 36 3A  99 22 28 22 3B 4C 3B 22  |X.Y.256:."(";L;"|
00000820: 42 4C 4F 43 4B 53 20 46  52 45 45 20 29 22 00 3B  |BLOCKS FREE )".;|
00000830: 10 CA 03 A0 31 3A A0 31  35 3A 8E 00 46 10 D4 03  |....1:.15:..F...|
00000840: A1 23 31 2C 58 24 00 51  10 DE 03 A1 23 31 2C 58  |.#1,X$.Q....#1,X|
00000850: 24 00 5C 10 E8 03 A1 23  31 2C 58 24 00 73 10 F2  |$.\....#1,X$.s..|
00000860: 03 58 B2 C3 28 58 24 29  3A 8B 58 A7 58 B2 C6 28  |.X..(X$):.X.X..(|
00000870: 58 24 29 00 91 10 FC 03  A1 23 31 2C 58 24 3A 59  |X$)......#1,X$:Y|
00000880: B2 C3 28 58 24 29 3A 8B  59 A7 59 B2 C6 28 58 24  |..(X$):.Y.Y..(X$|
00000890: 29 00 97 10 06 04 8E 00  00 00 A7 59 B2 C6 28 58  |)..........Y..(X|
000008A0: 24 29 00 AE 0C 06 04 8E  00 00 00 00 00 00 00 00  |$)..............|
000008B0: 00 00 00 00 00 00 00 00  00 00 20 CC FF A2 03 20  |.......... .... |
000008C0: C6 FF 20 73 0D 8E 40 02  A5 96 8D 41 02 20 CC FF  |.. s..@....A. ..|
000008D0: A2 04 20 C9 FF AE 40 02  20 61 0D AD 41 02 F0 DA  |.. ...@. a..A...|
000008E0: 85 96 4C CC FF A9 00 85  5F 85 60 20 CC 00        |..L....._.` ..  |

....D..". DISK.COPY.64.C.N.. L2(232),L1%
(232),N$(232),T%(232),T$(4).].X.. XXX,SE
Q,PRG,USR,REL.R....J.0.4:.T$(J):.J......
"FROM UNIT  8...";F......800... .F$.D$..
...."TO UNIT  9...";T......800.H...T$.D$
.Z.H..F.T .F$.T$.....R..860..... 1: 15:.
 15,F,15:.15,"I".F$......830:. E . .:.22
0.1...."PATTERN  *...";P$.S....J.1.C(P$)
:.J(P$,J,1).."*"..J.P...P1.J.1:.P1.0.P$.
H(P$,P1)......"HOLD DOWN 'Y' OR 'N' KEY 
TO SELECT"......"PROGRAMS TO BE COPIED..
.".M.".. 1,F,3,"$".F$...,..830:.E..:.220
...6..#1,A$:A.F(A$." ")...@..A.1.A.65.L1
.253:.350.'.J..A.67.L1.761:.350.9.T. 1:.
"?????":..O.^..J.1.L1:.#1,X$:.J.G.H.N.0:
N1.0:R.255:Z.89...R.N$."":.1020:T9.Y.128
:.1000...|.J1.1:Z$.G(160):.J.1.16:.#1,X$
:N$.N$.X$.B....X$..Z$.J1.J.I....J.X....9
90:L1%.Y......980:.980.....L2.X.256.Y...
...T9.1.T9.4.540.$.B..P1.0..P$..H(N$,P1)
.540.7.L..N$;" ";T$(T9).F.V.P.B(197).R._
....Z$:.Z$."".P..64.520......Z$."Y".Z$."
N".Z.F(Z$):R.255:.520......Z$.G(13).R.0:
.520......480.O....Z.80..".             
        .":.540.....N.N.1:L2(N).L2:N$(N)
.H(N$,J1):T%(N).T9:L1%(N).L1%......ST.0.
570./.&.N1.N1.1:.N1.8.N1.0:.370.>.0..100
0:.370.W.:. 1: 15:." * * * * *".B.D..J.1
.N...N.L2.L2(J):T%.T%(J):.L.L2.640...X..
"*** OUTPUT DISK FULL"...B.."DO YOU HAVE
 A NEW ONE";Z$.O.L..F(Z$)..89.....V..860
:.590......14,F,15:.15,T,15.!....N$(J);H
("                ",17.C(N$(J)));.D....3
,F,3,F$.":".N$(J).",".T$(T%).P....14,E,E
$,E1,E2:.840:.E.."** ";E$;E:.750......T%
.4..4,T,4,T$.":".N$(J).",L,".G(L1%(J)):.
700.K....4,T,4,T$.":".N$(J).",".T$(T%)."
,W".....L.L.L2:.830:.E.."*** ";E$;E:.750
...F..T%.4..4395:.730...P..4352.7.Z.N$(J
)."":.830:.E.."**** ";E$;E:.750.@...."."
.R... 4: 3: 15: 14.Y....J.....X..(0):."A
NOTHER INPUT DISK READY";Z$......F(Z$).8
9.220......... .."DRIVE  0...";D...*..D.
D..D.800.Q.4.D$.G(D.48):....>..15,E,E$,E
1,E2...H..E.0.E.(ST . 191):E$."*ST*"...R
...?.\..15,T,15:."WANT TO NEW THE OUTPUT
 DISK  N...";Z$.R.F..F(Z$)..89.910.L.P..
"DISK NAME,ID";X$,Y$...Z..15,"N".T$.":".
X$.",".Y$......830:.E..:.860.B....15,"I"
.T$:.1,T,0,"$".T$.":!#$%&".U....830:.E..
:.860......980:.980.....Q.Q.1:.#1,X$:.X$
.."".940......980.....L.X.Y.256:."(";L;"
BLOCKS FREE )".;.J. 1: 15:..F.T..#1,X$.Q
....#1,X$.\....#1,X$.S...X.C(X$):.X.X.F(
X$)......#1,X$:Y.C(X$):.Y.Y.F(X$).......
...Y.F(X$)........................ L... 
F. S..@....A. L... I..@. A..A..Z..LL....
_.` L.

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL