SD2'COPY&LABEL

00000000: 7A 06 E8 06 9B 07 00 0A  1D 00 44 45 4C 45 54 45  |z.........DELETE|
00000010: 20 22 30 3A 53 44 32 27  43 4F 50 59 26 4C 41 42  | "0:SD2'COPY&LAB|
00000020: 45 4C 22 00 14 16 00 20  20 42 59 20 4B 45 56 49  |EL"....  BY KEVI|
00000030: 4E 20 51 55 49 47 47 4C  45 00 1E 1E 00 53 41 56  |N QUIGGLE....SAV|
00000040: 45 20 20 20 22 40 30 3A  53 44 32 27 43 4F 50 59  |E   "@0:SD2'COPY|
00000050: 26 4C 41 42 45 4C 22 00  28 14 8C 8F 01 00 02 00  |&LABEL".(.......|
00000060: 10 93 8F 02 00 02 00 04  93 94 C5 00 32 06 7F 03  |............2...|
00000070: 81 00 3C 06 7F 04 81 00  46 05 CF D1 00 50 04 00  |..<.....F....P..|
00000080: 00 5A 09 70 05 00 00 00  7B 00 64 08 03 02 49 30  |.Z.p....{.d...I0|
00000090: 7E 00 6E 09 07 06 02 00  02 3A 00 78 0D DB 04 06  |~.n......:.x....|
000000A0: DC 03 02 24 30 DD DE 00  82 07 07 07 44 3A 00 8C  |...$0.......D:..|
000000B0: 0F 7F 08 02 00 8E 0D 07  06 10 07 07 16 00 96 12  |................|
000000C0: 7F 09 09 01 12 02 00 10  0D 07 06 10 07 07 16 00  |................|
000000D0: A0 0F 7F 08 02 00 02 0D  07 06 10 07 07 16 00 AA  |................|
000000E0: 12 7F 09 09 02 12 02 00  02 0D 07 06 10 07 07 16  |................|
000000F0: 00 B4 05 CF D1 00 BE 05  7D 05 00 C8 04 00 00 D2  |........}.......|
00000100: 09 70 04 00 00 00 7B 00  DC 18 5F 02 00 93 4B 65  |.p....{..._...Ke|
00000110: 66 61 00 43 4C 45 41 52  20 53 43 52 45 45 4E 00  |fa.CLEAR SCREEN.|
00000120: E6 0A FF 20 02 00 04 FF  21 00 F0 0A FF 46 02 00  |... ....!....F..|
00000130: 04 FF 47 00 FA 0A FF 1E  02 00 01 FF 1F 01 04 06  |..G.............|
00000140: 5F 60 61 01 0E 06 5F 60  61 01 18 30 5F 03 27 12  |_`a..._`a..0_.'.|
00000150: D2 45 51 55 49 52 45 53  20 CD D3 C4 20 C4 55 41  |.EQUIRES ... .UA|
00000160: 4C 20 C4 52 49 56 45 2E  20 CE 4F 54 20 46 4F 52  |L .RIVE. .OT FOR|
00000170: 20 31 35 34 31 53 65 60  61 01 22 06 5F 60 61 01  | 1541Se`a."._`a.|
00000180: 2C 2C 5F 03 23 C9 4E 53  45 52 54 20 44 49 53 4B  |,,_.#.NSERT DISK|
00000190: 20 54 4F 20 42 45 20 43  4F 50 49 45 44 20 49 4E  | TO BE COPIED IN|
000001A0: 20 44 52 49 56 45 20 30  65 60 61 01 36 06 5F 60  | DRIVE 0e`a.6._`|
000001B0: 61 01 40 28 5F 03 1F CD  C1 CB C5 20 D3 D5 D2 C5  |a.@(_...... ....|
000001C0: 20 CC C1 C2 C5 CC D3 20  C1 D2 C5 20 C9 CE 20 D0  | ...... ... .. .|
000001D0: D2 C9 CE D4 C5 D2 65 60  61 01 4A 06 5F 60 61 01  |......e`a.J._`a.|
000001E0: 54 22 5F 03 19 C8 49 54  20 41 4E 59 20 4B 45 59  |T"_...IT ANY KEY|
000001F0: 20 57 48 45 4E 20 52 45  41 44 59 2E 2E 2E 65 60  | WHEN READY...e`|
00000200: 61 01 5E 06 7F 0A 81 01  68 18 7F 05 81 00 47 45  |a.^.....h.....GE|
00000210: 54 20 44 49 53 4B 20 4E  41 4D 45 2C 20 49 44 01  |T DISK NAME, ID.|
00000220: 72 06 7F 0B 81 01 7C 05  7D 04 01 86 04 00 01 90  |r.....|.}.......|
00000230: 09 70 0B 00 00 00 7B 01  9A 0B 5F 02 00 93 4B 65  |.p....{..._...Ke|
00000240: 66 61 01 A4 18 5F 03 0F  D3 4F 55 52 43 45 20 44  |fa..._...OURCE D|
00000250: 49 53 4B 20 49 53 3A 65  60 61 01 AE 06 5F 60 61  |ISK IS:e`a..._`a|
00000260: 01 B8 23 5F 03 08 12 CE  C1 CD C5 20 3A 92 65 66  |..#_....... :.ef|
00000270: 06 01 65 66 03 06 12 C9  C4 20 3A 92 65 66 06 02  |..ef..... :.ef..|
00000280: 65 60 61 01 C2 06 5F 60  61 01 CC 1E B5 03 13 C8  |e`a..._`a.......|
00000290: 4F 57 20 4D 41 4E 59 20  43 4F 50 49 45 53 3F 20  |OW MANY COPIES? |
000002A0: 3A 20 B7 08 0C B9 BB 01  D6 09 08 0D 02 00 00 3B  |: .............;|
000002B0: 01 E0 04 95 01 EA 06 5F  60 61 01 F4 25 5F 03 1C  |......._`a..%_..|
000002C0: C9 4E 53 45 52 54 20 42  4C 41 4E 4B 20 44 49 53  |.NSERT BLANK DIS|
000002D0: 4B 20 49 4E 20 44 52 49  56 45 20 31 65 60 61 01  |K IN DRIVE 1e`a.|
000002E0: FE 22 5F 03 19 C8 49 54  20 41 4E 59 20 4B 45 59  |."_...IT ANY KEY|
000002F0: 20 57 48 45 4E 20 52 45  41 44 59 2E 2E 2E 65 60  | WHEN READY...e`|
00000300: 61 02 08 06 7F 0A 81 02  12 0A 03 04 44 31 3D 30  |a...........D1=0|
00000310: 7E 02 1C 06 7F 0E 81 02  26 09 08 0D 02 00 01 3E  |~.......&......>|
00000320: 02 30 28 5F 03 0C C3 4F  50 59 20 4E 55 4D 42 45  |.0(_...OPY NUMBE|
00000330: 52 20 65 66 05 0D 64 66  03 0B 20 43 4F 4D 50 4C  |R ef..df.. COMPL|
00000340: 45 54 45 44 2E 65 60 61  02 3A 0C DA 05 0C 05 0D  |ETED.e`a.:......|
00000350: 2C 96 00 00 02 44 06 5F  60 61 02 4E 2A 5F 03 21  |,....D._`a.N*_.!|
00000360: D0 4C 41 43 45 20 4E 45  58 54 20 53 4F 55 52 43  |.LACE NEXT SOURC|
00000370: 45 20 44 49 53 4B 20 49  4E 20 44 52 49 56 45 20  |E DISK IN DRIVE |
00000380: 30 65 60 61 02 58 23 5F  03 1A 11 C8 49 54 20 41  |0e`a.X#_....IT A|
00000390: 4E 59 20 4B 45 59 20 57  48 45 4E 20 52 45 41 44  |NY KEY WHEN READ|
000003A0: 59 2E 2E 2E 65 60 61 02  62 06 7F 0A 81 02 6C 06  |Y...e`a.b.....l.|
000003B0: 7F 04 81 02 76 05 7D 0B  02 80 04 00 02 8A 04 00  |....v.}.........|
000003C0: 02 94 09 70 0E 00 00 00  7B 02 9E 14 DB 02 00 FF  |...p....{.......|
000003D0: DC 03 00 DD 02 00 04 E2  02 00 07 E3 DE 02 A8 0A  |................|
000003E0: BD 03 03 4C 50 3A BE 02  B2 1F 5F 03 06 CE C1 CD  |...LP:...._.....|
000003F0: C5 3A 20 65 66 06 01 65  66 03 04 C9 C4 3A 20 65  |.: ef..ef....: e|
00000400: 66 06 02 65 60 61 02 BC  14 82 0F 10 00 02 00 01  |f..e`a..........|
00000410: 84 02 00 05 85 88 5F 60  61 89 02 C6 0A BD 03 03  |......_`a.......|
00000420: 44 53 3A BE 02 D0 08 CF  02 00 FF D0 02 DA 05 7D  |DS:............}|
00000430: 0E 02 E4 04 00 02 EE 04  00 02 F8 09 70 0A 00 00  |............p...|
00000440: 00 7B 03 02 0D 97 F9 02  00 00 4B 2D 99 F4 9A 03  |.{........K-....|
00000450: 0C 05 7D 0A 03 16 04 00  03 20 18 00 44 45 4C 45  |..}...... ..DELE|
00000460: 54 45 20 22 30 3A 44 49  53 4B 27 47 45 54 2E 4C  |TE "0:DISK'GET.L|
00000470: 03 2A 18 00 20 46 52 4F  4D 20 43 4F 4C 49 4E 20  |.*.. FROM COLIN |
00000480: 54 48 4F 4D 50 53 4F 4E  03 34 16 00 53 41 56 45  |THOMPSON.4..SAVE|
00000490: 20 20 20 22 44 49 53 4B  27 47 45 54 2E 4C 03 3E  |   "DISK'GET.L.>|
000004A0: 11 00 44 45 4C 20 39 30  30 30 2D 39 30 34 30 03  |..DEL 9000-9040.|
000004B0: 48 1E 00 49 4D 50 52 4F  56 45 44 20 44 49 53 4B  |H..IMPROVED DISK|
000004C0: 20 47 45 54 20 52 4F 55  54 49 4E 45 53 03 52 04  | GET ROUTINES.R.|
000004D0: 00 03 5C 0D E9 10 00 00  02 72 11 75 07 7C 03 66  |..\......r.u.|.f|
000004E0: 0B E4 02 07 EC E5 04 11  E6 03 70 0C E4 02 07 EA  |..........p.....|
000004F0: E5 02 00 01 E6 03 7A 08  E7 02 07 E9 E8 03 84 0A  |......z.........|
00000500: 07 07 02 00 90 D8 3A 03  8E 1C EF 02 07 E8 D8 F2  |......:.........|
00000510: 00 56 41 4C 55 45 20 4F  46 20 43 48 41 52 41 43  |.VALUE OF CHARAC|
00000520: 54 45 52 03 98 05 EC 10  03 A2 04 00 03 AC 09 70  |TER............p|
00000530: 03 00 00 00 7C 03 B6 10  83 12 00 00 02 07 E8 84  |....|...........|
00000540: 02 07 FC 85 87 03 C0 08  AF 07 13 B0 B3 03 CA 0A  |................|
00000550: E4 05 12 E5 04 13 E6 03  D4 07 8B 12 00 00 03 DE  |................|
00000560: 1C AA AD 00 00 AD 00 A0  AD 00 00 AD 00 A2 AD 00  |................|
00000570: 00 AD 00 20 AD 00 C6 AB  00 00 03 E8 1C AA AD 00  |... ............|
00000580: FF AD 00 20 AD 00 CF AD  00 FF AD 00 88 AD 00 D0  |... ............|
00000590: AD 00 FA AB 00 00 03 F2  1C AA AD 00 8D AD 00 E8  |................|
000005A0: AD 00 07 AD 00 20 AD 00  CC AD 00 FF AD 00 60 AB  |..... ........`.|
000005B0: 00 00 03 FC 05 7D 03 04  06 04 00 04 10 0F 70 08  |.....}........p.|
000005C0: 00 00 03 72 14 72 11 75  07 7C 04 1A 0B E4 02 07  |...r.r.u.|......|
000005D0: EA E5 04 14 E6 04 24 0B  E4 02 07 EC E5 04 11 E6  |......$.........|
000005E0: 04 2E 08 E7 02 07 E9 E8  04 38 0A 07 07 02 00 90  |.........8......|
000005F0: D8 3A 04 42 05 7D 08 04  4C 04 00 04 56 11 70 09  |.:.B.}..L...V.p.|
00000600: 00 00 04 77 15 72 14 72  11 75 07 7C 04 60 08 09  |...w.r.r.u.|.`..|
00000610: 15 03 00 3C 04 6A 1F 83  16 0F 00 02 00 01 84 04  |...<.j..........|
00000620: 14 85 88 0C 15 08 16 1D  0A 10 07 11 10 07 07 16  |................|
00000630: 4B 3C 89 04 74 23 97 02  00 A0 4B 06 15 36 99 0C  |K<..t#....K..6..|
00000640: 15 02 00 A0 4B 06 15 36  19 02 00 20 4B 3C 9A 00  |....K..6... K<..|
00000650: 2A 2A 4B 51 2A 2A 04 7E  05 7D 09 04 88 04 00 04  |**KQ**.~.}......|
00000660: 92 1D 00 20 45 4E 44 20  4F 46 20 44 49 53 4B 20  |... END OF DISK |
00000670: 47 45 54 20 52 4F 55 54  49 4E 45 53 04 9C 04 00  |GET ROUTINES....|
00000680: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000690: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000006A0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000006B0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000006C0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000006D0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000006E0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 09 44  |...............D|
000006F0: 49 53 4B 27 4E 41 4D 45  07 44 49 53 4B 27 49 44  |ISK'NAME.DISK'ID|
00000700: 0D 44 49 53 4B 27 47 45  54 27 49 4E 49 54 04 4D  |.DISK'GET'INIT.M|
00000710: 41 49 4E 08 52 45 41 44  27 44 49 52 0B 4D 41 53  |AIN.READ'DIR.MAS|
00000720: 54 45 52 27 46 49 4C 45  08 46 49 4C 45 27 45 4E  |TER'FILE.FILE'EN|
00000730: 44 0D 44 49 53 4B 27 47  45 54 27 53 4B 49 50 0F  |D.DISK'GET'SKIP.|
00000740: 44 49 53 4B 27 47 45 54  27 53 54 52 49 4E 47 04  |DISK'GET'STRING.|
00000750: 57 41 49 54 09 43 4F 50  59 27 44 49 53 4B 04 43  |WAIT.COPY'DISK.C|
00000760: 4F 50 59 09 54 48 49 53  27 43 4F 50 59 0B 50 52  |OPY.THIS'COPY.PR|
00000770: 49 4E 54 27 4C 41 42 45  4C 01 49 08 44 49 53 4B  |INT'LABEL.I.DISK|
00000780: 27 47 45 54 08 46 49 4C  45 27 4E 55 4D 03 4C 4F  |'GET.FILE'NUM.LO|
00000790: 43 01 56 05 43 4F 55 4E  54 04 49 54 45 4D 01 58  |C.V.COUNT.ITEM.X|
000007A0: 00 00                                             |..              |

Z.........DELETE "0:SD2'COPY&LABEL".... 
 BY KEVIN QUIGGLE....SAVE   "@0:SD2'COPY
&LABEL".(.................E.2....<....
F.OQ.P...Z.P....{.D...I0~.N......:.X....
...$0.......D:........................
........ .............................
...OQ...}..H...R.P....{..._...KEFA.CLEAR
 SCREEN.... ....!....F....G.............
_`A..._`A..0_.'.REQUIRES MSD DUAL DRIVE.
 NOT FOR 1541SE`A."._`A.,,_.#INSERT DISK
 TO BE COPIED IN DRIVE 0E`A.6._`A.@(_..M
AKE SURE LABELS ARE IN PRINTERE`A.J._`A.
T"_..HIT ANY KEY WHEN READY...E`A.^....
H....GET DISK NAME, ID.R....|.}.......
.P....{..._...KEFA..._..SOURCE DISK IS:E
`A..._`A..#_...NAME :.EF..EF...ID :.EF..
E`A.B._`A.L....HOW MANY COPIES? : ......
V......;......._`A..%_..INSERT BLANK DIS
K IN DRIVE 1E`A.."_..HIT ANY KEY WHEN RE
ADY...E`A..........D1=0~......&......>
.0(_..COPY NUMBER EF..DF.. COMPLETED.E`A
.:.Z....,....D._`A.N*_.!PLACE NEXT SOURC
E DISK IN DRIVE 0E`A.X#_...HIT ANY KEY W
HEN READY...E`A.B....L....V.}.........
...P....{..........................LP:..
.._..NAME: EF..EF..ID: EF..E`A..........
......_`A..F....DS:..P.O...P.Z.}........
....P....{........K-......}...... ..DELE
TE "0:DISK'GET.L.*.. FROM COLIN THOMPSON
.4..SAVE   "DISK'GET.L.>..DEL 9000-9040.
H..IMPROVED DISK GET ROUTINES.R...\.....
.R.U.|.F..........P...........Z.........
.....X:.......X..VALUE OF CHARACTER.....
.......P....|.........................J.
........T.............. ........... ..F.
........... ..O........P................
..... ..L.....`......}........P....R.R.U
.|............$..................8......
X:.B.}..L...V.P....W.R.R.U.|.`.....<.J..
........................K<..T#... K..6..
... K..6... K<..**KQ**.~.}......... END 
OF DISK GET ROUTINES....................
........................................
........................................
...............DISK'NAME.DISK'ID.DISK'GE
T'INIT.MAIN.READ'DIR.MASTER'FILE.FILE'EN
D.DISK'GET'SKIP.DISK'GET'STRING.WAIT.COP
Y'DISK.COPY.THIS'COPY.PRINT'LABEL.I.DISK
'GET.FILE'NUM.LOC.V.COUNT.ITEM.X..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL