COPY/ALL

00000000: 01 04 2D 04 64 00 99 22  93 20 44 49 02 4B 2E 43  |..-.d..". DI.K.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 5A 04  | BUTTERFIELD".Z.|
00000030: 6E 00 86 20 4C 32 28 32  33 32 29 2C 4C 31 25 28  |n.. L2(232),L1%(|
00000040: 32 33 32 29 2C 4E 24 28  32 33 32 29 2C 54 25 28  |232),N$(232),T%(|
00000050: 32 33 32 29 2C 54 24 28  34 29 00 74 04 78 00 83  |232),T$(4).t.x..|
00000060: 20 58 58 58 2C 53 45 51  2C 50 52 47 2C 55 53 52  | XXX,SEQ,PRG,USR|
00000070: 2C 52 45 4C 00 89 04 82  00 81 4A B2 30 A4 34 3A  |,REL......J.0.4:|
00000080: 87 54 24 28 4A 29 3A 82  4A 00 AE 04 84 00 83 31  |.T$(J):.J......1|
00000090: 30 2C 33 32 2C 36 37 2C  37 32 2C 37 37 2C 38 32  |0,32,67,72,77,82|
000000A0: 2C 38 37 2C 39 38 2C 31  31 37 2C 31 34 37 00 D0  |,87,98,117,147..|
000000B0: 04 86 00 53 49 B2 32 33  34 38 3A 53 42 B2 C2 28  |...SI.2348:SB..(|
000000C0: 34 34 29 3A 4D 42 B2 53  42 AC 32 35 36 AA 53 49  |44):MB.SB.256.SI|
000000D0: 00 EB 04 88 00 81 49 B2  30 A4 39 3A 87 41 3A 97  |......I.0.9:.A:.|
000000E0: 4D 42 AA 41 2C 53 42 AA  39 3A 82 00 04 05 8C 00  |MB.A,SB.9:......|
000000F0: 85 22 46 52 4F 4D 20 55  4E 49 54 20 20 38 9D 9D  |."FROM UNIT  8..|
00000100: 9D 22 3B 46 00 0D 05 96  00 8D 38 30 30 00 17 05  |.";F......800...|
00000110: A0 00 46 24 B2 44 24 00  2E 05 AA 00 85 22 54 4F  |..F$.D$......"TO|
00000120: 20 55 4E 49 54 20 20 39  9D 9D 9D 22 3B 54 00 37  | UNIT  9...";T.7|
00000130: 05 B4 00 8D 38 30 30 00  41 05 BE 00 54 24 B2 44  |....800.A...T$.D|
00000140: 24 00 53 05 C8 00 8B 46  B2 54 20 AF 46 24 B2 54  |$.S....F.T .F$.T|
00000150: 24 A7 8A 00 5C 05 D2 00  8D 38 36 30 00 7C 05 DC  |$...\....860.|..|
00000160: 00 A0 31 3A A0 31 35 3A  9F 20 31 35 2C 46 2C 31  |..1:.15:. 15,F,1|
00000170: 35 3A 98 31 35 2C 22 49  22 AA 46 24 00 92 05 E6  |5:.15,"I".F$....|
00000180: 00 8D 38 33 30 3A 8B 20  45 20 A7 20 90 3A 89 32  |..830:. E . .:.2|
00000190: 32 30 00 AA 05 F0 00 85  22 50 41 54 54 45 52 4E  |20......"PATTERN|
000001A0: 20 20 2A 9D 9D 9D 22 3B  50 24 00 CC 05 FA 00 81  |  *...";P$......|
000001B0: 4A B2 31 A4 C3 28 50 24  29 3A 8B CA 28 50 24 2C  |J.1..(P$):..(P$,|
000001C0: 4A 2C 31 29 B3 B1 22 2A  22 A7 82 4A 00 E9 05 04  |J,1).."*"..J....|
000001D0: 01 50 31 B2 4A AB 31 3A  8B 50 31 B1 30 A7 50 24  |.P1.J.1:.P1.0.P$|
000001E0: B2 C8 28 50 24 2C 50 31  29 00 13 06 0E 01 99 22  |..(P$,P1)......"|
000001F0: 48 4F 4C 44 20 44 4F 57  4E 20 27 59 27 20 4F 52  |HOLD DOWN 'Y' OR|
00000200: 20 27 4E 27 20 4B 45 59  20 54 4F 20 53 45 4C 45  | 'N' KEY TO SELE|
00000210: 43 54 22 00 33 06 18 01  99 22 50 52 4F 47 52 41  |CT".3...."PROGRA|
00000220: 4D 53 20 54 4F 20 42 45  20 43 4F 50 49 45 44 2E  |MS TO BE COPIED.|
00000230: 2E 2E 22 00 46 06 22 01  9F 20 31 2C 46 2C 33 2C  |..".F.".. 1,F,3,|
00000240: 22 24 22 AA 46 24 00 59  06 2C 01 8D 38 33 30 3A  |"$".F$.Y.,..830:|
00000250: 8B 45 A7 90 3A 89 32 32  30 00 70 06 36 01 A1 23  |.E..:.220.p.6..#|
00000260: 31 2C 41 24 3A 41 B2 C6  28 41 24 AA 22 20 22 29  |1,A$:A..(A$." ")|
00000270: 00 8A 06 40 01 8B 41 B2  31 B0 41 B2 36 35 A7 4C  |...@..A.1.A.65.L|
00000280: 31 B2 32 35 33 3A 89 33  35 30 00 A0 06 4A 01 8B  |1.253:.350...J..|
00000290: 41 B2 36 37 A7 4C 31 B2  37 36 31 3A 89 33 35 30  |A.67.L1.761:.350|
000002A0: 00 B2 06 54 01 A0 31 3A  99 22 3F 3F 3F 3F 3F 22  |...T..1:."?????"|
000002B0: 3A 90 00 C8 06 5E 01 81  4A B2 31 A4 4C 31 3A A1  |:....^..J.1.L1:.|
000002C0: 23 31 2C 58 24 3A 82 4A  00 E0 06 68 01 4E B2 30  |#1,X$:.J...h.N.0|
000002D0: 3A 4E 31 B2 30 3A 52 B2  32 35 35 3A 5A B2 38 39  |:N1.0:R.255:Z.89|
000002E0: 00 FF 06 72 01 4E 24 B2  22 22 3A 8D 31 30 32 30  |...r.N$."":.1020|
000002F0: 3A 54 39 B2 59 AB 31 32  38 3A 8D 31 30 30 30 00  |:T9.Y.128:.1000.|
00000300: 2A 07 7C 01 4A 31 B2 31  3A 5A 24 B2 C7 28 31 36  |*.|.J1.1:Z$..(16|
00000310: 30 29 3A 81 4A B2 31 A4  31 36 3A A1 23 31 2C 58  |0):.J.1.16:.#1,X|
00000320: 24 3A 4E 24 B2 4E 24 AA  58 24 00 3B 07 86 01 8B  |$:N$.N$.X$.;....|
00000330: 58 24 B3 B1 5A 24 A7 4A  31 B2 4A 00 42 07 90 01  |X$..Z$.J1.J.B...|
00000340: 82 4A 00 51 07 9A 01 8D  39 39 30 3A 4C 31 25 B2  |.J.Q....990:L1%.|
00000350: 59 00 5F 07 A4 01 8D 39  38 30 3A 8D 39 38 30 00  |Y._....980:.980.|
00000360: 6E 07 AE 01 4C 32 B2 58  AA 32 35 36 AC 59 00 81  |n...L2.X.256.Y..|
00000370: 07 B8 01 8B 54 39 B3 31  B0 54 39 B1 34 89 35 34  |....T9.1.T9.4.54|
00000380: 30 00 9D 07 C2 01 8B 50  31 B1 30 A7 8B 50 24 B3  |0......P1.0..P$.|
00000390: B1 C8 28 4E 24 2C 50 31  29 89 35 34 30 00 B0 07  |..(N$,P1).540...|
000003A0: CC 01 99 4E 24 3B 22 20  22 3B 54 24 28 54 39 29  |...N$;" ";T$(T9)|
000003B0: 00 BF 07 D6 01 50 B2 C2  28 31 35 31 29 AF 52 00  |.....P..(151).R.|
000003C0: D8 07 E0 01 A1 5A 24 3A  8B 5A 24 B2 22 22 AF 50  |.....Z$:.Z$."".P|
000003D0: B3 32 35 35 89 35 32 30  00 FE 07 EA 01 8B 5A 24  |.255.520......Z$|
000003E0: B2 22 59 22 B0 5A 24 B2  22 4E 22 A7 5A B2 C6 28  |."Y".Z$."N".Z..(|
000003F0: 5A 24 29 3A 52 B2 32 35  35 3A 89 35 32 30 00 15  |Z$):R.255:.520..|
00000400: 08 F4 01 8B 5A 24 B2 C7  28 31 33 29 A7 52 B2 30  |....Z$..(13).R.0|
00000410: 3A 89 35 32 30 00 1E 08  FE 01 89 34 38 30 00 48  |:.520......480.H|
00000420: 08 08 02 8B 5A B3 38 30  A7 99 22 91 20 20 20 20  |....Z.80..".    |
00000430: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000440: 20 91 22 3A 89 35 34 30  00 7E 08 12 02 4E B2 4E  | .":.540.~...N.N|
00000450: AA 31 3A 4C 32 28 4E 29  B2 4C 32 3A 4E 24 28 4E  |.1:L2(N).L2:N$(N|
00000460: 29 B2 C8 28 4E 24 2C 4A  31 29 3A 54 25 28 4E 29  |)..(N$,J1):T%(N)|
00000470: B2 54 39 3A 4C 31 25 28  4E 29 B2 4C 31 25 00 8C  |.T9:L1%(N).L1%..|
00000480: 08 1C 02 8B 53 54 B1 30  89 35 37 30 00 A8 08 26  |....ST.0.570...&|
00000490: 02 4E 31 B2 4E 31 AA 31  3A 8B 4E 31 B2 38 A7 4E  |.N1.N1.1:.N1.8.N|
000004A0: 31 B2 30 3A 89 33 37 30  00 B7 08 30 02 8D 31 30  |1.0:.370...0..10|
000004B0: 30 30 3A 89 33 37 30 00  D0 08 3A 02 A0 31 3A A0  |00:.370...:..1:.|
000004C0: 31 35 3A 99 22 20 2A 20  2A 20 2A 20 2A 20 2A 22  |15:." * * * * *"|
000004D0: 00 DB 08 44 02 81 4A B2  31 A4 4E 00 FB 08 4E 02  |...D..J.1.N...N.|
000004E0: 4C 32 B2 4C 32 28 4A 29  3A 54 25 B2 54 25 28 4A  |L2.L2(J):T%.T%(J|
000004F0: 29 3A 8B 4C B1 4C 32 89  36 34 30 00 17 09 58 02  |):.L.L2.640...X.|
00000500: 99 22 2A 2A 2A 20 4F 55  54 50 55 54 20 44 49 53  |."*** OUTPUT DIS|
00000510: 4B 20 46 55 4C 4C 22 00  37 09 62 02 85 22 44 4F  |K FULL".7.b.."DO|
00000520: 20 59 4F 55 20 48 41 56  45 20 41 20 4E 45 57 20  | YOU HAVE A NEW |
00000530: 4F 4E 45 22 3B 5A 24 00  48 09 6C 02 8B C6 28 5A  |ONE";Z$.H.l...(Z|
00000540: 24 29 B3 B1 38 39 A7 80  00 56 09 76 02 8D 38 36  |$)..89...V.v..86|
00000550: 30 3A 89 35 39 30 00 6C  09 80 02 9F 31 34 2C 46  |0:.590.l....14,F|
00000560: 2C 31 35 3A 9F 31 35 2C  54 2C 31 35 00 9A 09 8A  |,15:.15,T,15....|
00000570: 02 99 4E 24 28 4A 29 3B  C8 28 22 20 20 20 20 20  |..N$(J);.("     |
00000580: 20 20 20 20 20 20 20 20  20 20 20 22 2C 31 37 AB  |           ",17.|
00000590: C3 28 4E 24 28 4A 29 29  29 3B 00 BD 09 94 02 9F  |.(N$(J)));......|
000005A0: 33 2C 46 2C 33 2C 46 24  AA 22 3A 22 AA 4E 24 28  |3,F,3,F$.":".N$(|
000005B0: 4A 29 AA 22 2C 22 AA 54  24 28 54 25 29 00 E9 09  |J).",".T$(T%)...|
000005C0: 9E 02 84 31 34 2C 45 2C  45 24 2C 45 31 2C 45 32  |...14,E,E$,E1,E2|
000005D0: 3A 8D 38 34 30 3A 8B 45  A7 99 22 2A 2A 20 22 3B  |:.840:.E.."** ";|
000005E0: 45 24 3B 45 3A 89 37 35  30 00 1C 0A A8 02 8B 54  |E$;E:.750......T|
000005F0: 25 B2 34 A7 9F 34 2C 54  2C 34 2C 54 24 AA 22 3A  |%.4..4,T,4,T$.":|
00000600: 22 AA 4E 24 28 4A 29 AA  22 2C 4C 2C 22 AA C7 28  |".N$(J).",L,"..(|
00000610: 4C 31 25 28 4A 29 29 3A  89 37 30 30 00 44 0A B2  |L1%(J)):.700.D..|
00000620: 02 9F 34 2C 54 2C 34 2C  54 24 AA 22 3A 22 AA 4E  |..4,T,4,T$.":".N|
00000630: 24 28 4A 29 AA 22 2C 22  AA 54 24 28 54 25 29 AA  |$(J).",".T$(T%).|
00000640: 22 2C 57 22 00 69 0A BC  02 4C B2 4C AB 4C 32 3A  |",W".i...L.L.L2:|
00000650: 8D 38 33 30 3A 8B 45 A7  99 22 2A 2A 2A 20 22 3B  |.830:.E.."*** ";|
00000660: 45 24 3B 45 3A 89 37 35  30 00 81 0A C6 02 8B 54  |E$;E:.750......T|
00000670: 25 B2 34 A7 9E 28 4D 42  AA 34 33 29 3A 89 37 33  |%.4..(MB.43):.73|
00000680: 30 00 8D 0A D0 02 9E 28  4D 42 AA 33 29 00 B5 0A  |0......(MB.3)...|
00000690: DA 02 4E 24 28 4A 29 B2  22 22 3A 8D 38 33 30 3A  |..N$(J)."":.830:|
000006A0: 8B 45 A7 99 22 2A 2A 2A  2A 20 22 3B 45 24 3B 45  |.E.."**** ";E$;E|
000006B0: 3A 89 37 35 30 00 BE 0A  E4 02 99 22 91 22 00 D0  |:.750......"."..|
000006C0: 0A EE 02 A0 34 3A A0 33  3A A0 31 35 3A A0 31 34  |....4:.3:.15:.14|
000006D0: 00 D7 0A F8 02 82 4A 00  0C 0B 02 03 58 B2 B8 28  |......J.....X..(|
000006E0: 30 29 3A 99 22 41 4E 4F  54 48 45 52 20 49 4E 50  |0):."ANOTHER INP|
000006F0: 55 54 20 44 49 53 4B 20  52 45 41 44 59 22 3A 85  |UT DISK READY":.|
00000700: 22 20 20 20 4E 9D 9D 9D  22 3B 5A 24 00 1E 0B 0C  |"   N...";Z$....|
00000710: 03 8B C6 28 5A 24 29 B2  38 39 89 32 32 30 00 24  |...(Z$).89.220.$|
00000720: 0B 16 03 80 00 39 0B 20  03 85 22 44 52 49 56 45  |.....9. .."DRIVE|
00000730: 20 20 30 9D 9D 9D 22 3B  44 00 49 0B 2A 03 8B 44  |  0...";D.I.*..D|
00000740: AC 44 B3 B1 44 89 38 30  30 00 5A 0B 34 03 44 24  |.D..D.800.Z.4.D$|
00000750: B2 C7 28 44 AA 34 38 29  3A 8E 00 6D 0B 3E 03 84  |..(D.48):..m.>..|
00000760: 31 35 2C 45 2C 45 24 2C  45 31 2C 45 32 00 8D 0B  |15,E,E$,E1,E2...|
00000770: 48 03 8B 45 B2 30 A7 45  B2 28 53 54 20 AF 20 31  |H..E.0.E.(ST . 1|
00000780: 39 31 29 3A 45 24 B2 22  2A 53 54 2A 22 00 93 0B  |91):E$."*ST*"...|
00000790: 52 03 8E 00 CE 0B 5C 03  9F 31 35 2C 54 2C 31 35  |R.....\..15,T,15|
000007A0: 3A 99 22 57 41 4E 54 20  54 4F 20 4E 45 57 20 54  |:."WANT TO NEW T|
000007B0: 48 45 20 4F 55 54 50 55  54 20 44 49 53 4B 22 3A  |HE OUTPUT DISK":|
000007C0: 85 22 20 20 20 20 4E 9D  9D 9D 22 3B 5A 24 00 E1  |."    N...";Z$..|
000007D0: 0B 66 03 8B C6 28 5A 24  29 B3 B1 38 39 89 39 31  |.f...(Z$)..89.91|
000007E0: 30 00 FB 0B 70 03 85 22  44 49 53 4B 20 4E 41 4D  |0...p.."DISK NAM|
000007F0: 45 2C 49 44 22 3B 58 24  2C 59 24 00 18 0C 7A 03  |E,ID";X$,Y$...z.|
00000800: 98 31 35 2C 22 4E 22 AA  54 24 AA 22 3A 22 AA 58  |.15,"N".T$.":".X|
00000810: 24 AA 22 2C 22 AA 59 24  00 2B 0C 84 03 8D 38 33  |$.",".Y$.+....83|
00000820: 30 3A 8B 45 A7 90 3A 89  38 36 30 00 51 0C 8E 03  |0:.E..:.860.Q...|
00000830: 98 31 35 2C 22 49 22 AA  54 24 3A 9F 31 2C 54 2C  |.15,"I".T$:.1,T,|
00000840: 30 2C 22 24 22 AA 54 24  AA 22 3A 21 23 24 25 26  |0,"$".T$.":!#$%&|
00000850: 22 00 64 0C 98 03 8D 38  33 30 3A 8B 45 A7 90 3A  |".d....830:.E..:|
00000860: 89 38 36 30 00 72 0C A2  03 8D 39 38 30 3A 8D 39  |.860.r....980:.9|
00000870: 38 30 00 8F 0C AC 03 51  B2 51 AA 31 3A A1 23 31  |80.....Q.Q.1:.#1|
00000880: 2C 58 24 3A 8B 58 24 B3  B1 22 22 89 39 34 30 00  |,X$:.X$.."".940.|
00000890: 98 0C B6 03 8D 39 38 30  00 BD 0C C0 03 4C B2 58  |.....980.....L.X|
000008A0: AA 59 AC 32 35 36 3A 99  22 28 22 3B 4C 3B 22 42  |.Y.256:."(";L;"B|
000008B0: 4C 4F 43 4B 53 20 46 52  45 45 20 29 22 00 CA 0C  |LOCKS FREE )"...|
000008C0: CA 03 A0 31 3A A0 31 35  3A 8E 00 D5 0C D4 03 A1  |...1:.15:.......|
000008D0: 23 31 2C 58 24 00 E0 0C  DE 03 A1 23 31 2C 58 24  |#1,X$......#1,X$|
000008E0: 00 EB 0C E8 03 A1 23 31  2C 58 24 00 02 0D F2 03  |......#1,X$.....|
000008F0: 58 B2 C3 28 58 24 29 3A  8B 58 A7 58 B2 C6 28 58  |X..(X$):.X.X..(X|
00000900: 24 29 00 20 0D FC 03 A1  23 31 2C 58 24 3A 59 B2  |$). ....#1,X$:Y.|
00000910: C3 28 58 24 29 3A 8B 59  A7 59 B2 C6 28 58 24 29  |.(X$):.Y.Y..(X$)|
00000920: 00 26 0D 06 04 8E 00 00  00 00 00 00 00 20 CC FF  |.&........... ..|
00000930: A2 03 20 C6 FF 20 DA 11  8E 40 02 A5 90 8D 41 02  |.. .. ...@....A.|
00000940: 20 CC FF A2 04 20 C9 FF  AE 40 02 20 C8 11 AD 41  | .... ...@. ...A|
00000950: 02 F0 DA 85 90 4C CC FF  A9 00 85 5F 85 60 20 CC  |.....L....._.` .|
00000960: FF E6 5F D0 02 E6 60 A2  0E 20 C9 FF A2 50 20 C8  |.._...`.. ...P .|
00000970: 11 A2 03 20 C8 11 A6 5F  20 C8 11 A6 60 20 C8 11  |... ..._ ...` ..|
00000980: A2 01 20 C8 11 20 CC FF  A2 0E 20 C6 FF 20 DA 11  |.. .. .... .. ..|
00000990: 20 CC FF E0 30 F0 01 60  A2 03 20 C6 FF A0 FF C8  | ...0..`.. .....|
000009A0: 20 DA 11 A4 61 8A 99 7A  02 A6 96 F0 F2 84 62 20  | ...a..z......b |
000009B0: CC FF A2 04 20 C9 FF A0  FF C8 B9 7A 02 AA 20 C8  |.... ......z.. .|
000009C0: 11 A4 61 C4 62 D0 F2 F0  95 84 61 A0 10 8A 20 D2  |..a.b.....a... .|
000009D0: FF A5 90 29 03 F0 03 88  D0 F3 60 84 61 A0 10 20  |...)......`.a.. |
000009E0: E4 FF AA A5 90 29 03 F0  03 88 D0 F3 60 FE 60 FE  |.....)......`.`.|
000009F0: 00 00                                             |..              |

..-.D..". DI.K.COPY.ALL      JIM BUTTERF
IELD".Z.N.. L2(232),L1%(232),N$(232),T%(
232),T$(4).T.X.. XXX,SEQ,PRG,USR,REL....
..J.0.4:.T$(J):.J......10,32,67,72,77,82
,87,98,117,147.P...SI.2348:SB.B(44):MB.S
B.256.SI......I.0.9:.A:.MB.A,SB.9:......
."FROM UNIT  8...";F......800... .F$.D$.
....."TO UNIT  9...";T.7....800.A...T$.D
$.S.H..F.T .F$.T$...\.R..860.|... 1: 15:
. 15,F,15:.15,"I".F$......830:. E . .:.2
20......"PATTERN  *...";P$.L....J.1.C(P$
):.J(P$,J,1).."*"..J.....P1.J.1:.P1.0.P$
.H(P$,P1)......"HOLD DOWN 'Y' OR 'N' KEY
 TO SELECT".3...."PROGRAMS TO BE COPIED.
..".F.".. 1,F,3,"$".F$.Y.,..830:.E..:.22
0.P.6..#1,A$:A.F(A$." ")...@..A.1.A.65.L
1.253:.350. .J..A.67.L1.761:.350...T. 1:
."?????":..H.^..J.1.L1:.#1,X$:.J...H.N.0
:N1.0:R.255:Z.89...R.N$."":.1020:T9.Y.12
8:.1000.*.|.J1.1:Z$.G(160):.J.1.16:.#1,X
$:N$.N$.X$.;....X$..Z$.J1.J.B....J.Q....
990:L1%.Y._....980:.980.N...L2.X.256.Y..
....T9.1.T9.4.540...B..P1.0..P$..H(N$,P1
).540...L..N$;" ";T$(T9)...V.P.B(151).R.
X....Z$:.Z$."".P.255.520......Z$."Y".Z$.
"N".Z.F(Z$):R.255:.520......Z$.G(13).R.0
:.520......480.H....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..10
00:.370.P.:. 1: 15:." * * * * *"...D..J.
1.N...N.L2.L2(J):T%.T%(J):.L.L2.640...X.
."*** OUTPUT DISK FULL".7.B.."DO YOU HAV
E A NEW ONE";Z$.H.L..F(Z$)..89...V.V..86
0:.590.L....14,F,15:.15,T,15......N$(J);
H("                ",17.C(N$(J)));......
3,F,3,F$.":".N$(J).",".T$(T%)......14,E,
E$,E1,E2:.840:.E.."** ";E$;E:.750......T
%.4..4,T,4,T$.":".N$(J).",L,".G(L1%(J)):
.700.D....4,T,4,T$.":".N$(J).",".T$(T%).
",W".I...L.L.L2:.830:.E.."*** ";E$;E:.75
0...F..T%.4..(MB.43):.730...P..(MB.3)...
Z.N$(J)."":.830:.E.."**** ";E$;E:.750...
...".".P... 4: 3: 15: 14.W....J.....X..(
0):."ANOTHER INPUT DISK READY":."   N...
";Z$......F(Z$).89.220.$.....9. .."DRIVE
  0...";D.I.*..D.D..D.800.Z.4.D$.G(D.48)
:..M.>..15,E,E$,E1,E2...H..E.0.E.(ST . 1
91):E$."*ST*"...R...N.\..15,T,15:."WANT 
TO NEW THE OUTPUT DISK":."    N...";Z$..
.F..F(Z$)..89.910...P.."DISK NAME,ID";X$
,Y$...Z..15,"N".T$.":".X$.",".Y$.+....83
0:.E..:.860.Q....15,"I".T$:.1,T,0,"$".T$
.":!#$%&".D....830:.E..:.860.R....980:.9
80.....Q.Q.1:.#1,X$:.X$.."".940......980
.....L.X.Y.256:."(";L;"BLOCKS FREE )".J.
J. 1: 15:..U.T..#1,X$......#1,X$......#1
,X$.....X.C(X$):.X.X.F(X$). ....#1,X$:Y.
C(X$):.Y.Y.F(X$).&........... L... F. Z.
.@....A. L... I..@. H..A..Z..LL...._.` L
.._P..`.. I..P H... H.._ H..` H... H. L.
.. F. Z. L..0..`.. F. .H Z..A..Z......B 
L... I. .H.Z.. H..ADBP....A .. R...)....
P.`.A . .....)....P.`.`...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL