LABEL MAKER

FILE INFORMATION

FILENAME(S): LABEL MAKER

FILE TYPE(S): PRG

FILE SIZE: 2.7K

FIRST SEEN: 2025-12-01 02:25:53

APPEARS ON: 1 disk(s)

FILE HASH

5cdfed3f218d240fc8493d3d772dd13d6e177820b737873d8ab537747208c470

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DISK ARRANGER A	LABEL MAKER	PRG	Shine	29	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1F 08 0A 00 97 35  33 32 38 30 2C 31 32 3A  |.......53280,12:|
00000010: 97 35 33 32 38 31 2C 31  32 3A 8D 31 30 30 30 00  |.53281,12:.1000.|
00000020: 41 08 14 00 99 22 93 22  3A 99 A3 31 32 29 22 05  |A....".":..12)".|
00000030: 4C 41 42 45 4C 20 4D 41  4B 45 52 20 4D 45 4E 55  |LABEL MAKER MENU|
00000040: 22 00 53 08 1E 00 99 A3  31 32 29 C8 28 4C 24 2C  |".S.....12).(L$,|
00000050: 31 37 29 00 81 08 28 00  99 22 11 11 11 11 11 05  |17)...(.."......|
00000060: 20 31 2E 20 90 50 52 45  50 41 52 45 20 43 41 54  | 1. .PREPARE CAT|
00000070: 45 47 4F 52 59 20 44 49  53 4B 20 4C 41 42 45 4C  |EGORY DISK LABEL|
00000080: 22 00 AB 08 32 00 99 22  11 05 20 32 2E 20 90 50  |"...2..".. 2. .P|
00000090: 52 45 50 41 52 45 20 53  45 50 41 52 41 54 45 20  |REPARE SEPARATE |
000000A0: 44 49 53 4B 20 4C 41 42  45 4C 22 00 CE 08 3C 00  |DISK LABEL"...<.|
000000B0: 99 22 11 05 20 33 2E 20  90 54 45 53 54 20 4C 41  |.".. 3. .TEST LA|
000000C0: 42 45 4C 20 41 4C 49 47  4E 4D 45 4E 54 22 00 F1  |BEL ALIGNMENT"..|
000000D0: 08 46 00 99 22 11 05 20  34 2E 20 90 50 52 49 4E  |.F..".. 4. .PRIN|
000000E0: 54 20 50 52 45 50 41 52  45 44 20 4C 41 42 45 4C  |T PREPARED LABEL|
000000F0: 22 00 04 09 50 00 99 22  11 05 20 35 2E 20 90 51  |"...P..".. 5. .Q|
00000100: 55 49 54 22 00 1E 09 5A  00 A1 41 24 3A 8B 41 24  |UIT"...Z..A$:.A$|
00000110: B3 22 31 22 B0 41 24 B1  22 35 22 A7 39 30 00 3D  |."1".A$."5".90.=|
00000120: 09 5F 00 91 C5 28 41 24  29 89 31 30 30 2C 33 30  |._...(A$).100,30|
00000130: 30 2C 35 30 30 2C 36 30  30 2C 38 30 30 00 5F 09  |0,500,600,800._.|
00000140: 64 00 8F 20 50 52 45 50  41 52 45 20 43 41 54 45  |d.. PREPARE CATE|
00000150: 47 4F 52 59 20 44 49 53  4B 20 4C 41 42 45 4C 00  |GORY DISK LABEL.|
00000160: 8A 09 6E 00 99 22 93 11  05 20 20 20 20 20 20 20  |..n.."...       |
00000170: 20 20 20 20 20 20 43 41  54 45 47 4F 52 59 20 4C  |      CATEGORY L|
00000180: 41 42 45 4C 22 3A 54 4C  B2 31 00 9C 09 78 00 99  |ABEL":TL.1...x..|
00000190: A3 31 33 29 C8 28 4C 24  2C 31 35 29 00 C1 09 82  |.13).(L$,15)....|
000001A0: 00 99 22 11 11 11 90 44  49 53 4B 20 4E 41 4D 45  |.."....DISK NAME|
000001B0: 20 20 20 22 3B 3A 4E 55  B2 31 36 3A 8D 32 30 30  |   ";:NU.16:.200|
000001C0: 30 00 D1 09 8C 00 99 22  93 22 3A 44 4E 24 B2 50  |0......".":DN$.P|
000001D0: 24 00 03 0A 96 00 99 C8  28 53 24 2C 28 31 30 AB  |$.......(S$,(10.|
000001E0: C3 28 44 4E 24 29 AD 32  29 29 22 05 43 41 54 45  |.(DN$).2))".CATE|
000001F0: 47 4F 52 59 20 4C 41 42  45 4C 20 46 4F 52 20 22  |GORY LABEL FOR "|
00000200: 44 4E 24 00 2B 0A A0 00  99 C8 28 53 24 2C 28 31  |DN$.+.....(S$,(1|
00000210: 30 AB C3 28 44 4E 24 29  AD 32 29 29 C8 28 4C 24  |0..(DN$).2)).(L$|
00000220: 2C 32 30 AA C3 28 44 4E  24 29 29 00 45 0A AA 00  |,20..(DN$)).E...|
00000230: 99 A3 31 36 29 22 05 53  49 44 45 20 31 11 22 3A  |..16)".SIDE 1.":|
00000240: 4E 55 B2 33 30 00 53 0A  B4 00 81 43 B2 31 A4 31  |NU.30.S....C.1.1|
00000250: 31 A9 32 00 83 0A BE 00  99 22 05 50 52 47 20 23  |1.2......".PRG #|
00000260: 22 CA 28 49 50 24 2C 43  2C 31 29 22 90 22 3B 3A  |".(IP$,C,1)".";:|
00000270: 8D 32 30 30 30 3A 99 3A  50 4E 24 28 43 29 B2 50  |.2000:.:PN$(C).P|
00000280: 24 3A 82 00 98 0A C8 00  99 A3 31 36 29 22 11 05  |$:........16)"..|
00000290: 53 49 44 45 20 32 11 22  00 A6 0A D2 00 81 43 B2  |SIDE 2."......C.|
000002A0: 32 A4 31 32 A9 32 00 D6  0A DC 00 99 22 05 50 52  |2.12.2......".PR|
000002B0: 47 20 23 22 CA 28 49 50  24 2C 43 2C 31 29 22 90  |G #".(IP$,C,1)".|
000002C0: 22 3B 3A 8D 32 30 30 30  3A 99 3A 50 4E 24 28 43  |";:.2000:.:PN$(C|
000002D0: 29 B2 50 24 3A 82 00 EA  0A E6 00 81 58 B2 31 A4  |).P$:.......X.1.|
000002E0: 31 35 30 30 3A 82 3A 89  32 30 00 0C 0B 2C 01 8F  |1500:.:.20...,..|
000002F0: 20 50 52 45 50 41 52 45  20 53 45 50 41 52 41 54  | PREPARE SEPARAT|
00000300: 45 20 44 49 53 4B 20 4C  41 42 45 4C 00 3F 0B 36  |E DISK LABEL.?.6|
00000310: 01 99 22 93 11 05 20 20  20 20 20 20 20 20 20 20  |.."...          |
00000320: 53 45 50 41 52 41 54 45  20 44 49 53 4B 20 4C 41  |SEPARATE DISK LA|
00000330: 42 45 4C 22 3A 54 4C B2  32 3A 4E 55 B2 33 35 00  |BEL":TL.2:NU.35.|
00000340: 51 0B 40 01 99 A3 31 30  29 C8 28 4C 24 2C 32 30  |Q.@...10).(L$,20|
00000350: 29 00 87 0B 4A 01 99 22  11 11 11 11 11 11 05 D5  |)...J.."........|
00000360: C0 C0 C0 C0 C0 C0 C0 C0  C0 DB C0 C0 C0 C0 C0 C0  |................|
00000370: C0 C0 DB C0 C0 C0 C0 C0  C0 C0 C0 DB C0 C0 C0 C0  |................|
00000380: C0 C0 C0 C0 C0 C9 22 00  A0 0B 54 01 81 58 B2 31  |......"...T..X.1|
00000390: A4 38 3A 99 22 C2 22 A3  33 38 29 22 C2 22 3A 82  |.8:.".".38)".":.|
000003A0: 00 CF 0B 5E 01 99 22 CA  C0 C0 C0 C0 C0 C0 C0 C0  |...^..".........|
000003B0: C0 DB C0 C0 C0 C0 C0 C0  C0 C0 DB C0 C0 C0 C0 C0  |................|
000003C0: C0 C0 C0 DB C0 C0 C0 C0  C0 C0 C0 C0 C0 CB 22 00  |..............".|
000003D0: 0A 0C 68 01 81 43 B2 31  A4 36 3A 99 22 13 11 11  |..h..C.1.6:."...|
000003E0: 11 11 11 05 45 4E 54 45  52 20 4C 49 4E 45 20 23  |....ENTER LINE #|
000003F0: 20 22 CA 28 49 50 24 2C  43 AC 32 2C 31 29 3A 99  | ".(IP$,C.2,1):.|
00000400: C8 28 51 44 24 2C 34 AA  43 29 00 26 0C 72 01 99  |.(QD$,4.C).&.r..|
00000410: 22 1D 22 3B 3A 8D 32 30  30 30 3A 50 4E 24 28 43  |".";:.2000:PN$(C|
00000420: 29 B2 50 24 3A 82 00 3A  0C 7C 01 81 58 B2 31 A4  |).P$:..:.|..X.1.|
00000430: 31 35 30 30 3A 82 3A 89  32 30 00 40 0C F3 01 80  |1500:.:.20.@....|
00000440: 00 5B 0C F4 01 8F 20 54  45 53 54 20 4C 41 42 45  |.[.... TEST LABE|
00000450: 4C 20 41 4C 49 47 4E 4D  45 4E 54 00 92 0C FE 01  |L ALIGNMENT.....|
00000460: 99 22 93 11 05 20 20 20  20 20 20 20 20 20 20 54  |."...          T|
00000470: 45 53 54 20 4C 41 42 45  4C 20 41 4C 49 47 4E 4D  |EST LABEL ALIGNM|
00000480: 45 4E 54 22 3A 99 A3 31  30 29 C8 28 4C 24 2C 32  |ENT":..10).(L$,2|
00000490: 31 29 00 B0 0C 08 02 97  32 31 34 2C 31 31 3A 99  |1)......214,11:.|
000004A0: 3A 99 A3 31 35 29 22 90  57 4F 52 4B 49 4E 47 22  |:..15)".WORKING"|
000004B0: 00 F3 0C 12 02 44 4E 24  B2 22 58 58 58 58 58 58  |.....DN$."XXXXXX|
000004C0: 58 58 58 58 58 58 58 58  58 58 22 3A 50 4E 24 28  |XXXXXXXXXX":PN$(|
000004D0: 31 29 B2 22 58 58 58 58  58 58 58 58 58 58 58 58  |1)."XXXXXXXXXXXX|
000004E0: 58 58 58 58 58 58 58 58  58 58 58 58 58 58 58 58  |XXXXXXXXXXXXXXXX|
000004F0: 58 58 22 00 3A 0D 1C 02  50 4E 24 28 32 29 B2 50  |XX".:...PN$(2).P|
00000500: 4E 24 28 31 29 3A 50 4E  24 28 31 31 29 B2 50 4E  |N$(1):PN$(11).PN|
00000510: 24 28 31 29 3A 50 4E 24  28 31 32 29 B2 50 4E 24  |$(1):PN$(12).PN$|
00000520: 28 31 29 3A 81 43 B2 33  A4 39 A9 32 3A 50 4E 24  |(1):.C.3.9.2:PN$|
00000530: 28 43 29 B2 22 58 58 22  3A 82 00 72 0D 26 02 81  |(C)."XX":..r.&..|
00000540: 43 B2 34 A4 31 30 A9 32  3A 50 4E 24 28 43 29 B2  |C.4.10.2:PN$(C).|
00000550: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00000560: 20 20 20 20 20 20 20 20  20 20 20 20 20 58 58 22  |             XX"|
00000570: 3A 82 00 97 0D 30 02 9F  34 2C 34 3A 98 34 2C 45  |:....0..4,4:.4,E|
00000580: 24 C8 28 53 24 2C 28 32  30 AB C3 28 44 4E 24 29  |$.(S$,(20..(DN$)|
00000590: 29 AD 32 29 44 4E 24 00  A5 0D 3A 02 81 43 B2 31  |).2)DN$...:..C.1|
000005A0: A4 31 31 A9 32 00 C3 0D  44 02 53 4E 24 28 43 29  |.11.2...D.SN$(C)|
000005B0: B2 C8 28 53 24 2C 33 35  AB C3 28 50 4E 24 28 43  |..(S$,35..(PN$(C|
000005C0: 29 29 29 00 E3 0D 4E 02  98 34 2C 43 24 50 4E 24  |)))...N..4,C$PN$|
000005D0: 28 43 29 53 4E 24 28 43  29 50 4E 24 28 43 AA 31  |(C)SN$(C)PN$(C.1|
000005E0: 29 3A 82 00 F4 0D 53 02  98 34 3A 98 34 3A A0 34  |):....S..4:.4:.4|
000005F0: 3A 89 32 30 00 0F 0E 58  02 8F 20 50 52 49 4E 54  |:.20...X.. PRINT|
00000600: 20 50 52 45 50 41 52 45  44 20 4C 41 42 45 4C 00  | PREPARED LABEL.|
00000610: 39 0E 62 02 99 22 93 11  05 20 20 20 20 20 20 20  |9.b.."...       |
00000620: 20 50 52 49 4E 54 49 4E  47 20 50 52 45 50 41 52  | PRINTING PREPAR|
00000630: 45 44 20 4C 41 42 45 4C  22 00 4A 0E 6C 02 99 A3  |ED LABEL".J.l...|
00000640: 38 29 C8 28 4C 24 2C 32  34 29 00 68 0E 76 02 97  |8).(L$,24).h.v..|
00000650: 32 31 34 2C 31 31 3A 99  3A 99 A3 31 35 29 22 90  |214,11:.:..15)".|
00000660: 57 4F 52 4B 49 4E 47 22  00 7B 0E 80 02 9F 34 2C  |WORKING".{....4,|
00000670: 34 3A 8B 54 4C B2 32 A7  37 30 30 00 9B 0E 8A 02  |4:.TL.2.700.....|
00000680: 98 34 2C 45 24 C8 28 53  24 2C 28 32 30 AB C3 28  |.4,E$.(S$,(20..(|
00000690: 44 4E 24 29 29 AD 32 29  44 4E 24 00 A9 0E 94 02  |DN$)).2)DN$.....|
000006A0: 81 43 B2 31 A4 31 31 A9  32 00 C7 0E 9E 02 53 4E  |.C.1.11.2.....SN|
000006B0: 24 28 43 29 B2 C8 28 53  24 2C 33 35 AB C3 28 50  |$(C)..(S$,35..(P|
000006C0: 4E 24 28 43 29 29 29 00  E7 0E A8 02 98 34 2C 43  |N$(C)))......4,C|
000006D0: 24 50 4E 24 28 43 29 53  4E 24 28 43 29 50 4E 24  |$PN$(C)SN$(C)PN$|
000006E0: 28 43 AA 31 29 3A 82 00  F8 0E B2 02 98 34 3A 98  |(C.1):.......4:.|
000006F0: 34 3A A0 34 3A 89 32 30  00 06 0F BC 02 98 34 3A  |4:.4:.20......4:|
00000700: 81 43 B2 31 A4 36 00 1B  0F C6 02 98 34 2C 4E 24  |.C.1.6......4,N$|
00000710: 22 20 22 50 4E 24 28 43  29 3A 82 00 2C 0F D0 02  |" "PN$(C):..,...|
00000720: 98 34 3A 98 34 3A A0 34  3A 89 32 30 00 37 0F 20  |.4:.4:.4:.20.7. |
00000730: 03 8F 20 51 55 49 54 00  57 0F 2A 03 99 22 93 11  |.. QUIT.W.*.."..|
00000740: 05 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000750: 20 20 51 55 49 54 22 00  68 0F 34 03 99 A3 31 37  |  QUIT".h.4...17|
00000760: 29 C8 28 4C 24 2C 35 29  00 83 0F 3E 03 97 32 31  |).(L$,5)...>..21|
00000770: 34 2C 31 32 3A 99 3A 99  A3 31 36 29 22 1C 4F 4B  |4,12:.:..16)".OK|
00000780: 41 59 22 00 9B 0F 48 03  81 58 B2 31 A4 33 30 30  |AY"...H..X.1.300|
00000790: 30 3A 82 3A 99 22 93 11  11 90 22 00 A1 0F 52 03  |0:.:."...."...R.|
000007A0: 80 00 BE 0F E8 03 8F 20  53 45 54 20 55 50 20 50  |....... SET UP P|
000007B0: 52 49 4E 54 20 46 55 4E  43 54 49 4F 4E 53 00 D2  |RINT FUNCTIONS..|
000007C0: 0F F2 03 49 50 24 B2 C7  28 32 37 29 AA C7 28 36  |...IP$..(27)..(6|
000007D0: 34 29 00 E6 0F FC 03 44  53 24 B2 C7 28 32 37 29  |4).....DS$..(27)|
000007E0: AA C7 28 37 31 29 00 FA  0F 06 04 45 4D 24 B2 C7  |..(71).....EM$..|
000007F0: 28 32 37 29 AA C7 28 36  39 29 00 13 10 10 04 44  |(27)..(69).....D|
00000800: 57 24 B2 C7 28 32 37 29  AA C7 28 38 37 29 AA C7  |W$..(27)..(87)..|
00000810: 28 31 29 00 2C 10 1A 04  43 4F 24 B2 C7 28 32 37  |(1).,...CO$..(27|
00000820: 29 AA C7 28 36 36 29 AA  C7 28 33 29 00 3F 10 24  |)..(66)..(3).?.$|
00000830: 04 4E 24 B2 49 50 24 AA  44 53 24 AA 45 4D 24 00  |.N$.IP$.DS$.EM$.|
00000840: 56 10 2E 04 45 24 B2 49  50 24 AA 44 53 24 AA 45  |V...E$.IP$.DS$.E|
00000850: 4D 24 AA 44 57 24 00 6D  10 38 04 43 24 B2 49 50  |M$.DW$.m.8.C$.IP|
00000860: 24 AA 44 53 24 AA 45 4D  24 AA 43 4F 24 00 84 10  |$.DS$.EM$.CO$...|
00000870: 4C 04 8F 20 53 45 54 20  55 50 20 56 41 52 49 41  |L.. SET UP VARIA|
00000880: 42 4C 45 53 00 CD 10 60  04 53 24 B2 22 20 20 20  |BLES...`.S$."   |
00000890: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008C0: 20 20 20 20 20 20 20 20  20 20 20 20 22 00 0E 11  |            "...|
000008D0: 6A 04 4C 24 B2 22 1C A3  A3 A3 A3 A3 A3 A3 A3 A3  |j.L$."..........|
000008E0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
000008F0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 22 3A 51 44 24 B2  |..........":QD$.|
00000900: 22 11 11 11 11 11 11 11  11 11 11 11 11 22 00 2E  |"............"..|
00000910: 11 74 04 49 50 24 B2 22  31 31 32 32 33 33 34 34  |.t.IP$."11223344|
00000920: 35 35 36 36 22 3A 86 50  4E 24 28 31 32 29 00 3D  |5566":.PN$(12).=|
00000930: 11 7E 04 86 53 4E 24 28  31 32 29 3A 8E 00 5C 11  |.~..SN$(12):..\.|
00000940: D0 07 8F 20 4B 45 59 42  4F 41 52 44 20 49 4E 50  |... KEYBOARD INP|
00000950: 55 54 20 46 4F 52 20 4E  41 4D 45 53 00 74 11 DA  |UT FOR NAMES.t..|
00000960: 07 44 25 B2 30 3A 50 24  B2 22 22 3A 99 22 20 90  |.D%.0:P$."":." .|
00000970: A4 9D 22 3B 00 88 11 E4  07 A1 4B 24 3A 8B 4B 24  |..";......K$:.K$|
00000980: B2 22 22 A7 32 30 32 30  00 9E 11 EE 07 8B 4B 24  |."".2020......K$|
00000990: B2 C7 28 31 33 29 A7 99  22 20 22 3B 3A 8E 00 D0  |..(13).." ";:...|
000009A0: 11 F8 07 8B 44 25 AC 28  4B 24 B2 C7 28 32 30 29  |....D%.(K$..(20)|
000009B0: 29 A7 50 24 B2 C8 28 50  24 2C C3 28 50 24 29 AB  |).P$..(P$,.(P$).|
000009C0: 31 29 3A 44 25 B2 44 25  AB 31 3A 89 32 30 39 30  |1):D%.D%.1:.2090|
000009D0: 00 E0 11 02 08 8B 44 25  B2 4E 55 A7 32 30 32 30  |......D%.NU.2020|
000009E0: 00 12 12 0C 08 8B 28 4B  24 B3 B1 22 20 22 29 AC  |......(K$.." ").|
000009F0: 28 4B 24 B3 B1 22 21 22  29 AC 28 C6 28 4B 24 29  |(K$.."!").(.(K$)|
00000A00: B3 33 35 B0 C6 28 4B 24  29 B1 39 30 29 A7 32 30  |.35..(K$).90).20|
00000A10: 32 30 00 27 12 16 08 44  25 B2 44 25 AA 31 3A 50  |20.'...D%.D%.1:P|
00000A20: 24 B2 50 24 AA 4B 24 00  3D 12 20 08 8B 44 25 B2  |$.P$.K$.=. ..D%.|
00000A30: 4E 55 A7 99 4B 24 3B 3A  89 32 30 32 30 00 56 12  |NU..K$;:.2020.V.|
00000A40: 2A 08 8B 54 4C B2 32 A7  99 4B 24 22 A4 9D 22 3B  |*..TL.2..K$"..";|
00000A50: 3A 89 32 31 32 30 00 69  12 34 08 99 4B 24 22 A4  |:.2120.i.4..K$".|
00000A60: 9D 22 3B 3A 89 32 30 32  30 00 6F 12 3E 08 8E 00  |.";:.2020.o.>...|
00000A70: A9 12 48 08 97 31 35 30  31 AA 28 43 AC 34 30 29  |..H..1501.(C.40)|
00000A80: 2C 33 32 3A 97 31 35 30  32 AA 28 43 AC 34 30 29  |,32:.1502.(C.40)|
00000A90: 2C 39 33 3A 97 35 35 37  37 34 AA 28 43 AC 34 30  |,93:.55774.(C.40|
00000AA0: 29 2C 31 3A 89 32 30 32  30 00 00 00              |),1:.2020...    |

.......53280,12:.53281,12:.1000.A...."."
:..12)".LABEL MAKER MENU".S.....12)H(L$,
17)...(.."...... 1. .PREPARE CATEGORY DI
SK LABEL"...2..".. 2. .PREPARE SEPARATE 
DISK LABEL".N.<..".. 3. .TEST LABEL ALIG
NMENT"...F..".. 4. .PRINT PREPARED LABEL
"...P..".. 5. .QUIT"...Z..A$:.A$."1".A$.
"5".90.=._..E(A$).100,300,500,600,800._.
D.. PREPARE CATEGORY DISK LABEL...N.."..
.             CATEGORY LABEL":TL.1...X..
.13)H(L$,15).A...."....DISK NAME   ";:NU
.16:.2000.Q....".":DN$.P$......H(S$,(10.
C(DN$).2))".CATEGORY LABEL FOR "DN$.+. .
.H(S$,(10.C(DN$).2))H(L$,20.C(DN$)).E...
..16)".SIDE 1.":NU.30.S....C.1.11.2.....
.".PRG #"J(IP$,C,1)".";:.2000:.:PN$(C).P
$:....H...16)"..SIDE 2."...R..C.2.12.2.V
....".PRG #"J(IP$,C,1)".";:.2000:.:PN$(C
).P$:.......X.1.1500:.:.20...,.. PREPARE
 SEPARATE DISK LABEL.?.6.."...          
SEPARATE DISK LABEL":TL.2:NU.35.Q.@...10
)H(L$,20)...J..".......U................
.....................I". .T..X.1.8:."B".
38)"B":..O.^.."J........................
.............K"...H..C.1.6:.".......ENTE
R LINE # "J(IP$,C.2,1):.H(QD$,4.C).&.R..
".";:.2000:PN$(C).P$:..:.|..X.1.1500:.:.
20.@.....[.... TEST LABEL ALIGNMENT.....
."...          TEST LABEL ALIGNMENT":..1
0)H(L$,21)......214,11:.:..15)".WORKING"
.....DN$."XXXXXXXXXXXXXXXX":PN$(1)."XXXX
XXXXXXXXXXXXXXXXXXXXXXXXXX".:...PN$(2).P
N$(1):PN$(11).PN$(1):PN$(12).PN$(1):.C.3
.9.2:PN$(C)."XX":..R.&..C.4.10.2:PN$(C).
"                            XX":....0..
4,4:.4,E$H(S$,(20.C(DN$)).2)DN$...:..C.1
.11.2.C.D.SN$(C).H(S$,35.C(PN$(C)))...N.
.4,C$PN$(C)SN$(C)PN$(C.1):....S..4:.4: 4
:.20...X.. PRINT PREPARED LABEL.9.B.."..
.        PRINTING PREPARED LABEL".J.L...
8)H(L$,24).H.V..214,11:.:..15)".WORKING"
.{....4,4:.TL.2.700......4,E$H(S$,(20.C(
DN$)).2)DN$......C.1.11.2.G...SN$(C).H(S
$,35.C(PN$(C)))......4,C$PN$(C)SN$(C)PN$
(C.1):.......4:.4: 4:.20......4:.C.1.6..
.F..4,N$" "PN$(C):..,.P..4:.4: 4:.20.7. 
.. QUIT.W.*.."...                 QUIT".
H.4...17)H(L$,5)...>..214,12:.:..16)".OK
AY"...H..X.1.3000:.:."...."...R........ 
SET UP PRINT FUNCTIONS.R...IP$.G(27).G(6
4).....DS$.G(27).G(71).....EM$.G(27).G(6
9).....DW$.G(27).G(87).G(1).,...CO$.G(27
).G(66).G(3).?.$.N$.IP$.DS$.EM$.V...E$.I
P$.DS$.EM$.DW$.M.8.C$.IP$.DS$.EM$.CO$...
L.. SET UP VARIABLES.M.`.S$."           
                                        
            "...J.L$."..................
..................":QD$."............"..
.T.IP$."112233445566":.PN$(12).=.~..SN$(
12):..\.P.. KEYBOARD INPUT FOR NAMES.T.Z
.D%.0:P$."":." ...";......K$:.K$."".2020
......K$.G(13).." ";:..P....D%.(K$.G(20)
).P$.H(P$,C(P$).1):D%.D%.1:.2090......D%
.NU.2020......(K$.." ").(K$.."!").(F(K$)
.35.F(K$).90).2020.'...D%.D%.1:P$.P$.K$.
=. ..D%.NU..K$;:.2020.V.*..TL.2..K$"..";
:.2120.I.4..K$"..";:.2020.O.>.....H..150
1.(C.40),32:.1502.(C.40),93:.55774.(C.40
),1:.2020...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL