PRINT SHOP LABEL

00000000: 01 08 1F 08 01 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 00  |HOP LABEL MAKER.|
00000020: 40 08 02 00 8F 20 20 42  59 20 42 52 49 41 4E 20  |@....  BY BRIAN |
00000030: 48 45 59 42 4F 45 52 20  20 31 32 2F 31 2F 38 35  |HEYBOER  12/1/85|
00000040: 00 66 08 03 00 8F 20 20  54 48 49 53 20 50 52 4F  |.f....  THIS PRO|
00000050: 47 52 41 4D 20 49 53 20  50 55 42 4C 49 43 20 44  |GRAM IS PUBLIC D|
00000060: 4F 4D 41 49 4E 2E 00 8D  08 04 00 8F 20 20 54 48  |OMAIN.......  TH|
00000070: 49 53 20 50 52 4F 47 52  41 4D 20 43 4F 4E 54 41  |IS PROGRAM CONTA|
00000080: 49 4E 53 20 42 41 53 49  43 20 41 4E 44 00 B2 08  |INS BASIC AND...|
00000090: 05 00 8F 20 20 4D 41 43  48 49 4E 45 20 4C 41 4E  |...  MACHINE LAN|
000000A0: 47 55 41 47 45 2E 20 20  45 44 49 54 49 4E 47 20  |GUAGE.  EDITING |
000000B0: 4F 52 00 D9 08 06 00 8F  20 20 4F 54 48 45 52 57  |OR......  OTHERW|
000000C0: 49 53 45 20 43 48 41 4E  47 49 4E 47 20 50 4F 49  |ISE CHANGING POI|
000000D0: 4E 54 45 52 53 20 4D 41  59 00 FC 08 07 00 8F 20  |NTERS MAY...... |
000000E0: 20 41 46 46 45 43 54 20  50 52 4F 47 52 41 4D 20  | AFFECT PROGRAM |
000000F0: 45 58 45 43 55 54 49 4F  4E 20 49 4E 00 16 09 08  |EXECUTION IN....|
00000100: 00 8F 20 20 55 4E 50 52  45 44 49 43 54 41 42 4C  |..  UNPREDICTABL|
00000110: 45 20 57 41 59 53 00 2D  09 09 00 8B 4C 43 20 A7  |E WAYS.-....LC .|
00000120: 20 9E 20 34 38 35 30 3A  89 20 35 31 30 00 77 09  | . 4850:. 510.w.|
00000130: 0A 00 99 22 93 0E 20 20  20 20 D0 52 49 4E 54 20  |..."..    .RINT |
00000140: D3 48 4F 50 20 C7 52 41  50 48 49 43 53 20 CC 41  |.HOP .RAPHICS .A|
00000150: 42 45 4C 20 CD 41 4B 45  52 22 3A 99 22 20 20 20  |BEL .AKER":."   |
00000160: 20 20 20 20 20 20 20 C2  59 20 C2 52 49 41 4E 20  |       .Y .RIAN |
00000170: C8 45 59 42 4F 45 52 00  A5 09 14 00 99 22 11 D4  |.EYBOER......"..|
00000180: 48 49 53 20 50 52 4F 47  52 41 4D 20 50 52 49 4E  |HIS PROGRAM PRIN|
00000190: 54 53 20 53 54 41 4E 44  41 52 44 20 4F 4E 45 20  |TS STANDARD ONE |
000001A0: 49 4E 43 48 22 00 D4 09  1E 00 99 22 4D 41 49 4C  |INCH"......"MAIL|
000001B0: 49 4E 47 20 4C 41 42 45  4C 53 20 55 53 49 4E 47  |ING LABELS USING|
000001C0: 20 D0 52 49 4E 54 20 D3  48 4F 50 20 C7 52 41 50  | .RINT .HOP .RAP|
000001D0: 48 49 43 53 00 02 0A 28  00 99 22 91 41 4E 44 20  |HICS...(..".AND |
000001E0: 54 45 58 54 20 4F 46 20  59 4F 55 52 20 43 48 4F  |TEXT OF YOUR CHO|
000001F0: 49 43 45 20 4F 4E 20 41  4E 20 C5 50 53 4F 4E 20  |ICE ON AN .PSON |
00000200: 4F 52 00 1C 0A 32 00 99  22 43 4F 4D 50 41 54 41  |OR...2.."COMPATA|
00000210: 42 4C 45 20 50 52 49 4E  54 45 52 2E 00 42 0A 3C  |BLE PRINTER..B.<|
00000220: 00 99 22 11 D4 48 49 53  20 50 52 4F 47 52 41 4D  |.."..HIS PROGRAM|
00000230: 20 49 53 20 50 55 42 4C  49 43 20 44 4F 4D 41 49  | IS PUBLIC DOMAI|
00000240: 4E 2E 00 72 0A 46 00 99  22 11 D0 52 49 4E 54 20  |N..r.F.."..RINT |
00000250: D3 48 4F 50 20 49 53 20  41 20 54 52 41 44 45 4D  |.HOP IS A TRADEM|
00000260: 41 52 4B 20 4F 46 20 C2  52 4F 44 45 52 42 55 4E  |ARK OF .RODERBUN|
00000270: 44 2E 00 9F 0A 50 00 99  22 C5 50 53 4F 4E 20 49  |D....P..".PSON I|
00000280: 53 20 41 20 54 52 41 44  45 4D 41 52 4B 20 4F 46  |S A TRADEMARK OF|
00000290: 20 C5 50 53 4F 4E 20 C1  4D 45 52 49 43 41 2E 00  | .PSON .MERICA..|
000002A0: C8 0A 5A 00 99 22 11 11  11 20 20 20 20 20 20 D0  |..Z.."...      .|
000002B0: 52 45 53 53 20 41 4E 59  20 4B 45 59 20 57 48 45  |RESS ANY KEY WHE|
000002C0: 4E 20 52 45 41 44 59 2E  00 DA 0A 5F 00 A1 58 24  |N READY...._..X$|
000002D0: 3A 8B 58 24 B2 22 22 A7  39 35 00 06 0B 64 00 86  |:.X$."".95...d..|
000002E0: 20 58 25 28 35 36 2C 31  31 29 2C 59 25 28 36 2C  | X%(56,11),Y%(6,|
000002F0: 38 37 29 2C 4C 24 28 36  29 2C 46 24 28 36 29 2C  |87),L$(6),F$(6),|
00000300: 46 53 24 28 39 29 00 13  0B 6E 00 45 24 B2 C7 28  |FS$(9)...n.E$..(|
00000310: 32 37 29 00 27 0B 78 00  46 53 24 28 30 29 B2 45  |27).'.x.FS$(0).E|
00000320: 24 AA C7 28 36 39 29 00  3F 0B 82 00 46 53 24 28  |$..(69).?...FS$(|
00000330: 31 29 B2 46 53 24 28 30  29 AA C7 28 31 34 29 00  |1).FS$(0)..(14).|
00000340: 50 0B 8C 00 46 53 24 28  32 29 B2 C7 28 31 35 29  |P...FS$(2)..(15)|
00000350: 00 70 0B 96 00 46 53 24  28 33 29 B2 46 53 24 28  |.p...FS$(3).FS$(|
00000360: 30 29 AA 45 24 AA C7 28  38 33 29 AA C7 28 30 29  |0).E$..(83)..(0)|
00000370: 00 90 0B A0 00 46 53 24  28 34 29 B2 46 53 24 28  |.....FS$(4).FS$(|
00000380: 30 29 AA 45 24 AA C7 28  38 33 29 AA C7 28 31 29  |0).E$..(83)..(1)|
00000390: 00 AB 0B AA 00 46 53 24  28 35 29 B2 46 53 24 28  |.....FS$(5).FS$(|
000003A0: 30 29 AA 45 24 AA C7 28  35 32 29 00 C4 0B B4 00  |0).E$..(52).....|
000003B0: 46 53 24 28 36 29 B2 46  53 24 28 31 29 AA 46 53  |FS$(6).FS$(1).FS|
000003C0: 24 28 35 29 00 DF 0B BE  00 46 53 24 28 37 29 B2  |$(5).....FS$(7).|
000003D0: 46 53 24 28 32 29 AA 45  24 AA C7 28 35 32 29 00  |FS$(2).E$..(52).|
000003E0: F8 0B C8 00 46 53 24 28  38 29 B2 46 53 24 28 33  |....FS$(8).FS$(3|
000003F0: 29 AA 46 53 24 28 35 29  00 11 0C D2 00 46 53 24  |).FS$(5).....FS$|
00000400: 28 39 29 B2 46 53 24 28  34 29 AA 46 53 24 28 35  |(9).FS$(4).FS$(5|
00000410: 29 00 46 0C DC 00 45 4C  24 B2 45 24 AA C7 28 38  |).F...EL$.E$..(8|
00000420: 34 29 AA 45 24 AA C7 28  35 33 29 AA C7 28 31 38  |4).E$..(53)..(18|
00000430: 29 AA 45 24 AA C7 28 37  30 29 AA C7 28 31 30 29  |).E$..(70)..(10)|
00000440: AA C7 28 31 33 29 00 74  0C E6 00 99 22 93 20 20  |..(13).t....".  |
00000450: 20 20 D0 52 49 4E 54 20  D3 48 4F 50 20 C7 52 41  |  .RINT .HOP .RA|
00000460: 50 48 49 43 53 20 CC 41  42 45 4C 20 CD 41 4B 45  |PHICS .ABEL .AKE|
00000470: 52 22 3A 99 00 9E 0C F0  00 99 22 C7 52 41 50 48  |R":.......".RAPH|
00000480: 49 43 20 C6 49 4C 45 20  CE 41 4D 45 20 28 24 20  |IC .ILE .AME ($ |
00000490: 46 4F 52 20 C4 49 52 45  43 54 4F 52 59 29 00 BA  |FOR .IRECTORY)..|
000004A0: 0C FA 00 4C 43 B2 30 3A  85 20 47 24 3A 8B 20 47  |...LC.0:. G$:. G|
000004B0: 24 B2 22 24 22 A7 8D 37  35 30 00 E7 0C 04 01 99  |$."$"..750......|
000004C0: 22 11 C9 4E 50 55 54 20  CC 41 42 45 4C 20 D4 45  |"..NPUT .ABEL .E|
000004D0: 58 54 2E 20 20 C6 4F 52  20 42 45 53 54 20 52 45  |XT.  .OR BEST RE|
000004E0: 53 55 4C 54 53 2C 22 00  14 0D 0E 01 99 22 53 4B  |SULTS,"......"SK|
000004F0: 49 50 20 41 4C 54 45 52  4E 41 54 45 20 4C 49 4E  |IP ALTERNATE LIN|
00000500: 45 53 2E 20 28 D5 53 45  20 30 2C 32 2C 34 2C 36  |ES. (.SE 0,2,4,6|
00000510: 20 46 4F 52 00 3F 0D 18  01 99 22 46 4F 55 52 20  | FOR.?...."FOUR |
00000520: 4C 49 4E 45 20 4C 41 42  45 4C 53 20 41 4E 44 20  |LINE LABELS AND |
00000530: 31 2C 33 2C 35 20 46 4F  52 20 54 48 52 45 45 00  |1,3,5 FOR THREE.|
00000540: 6E 0D 22 01 99 22 4C 49  4E 45 53 2E 20 20 CC 49  |n.".."LINES.  .I|
00000550: 4E 45 53 20 57 49 54 48  20 43 4F 4D 4D 41 53 20  |NES WITH COMMAS |
00000560: 4F 52 20 43 4F 4C 4F 4E  53 20 4D 55 53 54 00 83  |OR COLONS MUST..|
00000570: 0D 2C 01 99 22 91 42 45  20 49 4E 20 51 55 4F 54  |.,..".BE IN QUOT|
00000580: 45 53 2E 00 9B 0D 36 01  99 22 11 C1 56 41 49 4C  |ES....6.."..VAIL|
00000590: 41 42 4C 45 20 C6 4F 4E  54 53 3A 00 AF 0D 40 01  |ABLE .ONTS:...@.|
000005A0: 99 22 20 20 20 30 20 3D  20 CE 4F 52 4D 41 4C 00  |."   0 = .ORMAL.|
000005B0: C5 0D 4A 01 99 22 20 20  20 31 20 3D 20 C5 58 50  |..J.."   1 = .XP|
000005C0: 41 4E 44 45 44 00 DC 0D  54 01 99 22 20 20 20 32  |ANDED...T.."   2|
000005D0: 20 3D 20 C3 4F 4E 44 45  4E 53 45 44 00 F5 0D 5E  | = .ONDENSED...^|
000005E0: 01 99 22 20 20 20 33 20  3D 20 D3 55 50 45 52 53  |.."   3 = .UPERS|
000005F0: 43 52 49 50 54 00 0C 0E  68 01 99 22 20 20 20 34  |CRIPT...h.."   4|
00000600: 20 3D 20 D3 55 42 53 43  52 49 50 54 00 20 0E 72  | = .UBSCRIPT. .r|
00000610: 01 99 22 20 20 20 35 20  3D 20 C9 54 41 4C 49 43  |.."   5 = .TALIC|
00000620: 00 3D 0E 7C 01 99 22 20  20 20 36 20 3D 20 C5 58  |.=.|.."   6 = .X|
00000630: 50 41 4E 44 45 44 20 C9  54 41 4C 49 43 00 5B 0E  |PANDED .TALIC.[.|
00000640: 86 01 99 22 20 20 20 37  20 3D 20 C3 4F 4E 44 45  |..."   7 = .ONDE|
00000650: 4E 53 45 44 20 C9 54 41  4C 49 43 00 7B 0E 90 01  |NSED .TALIC.{...|
00000660: 99 22 20 20 20 38 20 3D  20 D3 55 50 45 52 53 43  |."   8 = .UPERSC|
00000670: 52 49 50 54 20 C9 54 41  4C 49 43 00 9A 0E 9A 01  |RIPT .TALIC.....|
00000680: 99 22 20 20 20 39 20 3D  20 D3 55 42 53 43 52 49  |."   9 = .UBSCRI|
00000690: 50 54 20 C9 54 41 4C 49  43 11 00 CC 0E A4 01 81  |PT .TALIC.......|
000006A0: 20 41 B2 30 A4 36 3A 4C  24 28 41 29 B2 22 20 22  | A.0.6:L$(A)." "|
000006B0: 3A 99 22 D4 45 58 54 20  46 4F 52 20 4C 49 4E 45  |:.".EXT FOR LINE|
000006C0: 20 22 41 3B 3A 85 20 4C  24 28 41 29 00 EC 0E AE  | "A;:. L$(A)....|
000006D0: 01 99 22 C6 4F 4E 54 20  46 4F 52 20 4C 49 4E 45  |..".ONT FOR LINE|
000006E0: 20 22 41 3B 3A 85 20 46  24 28 41 29 00 00 0F B8  | "A;:. F$(A)....|
000006F0: 01 8B C5 28 46 24 28 41  29 29 B1 39 A7 34 33 30  |...(F$(A)).9.430|
00000700: 00 06 0F C2 01 82 00 35  0F CC 01 4E 4C 24 B2 22  |.......5...NL$."|
00000710: 20 22 3A 85 22 11 CE 55  4D 42 45 52 20 4F 46 20  | ":."..UMBER OF |
00000720: 4C 41 42 45 4C 53 22 3B  4E 4C 24 3A 4E 4C B2 C5  |LABELS";NL$:NL..|
00000730: 28 4E 4C 24 29 00 44 0F  D6 01 8B 20 4E 4C B2 30  |(NL$).D.... NL.0|
00000740: A7 39 30 30 00 50 0F EA  01 8B 4C 43 A7 35 31 30  |.900.P....LC.510|
00000750: 00 6F 0F F4 01 9F 38 2C  38 2C 38 2C 47 24 AA 22  |.o....8,8,8,G$."|
00000760: 2C 50 2C 52 22 3A A1 23  38 2C 41 24 3A A0 38 00  |,P,R":.#8,A$:.8.|
00000770: AB 0F F5 01 8B 53 54 A7  4C 43 B2 30 3A 99 22 11  |.....ST.LC.0:.".|
00000780: 11 11 20 20 20 20 20 C1  20 C4 49 53 4B 20 C5 52  |..     . .ISK .R|
00000790: 52 4F 52 20 48 41 53 20  4F 43 43 55 52 45 44 2E  |ROR HAS OCCURED.|
000007A0: 22 3A 8D 38 35 30 3A 89  35 30 30 00 BE 0F F6 01  |":.850:.500.....|
000007B0: 4C 43 B2 AB 31 3A 93 20  47 24 2C 38 2C 31 00 CA  |LC..1:. G$,8,1..|
000007C0: 0F FE 01 8B 46 4F A7 36  37 30 00 DB 0F 8A 02 46  |....FO.670.....F|
000007D0: 4F B2 AB 31 3A 9F 35 2C  34 2C 38 00 FA 0F 94 02  |O..1:.5,4,8.....|
000007E0: 9F 34 2C 34 2C 35 3A 98  34 2C C7 28 32 37 29 3B  |.4,4,5:.4,.(27);|
000007F0: C7 28 36 35 29 3B C7 28  38 29 00 09 10 9E 02 81  |.(65);.(8)......|
00000800: 20 45 B2 31 20 A4 20 4E  4C 00 46 10 A8 02 81 20  | E.1 . NL.F.... |
00000810: 41 B2 30 A4 36 3A 98 34  2C C7 28 32 37 29 3B C7  |A.0.6:.4,.(27);.|
00000820: 28 37 36 29 3B C7 28 38  38 29 3B C7 28 30 29 3B  |(76);.(88);.(0);|
00000830: 3A 43 B2 32 31 37 36 30  AA 28 41 AC 38 38 29 3A  |:C.21760.(A.88):|
00000840: 44 B2 43 AA 38 37 00 60  10 B2 02 81 20 42 B2 43  |D.C.87.`.... B.C|
00000850: A4 44 3A 98 34 2C C7 28  C2 28 42 29 29 3B 3A 82  |.D:.4,.(.(B));:.|
00000860: 00 8B 10 BC 02 98 34 2C  22 20 22 46 53 24 28 C5  |......4," "FS$(.|
00000870: 28 46 24 28 41 29 29 29  3B 3A 98 35 2C 4C 24 28  |(F$(A)));:.5,L$(|
00000880: 41 29 3A 98 34 2C 45 4C  24 3A 82 00 9E 10 C6 02  |A):.4,EL$:......|
00000890: 98 35 2C C7 28 31 30 29  3B C7 28 31 30 29 00 A9  |.5,.(10);.(10)..|
000008A0: 10 D0 02 82 3A 89 34 36  30 00 C7 10 EE 02 9F 38  |....:.460......8|
000008B0: 2C 38 2C 30 2C 22 24 30  22 3A 4E 24 B2 C7 28 30  |,8,0,"$0":N$..(0|
000008C0: 29 3A 58 24 B2 4E 24 00  E1 10 F8 02 A1 23 38 2C  |):X$.N$......#8,|
000008D0: 41 24 2C 41 24 2C 41 24  2C 41 24 2C 41 24 2C 41  |A$,A$,A$,A$,A$,A|
000008E0: 24 00 F8 10 02 03 A1 23  38 2C 41 24 3A 8B 20 41  |$......#8,A$:. A|
000008F0: 24 B2 22 22 A7 37 39 30  00 0A 11 0C 03 58 24 B2  |$."".790.....X$.|
00000900: 58 24 AA 41 24 3A 89 37  37 30 00 1A 11 16 03 99  |X$.A$:.770......|
00000910: 22 11 20 20 20 20 22 20  58 24 00 3A 11 2A 03 A1  |".    " X$.:.*..|
00000920: 23 38 2C 41 24 2C 41 24  3A 8B 20 41 24 B2 22 22  |#8,A$,A$:. A$.""|
00000930: A7 20 A0 20 38 3A 89 38  35 30 00 64 11 34 03 A1  |. . 8:.850.d.4..|
00000940: 23 38 2C 41 24 2C 42 24  3A 42 24 B2 C4 28 C6 28  |#8,A$,B$:B$..(.(|
00000950: 41 24 AA 4E 24 29 AA C6  28 42 24 AA 4E 24 29 AC  |A$.N$)..(B$.N$).|
00000960: 32 35 36 29 00 8B 11 3E  03 A1 23 38 2C 41 24 3A  |256)...>..#8,A$:|
00000970: 8B 20 41 24 B2 22 22 A7  20 99 22 20 20 22 42 24  |. A$."". ."  "B$|
00000980: 3A 42 24 B2 22 22 3A 89  38 31 30 00 9D 11 48 03  |:B$."":.810...H.|
00000990: 42 24 B2 42 24 AA 41 24  3A 89 38 33 30 00 CD 11  |B$.B$.A$:.830...|
000009A0: 52 03 A0 38 3A 99 22 11  11 C7 52 41 50 48 49 43  |R..8:."...RAPHIC|
000009B0: 20 C6 49 4C 45 20 CE 41  4D 45 20 28 24 20 46 4F  | .ILE .AME ($ FO|
000009C0: 52 20 C4 49 52 45 43 54  4F 52 59 29 22 00 E9 11  |R .IRECTORY)"...|
000009D0: 70 03 85 20 47 24 3A 8B  20 47 24 B2 22 24 22 A7  |p.. G$:. G$."$".|
000009E0: 8D 37 35 30 3A 89 38 35  30 00 EF 11 7A 03 8E 00  |.750:.850...z...|
000009F0: 0A 12 84 03 99 22 11 C1  20 4E 45 57 20 4C 41 42  |.....".. NEW LAB|
00000A00: 45 4C 20 28 D9 2F CE 29  3F 22 00 25 12 8E 03 A1  |EL (./.)?".%....|
00000A10: 41 24 3A 8B 41 24 B2 22  59 22 B0 41 24 B2 22 D9  |A$:.A$."Y".A$.".|
00000A20: 22 A7 39 35 30 00 3E 12  98 03 8B 20 41 24 B2 22  |".950.>.... A$."|
00000A30: 4E 22 B0 41 24 B2 22 CE  22 A7 31 30 30 30 00 47  |N".A$.".".1000.G|
00000A40: 12 A2 03 89 39 31 30 00  63 12 B6 03 99 22 11 D3  |....910.c...."..|
00000A50: 41 4D 45 20 C7 52 41 50  48 49 43 20 28 D9 2F CE  |AME .RAPHIC (./.|
00000A60: 29 3F 22 00 7E 12 C0 03  A1 41 24 3A 8B 41 24 B2  |)?".~....A$:.A$.|
00000A70: 22 59 22 B0 41 24 B2 22  D9 22 A7 32 36 30 00 96  |"Y".A$.".".260..|
00000A80: 12 CA 03 8B 20 41 24 B2  22 4E 22 B0 41 24 B2 22  |.... A$."N".A$."|
00000A90: CE 22 A7 32 34 30 00 9F  12 D4 03 89 39 36 30 00  |.".240......960.|
00000AA0: BC 12 E8 03 8B 20 46 4F  20 A7 20 98 34 2C 45 24  |..... FO . .4,E$|
00000AB0: 3B C7 28 36 34 29 3A A0  34 3A A0 35 00 00 00 20  |;.(64):.4:.5... |
00000AC0: 20 20 20 20 59 45 53 2C  20 49 20 4C 45 46 54 20  |    YES, I LEFT |
00000AD0: 41 20 4C 49 54 54 4C 45  20 52 4F 4F 4D 20 46 4F  |A LITTLE ROOM FO|
00000AE0: 52 20 43 48 41 4E 47 45  53 2E 20 4D 4C 20 2D 2D  |R CHANGES. ML --|
00000AF0: 3E 20 00 A9 58 8D 1A 13  A9 55 8D 2B 13 A9 0B 8D  |> ..X....U.+....|
00000B00: 6D 13 A9 00 8D 19 13 8D  2A 13 A2 2C 9D 3B 5A CA  |m.......*..,.;Z.|
00000B10: D0 FA A0 07 A2 4D A9 00  18 5E 68 5A 6A CA CA CA  |.....M...^hZj...|
00000B20: CA CA CA CA CA CA CA CA  10 EE 99 60 57 88 10 E4  |...........`W...|
00000B30: EE 19 13 D0 03 EE 1A 13  AD 19 13 CD 6D 13 D0 15  |............m...|
00000B40: 18 69 4D 8D 19 13 90 04  EE 1A 13 18 69 0B 8D 6D  |.iM.........i..m|
00000B50: 13 C9 73 F0 11 A9 08 18  6D 2A 13 8D 2A 13 90 B2  |..s.....m*..*...|
00000B60: EE 2B 13 4C 11 13 AD 2B  13 C9 57 D0 A5 60 73 00  |.+.L...+..W..`s.|
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 31 32 2F  |RIAN HEYBOER 12/|
00000BB0: 31 2F 38 35 20 20 50 4C  45 41 53 45 20 47 49 56  |1/85  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 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  |  ..............|
00000BF0: 1A 1A 1A 1A 1A 1A 1A 1A  1A 1A 1A 1A 1A 1A 1A 1A  |................|

.......  PRINT SHOP LABEL MAKER.@....  B
Y BRIAN HEYBOER  12/1/85.F....  THIS PRO
GRAM IS PUBLIC DOMAIN.......  THIS PROGR
AM CONTAINS BASIC AND......  MACHINE LAN
GUAGE.  EDITING OR.Y....  OTHERWISE CHAN
GING POINTERS MAY......  AFFECT PROGRAM 
EXECUTION IN......  UNPREDICTABLE WAYS.-
....LC . . 4850:. 510.W...."..    PRINT 
SHOP GRAPHICS LABEL MAKER":."          B
Y BRIAN HEYBOER......".THIS PROGRAM PRIN
TS STANDARD ONE INCH".T...."MAILING LABE
LS USING PRINT SHOP GRAPHICS...(..".AND 
TEXT OF YOUR CHOICE ON AN EPSON OR...2..
"COMPATABLE PRINTER..B.<..".THIS PROGRAM
 IS PUBLIC DOMAIN..R.F..".PRINT SHOP IS 
A TRADEMARK OF BRODERBUND....P.."EPSON I
S A TRADEMARK OF EPSON AMERICA..H.Z.."..
.      PRESS ANY KEY WHEN READY..Z._..X$
:.X$."".95...D.. X%(56,11),Y%(6,87),L$(6
),F$(6),FS$(9)...N.E$.G(27).'.X.FS$(0).E
$.G(69).?...FS$(1).FS$(0).G(14).P...FS$(
2).G(15).P...FS$(3).FS$(0).E$.G(83).G(0)
... .FS$(4).FS$(0).E$.G(83).G(1).....FS$
(5).FS$(0).E$.G(52).D...FS$(6).FS$(1).FS
$(5).....FS$(7).FS$(2).E$.G(52)...H.FS$(
8).FS$(3).FS$(5)...R.FS$(9).FS$(4).FS$(5
).F...EL$.E$.G(84).E$.G(53).G(18).E$.G(7
0).G(10).G(13).T....".    PRINT SHOP GRA
PHICS LABEL MAKER":......."GRAPHIC FILE 
NAME ($ FOR DIRECTORY).....LC.0:. G$:. G
$."$"..750......".INPUT LABEL TEXT.  FOR
 BEST RESULTS,"......"SKIP ALTERNATE LIN
ES. (USE 0,2,4,6 FOR.?...."FOUR LINE LAB
ELS AND 1,3,5 FOR THREE.N.".."LINES.  LI
NES WITH COMMAS OR COLONS MUST...,..".BE
 IN QUOTES....6..".AVAILABLE FONTS:...@.
."   0 = NORMAL.E.J.."   1 = EXPANDED...
T.."   2 = CONDENSED...^.."   3 = SUPERS
CRIPT...H.."   4 = SUBSCRIPT. .R.."   5 
= ITALIC.=.|.."   6 = EXPANDED ITALIC.[.
..."   7 = CONDENSED ITALIC.{...."   8 =
 SUPERSCRIPT ITALIC......"   9 = SUBSCRI
PT ITALIC..L.... A.0.6:L$(A)." ":."TEXT 
FOR LINE "A;:. L$(A)......"FONT FOR LINE
 "A;:. F$(A)......E(F$(A)).9.430...B...5
.L.NL$." ":.".NUMBER OF LABELS";NL$:NL.E
(NL$).D.V.. NL.0.900.P....LC.510.O....8,
8,8,G$.",P,R":.#8,A$: 8......ST.LC.0:.".
..     A DISK ERROR HAS OCCURED.":.850:.
500.....LC..1:. G$,8,1.J....FO.670.....F
O..1:.5,4,8......4,4,5:.4,G(27);G(65);G(
8)...... E.1 . NL.F.... A.0.6:.4,G(27);G
(76);G(88);G(0);:C.21760.(A.88):D.C.87.`
.... B.C.D:.4,G(B(B));:.......4," "FS$(E
(F$(A)));:.5,L$(A):.4,EL$:....F..5,G(10)
;G(10)...P..:.460.G....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:.8
50.D.4..#8,A$,B$:B$.D(F(A$.N$).F(B$.N$).
256)...>..#8,A$:. A$."". ."  "B$:B$."":.
810...H.B$.B$.A$:.830.M.R. 8:."..GRAPHIC
 FILE NAME ($ FOR DIRECTORY)"...P.. G$:.
 G$."$"..750:.850...Z........".A NEW LAB
EL (Y/N)?".%....A$:.A$."Y".A$."Y".950.>.
... A$."N".A$."N".1000.G....910.C....".S
AME GRAPHIC (Y/N)?".~....A$:.A$."Y".A$."
Y".260...J.. A$."N".A$."N".240...T..960.
..... FO . .4,E$;G(64): 4: 5...     YES,
 I LEFT A LITTLE ROOM FOR CHANGES. ML --
> ..X....U.+....M.......*..,.;ZJP. ..M..
.^HZJJJJJJJJJJJJ...`W......P.......MM.P.
.IM.........I..M.IS.....M*..*....+.L...+
.IWP.`S.   THATS ALL THERE IS AND THERE 
AIN'T NO MORE. BRIAN HEYBOER 12/1/85  PL
EASE GIVE CREDIT WHERE CREDIT IS DUE.   
  ..............................

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL