PRNTSHOP LBL/CBM
FILE INFORMATION
FILENAME(S): PRNTSHOP LBL/CBM
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-10-20 14:31:10
APPEARS ON: 3 disk(s)
FILE HASH
615c1a5b316bdd2a73a3e93d750a7ca9b2a621c3aea6766e3dfe22e5bb48477c
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0019GR | PRNTSHOP LBL/CBM | PRG | Treasure Chest - Klaus Der Suhler | 22 | 0 | DOWNLOAD FILE |
| PB DOMAIN 0019GR | PRNTSHOP LBL/CBM | PRG | UK CD | 22 | 0 | DOWNLOAD FILE |
| PRINTER CONVERTS | PRNTSHOP LBL/CBM | PRG | Sailor, Ganheden | 32 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 00 00 89 31 35 00 2D 08 01 00 99 20 |.......15.-.... | 00000010: 53 48 4F 50 20 4C 41 42 45 4C 20 4D 41 4B 45 52 |SHOP LABEL MAKER| 00000020: AD 43 42 4D 20 56 45 52 53 49 91 20 32 00 4C 08 |.CBM VERSI. 2.L.| 00000030: 02 00 42 59 20 20 20 42 52 49 41 4E 20 48 45 59 |..BY BRIAN HEY| 00000040: 42 4F 45 52 20 20 33 AD 38 AD 38 36 00 75 08 03 |BOER 3.8.86.u..| 00000050: 00 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 |.THIS PROGRAM IS| 00000060: 20 50 55 42 4C 49 43 20 44 4F 4D 41 49 4E 2E 20 | PUBLIC DOMAIN. | 00000070: 20 54 48 49 53 00 97 08 04 00 50 52 4F 47 52 41 | THIS.....PROGRA| 00000080: 4D 20 9A 41 49 4E 53 20 42 41 53 49 43 20 AF 20 |M .AINS BASIC . | 00000090: 4D 41 43 48 49 4E 45 00 BA 08 05 00 4C 41 4E 47 |MACHINE.....LANG| 000000A0: 55 41 47 45 2E 20 20 45 44 49 54 49 4E 47 20 B0 |UAGE. EDITING .| 000000B0: 20 4F 54 48 45 52 57 49 53 45 00 DC 08 06 00 43 | OTHERWISE.....C| 000000C0: 48 41 4E 47 49 4E 47 20 50 4F B5 45 52 53 20 45 |HANGING PO.ERS E| 000000D0: 58 43 45 50 54 20 41 53 20 A8 45 44 00 05 09 07 |XCEPT AS .ED....| 000000E0: 00 42 45 4C 4F 57 20 4D 41 59 20 41 46 46 45 43 |.BELOW MAY AFFEC| 000000F0: 54 20 50 52 4F 47 52 41 4D 20 45 58 45 43 55 54 |T PROGRAM EXECUT| 00000100: 49 91 20 49 4E 00 2C 09 08 00 55 4E 50 52 45 44 |I. IN.,...UNPRED| 00000110: 49 43 54 41 42 4C 45 20 57 41 59 53 2E 20 20 A4 |ICTABLE WAYS. .| 00000120: 20 46 49 4E 45 20 41 44 4A 55 53 54 00 53 09 09 | FINE ADJUST.S..| 00000130: 00 4C 41 42 45 4C 20 53 50 41 43 49 4E 47 2C 20 |.LABEL SPACING, | 00000140: 49 4E 43 52 45 41 53 45 20 54 48 45 20 C5 55 45 |INCREASE THE .UE| 00000150: 20 4F 46 00 7A 09 0A 00 49 43 20 49 4E 20 4C 49 | OF.z...IC IN LI| 00000160: 4E 45 20 31 35 20 A4 20 49 4E 43 52 45 41 53 45 |NE 15 . INCREASE| 00000170: 20 53 50 41 43 49 4E 47 20 B0 00 9F 09 0B 00 44 | SPACING ......D| 00000180: 45 43 52 45 41 53 45 20 49 54 53 20 C5 55 45 20 |ECREASE ITS .UE | 00000190: 28 A8 20 4C 45 53 53 20 54 48 41 4E 20 30 29 00 |(. LESS THAN 0).| 000001A0: C2 09 0C 00 A4 20 49 4E 43 52 45 41 53 45 20 53 |..... INCREASE S| 000001B0: 50 41 56 49 4E 47 2E 20 20 42 45 20 53 55 52 45 |PAVING. BE SURE| 000001C0: 20 A4 00 E3 09 0D 00 43 48 41 4E 47 45 20 54 48 | ......CHANGE TH| 000001D0: 45 20 C5 55 45 20 4F 46 20 49 43 20 91 4C 59 20 |E .UE OF IC .LY | 000001E0: AF 20 A4 00 04 0A 0E 00 4F 56 45 52 53 54 52 49 |. ......OVERSTRI| 000001F0: 4B 45 2C 20 A8 20 49 4E 53 45 52 54 20 B0 20 44 |KE, . INSERT . D| 00000200: 45 88 45 2E 00 26 0A 0F 00 49 43 B2 33 3A 46 43 |E.E..&...IC.3:FC| 00000210: B2 49 43 3A 8B 4C 43 20 A7 20 9E 20 34 38 35 30 |.IC:.LC . . 4850| 00000220: 3A 89 20 35 31 30 00 70 0A 10 00 99 22 93 0E 20 |:. 510.p....".. | 00000230: 20 D0 52 49 4E 54 20 D3 48 4F 50 20 C7 52 41 50 | .RINT .HOP .RAP| 00000240: 48 49 43 53 20 CC 41 42 45 4C 20 CD 41 4B 45 52 |HICS .ABEL .AKER| 00000250: 2F C3 C2 CD 22 3A 99 22 20 20 20 20 20 20 20 20 |/...":." | 00000260: 20 20 C2 59 20 C2 52 49 41 4E 20 C8 45 59 42 4F | .Y .RIAN .EYBO| 00000270: 00 BA 0A 14 00 99 22 93 0E 20 20 D0 52 49 4E 54 |......".. .RINT| 00000280: 20 D3 48 4F 50 20 C7 52 41 50 48 49 43 53 20 CC | .HOP .RAPHICS .| 00000290: 41 42 45 4C 20 CD 41 4B 45 52 2F C3 C2 CD 22 3A |ABEL .AKER/...":| 000002A0: 99 22 20 20 20 20 20 20 20 20 20 20 C2 59 20 C2 |." .Y .| 000002B0: 52 49 41 4E 20 C8 45 59 42 4F 00 E8 0A 19 00 99 |RIAN .EYBO......| 000002C0: 22 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 50 |"..HIS PROGRAM P| 000002D0: 52 49 4E 54 53 20 53 54 41 4E 44 41 52 44 20 4F |RINTS STANDARD O| 000002E0: 4E 45 20 49 4E 43 48 22 00 17 0B 1E 00 99 22 4D |NE INCH"......"M| 000002F0: 41 49 4C 49 4E 47 20 4C 41 42 45 4C 53 20 55 53 |AILING LABELS US| 00000300: 49 4E 47 20 53 49 44 45 20 C2 20 28 54 57 4F 20 |ING SIDE . (TWO | 00000310: 42 4C 4F 43 4B 29 22 00 43 0B 28 00 99 22 D0 52 |BLOCK)".C.(..".R| 00000320: 49 4E 54 20 D3 48 4F 50 20 C7 52 41 50 48 49 43 |INT .HOP .RAPHIC| 00000330: 53 20 41 4E 44 20 54 45 58 54 20 4F 46 20 59 4F |S AND TEXT OF YO| 00000340: 55 52 22 00 6F 0B 32 00 99 22 43 48 4F 49 43 45 |UR".o.2.."CHOICE| 00000350: 20 4F 4E 20 41 20 C3 4F 4D 4D 4F 44 4F 52 45 20 | ON A .OMMODORE | 00000360: 31 35 32 35 2C 20 CD D0 D3 2D 38 30 31 2C 22 00 |1525, ...-801,".| 00000370: 9C 0B 37 00 99 22 CD D0 D3 2D 38 30 33 2C 20 4F |..7.."...-803, O| 00000380: 52 20 4F 54 48 45 52 20 43 4F 4D 50 41 54 41 42 |R OTHER COMPATAB| 00000390: 4C 45 20 50 52 49 4E 54 45 52 2E 22 00 C3 0B 3C |LE PRINTER."...<| 000003A0: 00 99 22 11 D4 48 49 53 20 50 52 4F 47 52 41 4D |.."..HIS PROGRAM| 000003B0: 20 49 53 20 50 55 42 4C 49 43 20 44 4F 4D 41 49 | IS PUBLIC DOMAI| 000003C0: 4E 2E 22 00 F4 0B 46 00 99 22 11 D0 52 49 4E 54 |N."...F.."..RINT| 000003D0: 20 D3 48 4F 50 20 49 53 20 41 20 54 52 41 44 45 | .HOP IS A TRADE| 000003E0: 4D 41 52 4B 20 4F 46 20 C2 52 4F 44 45 52 42 55 |MARK OF .RODERBU| 000003F0: 4E 44 2E 22 00 20 0C 4B 00 99 22 C3 4F 4D 4D 4F |ND.". .K..".OMMO| 00000400: 44 4F 52 45 20 41 4E 44 20 C3 C2 CD 20 41 52 45 |DORE AND ... ARE| 00000410: 20 54 52 41 44 45 4D 41 52 4B 53 20 4F 46 20 22 | TRADEMARKS OF "| 00000420: 00 40 0C 50 00 99 22 C3 4F 4D 4D 4F 44 4F 52 45 |.@.P..".OMMODORE| 00000430: 20 C9 4E 54 45 52 4E 41 54 49 4F 4E 41 4C 2E 22 | .NTERNATIONAL."| 00000440: 00 6F 0C 55 00 99 22 11 C1 20 56 45 52 53 49 4F |.o.U..".. VERSIO| 00000450: 4E 20 46 4F 52 20 4E 4F 4E 2D C3 C2 CD 20 50 52 |N FOR NON-... PR| 00000460: 49 4E 54 45 52 53 20 49 53 20 41 4C 53 4F 22 00 |INTERS IS ALSO".| 00000470: 96 0C 56 00 99 22 41 56 41 49 4C 41 42 4C 45 20 |..V.."AVAILABLE | 00000480: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 20 44 4F |IN THE PUBLIC DO| 00000490: 4D 41 49 4E 2E 22 00 BF 0C 5A 00 99 22 11 11 11 |MAIN."...Z.."...| 000004A0: 20 20 20 20 20 20 D0 52 45 53 53 20 41 4E 59 20 | .RESS ANY | 000004B0: 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 2E 00 |KEY WHEN READY..| 000004C0: D1 0C 5F 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 39 |.._..X$:.X$."".9| 000004D0: 35 00 01 0D E6 00 99 22 93 20 20 D0 52 49 4E 54 |5......". .RINT| 000004E0: 20 D3 48 4F 50 20 C7 52 41 50 48 49 43 53 20 CC | .HOP .RAPHICS .| 000004F0: 41 42 45 4C 20 CD 41 4B 45 52 2F C3 C2 CD 22 3A |ABEL .AKER/...":| 00000500: 99 00 2B 0D F0 00 99 22 C7 52 41 50 48 49 43 20 |..+....".RAPHIC | 00000510: C6 49 4C 45 20 CE 41 4D 45 20 28 24 20 46 4F 52 |.ILE .AME ($ FOR| 00000520: 20 C4 49 52 45 43 54 4F 52 59 29 00 4D 0D FA 00 | .IRECTORY).M...| 00000530: 4C 43 B2 30 3A 46 43 B2 AB 31 3A 85 20 47 24 3A |LC.0:FC..1:. G$:| 00000540: 8B 20 47 24 B2 22 24 22 A7 8D 37 35 30 00 7A 0D |. G$."$"..750.z.| 00000550: 04 01 99 22 11 C9 4E 50 55 54 20 CC 41 42 45 4C |..."..NPUT .ABEL| 00000560: 20 D4 45 58 54 2E 20 20 C6 4F 52 20 42 45 53 54 | .EXT. .OR BEST| 00000570: 20 52 45 53 55 4C 54 53 2C 22 00 A7 0D 0E 01 99 | RESULTS,"......| 00000580: 22 53 4B 49 50 20 41 4C 54 45 52 4E 41 54 45 20 |"SKIP ALTERNATE | 00000590: 4C 49 4E 45 53 2E 20 28 D5 53 45 20 31 2C 33 2C |LINES. (.SE 1,3,| 000005A0: 35 2C 37 20 46 4F 52 00 D2 0D 18 01 99 22 46 4F |5,7 FOR......"FO| 000005B0: 55 52 20 4C 49 4E 45 20 4C 41 42 45 4C 53 20 41 |UR LINE LABELS A| 000005C0: 4E 44 20 32 2C 34 2C 36 20 46 4F 52 20 54 48 52 |ND 2,4,6 FOR THR| 000005D0: 45 45 00 01 0E 22 01 99 22 4C 49 4E 45 53 2E 20 |EE...".."LINES. | 000005E0: 20 CC 49 4E 45 53 20 57 49 54 48 20 43 4F 4D 4D | .INES WITH COMM| 000005F0: 41 53 20 4F 52 20 43 4F 4C 4F 4E 53 20 4D 55 53 |AS OR COLONS MUS| 00000600: 54 00 16 0E 2C 01 99 22 91 42 45 20 49 4E 20 51 |T...,..".BE IN Q| 00000610: 55 4F 54 45 53 2E 00 21 0E 9A 01 46 24 B2 22 4E |UOTES..!...F$."N| 00000620: 22 00 61 0E A4 01 81 20 41 B2 30 A4 36 3A 46 24 |".a.... A.0.6:F$| 00000630: 28 41 29 B2 C7 28 31 35 29 3A 4C 24 28 41 29 B2 |(A)..(15):L$(A).| 00000640: 22 20 22 3A 99 22 D4 45 58 54 20 46 4F 52 20 4C |" ":.".EXT FOR L| 00000650: 49 4E 45 20 22 41 AA 31 3B 3A 85 20 4C 24 28 41 |INE "A.1;:. L$(A| 00000660: 29 00 89 0E AE 01 99 22 C5 58 50 41 4E 44 45 44 |)......".XPANDED| 00000670: 20 28 D9 2F CE 29 20 20 20 20 20 22 46 24 22 9D | (./.) "F$".| 00000680: 9D 9D 22 3B 3A 85 20 46 24 00 A8 0E B8 01 8B 46 |..";:. F$......F| 00000690: 24 B2 22 D9 22 B0 46 24 B2 22 59 22 A7 46 24 28 |$.".".F$."Y".F$(| 000006A0: 41 29 B2 C7 28 31 34 29 00 AE 0E C2 01 82 00 DD |A)..(14)........| 000006B0: 0E CC 01 4E 4C 24 B2 22 20 22 3A 85 22 11 CE 55 |...NL$." ":."..U| 000006C0: 4D 42 45 52 20 4F 46 20 4C 41 42 45 4C 53 22 3B |MBER OF LABELS";| 000006D0: 4E 4C 24 3A 4E 4C B2 C5 28 4E 4C 24 29 00 EC 0E |NL$:NL..(NL$)...| 000006E0: D6 01 8B 20 4E 4C B2 30 A7 39 30 30 00 F8 0E EA |... NL.0.900....| 000006F0: 01 8B 4C 43 A7 35 31 30 00 17 0F F4 01 9F 38 2C |..LC.510......8,| 00000700: 38 2C 38 2C 47 24 AA 22 2C 50 2C 52 22 3A A1 23 |8,8,G$.",P,R":.#| 00000710: 38 2C 41 24 3A A0 38 00 53 0F F5 01 8B 53 54 A7 |8,A$:.8.S....ST.| 00000720: 4C 43 B2 30 3A 99 22 11 11 11 20 20 20 20 20 C1 |LC.0:."... .| 00000730: 20 C4 49 53 4B 20 C5 52 52 4F 52 20 48 41 53 20 | .ISK .RROR HAS | 00000740: 4F 43 43 55 52 45 44 2E 22 3A 8D 38 35 30 3A 89 |OCCURED.":.850:.| 00000750: 35 30 30 00 66 0F F6 01 4C 43 B2 AB 31 3A 93 20 |500.f...LC..1:. | 00000760: 47 24 2C 38 2C 31 00 72 0F FE 01 8B 46 4F A7 36 |G$,8,1.r....FO.6| 00000770: 37 30 00 83 0F 8A 02 46 4F B2 AB 31 3A 9F 34 2C |70.....FO..1:.4,| 00000780: 34 2C 37 00 92 0F 9E 02 81 20 45 B2 31 20 A4 20 |4,7...... E.1 . | 00000790: 4E 4C 00 BC 0F A8 02 81 20 41 B2 30 A4 36 3A 43 |NL...... A.0.6:C| 000007A0: B2 32 31 37 36 30 AA 28 41 AC 34 38 29 3A 44 B2 |.21760.(A.48):D.| 000007B0: 43 AA 34 33 3A 98 34 2C C7 28 38 29 00 D6 0F B2 |C.43:.4,.(8)....| 000007C0: 02 81 20 42 B2 43 A4 44 3A 98 34 2C C7 28 C2 28 |.. B.C.D:.4,.(.(| 000007D0: 42 29 29 3B 3A 82 00 F4 0F BC 02 98 34 2C 22 20 |B));:.......4," | 000007E0: 22 46 24 28 41 29 3B 4C 24 28 41 29 3B C7 28 38 |"F$(A);L$(A);.(8| 000007F0: 29 3B 3A 82 00 1B 10 C6 02 8B 20 46 43 20 A7 20 |);:....... FC . | 00000800: 46 43 B2 46 43 AB 31 3A 98 34 2C C7 28 31 35 29 |FC.FC.1:.4,.(15)| 00000810: 3B C7 28 31 30 29 3A 89 37 34 30 00 41 10 D0 02 |;.(10):.740.A...| 00000820: 98 34 2C C7 28 31 30 29 3B C7 28 31 30 29 3B C7 |.4,.(10);.(10);.| 00000830: 28 31 30 29 3B C7 28 31 35 29 3B 3A 46 43 B2 49 |(10);.(15);:FC.I| 00000840: 43 00 4C 10 E4 02 82 3A 89 34 36 30 00 6A 10 EE |C.L....:.460.j..| 00000850: 02 9F 38 2C 38 2C 30 2C 22 24 30 22 3A 4E 24 B2 |..8,8,0,"$0":N$.| 00000860: C7 28 30 29 3A 58 24 B2 4E 24 00 84 10 F8 02 A1 |.(0):X$.N$......| 00000870: 23 38 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 |#8,A$,A$,A$,A$,A| 00000880: 24 2C 41 24 00 9B 10 02 03 A1 23 38 2C 41 24 3A |$,A$......#8,A$:| 00000890: 8B 20 41 24 B2 22 22 A7 37 39 30 00 AD 10 0C 03 |. A$."".790.....| 000008A0: 58 24 B2 58 24 AA 41 24 3A 89 37 37 30 00 BD 10 |X$.X$.A$:.770...| 000008B0: 16 03 99 22 11 20 20 20 20 22 20 58 24 00 DD 10 |...". " X$...| 000008C0: 2A 03 A1 23 38 2C 41 24 2C 41 24 3A 8B 20 41 24 |*..#8,A$,A$:. A$| 000008D0: B2 22 22 A7 20 A0 20 38 3A 89 38 35 30 00 07 11 |."". . 8:.850...| 000008E0: 34 03 A1 23 38 2C 41 24 2C 42 24 3A 42 24 B2 C4 |4..#8,A$,B$:B$..| 000008F0: 28 C6 28 41 24 AA 4E 24 29 AA C6 28 42 24 AA 4E |(.(A$.N$)..(B$.N| 00000900: 24 29 AC 32 35 36 29 00 2E 11 3E 03 A1 23 38 2C |$).256)...>..#8,| 00000910: 41 24 3A 8B 20 41 24 B2 22 22 A7 20 99 22 20 20 |A$:. A$."". ." | 00000920: 22 42 24 3A 42 24 B2 22 22 3A 89 38 31 30 00 40 |"B$:B$."":.810.@| 00000930: 11 48 03 42 24 B2 42 24 AA 41 24 3A 89 38 33 30 |.H.B$.B$.A$:.830| 00000940: 00 70 11 52 03 A0 38 3A 99 22 11 11 C7 52 41 50 |.p.R..8:."...RAP| 00000950: 48 49 43 20 C6 49 4C 45 20 CE 41 4D 45 20 28 24 |HIC .ILE .AME ($| 00000960: 20 46 4F 52 20 C4 49 52 45 43 54 4F 52 59 29 22 | FOR .IRECTORY)"| 00000970: 00 8C 11 70 03 85 20 47 24 3A 8B 20 47 24 B2 22 |...p.. G$:. G$."| 00000980: 24 22 A7 8D 37 35 30 3A 89 38 35 30 00 92 11 7A |$"..750:.850...z| 00000990: 03 8E 00 AD 11 84 03 99 22 11 C1 20 4E 45 57 20 |........".. NEW | 000009A0: 4C 41 42 45 4C 20 28 D9 2F CE 29 3F 22 00 C8 11 |LABEL (./.)?"...| 000009B0: 8E 03 A1 41 24 3A 8B 41 24 B2 22 59 22 B0 41 24 |...A$:.A$."Y".A$| 000009C0: B2 22 D9 22 A7 39 35 30 00 E1 11 98 03 8B 20 41 |.".".950...... A| 000009D0: 24 B2 22 4E 22 B0 41 24 B2 22 CE 22 A7 31 30 30 |$."N".A$.".".100| 000009E0: 30 00 EA 11 A2 03 89 39 31 30 00 06 12 B6 03 99 |0......910......| 000009F0: 22 11 D3 41 4D 45 20 C7 52 41 50 48 49 43 20 28 |"..AME .RAPHIC (| 00000A00: D9 2F CE 29 3F 22 00 21 12 C0 03 A1 41 24 3A 8B |./.)?".!....A$:.| 00000A10: 41 24 B2 22 59 22 B0 41 24 B2 22 D9 22 A7 32 36 |A$."Y".A$.".".26| 00000A20: 30 00 39 12 CA 03 8B 20 41 24 B2 22 4E 22 B0 41 |0.9.... A$."N".A| 00000A30: 24 B2 22 CE 22 A7 32 34 30 00 42 12 D4 03 89 39 |$.".".240.B....9| 00000A40: 36 30 00 50 12 E8 03 8B 20 46 4F 20 A7 20 A0 34 |60.P.... FO . .4| 00000A50: 00 00 00 20 3C 2D 20 42 41 53 49 43 20 48 45 52 |... <- BASIC HER| 00000A60: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E | 00000A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A80: 20 20 20 20 20 20 20 20 20 20 49 20 4C 45 46 54 | I LEFT| 00000A90: 20 41 20 4C 49 54 54 4C 45 20 52 4F 4F 4D 20 48 | A LITTLE ROOM H| 00000AA0: 45 52 45 20 46 4F 52 20 43 48 41 4E 47 45 53 20 |ERE FOR CHANGES | 00000AB0: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |! | 00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AD0: 20 20 20 20 20 20 20 20 20 20 4D 4C 20 4E 45 58 | ML NEX| 00000AE0: 54 20 42 4C 4F 43 4B 20 2D 3E 20 4D 4C 20 2D 2D |T BLOCK -> ML --| 00000AF0: 3E 20 00 A9 58 8D 1A 13 A9 55 8D 26 13 A9 06 8D |> ..X....U.&....| 00000B00: 61 13 A9 00 8D 19 13 8D 25 13 A2 18 9D 0D 59 CA |a.......%.....Y.| 00000B10: D0 FA A0 07 A2 24 A9 01 18 5E 00 58 2A CA CA CA |.....$...^.X*...| 00000B20: CA CA CA 10 F3 99 00 55 88 10 E9 EE 19 13 D0 03 |.......U........| 00000B30: EE 1A 13 AD 19 13 CD 61 13 D0 11 18 69 24 8D 19 |.......a....i$..| 00000B40: 13 90 04 EE 1A 13 18 69 06 8D 61 13 A9 08 18 6D |.......i..a....m| 00000B50: 25 13 8D 25 13 90 BB EE 26 13 A9 57 CD 26 13 D0 |%..%....&..W.&..| 00000B60: B1 60 06 4C 11 13 AD 2B 13 C9 57 D0 A5 60 0B 00 |.`.L...+..W..`..| 00000B70: 20 20 20 54 48 41 54 53 20 41 4C 4C 20 54 48 45 | THATS ALL THE| 00000B80: 52 45 20 49 53 20 41 4E 44 20 54 48 45 52 45 20 |RE IS AND THERE | 00000B90: 41 49 4E 27 54 20 4E 4F 20 4D 4F 52 45 2E 20 42 |AIN'T NO MORE. B| 00000BA0: 52 49 41 4E 20 48 45 59 42 4F 45 52 20 33 2F 38 |RIAN HEYBOER 3/8| 00000BB0: 2F 38 36 20 20 20 50 4C 45 41 53 45 20 47 49 56 |/86 PLEASE GIV| 00000BC0: 45 20 43 52 45 44 49 54 20 57 48 45 52 45 20 43 |E CREDIT WHERE C| 00000BD0: 52 45 44 49 54 20 49 53 20 44 55 45 2E 20 20 20 |REDIT IS DUE. | 00000BE0: 20 20 20 | |
.......15.-.... SHOP LABEL MAKER.CBM VER
SI. 2.L...BY BRIAN HEYBOER 3.8.86.U..
.THIS PROGRAM IS PUBLIC DOMAIN. THIS...
..PROGRAM .AINS BASIC . MACHINE.....LANG
UAGE. EDITING . OTHERWISE.....CHANGING
PO.ERS EXCEPT AS .ED.....BELOW MAY AFFEC
T PROGRAM EXECUTI. IN.,...UNPREDICTABLE
WAYS. . FINE ADJUST.S...LABEL SPACING,
INCREASE THE EUE OF.Z...IC IN LINE 15 .
INCREASE SPACING ......DECREASE ITS EUE
(. LESS THAN 0).B.... INCREASE SPAVING.
BE SURE ......CHANGE THE EUE OF IC .LY
. ......OVERSTRIKE, . INSERT . DE.E..&..
.IC.3:FC.IC:.LC . . 4850:. 510.P...."..
PRINT SHOP GRAPHICS LABEL MAKER/CBM":."
BY BRIAN HEYBO......".. PRINT
SHOP GRAPHICS LABEL MAKER/CBM":."
BY BRIAN HEYBO......".THIS PROGRAM P
RINTS STANDARD ONE INCH"......"MAILING L
ABELS USING SIDE B (TWO BLOCK)".C.(.."PR
INT SHOP GRAPHICS AND TEXT OF YOUR".O.2.
."CHOICE ON A COMMODORE 1525, MPS-801,".
..7.."MPS-803, OR OTHER COMPATABLE PRINT
ER.".C.<..".THIS PROGRAM IS PUBLIC DOMAI
N."...F..".PRINT SHOP IS A TRADEMARK OF
BRODERBUND.". .K.."COMMODORE AND CBM ARE
TRADEMARKS OF ".@.P.."COMMODORE INTERNA
TIONAL.".O.U..".A VERSION FOR NON-CBM PR
INTERS IS ALSO"...V.."AVAILABLE IN THE P
UBLIC DOMAIN."...Z.."... PRESS ANY
KEY WHEN READY..Q._..X$:.X$."".95......"
. PRINT SHOP GRAPHICS LABEL MAKER/CBM":
..+...."GRAPHIC FILE NAME ($ FOR DIRECTO
RY).M...LC.0:FC..1:. G$:. G$."$"..750.Z.
...".INPUT LABEL TEXT. FOR BEST RESULTS
,"......"SKIP ALTERNATE LINES. (USE 1,3,
5,7 FOR.R...."FOUR LINE LABELS AND 2,4,6
FOR THREE...".."LINES. LINES WITH COMM
AS OR COLONS MUST...,..".BE IN QUOTES..!
...F$."N".A.... A.0.6:F$(A).G(15):L$(A).
" ":."TEXT FOR LINE "A.1;:. L$(A)......"
EXPANDED (Y/N) "F$"...";:. F$......F
$."Y".F$."Y".F$(A).G(14)...B.....L.NL$."
":.".NUMBER OF LABELS";NL$:NL.E(NL$)...
V.. NL.0.900......LC.510......8,8,8,G$."
,P,R":.#8,A$: 8.S....ST.LC.0:."... A
DISK ERROR HAS OCCURED.":.850:.500.F...
LC..1:. G$,8,1.R....FO.670.....FO..1:.4,
4,7...... E.1 . NL...... A.0.6:C.21760.(
A.48):D.C.43:.4,G(8).V.... B.C.D:.4,G(B(
B));:.......4," "F$(A);L$(A);G(8);:....F
.. FC . FC.FC.1:.4,G(15);G(10):.740.A.P.
.4,G(10);G(10);G(10);G(15);:FC.IC.L....:
.460.J....8,8,0,"$0":N$.G(0):X$.N$......
#8,A$,A$,A$,A$,A$,A$......#8,A$:. A$."".
790.....X$.X$.A$:.770......". " X$...
*..#8,A$,A$:. A$."". 8:.850...4..#8,A$
,B$:B$.D(F(A$.N$).F(B$.N$).256)...>..#8,
A$:. A$."". ." "B$:B$."":.810.@.H.B$.B$
.A$:.830.P.R. 8:."..GRAPHIC FILE NAME ($
FOR DIRECTORY)"...P.. G$:. G$."$"..750:
.850...Z........".A NEW LABEL (Y/N)?".H.
...A$:.A$."Y".A$."Y".950...... A$."N".A$
."N".1000......910......".SAME GRAPHIC (
Y/N)?".!....A$:.A$."Y".A$."Y".260.9.J..
A$."N".A$."N".240.B.T..960.P.... FO . 4
... <- BASIC HERE
I LEFT A LITTLE ROOM H
ERE FOR CHANGES !
ML NEXT BLOCK -> ML --
> ..X....U.&....A.......%.....YJP. ..$..
.^.X*JJJJJJ....U......P.......MA.P..I$..
.......I..A....M%..%....&..WM&.P.`.L...+
.IWP.`.. THATS ALL THERE IS AND THERE
AIN'T NO MORE. BRIAN HEYBOER 3/8/86 PL
EASE GIVE CREDIT WHERE CREDIT IS DUE.
> CLICK IMAGE PREVIEW FOR FULL MODAL