PSLABEL/CBM V3.0
FILE INFORMATION
FILENAME(S): PSLABEL/CBM V3.0
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-10-20 14:31:10
APPEARS ON: 2 disk(s)
FILE HASH
0e45d566aff7cc199b03b44e6aa02105dd57bad4342104c59043bcab7844e4be
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0019GR | PSLABEL/CBM V3.0 | PRG | Treasure Chest - Klaus Der Suhler | 11 | 0 | DOWNLOAD FILE |
| PB DOMAIN 0019GR | PSLABEL/CBM V3.0 | PRG | UK CD | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 20 50 52 49 4E 54 20 53 |..(.... PRINT S| 00000010: 48 4F 50 20 4C 41 42 45 4C 20 4D 41 4B 45 52 2F |HOP LABEL MAKER/| 00000020: 43 42 4D 20 56 33 2E 30 00 49 08 0B 00 8F 20 20 |CBM V3.0.I.... | 00000030: 42 59 20 42 52 49 41 4E 20 48 45 59 42 4F 45 52 |BY BRIAN HEYBOER| 00000040: 20 20 39 2F 32 37 2F 38 36 00 6F 08 0C 00 8F 20 | 9/27/86.o.... | 00000050: 20 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 00 | PUBLIC DOMAIN..| 00000070: 75 08 0D 00 3A 00 95 08 0E 00 8F 20 20 4F 4E 20 |u...:...... ON | 00000080: 31 35 32 35 20 54 59 50 45 20 50 52 49 4E 54 45 |1525 TYPE PRINTE| 00000090: 52 53 2C 20 41 00 B8 08 0F 00 8F 20 20 50 45 52 |RS, A...... PER| 000000A0: 49 4F 44 49 43 20 41 44 4A 55 53 54 4D 45 4E 54 |IODIC ADJUSTMENT| 000000B0: 20 4D 55 53 54 20 42 45 00 DD 08 10 00 8F 20 20 | MUST BE...... | 000000C0: 44 4F 4E 45 20 54 4F 20 4B 45 45 50 20 54 48 45 |DONE TO KEEP THE| 000000D0: 20 50 52 49 4E 54 20 4F 4E 20 54 48 45 00 04 09 | PRINT ON THE...| 000000E0: 11 00 8F 20 20 4C 41 42 45 4C 20 52 4F 55 47 48 |... LABEL ROUGH| 000000F0: 4C 59 20 43 45 4E 54 45 52 45 44 2E 20 20 53 54 |LY CENTERED. ST| 00000100: 49 4C 4C 2C 00 29 09 12 00 8F 20 20 53 4F 4D 45 |ILL,.).... SOME| 00000110: 20 43 42 4D 20 50 52 49 4E 54 45 52 53 20 44 4F | CBM PRINTERS DO| 00000120: 20 4E 4F 54 20 4B 45 45 50 00 49 09 13 00 8F 20 | NOT KEEP.I.... | 00000130: 20 54 48 45 20 50 52 49 4E 54 20 43 45 4E 54 45 | THE PRINT CENTE| 00000140: 52 45 44 20 57 45 4C 4C 2E 00 6D 09 14 00 8F 20 |RED WELL..m.... | 00000150: 20 46 4F 52 20 46 49 4E 45 20 41 44 4A 55 53 54 | FOR FINE ADJUST| 00000160: 4D 45 4E 54 20 4F 46 20 4C 41 42 45 4C 00 92 09 |MENT OF LABEL...| 00000170: 15 00 8F 20 20 53 50 41 43 49 4E 47 20 4F 4E 20 |... SPACING ON | 00000180: 41 20 31 35 32 35 2C 20 43 48 41 4E 47 45 20 54 |A 1525, CHANGE T| 00000190: 48 45 00 B2 09 16 00 8F 20 20 56 41 4C 55 45 20 |HE...... VALUE | 000001A0: 4F 46 20 49 43 20 49 4E 20 4C 49 4E 45 20 31 32 |OF IC IN LINE 12| 000001B0: 30 2E 00 D7 09 17 00 8F 20 20 41 20 53 4D 41 4C |0....... A SMAL| 000001C0: 4C 45 52 20 49 43 20 28 42 55 54 20 41 4C 57 41 |LER IC (BUT ALWA| 000001D0: 59 53 20 3E 3D 30 29 00 F9 09 18 00 8F 20 20 44 |YS >=0)...... D| 000001E0: 4F 45 53 20 41 20 4D 4F 52 45 20 46 52 45 51 55 |OES A MORE FREQU| 000001F0: 45 4E 54 20 53 50 41 43 45 00 1C 0A 19 00 8F 20 |ENT SPACE...... | 00000200: 20 41 44 4A 55 53 54 4D 45 4E 54 20 41 4E 44 20 | ADJUSTMENT AND | 00000210: 4D 41 4B 45 53 20 4C 41 42 45 4C 53 00 41 0A 1A |MAKES LABELS.A..| 00000220: 00 8F 20 20 43 4C 4F 53 45 52 20 54 4F 47 45 54 |.. CLOSER TOGET| 00000230: 48 45 52 2E 20 20 41 20 4C 41 52 47 45 52 20 49 |HER. A LARGER I| 00000240: 43 00 61 0A 1B 00 8F 20 20 4D 41 4B 45 53 20 54 |C.a.... MAKES T| 00000250: 48 45 4D 20 57 49 44 45 52 20 53 50 41 43 45 44 |HEM WIDER SPACED| 00000260: 2E 00 86 0A 1C 00 8F 20 20 59 4F 55 20 4D 55 53 |....... YOU MUS| 00000270: 54 20 50 52 49 4E 54 20 53 45 56 45 52 41 4C 20 |T PRINT SEVERAL | 00000280: 4C 41 42 45 4C 53 00 A0 0A 1D 00 8F 20 20 54 4F |LABELS...... TO| 00000290: 20 53 45 45 20 54 48 45 20 45 46 46 45 43 54 2E | SEE THE EFFECT.| 000002A0: 00 C6 0A 1E 00 8F 20 20 31 35 32 36 20 54 59 50 |...... 1526 TYP| 000002B0: 45 20 50 52 49 4E 54 45 52 53 20 4B 45 45 50 20 |E PRINTERS KEEP | 000002C0: 4C 41 42 45 4C 53 00 EA 0A 1F 00 8F 20 20 43 45 |LABELS...... CE| 000002D0: 4E 54 45 52 45 44 20 42 45 54 54 45 52 2C 20 42 |NTERED BETTER, B| 000002E0: 55 54 20 59 4F 55 20 4D 41 59 00 11 0B 20 00 8F |UT YOU MAY... ..| 000002F0: 20 20 41 44 4A 55 53 54 20 54 48 49 53 20 53 50 | ADJUST THIS SP| 00000300: 41 43 49 4E 47 20 42 59 20 43 48 41 4E 47 49 4E |ACING BY CHANGIN| 00000310: 47 00 28 0B 21 00 8F 20 20 53 43 20 49 4E 20 4C |G.(.!.. SC IN L| 00000320: 49 4E 45 20 31 32 30 2E 00 2E 0B 22 00 3A 00 43 |INE 120....".:.C| 00000330: 0B 64 00 8B 4C 43 20 A7 20 9E 20 38 32 38 3A 89 |.d..LC . . 828:.| 00000340: 35 34 30 00 57 0B 6E 00 97 35 35 2C 30 3A 97 35 |540.W.n..55,0:.5| 00000350: 36 2C 31 35 36 3A 9C 00 93 0B 78 00 97 35 33 32 |6,156:....x..532| 00000360: 38 30 2C 31 3A 97 35 33 32 38 31 2C 31 3A 49 43 |80,1:.53281,1:IC| 00000370: B2 33 3A 46 43 B2 49 43 3A 53 43 B2 34 38 3A 8F |.3:FC.IC:SC.48:.| 00000380: 20 44 45 46 41 4C 54 20 49 43 3D 33 20 20 53 43 | DEFALT IC=3 SC| 00000390: 3D 34 38 00 B5 0B 82 00 43 43 24 B2 C7 28 32 35 |=48.....CC$..(25| 000003A0: 34 29 3A 53 52 24 B2 C7 28 31 34 31 29 3A 43 44 |4):SR$..(141):CD| 000003B0: 24 B2 22 11 22 00 E7 0B 8C 00 99 22 95 93 0E D0 |$."."......"....| 000003C0: 52 49 4E 54 20 D3 48 4F 50 20 C7 52 41 50 48 49 |RINT .HOP .RAPHI| 000003D0: 43 53 20 CC 41 42 45 4C 20 CD 41 4B 45 52 2F C3 |CS .ABEL .AKER/.| 000003E0: C2 CD 20 D6 33 2E 30 00 14 0C 96 00 99 22 20 20 |.. .3.0......" | 000003F0: C2 59 20 C2 52 49 41 4E 20 C8 45 59 42 4F 45 52 |.Y .RIAN .EYBOER| 00000400: 20 2D 20 D1 2D CC 49 4E 4B 20 C9 C4 3A 20 CD CF | - .-.INK ..: ..| 00000410: D3 C6 C5 D4 00 41 0C A0 00 99 22 11 11 90 D4 48 |.....A...."....H| 00000420: 49 53 20 50 52 4F 47 52 41 4D 20 50 52 49 4E 54 |IS PROGRAM PRINT| 00000430: 53 20 53 54 41 4E 44 41 52 44 20 31 20 49 4E 43 |S STANDARD 1 INC| 00000440: 48 00 6E 0C AA 00 99 22 4D 41 49 4C 49 4E 47 20 |H.n...."MAILING | 00000450: 4C 41 42 45 4C 53 20 55 53 49 4E 47 20 D0 52 49 |LABELS USING .RI| 00000460: 4E 54 20 D3 48 4F 50 20 D3 49 44 45 20 C2 00 9A |NT .HOP .IDE ...| 00000470: 0C B4 00 99 22 47 52 41 50 48 49 43 53 20 41 4E |...."GRAPHICS AN| 00000480: 44 20 54 45 58 54 20 4F 46 20 59 4F 55 52 20 43 |D TEXT OF YOUR C| 00000490: 48 4F 49 43 45 20 4F 4E 20 41 00 C7 0C BE 00 99 |HOICE ON A......| 000004A0: 22 C3 C2 CD 20 31 35 32 35 2C 20 31 35 32 36 2C |"... 1525, 1526,| 000004B0: 20 4F 52 20 43 4F 4D 50 41 54 41 42 4C 45 20 50 | OR COMPATABLE P| 000004C0: 52 49 4E 54 45 52 2E 00 ED 0C C8 00 99 22 11 D4 |RINTER......."..| 000004D0: 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 50 |HIS PROGRAM IS P| 000004E0: 55 42 4C 49 43 20 44 4F 4D 41 49 4E 2E 00 1D 0D |UBLIC DOMAIN....| 000004F0: D2 00 99 22 11 D0 52 49 4E 54 20 D3 48 4F 50 20 |..."..RINT .HOP | 00000500: 49 53 20 41 20 54 52 41 44 45 4D 41 52 4B 20 4F |IS A TRADEMARK O| 00000510: 46 20 C2 52 4F 44 45 52 42 55 4E 44 2E 00 44 0D |F .RODERBUND..D.| 00000520: DC 00 99 22 C3 C2 CD 20 49 53 20 41 20 54 52 41 |..."... IS A TRA| 00000530: 44 45 4D 41 52 4B 20 4F 46 20 C3 4F 4D 4D 4F 44 |DEMARK OF .OMMOD| 00000540: 4F 52 45 2E 00 66 0D E6 00 99 22 1F 11 11 11 20 |ORE..f....".... | 00000550: 20 C3 48 4F 4F 53 45 20 D0 52 49 4E 54 45 52 20 | .HOOSE .RINTER | 00000560: 54 59 50 45 3A 11 00 86 0D F0 00 99 22 90 20 31 |TYPE:.......". 1| 00000570: 2E 20 31 35 32 35 2F CD D0 D3 2D 38 30 31 2F CD |. 1525/...-801/.| 00000580: D0 D3 2D 38 30 33 00 9D 0D FA 00 99 22 20 32 2E |..-803......" 2.| 00000590: 20 31 35 32 36 2F CD D0 D3 2D 38 30 32 00 C7 0D | 1526/...-802...| 000005A0: 04 01 85 22 11 1F D7 48 49 43 48 1E 22 3B 58 24 |..."...HICH.";X$| 000005B0: 3A 8B 20 58 24 B2 22 31 22 A7 20 50 54 B2 31 35 |:. X$."1". PT.15| 000005C0: 32 35 3A 89 32 39 30 00 E3 0D 0E 01 8B 20 58 24 |25:.290...... X$| 000005D0: B2 22 32 22 20 A7 20 50 54 B2 31 35 32 36 3A 89 |."2" . PT.1526:.| 000005E0: 32 39 30 00 EC 0D 18 01 89 32 36 30 00 FD 0D 22 |290......260..."| 000005F0: 01 86 20 4C 24 28 36 29 2C 46 28 36 29 00 1C 0E |.. L$(6),F(6)...| 00000600: 2C 01 81 20 49 B2 38 32 38 20 A4 20 39 34 34 3A |,.. I.828 . 944:| 00000610: 87 20 41 3A 20 97 20 49 2C 41 3A 82 00 46 0E 36 |. A: . I,A:..F.6| 00000620: 01 8B 20 50 54 B2 31 35 32 36 20 A7 20 81 20 49 |.. PT.1526 . . I| 00000630: B2 38 36 38 20 A4 20 39 34 32 3A 87 20 41 3A 97 |.868 . 942:. A:.| 00000640: 20 49 2C 41 3A 82 00 75 0E 40 01 99 22 95 93 20 | I,A:..u.@..".. | 00000650: 20 20 20 D0 52 49 4E 54 20 D3 48 4F 50 20 C7 52 | .RINT .HOP .R| 00000660: 41 50 48 49 43 53 20 CC 41 42 45 4C 20 CD 41 4B |APHICS .ABEL .AK| 00000670: 45 52 22 3A 99 00 A2 0E 4A 01 99 22 11 1F C7 52 |ER":....J.."...R| 00000680: 41 50 48 49 43 20 C6 49 4C 45 20 CE 41 4D 45 20 |APHIC .ILE .AME | 00000690: 28 24 20 46 4F 52 20 C4 49 52 45 43 54 4F 52 59 |($ FOR .IRECTORY| 000006A0: 29 1E 00 C8 0E 54 01 4C 43 B2 30 3A 85 20 22 1E |)....T.LC.0:. ".| 000006B0: 20 20 24 9D 9D 9D 22 3B 47 24 3A 8B 20 47 24 B2 | $...";G$:. G$.| 000006C0: 22 24 22 A7 8D 37 32 30 00 F6 0E 5E 01 99 22 90 |"$"..720...^..".| 000006D0: 11 C9 4E 50 55 54 20 CC 41 42 45 4C 20 D4 45 58 |..NPUT .ABEL .EX| 000006E0: 54 2E 20 20 C6 4F 52 20 42 45 53 54 20 52 45 53 |T. .OR BEST RES| 000006F0: 55 4C 54 53 2C 22 00 23 0F 68 01 99 22 53 4B 49 |ULTS,".#.h.."SKI| 00000700: 50 20 41 4C 54 45 52 4E 41 54 45 20 4C 49 4E 45 |P ALTERNATE LINE| 00000710: 53 2E 20 28 D5 53 45 20 31 2C 33 2C 35 2C 37 20 |S. (.SE 1,3,5,7 | 00000720: 46 4F 52 00 4E 0F 72 01 99 22 46 4F 55 52 20 4C |FOR.N.r.."FOUR L| 00000730: 49 4E 45 20 4C 41 42 45 4C 53 20 41 4E 44 20 32 |INE LABELS AND 2| 00000740: 2C 34 2C 36 20 46 4F 52 20 54 48 52 45 45 00 79 |,4,6 FOR THREE.y| 00000750: 0F 7C 01 99 22 4C 49 4E 45 53 2E 29 20 20 CC 49 |.|.."LINES.) .I| 00000760: 4E 45 53 20 57 49 54 48 20 43 4F 4D 4D 41 53 20 |NES WITH COMMAS | 00000770: 4F 52 20 43 4F 4C 4F 4E 53 00 94 0F 86 01 99 22 |OR COLONS......"| 00000780: 4D 55 53 54 20 42 45 20 49 4E 20 51 55 4F 54 45 |MUST BE IN QUOTE| 00000790: 53 2E 11 11 00 9F 0F 90 01 46 24 B2 22 4E 22 00 |S........F$."N".| 000007A0: E1 0F 9A 01 81 20 41 B2 30 A4 36 3A 46 24 28 41 |..... A.0.6:F$(A| 000007B0: 29 B2 C7 28 31 35 29 3A 4C 24 28 41 29 B2 22 20 |)..(15):L$(A)." | 000007C0: 22 3A 99 22 1F D4 45 58 54 20 46 4F 52 20 4C 49 |":."..EXT FOR LI| 000007D0: 4E 45 20 1E 22 41 AA 31 3B 3A 85 20 4C 24 28 41 |NE ."A.1;:. L$(A| 000007E0: 29 00 0B 10 A4 01 99 22 1F C5 58 50 41 4E 44 45 |)......"..XPANDE| 000007F0: 44 20 28 D9 2F CE 29 20 20 20 20 20 1E 22 46 24 |D (./.) ."F$| 00000800: 22 9D 9D 9D 22 3B 3A 85 20 46 24 00 2F 10 AE 01 |"...";:. F$./...| 00000810: 8B 46 24 B2 22 D9 22 B0 46 24 B2 22 59 22 A7 46 |.F$.".".F$."Y".F| 00000820: 24 28 41 29 B2 C7 28 31 34 29 3A 89 34 35 30 00 |$(A)..(14):.450.| 00000830: 55 10 B8 01 8B 20 46 24 B3 B1 22 4E 22 20 AF 20 |U.... F$.."N" . | 00000840: 46 24 B3 B1 22 CE 22 20 A7 20 46 24 B2 22 4E 22 |F$.."." . F$."N"| 00000850: 3A 89 34 32 30 00 5B 10 C2 01 82 00 93 10 CC 01 |:.420.[.........| 00000860: 4E 4C 24 B2 22 20 22 3A 85 22 1F 11 CE 55 4D 42 |NL$." ":."...UMB| 00000870: 45 52 20 4F 46 20 4C 41 42 45 4C 53 20 20 20 1E |ER OF LABELS .| 00000880: 31 9D 9D 9D 22 3B 4E 4C 24 3A 4E 4C B2 C5 28 4E |1...";NL$:NL..(N| 00000890: 4C 24 29 00 A2 10 D6 01 8B 20 4E 4C B2 30 A7 39 |L$)...... NL.0.9| 000008A0: 30 30 00 AE 10 E0 01 8B 4C 43 A7 35 34 30 00 D3 |00......LC.540..| 000008B0: 10 E5 01 8F 20 43 48 45 43 4B 20 46 4F 52 20 50 |.... CHECK FOR P| 000008C0: 53 20 4F 52 20 43 4F 4D 50 41 4E 49 4F 4E 20 46 |S OR COMPANION F| 000008D0: 49 4C 45 00 F7 10 EA 01 9F 38 2C 38 2C 38 2C 47 |ILE......8,8,8,G| 000008E0: 24 AA 22 2C 50 2C 52 22 3A A1 23 38 2C 41 31 24 |$.",P,R":.#8,A1$| 000008F0: 2C 41 32 24 3A A0 38 00 34 11 F4 01 8B 53 54 A7 |,A2$:.8.4....ST.| 00000900: 4C 43 B2 30 3A 99 22 1C 11 11 11 20 20 20 20 20 |LC.0:.".... | 00000910: C1 20 C4 49 53 4B 20 C5 52 52 4F 52 20 48 41 53 |. .ISK .RROR HAS| 00000920: 20 4F 43 43 55 52 45 44 2E 22 3A 8D 38 37 30 3A | OCCURED.":.870:| 00000930: 89 34 39 30 00 58 11 FE 01 8B 41 31 24 B2 22 22 |.490.X....A1$.""| 00000940: AF 28 41 32 24 B3 B1 22 58 22 B0 41 32 24 B3 B1 |.(A2$.."X".A2$..| 00000950: 22 D8 22 29 A7 35 33 30 00 88 11 08 02 99 22 1C |".").530......".| 00000960: 11 11 11 20 20 20 20 CE 4F 54 20 41 20 D0 52 49 |... .OT A .RI| 00000970: 4E 54 20 D3 48 4F 50 20 C6 49 4C 45 21 22 3A 8D |NT .HOP .ILE!":.| 00000980: 38 37 30 3A 89 34 39 30 00 A7 11 12 02 97 38 32 |870:.490......82| 00000990: 39 2C C6 28 41 32 24 29 3A 4C 43 B2 AB 31 3A 93 |9,.(A2$):LC..1:.| 000009A0: 20 47 24 2C 38 2C 31 00 BA 11 1C 02 8B 20 50 54 | G$,8,1...... PT| 000009B0: B2 31 35 32 35 20 A7 36 33 30 00 D3 11 21 02 8F |.1525 .630...!..| 000009C0: 20 31 35 32 36 20 50 52 49 4E 54 20 52 4F 55 54 | 1526 PRINT ROUT| 000009D0: 49 4E 45 00 DF 11 26 02 8B 46 4F A7 35 37 30 00 |INE...&..FO.570.| 000009E0: FE 11 30 02 46 4F B2 AB 31 3A 9F 34 2C 34 2C 37 |..0.FO..1:.4,4,7| 000009F0: 3A 9F 35 2C 34 2C 35 3A 9F 36 2C 34 2C 36 00 1D |:.5,4,5:.6,4,6..| 00000A00: 12 3A 02 81 20 45 B2 31 20 A4 20 4E 4C 3A 98 36 |.:.. E.1 . NL:.6| 00000A10: 2C C7 28 32 31 29 3A 98 34 2C 53 52 24 00 4E 12 |,.(21):.4,SR$.N.| 00000A20: 44 02 81 20 41 B2 30 A4 36 3A 43 B2 32 31 37 36 |D.. A.0.6:C.2176| 00000A30: 30 AA 28 41 AC 34 38 29 3A 44 B2 43 AA 34 34 3A |0.(A.48):D.C.44:| 00000A40: 4E 53 B2 30 3A 8B 41 B2 36 20 A7 36 31 30 00 83 |NS.0:.A.6 .610..| 00000A50: 12 4E 02 81 20 42 B2 43 A4 44 A9 38 3A 41 24 B2 |.N.. B.C.D.8:A$.| 00000A60: 22 22 3A 81 46 B2 30 A4 37 3A 41 24 B2 41 24 AA |"":.F.0.7:A$.A$.| 00000A70: C7 28 C2 28 42 AA 46 29 29 3A 82 3A 20 98 35 2C |.(.(B.F)):.: .5,| 00000A80: 41 24 3B 00 A2 12 58 02 98 34 2C A3 4E 53 29 3B |A$;...X..4,.NS);| 00000A90: 43 43 24 3B 53 52 24 3B 3A 4E 53 B2 4E 53 AA 31 |CC$;SR$;:NS.NS.1| 00000AA0: 3A 82 00 BB 12 62 02 98 34 2C A3 37 29 3B 46 24 |:....b..4,.7);F$| 00000AB0: 28 41 29 3B 4C 24 28 41 29 3A 82 00 D2 12 6C 02 |(A);L$(A):....l.| 00000AC0: 98 36 2C C7 28 53 43 29 3A 98 34 3A 82 3A 89 34 |.6,.(SC):.4:.:.4| 00000AD0: 36 30 00 EB 12 71 02 8F 20 31 35 32 35 20 50 52 |60...q.. 1525 PR| 00000AE0: 49 4E 54 20 52 4F 55 54 49 4E 45 00 F7 12 76 02 |INT ROUTINE...v.| 00000AF0: 8B 46 4F A7 36 35 30 00 08 13 80 02 46 4F B2 AB |.FO.650.....FO..| 00000B00: 31 3A 9F 34 2C 34 2C 37 00 17 13 8A 02 81 20 45 |1:.4,4,7...... E| 00000B10: B2 31 20 A4 20 4E 4C 00 41 13 94 02 81 20 41 B2 |.1 . NL.A.... A.| 00000B20: 30 A4 36 3A 43 B2 32 31 37 36 30 AA 28 41 AC 34 |0.6:C.21760.(A.4| 00000B30: 38 29 3A 44 B2 43 AA 34 33 3A 98 34 2C C7 28 38 |8):D.C.43:.4,.(8| 00000B40: 29 00 5B 13 9E 02 81 20 42 B2 43 A4 44 3A 98 34 |).[.... B.C.D:.4| 00000B50: 2C C7 28 C2 28 42 29 29 3B 3A 82 00 79 13 A8 02 |,.(.(B));:..y...| 00000B60: 98 34 2C 22 20 22 46 24 28 41 29 3B 4C 24 28 41 |.4," "F$(A);L$(A| 00000B70: 29 3B C7 28 38 29 3B 3A 82 00 A0 13 B2 02 8B 20 |);.(8);:....... | 00000B80: 46 43 20 A7 20 46 43 B2 46 43 AB 31 3A 98 34 2C |FC . FC.FC.1:.4,| 00000B90: C7 28 31 35 29 3B C7 28 31 30 29 3A 89 37 31 30 |.(15);.(10):.710| 00000BA0: 00 C6 13 BC 02 98 34 2C C7 28 31 30 29 3B C7 28 |......4,.(10);.(| 00000BB0: 31 30 29 3B C7 28 31 30 29 3B C7 28 31 35 29 3B |10);.(10);.(15);| 00000BC0: 3A 46 43 B2 49 43 00 D1 13 C6 02 82 3A 89 34 36 |:FC.IC......:.46| 00000BD0: 30 00 11 14 D0 02 9F 38 2C 38 2C 30 2C 22 24 30 |0......8,8,0,"$0| 00000BE0: 22 3A 4E 24 B2 C7 28 30 29 3A 58 24 B2 4E 24 3A |":N$..(0):X$.N$:| 00000BF0: 99 A3 38 29 3B 22 11 9C D0 52 45 53 53 20 C1 4E |..8);"...RESS .N| 00000C00: 59 20 CB 45 59 20 54 4F 20 D0 41 55 53 45 2E 11 |Y .EY TO .AUSE..| 00000C10: 1F 00 2E 14 D5 02 8F 20 44 49 52 45 43 54 4F 52 |....... DIRECTOR| 00000C20: 59 20 52 45 41 44 20 52 4F 55 54 49 4E 45 00 48 |Y READ ROUTINE.H| 00000C30: 14 DA 02 A1 23 38 2C 41 24 2C 41 24 2C 41 24 2C |....#8,A$,A$,A$,| 00000C40: 41 24 2C 41 24 2C 41 24 00 5F 14 E4 02 A1 23 38 |A$,A$,A$._....#8| 00000C50: 2C 41 24 3A 8B 20 41 24 B2 22 22 A7 37 36 30 00 |,A$:. A$."".760.| 00000C60: 71 14 EE 02 58 24 B2 58 24 AA 41 24 3A 89 37 34 |q...X$.X$.A$:.74| 00000C70: 30 00 84 14 F8 02 99 22 11 1F 22 A3 37 29 3B 58 |0......"..".7);X| 00000C80: 24 22 90 22 00 97 14 02 03 A1 41 24 3A 8B 41 24 |$"."......A$:.A$| 00000C90: B2 22 22 A7 38 33 30 00 C3 14 0C 03 99 22 9C 11 |."".830......"..| 00000CA0: 20 20 20 20 20 D0 52 45 53 53 20 D2 C5 D4 D5 D2 | .RESS .....| 00000CB0: CE 20 54 4F 20 D3 54 4F 50 20 C4 49 52 45 43 54 |. TO .TOP .IRECT| 00000CC0: 4F 52 59 00 EC 14 16 03 99 22 20 20 20 20 20 20 |ORY......" | 00000CD0: D0 52 45 53 53 20 C1 4E 59 20 CF 54 48 45 52 20 |.RESS .NY .THER | 00000CE0: 54 4F 20 C3 4F 4E 54 49 4E 55 45 90 00 FF 14 20 |TO .ONTINUE.... | 00000CF0: 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 30 30 00 |..A$:.A$."".800.| 00000D00: 11 15 2A 03 8B 41 24 B2 C7 28 31 33 29 89 38 37 |..*..A$..(13).87| 00000D10: 30 00 4F 15 34 03 81 49 B2 31 A4 32 3A 99 22 91 |0.O.4..I.1.2:.".| 00000D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D40: 20 20 20 20 20 91 22 3A 82 3A 99 22 91 91 22 00 | .":.:."..".| 00000D50: 6F 15 3E 03 A1 23 38 2C 41 24 2C 41 24 3A 8B 20 |o.>..#8,A$,A$:. | 00000D60: 41 24 B2 22 22 A7 20 A0 20 38 3A 89 38 37 30 00 |A$."". . 8:.870.| 00000D70: 99 15 48 03 A1 23 38 2C 41 24 2C 42 24 3A 42 24 |..H..#8,A$,B$:B$| 00000D80: B2 C4 28 C6 28 41 24 AA 4E 24 29 AA C6 28 42 24 |..(.(A$.N$)..(B$| 00000D90: AA 4E 24 29 AC 32 35 36 29 00 BF 15 52 03 A1 23 |.N$).256)...R..#| 00000DA0: 38 2C 41 24 3A 8B 20 41 24 B2 22 22 A7 20 99 A3 |8,A$:. A$."". ..| 00000DB0: 35 29 42 24 3A 42 24 B2 22 22 3A 89 37 37 30 00 |5)B$:B$."":.770.| 00000DC0: D1 15 5C 03 42 24 B2 42 24 AA 41 24 3A 89 38 35 |..\.B$.B$.A$:.85| 00000DD0: 30 00 01 16 66 03 A0 38 3A 99 22 1F 11 11 C7 52 |0...f..8:."....R| 00000DE0: 41 50 48 49 43 20 C6 49 4C 45 20 CE 41 4D 45 20 |APHIC .ILE .AME | 00000DF0: 28 24 20 46 4F 52 20 C4 49 52 45 43 54 4F 52 59 |($ FOR .IRECTORY| 00000E00: 29 00 27 16 70 03 85 20 22 1E 20 20 24 9D 9D 9D |).'.p.. ". $...| 00000E10: 22 3B 47 24 3A 8B 20 47 24 B2 22 24 22 A7 8D 37 |";G$:. G$."$"..7| 00000E20: 32 30 3A 89 38 37 30 00 2D 16 7A 03 8E 00 42 16 |20:.870.-.z...B.| 00000E30: 7F 03 8F 20 50 52 49 4E 54 20 41 4E 4F 54 48 45 |... PRINT ANOTHE| 00000E40: 52 3F 00 5E 16 84 03 99 22 1F 11 C1 20 4E 45 57 |R?.^...."... NEW| 00000E50: 20 4C 41 42 45 4C 20 28 D9 2F CE 29 22 3B 00 8E | LABEL (./.)";..| 00000E60: 16 8E 03 85 22 1E 20 20 D9 9D 9D 9D 22 3B 41 24 |....". ....";A$| 00000E70: 3A 41 24 B2 C8 28 41 24 2C 31 29 3A 8B 41 24 B2 |:A$..(A$,1):.A$.| 00000E80: 22 59 22 B0 41 24 B2 22 D9 22 A7 39 34 30 00 A6 |"Y".A$.".".940..| 00000E90: 16 98 03 8B 20 41 24 B2 22 4E 22 B0 41 24 B2 22 |.... A$."N".A$."| 00000EA0: CE 22 A7 39 38 30 00 AF 16 A2 03 89 39 31 30 00 |.".980......910.| 00000EB0: CC 16 AC 03 99 22 1F 11 D3 41 4D 45 20 C7 52 41 |....."...AME .RA| 00000EC0: 50 48 49 43 20 28 D9 2F CE 29 22 3B 00 FC 16 B6 |PHIC (./.)";....| 00000ED0: 03 85 22 1E 20 20 D9 9D 9D 9D 22 3B 41 24 3A 41 |..". ....";A$:A| 00000EE0: 24 B2 C8 28 41 24 2C 31 29 3A 8B 41 24 B2 22 59 |$..(A$,1):.A$."Y| 00000EF0: 22 B0 41 24 B2 22 D9 22 A7 33 35 30 00 14 17 C0 |".A$.".".350....| 00000F00: 03 8B 20 41 24 B2 22 4E 22 B0 41 24 B2 22 CE 22 |.. A$."N".A$."."| 00000F10: A7 33 33 30 00 1D 17 CA 03 89 39 35 30 00 2C 17 |.330......950.,.| 00000F20: D4 03 8B 20 46 4F B2 30 20 A7 20 80 00 50 17 DE |... FO.0 . ..P..| 00000F30: 03 A0 34 3A 8B 20 50 54 B2 31 35 32 36 20 A7 20 |..4:. PT.1526 . | 00000F40: 98 36 2C C7 28 33 36 29 3A A0 35 3A A0 36 3A 80 |.6,.(36):.5:.6:.| 00000F50: 00 77 17 E3 03 8F 20 31 35 32 35 20 47 52 41 50 |.w.... 1525 GRAP| 00000F60: 48 49 43 20 53 4F 52 54 45 52 20 4D 41 43 48 49 |HIC SORTER MACHI| 00000F70: 4E 45 20 43 4F 44 45 00 AF 17 E8 03 83 20 31 36 |NE CODE...... 16| 00000F80: 39 2C 38 38 2C 31 34 31 2C 31 30 36 2C 33 2C 32 |9,88,141,106,3,2| 00000F90: 34 2C 31 30 35 2C 31 2C 31 34 31 2C 39 33 2C 33 |4,105,1,141,93,3| 00000FA0: 2C 31 36 39 2C 38 35 2C 31 34 31 2C 31 31 38 00 |,169,85,141,118.| 00000FB0: E5 17 F2 03 83 20 33 2C 31 36 39 2C 36 2C 31 34 |..... 3,169,6,14| 00000FC0: 31 2C 31 37 37 2C 33 2C 31 36 39 2C 30 2C 31 34 |1,177,3,169,0,14| 00000FD0: 31 2C 31 30 35 2C 33 2C 31 34 31 2C 31 31 37 2C |1,105,3,141,117,| 00000FE0: 33 2C 31 36 32 00 1D 18 FC 03 83 20 37 32 2C 31 |3,162...... 72,1| 00000FF0: 35 37 2C 31 33 2C 38 39 2C 32 30 32 2C 32 30 38 |57,13,89,202,208| 00001000: 2C 32 35 30 2C 31 36 30 2C 37 2C 31 36 32 2C 33 |,250,160,7,162,3| 00001010: 36 2C 31 36 39 2C 31 2C 32 34 2C 39 34 00 57 18 |6,169,1,24,94.W.| 00001020: 06 04 83 20 30 2C 38 38 2C 34 32 2C 32 30 32 2C |... 0,88,42,202,| 00001030: 32 30 32 2C 32 30 32 2C 32 30 32 2C 32 30 32 2C |202,202,202,202,| 00001040: 32 30 32 2C 31 36 2C 32 34 33 2C 31 35 33 2C 30 |202,16,243,153,0| 00001050: 2C 38 35 2C 31 33 36 00 90 18 10 04 83 20 31 36 |,85,136...... 16| 00001060: 2C 32 33 33 2C 32 33 38 2C 31 30 35 2C 33 2C 32 |,233,238,105,3,2| 00001070: 30 38 2C 33 2C 32 33 38 2C 31 30 36 2C 33 2C 31 |08,3,238,106,3,1| 00001080: 37 33 2C 31 30 35 2C 33 2C 32 30 35 2C 31 37 37 |73,105,3,205,177| 00001090: 00 C6 18 1A 04 83 20 33 2C 32 30 38 2C 31 37 2C |...... 3,208,17,| 000010A0: 32 34 2C 31 30 35 2C 33 36 2C 31 34 31 2C 31 30 |24,105,36,141,10| 000010B0: 35 2C 33 2C 31 34 34 2C 34 2C 32 33 38 2C 31 30 |5,3,144,4,238,10| 000010C0: 36 2C 33 2C 32 34 00 FD 18 24 04 83 20 31 30 35 |6,3,24...$.. 105| 000010D0: 2C 36 2C 31 34 31 2C 31 37 37 2C 33 2C 31 36 39 |,6,141,177,3,169| 000010E0: 2C 38 2C 32 34 2C 31 30 39 2C 31 31 37 2C 33 2C |,8,24,109,117,3,| 000010F0: 31 34 31 2C 31 31 37 2C 33 2C 31 34 34 00 2D 19 |141,117,3,144.-.| 00001100: 2E 04 83 20 31 38 37 2C 32 33 38 2C 31 31 38 2C |... 187,238,118,| 00001110: 33 2C 31 36 39 2C 38 37 2C 32 30 35 2C 31 31 38 |3,169,87,205,118| 00001120: 2C 33 2C 32 30 38 2C 31 37 37 2C 39 36 00 4F 19 |,3,208,177,96.O.| 00001130: 33 04 8F 20 31 35 32 36 20 47 52 41 50 48 49 43 |3.. 1526 GRAPHIC| 00001140: 20 53 4F 52 54 45 52 20 43 48 41 4E 47 45 53 00 | SORTER CHANGES.| 00001150: 64 19 38 04 83 20 34 32 2C 31 36 39 2C 30 2C 32 |d.8.. 42,169,0,2| 00001160: 34 2C 39 34 00 9F 19 42 04 83 20 30 2C 38 38 2C |4,94...B.. 0,88,| 00001170: 31 30 36 2C 32 30 32 2C 32 30 32 2C 32 30 32 2C |106,202,202,202,| 00001180: 32 30 32 2C 32 30 32 2C 32 30 32 2C 31 36 2C 32 |202,202,202,16,2| 00001190: 34 33 2C 31 35 33 2C 30 2C 38 35 2C 31 33 36 00 |43,153,0,85,136.| 000011A0: D8 19 4C 04 83 20 31 36 2C 32 33 33 2C 32 33 38 |..L.. 16,233,238| 000011B0: 2C 31 30 35 2C 33 2C 32 30 38 2C 33 2C 32 33 38 |,105,3,208,3,238| 000011C0: 2C 31 30 36 2C 33 2C 31 37 33 2C 31 30 35 2C 33 |,106,3,173,105,3| 000011D0: 2C 32 30 35 2C 31 37 37 00 0E 1A 56 04 83 20 33 |,205,177...V.. 3| 000011E0: 2C 32 30 38 2C 31 37 2C 32 34 2C 31 30 35 2C 34 |,208,17,24,105,4| 000011F0: 32 2C 31 34 31 2C 31 30 35 2C 33 2C 31 34 34 2C |2,141,105,3,144,| 00001200: 34 2C 32 33 38 2C 31 30 36 2C 33 2C 32 34 00 45 |4,238,106,3,24.E| 00001210: 1A 60 04 83 20 31 30 35 2C 36 2C 31 34 31 2C 31 |.`.. 105,6,141,1| 00001220: 37 37 2C 33 2C 31 36 39 2C 38 2C 32 34 2C 31 30 |77,3,169,8,24,10| 00001230: 39 2C 31 31 37 2C 33 2C 31 34 31 2C 31 31 37 2C |9,117,3,141,117,| 00001240: 33 2C 31 34 34 00 6E 1A 6A 04 83 20 31 38 37 2C |3,144.n.j.. 187,| 00001250: 32 33 38 2C 31 31 38 2C 33 2C 31 37 33 2C 31 31 |238,118,3,173,11| 00001260: 38 2C 33 2C 32 30 31 2C 38 37 2C 32 30 38 00 00 |8,3,201,87,208..| 00001270: 00 |. |
..(.... PRINT SHOP LABEL MAKER/CBM V3.0
.I.... BY BRIAN HEYBOER 9/27/86.O....
THIS PROGRAM IS PUBLIC DOMAIN..U...:...
... ON 1525 TYPE PRINTERS, A...... PER
IODIC ADJUSTMENT MUST BE...... DONE TO
KEEP THE PRINT ON THE...... LABEL ROUGH
LY CENTERED. STILL,.).... SOME CBM PRI
NTERS DO NOT KEEP.I.... THE PRINT CENTE
RED WELL..M.... FOR FINE ADJUSTMENT OF
LABEL...... SPACING ON A 1525, CHANGE T
HE...... VALUE OF IC IN LINE 120..W....
A SMALLER IC (BUT ALWAYS >=0)...... D
OES A MORE FREQUENT SPACE...... ADJUSTM
ENT AND MAKES LABELS.A.... CLOSER TOGET
HER. A LARGER IC.A.... MAKES THEM WIDE
R SPACED....... YOU MUST PRINT SEVERAL
LABELS. .... TO SEE THE EFFECT..F....
1526 TYPE PRINTERS KEEP LABELS...... CE
NTERED BETTER, BUT YOU MAY... .. ADJUST
THIS SPACING BY CHANGING.(.!.. SC IN L
INE 120....".:.C.D..LC . . 828:.540.W.N.
.55,0:.56,156:....X..53280,1:.53281,1:IC
.3:FC.IC:SC.48:. DEFALT IC=3 SC=48.....
CC$.G(254):SR$.G(141):CD$."."......"...P
RINT SHOP GRAPHICS LABEL MAKER/CBM V3.0.
....." BY BRIAN HEYBOER - Q-LINK ID: MO
SFET.A. .."...THIS PROGRAM PRINTS STANDA
RD 1 INCH.N...."MAILING LABELS USING PRI
NT SHOP SIDE B......"GRAPHICS AND TEXT O
F YOUR CHOICE ON A.G...."CBM 1525, 1526,
OR COMPATABLE PRINTER....H..".THIS PROG
RAM IS PUBLIC DOMAIN....R..".PRINT SHOP
IS A TRADEMARK OF BRODERBUND..D...."CBM
IS A TRADEMARK OF COMMODORE..F...."....
CHOOSE PRINTER TYPE:.......". 1. 1525/M
PS-801/MPS-803......" 2. 1526/MPS-802.G.
..."..WHICH.";X$:. X$."1". PT.1525:.290.
..... X$."2" . PT.1526:.290......260..."
.. L$(6),F(6)...,.. I.828 . 944:. A: . I
,A:..F.6.. PT.1526 . . I.868 . 942:. A:.
I,A:..U.@..".. PRINT SHOP GRAPHICS L
ABEL MAKER":....J.."..GRAPHIC FILE NAME
($ FOR DIRECTORY)..H.T.LC.0:. ". $...";
G$:. G$."$"..720...^.."..INPUT LABEL TEX
T. FOR BEST RESULTS,".#.H.."SKIP ALTERN
ATE LINES. (USE 1,3,5,7 FOR.N.R.."FOUR L
INE LABELS AND 2,4,6 FOR THREE.Y.|.."LIN
ES.) LINES WITH COMMAS OR COLONS......"
MUST BE IN QUOTES........F$."N"...... A.
0.6:F$(A).G(15):L$(A)." ":.".TEXT FOR LI
NE ."A.1;:. L$(A)......".EXPANDED (Y/N)
."F$"...";:. F$./....F$."Y".F$."Y".F
$(A).G(14):.450.U.... F$.."N" . F$.."N"
. F$."N":.420.[.B.....L.NL$." ":."..NUMB
ER OF LABELS .1...";NL$:NL.E(NL$)...V.
. NL.0.900......LC.540.S.... CHECK FOR P
S OR COMPANION FILE......8,8,8,G$.",P,R"
:.#8,A1$,A2$: 8.4....ST.LC.0:."....
A DISK ERROR HAS OCCURED.":.870:.490.X..
..A1$."".(A2$.."X".A2$.."X").530......".
... NOT A PRINT SHOP FILE!":.870:.490
......829,F(A2$):LC..1:. G$,8,1...... PT
.1525 .630.S.!.. 1526 PRINT ROUTINE...&.
.FO.570...0.FO..1:.4,4,7:.5,4,5:.6,4,6..
.:.. E.1 . NL:.6,G(21):.4,SR$.N.D.. A.0.
6:C.21760.(A.48):D.C.44:NS.0:.A.6 .610..
.N.. B.C.D.8:A$."":.F.0.7:A$.A$.G(B(B.F)
):.: .5,A$;...X..4,.NS);CC$;SR$;:NS.NS.1
:....B..4,.7);F$(A);L$(A):..R.L..6,G(SC)
:.4:.:.460...Q.. 1525 PRINT ROUTINE...V.
.FO.650.....FO..1:.4,4,7...... E.1 . NL.
A.... A.0.6:C.21760.(A.48):D.C.43:.4,G(8
).[.... B.C.D:.4,G(B(B));:..Y....4," "F$
(A);L$(A);G(8);:.. .... FC . FC.FC.1:.4,
G(15);G(10):.710.F....4,G(10);G(10);G(10
);G(15);:FC.IC.Q.F..:.460...P..8,8,0,"$0
":N$.G(0):X$.N$:..8);"..PRESS ANY KEY TO
PAUSE......U.. DIRECTORY READ ROUTINE.H
.Z..#8,A$,A$,A$,A$,A$,A$._....#8,A$:. A$
."".760.Q...X$.X$.A$:.740......"..".7);X
$"."......A$:.A$."".830.C....".. PRE
SS RETURN TO STOP DIRECTORY......"
PRESS ANY OTHER TO CONTINUE.... ..A$:.A$
."".800...*..A$.G(13).870.O.4..I.1.2:.".
.":
.:."..".O.>..#8,A$,A$:. A$."". 8:.870.
..H..#8,A$,B$:B$.D(F(A$.N$).F(B$.N$).256
)...R..#8,A$:. A$."". ..5)B$:B$."":.770.
Q.\.B$.B$.A$:.850...F. 8:."...GRAPHIC FI
LE NAME ($ FOR DIRECTORY).'.P.. ". $...
";G$:. G$."$"..720:.870.-.Z...B... PRIN
T ANOTHER?.^...."..A NEW LABEL (Y/N)";..
....". Y...";A$:A$.H(A$,1):.A$."Y".A$."
Y".940...... A$."N".A$."N".980......910.
L...."..SAME GRAPHIC (Y/N)";......". Y.
..";A$:A$.H(A$,1):.A$."Y".A$."Y".350....
.. A$."N".A$."N".330...J..950.,.T.. FO.0
. ..P... 4:. PT.1526 . .6,G(36): 5: 6:.
.W.... 1525 GRAPHIC SORTER MACHINE CODE.
..... 169,88,141,106,3,24,105,1,141,93,3
,169,85,141,118...... 3,169,6,141,177,3,
169,0,141,105,3,141,117,3,162...... 72,1
57,13,89,202,208,250,160,7,162,36,169,1,
24,94.W.... 0,88,42,202,202,202,202,202,
202,16,243,153,0,85,136...... 16,233,238
,105,3,208,3,238,106,3,173,105,3,205,177
.F.... 3,208,17,24,105,36,141,105,3,144,
4,238,106,3,24...$.. 105,6,141,177,3,169
,8,24,109,117,3,141,117,3,144.-.... 187,
238,118,3,169,87,205,118,3,208,177,96.O.
3.. 1526 GRAPHIC SORTER CHANGES.D.8.. 42
,169,0,24,94...B.. 0,88,106,202,202,202,
202,202,202,16,243,153,0,85,136.X.L.. 16
,233,238,105,3,208,3,238,106,3,173,105,3
,205,177...V.. 3,208,17,24,105,42,141,10
5,3,144,4,238,106,3,24.E.`.. 105,6,141,1
77,3,169,8,24,109,117,3,141,117,3,144.N.
J.. 187,238,118,3,173,118,3,201,87,208..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL