COPY&LABEL
FILE INFORMATION
FILENAME(S): COPY&LABEL
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-12-01 01:48:19
APPEARS ON: 2 disk(s)
FILE HASH
ff392da2e6870259a104bbc8ac0e23788824e43501c105426b53df6dc34a60d5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMAL 2 | COPY&LABEL | PRG | hedning, Mattias H00r | 12 | 1 | DOWNLOAD FILE |
| CCS COMAL 2 | COPY&LABEL | PRG | hedning, Mattias H00r | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 06 78 06 33 07 00 0A 1B 00 44 45 4C 45 54 45 |..x.3.....DELETE|
00000010: 20 22 30 3A 43 4F 50 59 26 4C 41 42 45 4C 27 31 | "0:COPY&LABEL'1|
00000020: 22 00 14 16 00 20 20 42 59 20 4B 45 56 49 4E 20 |".... BY KEVIN |
00000030: 51 55 49 47 47 4C 45 00 1E 1B 00 53 41 56 45 20 |QUIGGLE....SAVE |
00000040: 20 20 22 30 3A 43 4F 50 59 26 4C 41 42 45 4C 27 | "0:COPY&LABEL'|
00000050: 33 22 00 28 14 8C 8F 02 00 02 00 10 93 8F 03 00 |3".(............|
00000060: 02 00 04 93 94 C5 00 32 06 7F 04 81 00 3C 06 7F |.......2.....<..|
00000070: 05 81 00 46 05 CF D1 00 50 04 00 00 5A 09 70 06 |...F....P...Z.p.|
00000080: 00 00 00 7B 00 64 08 03 02 49 30 7E 00 6E 09 07 |...{.d...I0~.n..|
00000090: 07 02 00 02 3A 00 78 0D DB 04 07 DC 03 02 24 30 |....:.x.......$0|
000000A0: DD DE 00 82 07 07 08 44 3A 00 8C 0F 7F 09 02 00 |.......D:.......|
000000B0: 8E 0D 07 07 10 07 08 16 00 96 12 7F 0A 09 02 12 |................|
000000C0: 02 00 10 0D 07 07 10 07 08 16 00 A0 0F 7F 09 02 |................|
000000D0: 00 02 0D 07 07 10 07 08 16 00 AA 12 7F 0A 09 03 |................|
000000E0: 12 02 00 02 0D 07 07 10 07 08 16 00 B4 05 CF D1 |................|
000000F0: 00 BE 05 7D 06 00 C8 04 00 00 D2 09 70 05 00 00 |...}........p...|
00000100: 00 7B 00 DC 18 5F 02 00 93 4B 65 66 61 00 43 4C |.{..._...Kefa.CL|
00000110: 45 41 52 20 53 43 52 45 45 4E 00 E6 0A FF 20 02 |EAR SCREEN.... .|
00000120: 00 04 FF 21 00 F0 0A FF 46 02 00 04 FF 47 00 FA |...!....F....G..|
00000130: 0A FF 1E 02 00 01 FF 1F 01 04 06 5F 60 61 01 0E |..........._`a..|
00000140: 06 5F 60 61 01 18 30 5F 03 27 12 D2 45 51 55 49 |._`a..0_.'..EQUI|
00000150: 52 45 53 20 CD D3 C4 20 C4 55 41 4C 20 C4 52 49 |RES ... .UAL .RI|
00000160: 56 45 2E 20 CE 4F 54 20 46 4F 52 20 31 35 34 31 |VE. .OT FOR 1541|
00000170: 53 65 60 61 01 22 06 5F 60 61 01 2C 2C 5F 03 23 |Se`a."._`a.,,_.#|
00000180: C9 4E 53 45 52 54 20 44 49 53 4B 20 54 4F 20 42 |.NSERT DISK TO B|
00000190: 45 20 43 4F 50 49 45 44 20 49 4E 20 44 52 49 56 |E COPIED IN DRIV|
000001A0: 45 20 30 65 60 61 01 36 06 5F 60 61 01 40 28 5F |E 0e`a.6._`a.@(_|
000001B0: 03 1F CD C1 CB C5 20 D3 D5 D2 C5 20 CC C1 C2 C5 |...... .... ....|
000001C0: CC D3 20 C1 D2 C5 20 C9 CE 20 D0 D2 C9 CE D4 C5 |.. ... .. ......|
000001D0: D2 65 60 61 01 4A 06 5F 60 61 01 54 22 5F 03 19 |.e`a.J._`a.T"_..|
000001E0: C8 49 54 20 41 4E 59 20 4B 45 59 20 57 48 45 4E |.IT ANY KEY WHEN|
000001F0: 20 52 45 41 44 59 2E 2E 2E 65 60 61 01 5E 06 7F | READY...e`a.^..|
00000200: 0B 81 01 68 18 7F 06 81 00 47 45 54 20 44 49 53 |...h.....GET DIS|
00000210: 4B 20 4E 41 4D 45 2C 20 49 44 01 72 06 7F 0C 81 |K NAME, ID.r....|
00000220: 01 7C 05 7D 05 01 86 04 00 01 90 09 70 0C 00 00 |.|.}........p...|
00000230: 00 7B 01 9A 0B 5F 02 00 93 4B 65 66 61 01 A4 18 |.{..._...Kefa...|
00000240: 5F 03 0F D3 4F 55 52 43 45 20 44 49 53 4B 20 49 |_...OURCE DISK I|
00000250: 53 3A 65 60 61 01 AE 06 5F 60 61 01 B8 23 5F 03 |S:e`a..._`a..#_.|
00000260: 08 12 CE C1 CD C5 20 3A 92 65 66 06 02 65 66 03 |...... :.ef..ef.|
00000270: 06 12 C9 C4 20 3A 92 65 66 06 03 65 60 61 01 C2 |.... :.ef..e`a..|
00000280: 06 5F 60 61 01 CC 1E B5 03 13 C8 4F 57 20 4D 41 |._`a.......OW MA|
00000290: 4E 59 20 43 4F 50 49 45 53 3F 20 3A 20 B7 08 0D |NY COPIES? : ...|
000002A0: B9 BB 01 D6 09 08 0E 02 00 00 3B 01 E0 04 95 01 |..........;.....|
000002B0: EA 06 5F 60 61 01 F4 25 5F 03 1C C9 4E 53 45 52 |.._`a..%_...NSER|
000002C0: 54 20 42 4C 41 4E 4B 20 44 49 53 4B 20 49 4E 20 |T BLANK DISK IN |
000002D0: 44 52 49 56 45 20 31 65 60 61 01 FE 22 5F 03 19 |DRIVE 1e`a.."_..|
000002E0: C8 49 54 20 41 4E 59 20 4B 45 59 20 57 48 45 4E |.IT ANY KEY WHEN|
000002F0: 20 52 45 41 44 59 2E 2E 2E 65 60 61 02 08 06 7F | READY...e`a....|
00000300: 0B 81 02 12 0A 03 04 44 31 3D 30 7E 02 1C 06 7F |.......D1=0~....|
00000310: 0F 81 02 26 09 08 0E 02 00 01 3E 02 30 28 5F 03 |...&......>.0(_.|
00000320: 0C C3 4F 50 59 20 4E 55 4D 42 45 52 20 65 66 05 |..OPY NUMBER ef.|
00000330: 0E 64 66 03 0B 20 43 4F 4D 50 4C 45 54 45 44 2E |.df.. COMPLETED.|
00000340: 65 60 61 02 3A 0C DA 05 0D 05 0E 2C 96 00 00 02 |e`a.:......,....|
00000350: 44 06 5F 60 61 02 4E 2A 5F 03 21 D0 4C 41 43 45 |D._`a.N*_.!.LACE|
00000360: 20 4E 45 58 54 20 53 4F 55 52 43 45 20 44 49 53 | NEXT SOURCE DIS|
00000370: 4B 20 49 4E 20 44 52 49 56 45 20 30 65 60 61 02 |K IN DRIVE 0e`a.|
00000380: 58 23 5F 03 1A 11 C8 49 54 20 41 4E 59 20 4B 45 |X#_....IT ANY KE|
00000390: 59 20 57 48 45 4E 20 52 45 41 44 59 2E 2E 2E 65 |Y WHEN READY...e|
000003A0: 60 61 02 62 06 7F 0B 81 02 6C 06 7F 05 81 02 76 |`a.b.....l.....v|
000003B0: 05 7D 0C 02 80 04 00 02 8A 04 00 02 94 09 70 0F |.}............p.|
000003C0: 00 00 00 7B 02 9E 14 DB 02 00 FF DC 03 00 DD 02 |...{............|
000003D0: 00 04 E2 02 00 07 E3 DE 02 A8 0A BD 03 03 4C 50 |..............LP|
000003E0: 3A BE 02 B2 1F 5F 03 06 CE C1 CD C5 3A 20 65 66 |:...._......: ef|
000003F0: 06 02 65 66 03 04 C9 C4 3A 20 65 66 06 03 65 60 |..ef....: ef..e`|
00000400: 61 02 BC 14 82 10 10 00 02 00 01 84 02 00 05 85 |a...............|
00000410: 88 5F 60 61 89 02 C6 0A BD 03 03 44 53 3A BE 02 |._`a.......DS:..|
00000420: D0 08 CF 02 00 FF D0 02 DA 05 7D 0F 02 E4 04 00 |..........}.....|
00000430: 02 EE 04 00 02 F8 09 70 0B 00 00 00 7B 03 02 0D |.......p....{...|
00000440: 97 F9 02 00 00 4B 2D 99 F4 9A 03 0C 05 7D 0B 03 |.....K-......}..|
00000450: 16 04 00 03 20 04 00 03 2A 0D E9 11 00 00 02 72 |.... ...*......r|
00000460: 12 75 08 7C 03 34 0B E4 02 07 EC E5 04 12 E6 03 |.u.|.4..........|
00000470: 3E 0C E4 02 07 EA E5 02 00 01 E6 03 48 08 E7 02 |>...........H...|
00000480: 07 E9 E8 03 52 0A 07 08 02 00 90 D8 3A 03 5C 1C |....R.......:.\.|
00000490: EF 02 07 E8 D8 F2 00 56 41 4C 55 45 20 4F 46 20 |.......VALUE OF |
000004A0: 43 48 41 52 41 43 54 45 52 03 66 05 EC 11 03 70 |CHARACTER.f....p|
000004B0: 04 00 03 7A 09 70 04 00 00 00 7C 03 84 10 83 13 |...z.p....|.....|
000004C0: 00 00 02 07 E8 84 02 07 FC 85 87 03 8E 08 AF 07 |................|
000004D0: 14 B0 B3 03 98 0A E4 05 13 E5 04 14 E6 03 A2 07 |................|
000004E0: 8B 13 00 00 03 AC 1C AA AD 00 00 AD 00 A0 AD 00 |................|
000004F0: 00 AD 00 A2 AD 00 00 AD 00 20 AD 00 C6 AB 00 00 |......... ......|
00000500: 03 B6 1C AA AD 00 FF AD 00 20 AD 00 CF AD 00 FF |......... ......|
00000510: AD 00 88 AD 00 D0 AD 00 FA AB 00 00 03 C0 1C AA |................|
00000520: AD 00 8D AD 00 E8 AD 00 07 AD 00 20 AD 00 CC AD |........... ....|
00000530: 00 FF AD 00 60 AB 00 00 03 CA 05 7D 04 03 D4 04 |....`......}....|
00000540: 00 03 DE 0F 70 09 00 00 03 72 15 72 12 75 08 7C |....p....r.r.u.||
00000550: 03 E8 0B E4 02 07 EA E5 04 15 E6 03 F2 0B E4 02 |................|
00000560: 07 EC E5 04 12 E6 03 FC 08 E7 02 07 E9 E8 04 06 |................|
00000570: 0A 07 08 02 00 90 D8 3A 04 10 05 7D 09 04 1A 04 |.......:...}....|
00000580: 00 04 24 11 70 0A 00 00 04 77 16 72 15 72 12 75 |..$.p....w.r.r.u|
00000590: 08 7C 04 2E 08 09 16 03 00 3C 04 38 1F 83 17 0F |.|.......<.8....|
000005A0: 00 02 00 01 84 04 15 85 88 0C 16 08 17 1D 0A 11 |................|
000005B0: 07 12 10 07 08 16 4B 3C 89 04 42 23 97 02 00 A0 |......K<..B#....|
000005C0: 4B 06 16 36 99 0C 16 02 00 A0 4B 06 16 36 19 02 |K..6......K..6..|
000005D0: 00 20 4B 3C 9A 00 2A 2A 4B 51 2A 2A 04 4C 05 7D |. K<..**KQ**.L.}|
000005E0: 0A 04 56 04 00 04 60 1D 00 20 45 4E 44 20 4F 46 |..V...`.. END OF|
000005F0: 20 44 49 53 4B 20 47 45 54 20 52 4F 55 54 49 4E | DISK GET ROUTIN|
00000600: 45 53 04 6A 04 00 00 00 00 00 00 00 00 00 00 00 |ES.j............|
00000610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 53 |...............S|
00000680: 45 51 09 44 49 53 4B 27 4E 41 4D 45 07 44 49 53 |EQ.DISK'NAME.DIS|
00000690: 4B 27 49 44 0D 44 49 53 4B 27 47 45 54 27 49 4E |K'ID.DISK'GET'IN|
000006A0: 49 54 04 4D 41 49 4E 08 52 45 41 44 27 44 49 52 |IT.MAIN.READ'DIR|
000006B0: 0B 4D 41 53 54 45 52 27 46 49 4C 45 08 46 49 4C |.MASTER'FILE.FIL|
000006C0: 45 27 45 4E 44 0D 44 49 53 4B 27 47 45 54 27 53 |E'END.DISK'GET'S|
000006D0: 4B 49 50 0F 44 49 53 4B 27 47 45 54 27 53 54 52 |KIP.DISK'GET'STR|
000006E0: 49 4E 47 04 57 41 49 54 09 43 4F 50 59 27 44 49 |ING.WAIT.COPY'DI|
000006F0: 53 4B 04 43 4F 50 59 09 54 48 49 53 27 43 4F 50 |SK.COPY.THIS'COP|
00000700: 59 0B 50 52 49 4E 54 27 4C 41 42 45 4C 01 49 08 |Y.PRINT'LABEL.I.|
00000710: 44 49 53 4B 27 47 45 54 08 46 49 4C 45 27 4E 55 |DISK'GET.FILE'NU|
00000720: 4D 03 4C 4F 43 01 56 05 43 4F 55 4E 54 04 49 54 |M.LOC.V.COUNT.IT|
00000730: 45 4D 01 58 03 4C 53 54 00 00 |EM.X.LST.. |
..X.3.....DELETE "0:COPY&LABEL'1".... B
Y KEVIN QUIGGLE....SAVE "0:COPY&LABEL'
3".(.................E.2....<....F.OQ.
P...Z.P....{.D...I0~.N......:.X.......$0
.......D:.............................
... ................................OQ
...}..H...R.P....{..._...KEFA.CLEAR SCRE
EN.... ....!....F....G............._`A..
._`A..0_.'.REQUIRES MSD DUAL DRIVE. NOT
FOR 1541SE`A."._`A.,,_.#INSERT DISK TO B
E COPIED IN DRIVE 0E`A.6._`A.@(_..MAKE S
URE 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 DISK IN
DRIVE 1E`A.."_..HIT ANY KEY WHEN READY..
.E`A..........D1=0~......&......>.0(_.
.COPY NUMBER EF..DF.. COMPLETED.E`A.:.Z.
...,....D._`A.N*_.!PLACE NEXT SOURCE DIS
K IN DRIVE 0E`A.X#_...HIT ANY KEY WHEN R
EADY...E`A.B....L....V.}............P.
...{..........................LP:...._..
NAME: EF..EF..ID: EF..E`A...............
._`A..F....DS:..P.O...P.Z.}............P
....{........K-......}...... ...*......R
.U.|.4..........>...........H.......R...
...X:.\.....X..VALUE OF CHARACTER.F....P
...Z.P....|.............................
..................... ........... ..F...
......... ..O........P..................
... ..L.....`....J.}..T.....P....R.R.U.|
......................................X:
...}......$.P....W.R.R.U.|.......<.8....
......................K<..B#... K..6....
. K..6... K<..**KQ**.L.}..V...`.. END OF
DISK GET ROUTINES.J....................
........................................
........................................
.......................SEQ.DISK'NAME.DIS
K'ID.DISK'GET'INIT.MAIN.READ'DIR.MASTER'
FILE.FILE'END.DISK'GET'SKIP.DISK'GET'STR
ING.WAIT.COPY'DISK.COPY.THIS'COPY.PRINT'
LABEL.I.DISK'GET.FILE'NUM.LOC.V.COUNT.IT
EM.X.LST..
> CLICK IMAGE PREVIEW FOR FULL MODAL