LABEL MAKER

FILE INFORMATION

FILENAME(S): LABEL MAKER

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-10-19 22:48:31

APPEARS ON: 1 disk(s)

FILE HASH

7f776a802d5afbacf35c5b9e63821555a34d5212e21e4939271893fd7f7f86ce

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
UTILITIES U38	LABEL MAKER	PRG	Radd Maxx	20	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0A 08 01 00 8D 35  30 30 00 20 08 0A 00 86  |.......500. ....|
00000010: 4C 24 28 35 29 2C 45 25  28 35 29 3A 44 56 B2 34  |L$(5),E%(5):DV.4|
00000020: 00 53 08 0F 00 99 54 C7  28 39 29 C7 28 31 34 32  |.S....T.(9).(142|
00000030: 29 C7 28 38 29 22 1F 93  90 41 4C 49 47 4E 20 50  |).(8)"...ALIGN P|
00000040: 52 49 4E 54 20 48 45 41  44 20 41 53 20 53 48 4F  |RINT HEAD AS SHO|
00000050: 57 4E 22 00 92 08 14 00  99 22 90 11 20 20 12 DF  |WN"......"..  ..|
00000060: 11 9D 9D 20 20 92 20 11  9D 9D 9D 12 20 20 92 D4  |...  . .....  ..|
00000070: 11 9D D4 91 9C C0 C0 20  4C 41 42 45 4C 20 20 20  |....... LABEL   |
00000080: 20 20 90 12 53 49 44 45  11 9D 9D 9D 9D 56 49 45  |  ..SIDE.....VIE|
00000090: 57 22 00 AC 08 19 00 99  22 9C 20 DD 11 9D CA C0  |W"......". .....|
000000A0: 20 50 52 49 4E 54 20 48  45 41 44 22 00 D0 08 1E  | PRINT HEAD"....|
000000B0: 00 99 22 11 11 11 11 90  20 20 20 D2 D2 D2 11 9D  |..".....   .....|
000000C0: 9D 9D 9D 9D 12 A9 BC BE  DF 11 9D 9D 9D 20 20 22  |.............  "|
000000D0: 00 EE 08 23 00 99 22 9C  91 91 91 1D 1D 1D 1D 1D  |...#..".........|
000000E0: 1D 1D C9 11 9D CA C0 20  4C 41 42 45 4C 22 00 1A  |....... LABEL"..|
000000F0: 09 25 00 99 22 11 11 20  20 CA C0 20 50 52 49 4E  |.%.."..  .. PRIN|
00000100: 54 20 48 45 41 44 20 20  91 91 90 12 54 4F 50 20  |T HEAD  ....TOP |
00000110: 11 9D 9D 9D 9D 56 49 45  57 22 00 41 09 28 00 99  |.....VIEW".A.(..|
00000120: 22 11 11 11 12 20 20 20  20 20 50 55 53 48 20 41  |"....     PUSH A|
00000130: 4E 59 20 4B 45 59 20 20  20 20 20 22 3A 8D 33 33  |NY KEY     ":.33|
00000140: 30 00 60 09 2D 00 8F 20  2A 2A 2A 20 55 50 50 45  |0.`.-.. *** UPPE|
00000150: 52 2F 4C 4F 57 45 52 20  43 41 53 45 20 2A 2A 2A  |R/LOWER CASE ***|
00000160: 00 7E 09 32 00 99 22 93  11 11 55 50 50 45 52 20  |.~.2.."...UPPER |
00000170: 26 20 4C 4F 57 45 52 20  43 41 53 45 3F 22 00 A7  |& LOWER CASE?"..|
00000180: 09 37 00 8D 33 33 30 3A  8B 41 24 B2 22 59 22 A7  |.7..330:.A$."Y".|
00000190: 43 24 B2 C7 28 31 37 29  3A 99 C7 28 39 29 C7 28  |C$..(17):..(9).(|
000001A0: 31 34 29 3A 89 36 35 00  BC 09 3C 00 43 24 B2 C7  |14):.65...<.C$..|
000001B0: 28 31 35 29 3A 99 C7 28  31 34 32 29 00 DB 09 41  |(15):..(142)...A|
000001C0: 00 81 49 B2 31 A4 35 3A  4C 24 28 49 29 B2 22 22  |..I.1.5:L$(I).""|
000001D0: 3A 45 25 28 49 29 B2 30  3A 82 49 00 F5 09 46 00  |:E%(I).0:.I...F.|
000001E0: 8F 20 2A 2A 2A 20 49 4E  50 55 54 20 4C 41 42 45  |. *** INPUT LABE|
000001F0: 4C 20 2A 2A 2A 00 00 0A  4B 00 81 49 B2 31 A4 35  |L ***...K..I.1.5|
00000200: 00 33 0A 50 00 99 22 93  1F 90 59 4F 55 20 48 41  |.3.P.."...YOU HA|
00000210: 56 45 20 41 20 4D 41 58  49 4D 55 4D 20 4F 46 20  |VE A MAXIMUM OF |
00000220: 12 35 92 20 52 4F 57 53  20 57 49 54 48 20 12 33  |.5. ROWS WITH .3|
00000230: 33 92 22 00 68 0A 52 00  99 22 43 48 41 52 41 43  |3.".h.R.."CHARAC|
00000240: 54 4F 52 53 20 50 45 52  20 52 4F 57 2E 22 3A 99  |TORS PER ROW.":.|
00000250: 22 11 49 46 20 54 48 45  20 31 53 54 20 43 48 41  |".IF THE 1ST CHA|
00000260: 52 41 43 54 45 52 22 3B  00 9C 0A 55 00 99 22 20  |RACTER";...U.." |
00000270: 49 53 20 27 5E 27 20 54  48 45 4E 20 54 48 45 20  |IS '^' THEN THE |
00000280: 52 4F 57 20 20 20 57 49  4C 4C 20 42 45 20 44 4F  |ROW   WILL BE DO|
00000290: 55 42 4C 45 20 57 49 44  54 48 2E 22 00 B5 0A 5A  |UBLE WIDTH."...Z|
000002A0: 00 99 22 13 11 11 11 11  11 11 11 11 11 4C 49 4E  |.."..........LIN|
000002B0: 45 20 23 22 49 00 DF 0A  5F 00 99 22 20 20 22 3B  |E #"I..._.."  ";|
000002C0: C7 28 33 34 29 3B C7 28  33 34 29 3B C7 28 32 30  |.(34);.(34);.(20|
000002D0: 29 3B 3A 8B 45 25 28 49  29 A7 99 22 5E 22 3B 00  |);:.E%(I).."^";.|
000002E0: F8 0A 64 00 99 4C 24 28  49 29 3A 99 22 13 11 11  |..d..L$(I):."...|
000002F0: 11 11 11 11 11 11 11 22  00 03 0B 69 00 85 4C 24  |......."...i..L$|
00000300: 28 49 29 00 3E 0B 6E 00  8B C8 28 4C 24 28 49 29  |(I).>.n...(L$(I)|
00000310: 2C 31 29 B2 22 5E 22 A7  45 25 28 49 29 B2 31 3A  |,1)."^".E%(I).1:|
00000320: 4C 24 28 49 29 B2 C9 28  4C 24 28 49 29 2C C3 28  |L$(I)..(L$(I),.(|
00000330: 4C 24 28 49 29 29 AB 31  29 3A 89 31 32 35 00 57  |L$(I)).1):.125.W|
00000340: 0B 70 00 8B C8 28 4C 24  28 49 29 2C 31 29 B2 22  |.p...(L$(I),1)."|
00000350: 5E 22 A7 89 31 32 30 00  63 0B 73 00 45 25 28 49  |^"..120.c.s.E%(I|
00000360: 29 B2 30 00 80 0B 78 00  8B C3 28 4C 24 28 49 29  |).0...x...(L$(I)|
00000370: 29 B1 33 33 AB 45 25 28  49 29 AC 31 36 A7 38 30  |).33.E%(I).16.80|
00000380: 00 87 0B 7D 00 82 49 00  A7 0B 82 00 8F 20 2A 2A  |...}..I...... **|
00000390: 2A 20 43 45 4E 54 45 52  20 56 45 52 54 49 43 41  |* CENTER VERTICA|
000003A0: 4C 4C 59 20 2A 2A 2A 00  D6 0B 87 00 99 22 11 43  |LLY ***......".C|
000003B0: 45 4E 54 45 52 45 44 20  56 45 52 54 49 43 41 4C  |ENTERED VERTICAL|
000003C0: 4C 59 3F 22 3A 8D 33 33  30 3A 8B 41 24 B3 B1 22  |LY?":.330:.A$.."|
000003D0: 59 22 A7 31 38 35 00 F9  0B 8C 00 4B B2 30 3A 81  |Y".185.....K.0:.|
000003E0: 49 B2 31 A4 35 3A 8B 4C  24 28 49 29 B3 B1 22 22  |I.1.5:.L$(I)..""|
000003F0: A7 49 B2 35 3A 89 31 35  30 00 03 0C 91 00 4B B2  |.I.5:.150.....K.|
00000400: 4B AA 31 00 0A 0C 96 00  82 49 00 30 0C 9B 00 4B  |K.1......I.0...K|
00000410: 4B B2 30 3A 81 49 B2 31  A4 35 3A 8B 4C 24 28 36  |K.0:.I.1.5:.L$(6|
00000420: AB 49 29 B3 B1 22 22 A7  49 B2 35 3A 89 31 36 35  |.I).."".I.5:.165|
00000430: 00 3C 0C A0 00 4B 4B B2  4B 4B AA 31 00 43 0C A5  |.<...KK.KK.1.C..|
00000440: 00 82 49 00 65 0C AA 00  8B 4B AA 31 B3 4B 4B A7  |..I.e....K.1.KK.|
00000450: 81 49 B2 31 A4 4B 4B AB  4B AB 32 3A 81 4A B2 35  |.I.1.KK.K.2:.J.5|
00000460: A4 32 A9 AB 31 00 9C 0C  AC 00 8B 4B AA 31 B3 4B  |.2..1......K.1.K|
00000470: 4B A7 4C 24 28 4A 29 B2  4C 24 28 4A AB 31 29 3A  |K.L$(J).L$(J.1):|
00000480: 45 25 28 4A 29 B2 45 25  28 4A AB 31 29 3A 82 4A  |E%(J).E%(J.1):.J|
00000490: 3A 4C 24 28 31 29 B2 22  22 3A 82 49 00 C7 0C AF  |:L$(1)."":.I....|
000004A0: 00 8B 4B B1 4B 4B A7 81  49 B2 31 A4 4B AB 4B 4B  |..K.KK..I.1.K.KK|
000004B0: AB 31 3A 81 4A B2 31 A4  34 3A 4C 24 28 4A 29 B2  |.1:.J.1.4:L$(J).|
000004C0: 4C 24 28 4A AA 31 29 00  EE 0C B1 00 8B 4B B1 4B  |L$(J.1)......K.K|
000004D0: 4B A7 45 25 28 4A 29 B2  45 25 28 4A AA 31 29 3A  |K.E%(J).E%(J.1):|
000004E0: 82 4A 3A 4C 24 28 35 29  B2 22 22 3A 82 49 00 08  |.J:L$(5)."":.I..|
000004F0: 0D B4 00 8F 20 2A 2A 2A  20 43 48 45 43 4B 20 4C  |.... *** CHECK L|
00000500: 41 42 45 4C 20 2A 2A 2A  00 1D 0D B9 00 99 22 93  |ABEL ***......".|
00000510: 12 4C 41 42 45 4C 20 43  48 45 43 4B 22 00 67 0D  |.LABEL CHECK".g.|
00000520: BE 00 99 22 11 49 46 20  54 48 45 20 4C 49 4E 45  |...".IF THE LINE|
00000530: 20 49 53 20 52 45 56 45  52 53 45 44 2C 20 54 48  | IS REVERSED, TH|
00000540: 45 4E 20 49 54 20 49 53  20 20 20 20 20 44 4F 55  |EN IT IS     DOU|
00000550: 42 4C 45 20 20 57 49 44  54 48 20 4C 45 54 54 45  |BLE  WIDTH LETTE|
00000560: 52 53 2E 11 11 11 22 00  8D 0D C3 00 81 49 B2 31  |RS...."......I.1|
00000570: A4 35 3A 8B 45 25 28 49  29 A7 99 22 90 12 22 49  |.5:.E%(I)..".."I|
00000580: 22 9C 22 4C 24 28 49 29  3A 89 32 30 35 00 A1 0D  |"."L$(I):.205...|
00000590: C8 00 99 22 90 12 22 49  22 92 9C 22 4C 24 28 49  |...".."I".."L$(I|
000005A0: 29 00 A8 0D CD 00 82 49  00 C4 0D D2 00 99 22 90  |)......I......".|
000005B0: 11 20 49 53 20 54 48 49  53 20 4C 41 42 45 4C 20  |. IS THIS LABEL |
000005C0: 4F 4B 3F 22 00 D9 0D D7  00 8D 33 33 30 3A 8B 41  |OK?"......330:.A|
000005D0: 24 B3 B1 22 59 22 A7 37  35 00 18 0E DC 00 99 22  |$.."Y".75......"|
000005E0: 93 48 4F 57 20 4D 41 4E  59 20 57 4F 55 4C 44 20  |.HOW MANY WOULD |
000005F0: 59 4F 55 20 4C 49 4B 45  20 54 4F 20 50 52 49 4E  |YOU LIKE TO PRIN|
00000600: 54 20 22 3A 85 41 24 3A  4E B2 C5 28 41 24 29 3A  |T ":.A$:N..(A$):|
00000610: 8B 4E B3 31 A7 31 38 35  00 42 0E E1 00 99 22 11  |.N.1.185.B....".|
00000620: 11 11 12 43 92 45 4E 54  45 52 45 44 20 4F 52 20  |...C.ENTERED OR |
00000630: 12 4C 92 45 46 54 20 4A  55 53 54 49 46 49 45 44  |.L.EFT JUSTIFIED|
00000640: 3F 22 00 60 0E E6 00 8D  33 33 30 3A 8B 41 24 B2  |?".`....330:.A$.|
00000650: 22 4C 22 A7 43 48 24 B2  22 4C 22 3A 89 32 35 30  |"L".CH$."L":.250|
00000660: 00 79 0E EB 00 8B 41 24  B2 22 43 22 A7 43 48 24  |.y....A$."C".CH$|
00000670: B2 22 43 22 3A 89 32 36  35 00 82 0E F0 00 89 32  |."C":.265......2|
00000680: 33 30 00 9D 0E F5 00 8F  20 2A 2A 2A 20 4C 45 46  |30...... *** LEF|
00000690: 54 20 4A 55 53 54 49 46  59 20 2A 2A 2A 00 C3 0E  |T JUSTIFY ***...|
000006A0: FA 00 4B B2 31 3A 81 49  B2 32 A4 35 3A 8B C3 28  |..K.1:.I.2.5:..(|
000006B0: 4C 24 28 49 29 29 B1 C3  28 4C 24 28 4B 29 29 A7  |L$(I))..(L$(K)).|
000006C0: 4B B2 49 00 FE 0E FF 00  82 49 3A 41 24 B2 22 22  |K.I......I:A$.""|
000006D0: 3A 81 49 B2 31 A4 B5 28  28 33 33 AB 45 25 28 4B  |:.I.1..((33.E%(K|
000006E0: 29 AC 31 36 AB C3 28 4C  24 28 4B 29 29 29 AD 32  |).16..(L$(K))).2|
000006F0: 29 3A 41 24 B2 41 24 AA  22 20 22 3A 82 49 00 1C  |):A$.A$." ":.I..|
00000700: 0F 04 01 8F 20 2A 2A 2A  20 53 45 4E 54 20 54 4F  |.... *** SENT TO|
00000710: 20 50 52 49 4E 54 45 52  20 2A 2A 2A 00 3B 0F 09  | PRINTER ***.;..|
00000720: 01 9F 34 2C 34 3A 8B 20  43 24 B2 C7 28 31 37 29  |..4,4:. C$..(17)|
00000730: A7 20 A0 34 3A 9F 34 2C  34 2C 37 00 57 0F 0E 01  |. .4:.4,4,7.W...|
00000740: 81 4B B2 31 A4 4E 3A 99  22 13 11 11 11 11 11 11  |.K.1.N:.".......|
00000750: 11 12 4C 42 4C 22 4B 00  6A 0F 13 01 A1 5A 24 3A  |..LBL"K.j....Z$:|
00000760: 8B 5A 24 B2 22 22 A7 32  39 35 00 7E 0F 18 01 8B  |.Z$."".295.~....|
00000770: 5A 24 B2 22 51 22 A7 A0  34 3A 89 31 38 30 00 9D  |Z$."Q"..4:.180..|
00000780: 0F 1D 01 99 22 13 11 11  11 11 11 11 11 11 11 12  |...."...........|
00000790: 50 55 53 48 20 41 4E 59  20 4B 45 59 22 00 B0 0F  |PUSH ANY KEY"...|
000007A0: 22 01 A1 5A 24 3A 8B 5A  24 B2 22 22 A7 32 39 30  |"..Z$:.Z$."".290|
000007B0: 00 C0 0F 23 01 8B 5A 24  B2 22 51 22 A7 32 38 30  |...#..Z$."Q".280|
000007C0: 00 DE 0F 24 01 99 22 13  11 11 11 11 11 11 11 11  |...$..".........|
000007D0: 11 20 20 20 20 20 20 20  20 20 20 20 20 22 00 07  |.            "..|
000007E0: 10 27 01 81 49 B2 31 A4  35 3A 98 44 56 2C 43 24  |.'..I.1.5:.DV,C$|
000007F0: 3B 3A 58 24 B2 22 22 3A  8B 45 25 28 49 29 A7 58  |;:X$."":.E%(I).X|
00000800: 24 B2 C7 28 31 34 29 00  32 10 2C 01 8B 43 48 24  |$..(14).2.,..CH$|
00000810: B2 22 4C 22 A7 98 44 56  2C 43 24 AA 41 24 AA 58  |."L"..DV,C$.A$.X|
00000820: 24 AA 4C 24 28 49 29 AA  C7 28 31 35 29 3A 89 33  |$.L$(I)..(15):.3|
00000830: 31 30 00 5D 10 31 01 41  24 B2 22 22 3A 81 4A B2  |10.].1.A$."":.J.|
00000840: 31 A4 B5 28 28 33 33 AB  45 25 28 49 29 AC 31 36  |1..((33.E%(I).16|
00000850: AB C3 28 4C 24 28 49 29  29 29 AD 32 29 00 87 10  |..(L$(I))).2)...|
00000860: 33 01 41 24 B2 41 24 AA  22 20 22 3A 82 4A 3A 98  |3.A$.A$." ":.J:.|
00000870: 44 56 2C 43 24 AA 58 24  AA 41 24 AA 4C 24 28 49  |DV,C$.X$.A$.L$(I|
00000880: 29 AA C7 28 31 35 29 00  98 10 36 01 82 49 3A 98  |)..(15)...6..I:.|
00000890: 44 56 2C C7 28 31 35 29  00 A2 10 3B 01 82 4B 3A  |DV,.(15)...;..K:|
000008A0: A0 34 00 E0 10 40 01 99  22 11 11 44 4F 20 59 4F  |.4...@.."..DO YO|
000008B0: 55 20 57 41 4E 54 20 54  4F 20 44 4F 20 53 4F 4D  |U WANT TO DO SOM|
000008C0: 45 20 4D 4F 52 45 20 4C  41 42 45 4C 53 3F 22 3A  |E MORE LABELS?":|
000008D0: 8D 33 33 30 3A 8B 41 24  B2 22 59 22 A7 31 38 35  |.330:.A$."Y".185|
000008E0: 00 EB 10 45 01 89 36 33  30 30 30 00 FE 10 4A 01  |...E..63000...J.|
000008F0: A1 41 24 3A 8B 41 24 B2  22 22 A7 33 33 30 00 04  |.A$:.A$."".330..|
00000900: 11 4F 01 8E 00 2C 11 F4  01 99 22 93 11 11 11 11  |.O...,....".....|
00000910: 11 11 11 11 20 44 4F 20  59 4F 55 20 48 41 56 45  |.... DO YOU HAVE|
00000920: 20 41 20 50 52 49 4E 54  45 52 3F 22 00 67 11 F6  | A PRINTER?".g..|
00000930: 01 97 31 39 38 2C 30 3A  92 31 39 38 2C 31 3A A1  |..198,0:.198,1:.|
00000940: 41 24 3A 8B 41 24 B3 B1  22 59 22 AF 41 24 B3 B1  |A$:.A$.."Y".A$..|
00000950: 22 4E 22 A7 97 35 33 32  38 30 2C BB 28 31 29 AC  |"N"..53280,.(1).|
00000960: 31 35 3A 89 35 30 32 00  75 11 F8 01 8B 41 24 B2  |15:.502.u....A$.|
00000970: 22 59 22 A7 8E 00 7B 11  FA 01 3A 00 B0 11 FE 01  |"Y"...{...:.....|
00000980: 99 22 93 11 11 11 11 53  4F 52 52 59 2E 2E 2E 54  |.".....SORRY...T|
00000990: 48 49 53 20 50 52 4F 47  52 41 4D 20 52 45 51 55  |HIS PROGRAM REQU|
000009A0: 49 52 45 53 20 41 20 50  52 49 4E 54 45 52 2E 22  |IRES A PRINTER."|
000009B0: 00 C8 11 08 02 81 44 4C  B2 31 A4 32 30 30 30 3A  |......DL.1.2000:|
000009C0: 82 3A 89 36 33 31 30 30  00 CE 11 12 02 3A 00 EA  |.:.63100.....:..|
000009D0: 11 18 F6 8F 20 20 43 4F  4E 4E 45 43 54 20 42 41  |....  CONNECT BA|
000009E0: 43 4B 20 54 4F 20 4C 2E  53 2E 00 F0 11 22 F6 3A  |CK TO L.S....".:|
000009F0: 00 23 12 7C F6 99 22 93  11 11 11 4C 4F 41 44 22  |.#.|.."....LOAD"|
00000A00: C7 28 33 34 29 22 50 41  59 4C 4F 41 44 22 C7 28  |.(34)"PAYLOAD".(|
00000A10: 33 34 29 22 2C 38 22 3A  99 22 11 11 11 11 52 55  |34)",8":."....RU|
00000A20: 4E 13 22 00 40 12 7E F6  97 36 33 31 2C 31 33 3A  |N.".@.~..631,13:|
00000A30: 97 36 33 32 2C 31 33 3A  97 31 39 38 2C 32 3A 80  |.632,13:.198,2:.|
00000A40: 00 00 00                                          |...             |

.......500. ....L$(5),E%(5):DV.4.S....TG
(9)G(142)G(8)"...ALIGN PRINT HEAD AS SHO
WN"......"..  .....  . .....  .T..T.... 
LABEL     ..SIDE.....VIEW"......". ...J.
 PRINT HEAD".P....".....   RRR..........
.....  "...#.."...........I..J. LABEL"..
.%.."..  J. PRINT HEAD  ....TOP .....VIE
W".A.(.."....     PUSH ANY KEY     ":.33
0.`.-.. *** UPPER/LOWER CASE ***.~.2..".
..UPPER & LOWER CASE?"...7..330:.A$."Y".
C$.G(17):.G(9)G(14):.65...<.C$.G(15):.G(
142)...A..I.1.5:L$(I)."":E%(I).0:.I...F.
. *** INPUT LABEL ***...K..I.1.5.3.P..".
..YOU HAVE A MAXIMUM OF .5. ROWS WITH .3
3.".H.R.."CHARACTORS PER ROW.":.".IF THE
 1ST CHARACTER";...U.." IS '^' THEN THE 
ROW   WILL BE DOUBLE WIDTH."...Z..".....
.....LINE #"I..._.."  ";G(34);G(34);G(20
);:.E%(I).."^";...D..L$(I):.".........."
...I..L$(I).>.N..H(L$(I),1)."^".E%(I).1:
L$(I).I(L$(I),C(L$(I)).1):.125.W.P..H(L$
(I),1)."^"..120.C.S.E%(I).0...X..C(L$(I)
).33.E%(I).16.80...}..I...... *** CENTER
 VERTICALLY ***.V....".CENTERED VERTICAL
LY?":.330:.A$.."Y".185.....K.0:.I.1.5:.L
$(I).."".I.5:.150.....K.K.1......I.0...K
K.0:.I.1.5:.L$(6.I).."".I.5:.165.<. .KK.
KK.1.C....I.E....K.1.KK..I.1.KK.K.2:.J.5
.2..1......K.1.KK.L$(J).L$(J.1):E%(J).E%
(J.1):.J:L$(1)."":.I.G....K.KK..I.1.K.KK
.1:.J.1.4:L$(J).L$(J.1)......K.KK.E%(J).
E%(J.1):.J:L$(5)."":.I...... *** CHECK L
ABEL ***......"..LABEL CHECK".G....".IF 
THE LINE IS REVERSED, THEN IT IS     DOU
BLE  WIDTH LETTERS...."...C..I.1.5:.E%(I
)..".."I"."L$(I):.205...H..".."I".."L$(I
)...M..I.D.R..".. IS THIS LABEL OK?".Y.W
..330:.A$.."Y".75......".HOW MANY WOULD 
YOU LIKE TO PRINT ":.A$:N.E(A$):.N.1.185
.B...."....C.ENTERED OR .L.EFT JUSTIFIED
?".`....330:.A$."L".CH$."L":.250.Y....A$
."C".CH$."C":.265......230...... *** LEF
T JUSTIFY ***.C...K.1:.I.2.5:.C(L$(I)).C
(L$(K)).K.I......I:A$."":.I.1..((33.E%(K
).16.C(L$(K))).2):A$.A$." ":.I...... ***
 SENT TO PRINTER ***.;....4,4:. C$.G(17)
.  4:.4,4,7.W....K.1.N:.".........LBL"K.
J....Z$:.Z$."".295.~....Z$."Q". 4:.180..
...."...........PUSH ANY KEY"..."..Z$:.Z
$."".290...#..Z$."Q".280...$..".........
.            "...'..I.1.5:.DV,C$;:X$."":
.E%(I).X$.G(14).2.,..CH$."L"..DV,C$.A$.X
$.L$(I).G(15):.310.].1.A$."":.J.1..((33.
E%(I).16.C(L$(I))).2)...3.A$.A$." ":.J:.
DV,C$.X$.A$.L$(I).G(15)...6..I:.DV,G(15)
...;..K: 4...@.."..DO YOU WANT TO DO SOM
E MORE LABELS?":.330:.A$."Y".185...E..63
000...J..A$:.A$."".330...O...,....".....
.... DO YOU HAVE A PRINTER?".G....198,0:
.198,1:.A$:.A$.."Y".A$.."N"..53280,.(1).
15:.502.U....A$."Y"...{...:......".....S
ORRY...THIS PROGRAM REQUIRES A PRINTER."
.H....DL.1.2000:.:.63100.N...:......  CO
NNECT BACK TO L.S....".:.#.|.."....LOAD"
G(34)"PAYLOAD"G(34)",8":."....RUN.".@.~.
.631,13:.632,13:.198,2:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL