18.LABEL-MAKER
FILE INFORMATION
FILENAME(S): 18.LABEL-MAKER
FILE TYPE(S): PRG
FILE SIZE: 15.1K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
03bd46f4bac4d9090ce8f97fd31f4acbea7b3061fb2bfa81493e31a7c9b8afa3
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| U TILITIE | 18.LABEL-MAKER | PRG | Treasure Chest - Wolfgang Rauprich | 29 | 6 | DOWNLOAD FILE |
| FREEWARE DISK NR | 18.LABEL-MAKER | PRG | Treasure Chest - Wolfgang Rauprich | 29 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 78 00 99 20 C7 28 31 34 37 29 3A 81 |..*.x.. .(147):.|
00000010: 20 49 B2 31 20 A4 20 35 3A 99 20 C7 28 31 37 29 | I.1 . 5:. .(17)|
00000020: 3A 82 20 49 3A 99 20 A6 37 29 00 5B 08 7D 00 99 |:. I:. .7).[.}..|
00000030: 20 C7 28 31 38 29 20 22 20 50 52 49 4E 54 45 52 | .(18) " PRINTER|
00000040: 20 4D 55 53 54 20 42 45 20 54 55 52 4E 45 44 20 | MUST BE TURNED |
00000050: 4F 4E 20 22 20 C7 28 31 34 36 29 00 70 08 82 00 |ON " .(146).p...|
00000060: 81 20 49 B2 31 20 A4 20 31 35 30 30 3A 82 20 49 |. I.1 . 1500:. I|
00000070: 00 76 08 8C 00 8F 00 9C 08 91 00 8F 20 3A 3A 3A |.v.......... :::|
00000080: 3A 3A 3A 3A 4C 41 42 45 4C 20 49 4E 50 55 54 20 |::::LABEL INPUT |
00000090: 4D 45 4E 55 3A 3A 3A 3A 3A 3A 3A 3A 00 A2 08 94 |MENU::::::::....|
000000A0: 00 8F 00 CC 08 96 00 99 20 C7 28 31 34 37 29 3A |........ .(147):|
000000B0: 99 3A 8F 20 20 43 48 52 24 28 31 34 37 29 20 49 |.:. CHR$(147) I|
000000C0: 53 20 43 4C 45 41 52 2F 48 4F 4D 45 00 E9 08 AA |S CLEAR/HOME....|
000000D0: 00 81 20 49 B2 31 20 A4 20 34 30 3A 99 20 22 2A |.. I.1 . 40:. "*|
000000E0: 22 3B 3A 82 20 49 3A 99 3B 00 FB 08 B4 00 99 20 |";:. I:.;...... |
000000F0: 22 2A 22 A6 33 38 29 22 2A 22 3B 00 2D 09 BE 00 |"*".38)"*";.-...|
00000100: 99 20 22 2A 20 20 20 20 20 2A 2A 2A 20 20 20 20 |. "* *** |
00000110: 20 4C 41 42 45 4C 20 4D 41 4B 45 52 20 20 20 20 | LABEL MAKER |
00000120: 2A 2A 2A 20 20 20 20 20 20 20 2A 22 3B 00 41 09 |*** *";.A.|
00000130: C8 00 99 20 22 2A 22 20 A6 33 38 29 20 22 2A 22 |... "*" .38) "*"|
00000140: 3B 00 5B 09 D2 00 81 20 49 B2 31 20 A4 20 34 30 |;.[.... I.1 . 40|
00000150: 3A 99 20 22 2A 22 3B 3A 82 20 49 00 61 09 D4 00 |:. "*";:. I.a...|
00000160: 99 00 67 09 D5 00 99 00 6D 09 D6 00 99 00 73 09 |..g.....m.....s.|
00000170: D7 00 99 00 A0 09 DC 00 99 3A 99 20 22 20 20 20 |.........:. " |
00000180: 20 20 20 20 50 52 49 4E 54 45 52 20 43 4F 44 45 | PRINTER CODE|
00000190: 53 20 44 45 53 49 47 4E 45 44 20 46 4F 52 20 22 |S DESIGNED FOR "|
000001A0: 00 BC 09 E1 00 99 20 A6 31 33 29 20 22 47 45 4D |...... .13) "GEM|
000001B0: 49 4E 49 20 31 30 58 2F 31 35 20 22 00 C4 09 E6 |INI 10X/15 "....|
000001C0: 00 99 3A 99 00 03 0A E9 00 99 20 22 20 20 20 2D |..:....... " -|
000001D0: 2D 50 52 45 53 53 20 22 20 C7 28 31 38 29 20 22 |-PRESS " .(18) "|
000001E0: 53 48 49 46 54 22 20 C7 28 31 34 36 29 20 22 20 |SHIFT" .(146) " |
000001F0: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |KEY TO CONTINUE.|
00000200: 2D 2D 22 00 0F 0A EB 00 92 20 36 35 33 2C 31 00 |--"...... 653,1.|
00000210: 1E 0A F0 00 8D 20 36 33 30 30 3A 45 B2 31 00 51 |..... 6300:E.1.Q|
00000220: 0A F5 00 8F 20 20 20 45 20 49 53 20 45 4D 50 48 |.... E IS EMPH|
00000230: 41 53 49 5A 45 20 4F 4E 2F 4F 46 46 20 46 4C 41 |ASIZE ON/OFF FLA|
00000240: 47 3D 31 20 49 4E 44 49 43 41 54 45 53 20 4F 46 |G=1 INDICATES OF|
00000250: 46 00 6D 0A FA 00 99 20 C7 28 31 34 37 29 C7 28 |F.m.... .(147).(|
00000260: 31 37 29 C7 28 31 37 29 C7 28 31 37 29 00 93 0A |17).(17).(17)...|
00000270: FF 00 99 20 A6 31 33 29 20 C7 28 31 38 29 20 22 |... .13) .(18) "|
00000280: 20 4D 41 49 4E 20 4D 45 4E 55 20 22 20 C7 28 31 | MAIN MENU " .(1|
00000290: 34 36 29 00 B0 0A 04 01 99 20 C7 28 31 37 29 20 |46)...... .(17) |
000002A0: A6 31 35 29 20 22 53 45 4C 45 43 54 49 4F 4E 22 |.15) "SELECTION"|
000002B0: 00 D7 0A 4A 01 99 3A 99 3A 99 20 22 20 20 20 20 |...J..:.:. " |
000002C0: 20 5B 20 31 20 5D 20 2D 20 2D 20 2D 20 4E 45 57 | [ 1 ] - - - NEW|
000002D0: 20 4C 41 42 45 4C 22 00 FD 0A 54 01 99 3A 99 20 | LABEL"...T..:. |
000002E0: 22 20 20 20 20 20 5B 20 32 20 5D 20 2D 20 2D 20 |" [ 2 ] - - |
000002F0: 2D 20 59 4F 55 52 20 4C 41 42 45 4C 22 00 2C 0B |- YOUR LABEL".,.|
00000300: 5E 01 99 3A 99 20 22 20 20 20 20 20 5B 20 33 20 |^..:. " [ 3 |
00000310: 5D 20 2D 20 2D 20 2D 20 31 30 20 4D 4F 53 54 20 |] - - - 10 MOST |
00000320: 55 53 45 44 20 4C 41 42 45 4C 53 22 00 5C 0B 68 |USED LABELS".\.h|
00000330: 01 99 3A 99 20 22 20 20 20 20 20 5B 20 34 20 5D |..:. " [ 4 ]|
00000340: 20 2D 20 2D 20 2D 20 53 48 4F 52 54 45 4E 45 44 | - - - SHORTENED|
00000350: 20 44 49 53 4B 20 4C 41 42 45 4C 22 00 8C 0B 72 | DISK LABEL"...r|
00000360: 01 99 3A 99 20 22 20 20 20 20 20 5B 20 35 20 5D |..:. " [ 5 ]|
00000370: 20 2D 20 2D 20 2D 20 46 55 4C 4C 20 53 49 5A 45 | - - - FULL SIZE|
00000380: 20 44 49 53 4B 20 4C 41 42 45 4C 22 00 AF 0B 7C | DISK LABEL"...||
00000390: 01 99 3A 99 20 22 20 20 20 20 20 5B 20 51 20 5D |..:. " [ Q ]|
000003A0: 20 2D 20 2D 20 2D 20 3C 20 45 4E 44 20 3E 22 00 | - - - < END >".|
000003B0: B9 0B 81 01 99 3A 99 3A 99 00 DF 0B 86 01 99 20 |.....:.:....... |
000003C0: 22 20 20 20 20 20 5B 20 20 20 5D 20 2E 2E 2E 2E |" [ ] ....|
000003D0: 2E 2E 2E 59 4F 55 52 20 43 48 4F 49 43 45 22 00 |...YOUR CHOICE".|
000003E0: F8 0B 90 01 A1 20 41 31 24 3A 8B 20 41 31 24 B2 |..... A1$:. A1$.|
000003F0: 22 22 20 A7 20 34 30 30 00 2D 0C C2 01 8B 20 41 |"" . 400.-.... A|
00000400: 31 24 B2 22 31 22 20 A7 20 99 20 C7 28 31 34 37 |1$."1" . . .(147|
00000410: 29 3A 53 31 B2 33 30 3A 8D 20 36 30 32 30 3A 8D |):S1.30:. 6020:.|
00000420: 20 31 31 30 30 35 3A 89 20 31 30 32 35 00 73 0C | 11005:. 1025.s.|
00000430: C7 01 8F 20 47 45 54 20 4C 41 42 45 4C 20 4C 49 |... GET LABEL LI|
00000440: 4E 45 53 2D 44 49 53 50 4C 41 59 20 4C 41 42 45 |NES-DISPLAY LABE|
00000450: 4C 20 4F 4E 20 53 43 52 45 45 4E 2D 47 4F 54 4F |L ON SCREEN-GOTO|
00000460: 20 50 52 49 4E 54 20 4D 45 4E 55 20 52 4F 55 54 | PRINT MENU ROUT|
00000470: 49 4E 45 00 A4 0C CC 01 8B 20 41 31 24 B2 22 32 |INE...... A1$."2|
00000480: 22 20 A7 20 99 20 C7 28 31 34 37 29 3A 8D 20 31 |" . . .(147):. 1|
00000490: 37 30 31 30 3A 99 20 C7 28 31 34 37 29 3A 89 20 |7010:. .(147):. |
000004A0: 31 30 32 30 00 CC 0C CD 01 8F 20 47 45 54 20 4C |1020...... GET L|
000004B0: 41 42 45 4C 2D 47 4F 54 4F 20 50 52 49 4E 54 20 |ABEL-GOTO PRINT |
000004C0: 4D 45 4E 55 20 52 4F 55 54 49 4E 45 00 ED 0C D6 |MENU ROUTINE....|
000004D0: 01 8B 20 41 31 24 B2 22 33 22 20 A7 20 99 20 C7 |.. A1$."3" . . .|
000004E0: 28 31 34 37 29 3A 89 20 31 38 30 31 30 00 0F 0D |(147):. 18010...|
000004F0: D7 01 8F 20 47 4F 54 4F 20 4D 4F 53 54 20 55 53 |... GOTO MOST US|
00000500: 45 44 20 4D 45 4E 55 20 52 4F 55 54 49 4E 45 00 |ED MENU ROUTINE.|
00000510: 42 0D E0 01 8B 20 41 31 24 B2 22 34 22 20 A7 20 |B.... A1$."4" . |
00000520: 53 31 B2 32 33 3A 4C B2 31 3A 41 B2 32 37 3A 42 |S1.23:L.1:A.27:B|
00000530: B2 37 3A 43 B2 32 32 3A 44 B2 33 3A 89 20 34 30 |.7:C.22:D.3:. 40|
00000540: 30 38 00 61 0D E1 01 8F 20 47 4F 54 4F 20 4C 41 |08.a.... GOTO LA|
00000550: 42 45 4C 20 50 52 49 4E 54 20 52 4F 55 54 49 4E |BEL PRINT ROUTIN|
00000560: 45 00 95 0D E5 01 8B 20 41 31 24 B2 22 35 22 20 |E...... A1$."5" |
00000570: A7 20 53 31 B2 32 39 3A 4C B2 31 3A 41 B2 33 33 |. S1.29:L.1:A.33|
00000580: 3A 42 B2 31 30 3A 43 B2 32 38 3A 44 B2 30 3A 89 |:B.10:C.28:D.0:.|
00000590: 20 34 30 30 38 00 B4 0D E6 01 8F 20 47 4F 54 4F | 4008...... GOTO|
000005A0: 20 4C 41 42 45 4C 20 50 52 49 4E 54 20 52 4F 55 | LABEL PRINT ROU|
000005B0: 54 49 4E 45 00 CC 0D EA 01 8B 20 41 31 24 B2 22 |TINE...... A1$."|
000005C0: 51 22 20 A7 20 89 20 32 35 30 32 30 00 E3 0D EB |Q" . . 25020....|
000005D0: 01 8F 20 47 4F 54 4F 20 45 4E 44 20 52 4F 55 54 |.. GOTO END ROUT|
000005E0: 49 4E 45 00 E9 0D E8 03 8F 00 04 0E ED 03 8F 20 |INE............ |
000005F0: 3A 3A 3A 3A 50 52 49 4E 54 20 43 48 4F 49 43 45 |::::PRINT CHOICE|
00000600: 3A 3A 3A 3A 00 0A 0E F0 03 8F 00 16 0E FC 03 8D |::::............|
00000610: 20 31 31 30 30 35 00 34 0E FE 03 8F 20 43 50 4C | 11005.4.... CPL|
00000620: 3D 43 48 41 52 41 43 54 45 52 53 20 50 45 52 20 |=CHARACTERS PER |
00000630: 4C 49 4E 45 00 5D 0E 01 04 99 3A 99 3A 99 20 A6 |LINE.]....:.:. .|
00000640: 31 34 29 20 C7 28 31 38 29 22 20 50 52 49 4E 54 |14) .(18)" PRINT|
00000650: 20 4D 45 4E 55 20 22 C7 28 31 34 36 29 00 A8 0E | MENU ".(146)...|
00000660: 04 04 8F 20 20 43 48 52 24 28 31 38 29 20 49 53 |... CHR$(18) IS|
00000670: 20 52 45 56 45 52 53 45 20 4F 4E 20 2D 2D 20 20 | REVERSE ON -- |
00000680: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 52 | CHR|
00000690: 24 28 31 34 36 29 20 49 53 20 52 45 56 45 52 53 |$(146) IS REVERS|
000006A0: 45 20 4F 46 46 20 2D 2D 00 BE 0E 06 04 99 20 A6 |E OFF --...... .|
000006B0: 31 35 29 22 53 45 4C 45 43 54 49 4F 4E 22 00 E6 |15)"SELECTION"..|
000006C0: 0E 10 04 99 20 22 11 20 20 20 5B 20 31 20 5D 20 |.... ". [ 1 ] |
000006D0: 2D 20 2D 20 2D 20 53 54 41 4E 44 41 52 44 20 38 |- - - STANDARD 8|
000006E0: 30 20 43 50 4C 22 00 10 0F 1A 04 99 20 22 20 20 |0 CPL"...... " |
000006F0: 20 5B 20 32 20 5D 20 2D 20 2D 20 2D 20 43 4F 4D | [ 2 ] - - - COM|
00000700: 50 52 45 53 53 45 44 20 31 33 32 20 43 50 4C 22 |PRESSED 132 CPL"|
00000710: 00 40 0F 24 04 99 20 22 20 20 20 5B 20 33 20 5D |.@.$.. " [ 3 ]|
00000720: 20 2D 20 2D 20 2D 20 54 52 49 50 4C 45 20 43 4F | - - - TRIPLE CO|
00000730: 4C 55 4D 4E 20 4C 41 42 45 4C 53 2D 53 54 44 22 |LUMN LABELS-STD"|
00000740: 00 70 0F 29 04 99 20 22 20 20 20 5B 20 34 20 5D |.p.).. " [ 4 ]|
00000750: 20 2D 20 2D 20 2D 20 44 4F 55 42 4C 45 20 57 49 | - - - DOUBLE WI|
00000760: 44 45 2F 43 4F 4D 50 52 20 36 36 20 43 50 4C 22 |DE/COMPR 66 CPL"|
00000770: 00 9A 0F 2E 04 99 20 22 20 20 20 5B 20 35 20 5D |...... " [ 5 ]|
00000780: 20 2D 20 2D 20 2D 20 44 4F 55 42 4C 45 20 57 49 | - - - DOUBLE WI|
00000790: 44 45 20 34 30 20 43 50 4C 22 00 BC 0F 33 04 99 |DE 40 CPL"...3..|
000007A0: 20 22 20 20 20 5B 20 36 20 5D 20 2D 20 2D 20 2D | " [ 6 ] - - -|
000007B0: 20 45 4D 50 48 41 53 49 5A 45 44 22 00 E7 0F 38 | EMPHASIZED"...8|
000007C0: 04 99 20 22 20 20 20 5B 20 39 20 5D 20 2D 20 2D |.. " [ 9 ] - -|
000007D0: 20 2D 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 | - RETURN TO MAI|
000007E0: 4E 20 4D 45 4E 55 22 00 0C 10 3D 04 8D 20 31 30 |N MENU"...=.. 10|
000007F0: 30 32 30 3A 8F 20 44 49 53 50 4C 41 59 20 45 4D |020:. DISPLAY EM|
00000800: 50 48 41 53 49 5A 45 20 46 4C 41 47 00 31 10 42 |PHASIZE FLAG.1.B|
00000810: 04 99 3A 99 20 22 20 20 20 5B 20 20 20 5D 20 2E |..:. " [ ] .|
00000820: 2E 2E 2E 2E 20 59 4F 55 52 20 43 48 4F 49 43 45 |.... YOUR CHOICE|
00000830: 22 00 37 10 44 04 8F 00 83 10 45 04 8F 20 20 20 |".7.D.....E.. |
00000840: 2D 2D 2D 2D 20 45 4D 50 48 41 53 49 5A 45 44 20 |---- EMPHASIZED |
00000850: 50 52 49 4E 54 20 4D 4F 44 45 20 44 4F 45 53 20 |PRINT MODE DOES |
00000860: 4E 4F 54 20 43 4F 4D 42 49 4E 45 20 57 49 54 48 |NOT COMBINE WITH|
00000870: 20 43 4F 4D 50 52 45 53 53 45 44 20 4D 4F 44 45 | COMPRESSED MODE|
00000880: 2D 2D 2D 00 89 10 46 04 8F 00 8F 10 47 04 8F 00 |---...F.....G...|
00000890: BC 10 4C 04 99 20 C7 28 31 39 29 3A 81 20 49 B2 |..L.. .(19):. I.|
000008A0: 31 20 A4 20 31 31 3A 99 20 C7 28 31 37 29 3A 82 |1 . 11:. .(17):.|
000008B0: 20 49 3A 99 20 A6 32 29 3A 85 20 59 00 F3 10 51 | I:. .2):. Y...Q|
000008C0: 04 91 20 59 20 89 20 31 31 31 30 2C 31 31 32 30 |.. Y . 1110,1120|
000008D0: 2C 31 31 33 30 2C 31 31 34 30 2C 31 31 34 37 2C |,1130,1140,1147,|
000008E0: 31 31 34 39 2C 31 31 35 35 2C 31 31 35 35 2C 31 |1149,1155,1155,1|
000008F0: 31 35 35 00 00 11 56 04 99 20 C7 28 31 34 37 29 |155...V.. .(147)|
00000900: 00 0E 11 58 04 9F 34 2C 34 2C 31 3A 9D 34 00 1A |...X..4,4,1:.4..|
00000910: 11 5A 04 99 20 C7 28 31 38 29 00 24 11 5C 04 98 |.Z.. .(18).$.\..|
00000920: 34 3A A0 34 00 41 11 5D 04 48 B2 35 3A 51 B2 31 |4:.4.A.].H.5:Q.1|
00000930: 38 3A 8D 20 31 31 30 30 35 3A 89 20 31 32 30 35 |8:. 11005:. 1205|
00000940: 30 00 78 11 5E 04 8F 20 44 49 53 50 4C 41 59 20 |0.x.^.. DISPLAY |
00000950: 4C 41 42 45 4C 20 4F 4E 20 53 43 52 45 45 4E 2D |LABEL ON SCREEN-|
00000960: 47 4F 54 4F 20 4C 41 42 45 4C 20 50 52 49 4E 54 |GOTO LABEL PRINT|
00000970: 20 52 4F 55 54 49 4E 45 00 9D 11 5F 04 8F 20 20 | ROUTINE..._.. |
00000980: 48 3D 48 4F 52 49 5A 4F 4E 54 41 4C 20 53 50 41 |H=HORIZONTAL SPA|
00000990: 43 49 4E 47 20 56 41 52 49 41 42 4C 45 00 AF 11 |CING VARIABLE...|
000009A0: 60 04 99 20 C7 28 31 34 37 29 3A 51 B2 32 30 00 |`.. .(147):Q.20.|
000009B0: BD 11 61 04 9F 34 2C 34 2C 31 3A 9D 34 00 CC 11 |..a..4,4,1:.4...|
000009C0: 62 04 99 20 C7 28 32 37 29 22 46 22 00 D8 11 63 |b.. .(27)"F"...c|
000009D0: 04 99 20 C7 28 32 30 29 00 E2 11 65 04 98 34 3A |.. .(20)...e..4:|
000009E0: A0 34 00 17 12 66 04 8F 20 20 51 3D 56 41 52 49 |.4...f.. Q=VARI|
000009F0: 41 42 4C 45 20 54 4F 20 54 55 52 4E 20 4F 4E 20 |ABLE TO TURN ON |
00000A00: 4F 52 20 4F 46 46 20 43 4F 4D 50 52 45 53 53 45 |OR OFF COMPRESSE|
00000A10: 44 20 50 52 49 4E 54 00 2F 12 67 04 48 B2 39 3A |D PRINT./.g.H.9:|
00000A20: 8D 20 31 31 30 30 35 3A 89 20 31 32 30 35 30 00 |. 11005:. 12050.|
00000A30: 5C 12 68 04 8F 20 43 48 52 24 28 32 37 29 22 46 |\.h.. CHR$(27)"F|
00000A40: 22 20 54 55 52 4E 53 20 4F 46 46 20 45 4D 50 48 |" TURNS OFF EMPH|
00000A50: 41 53 49 5A 45 44 20 50 52 49 4E 54 00 9F 12 69 |ASIZED PRINT...i|
00000A60: 04 8F 20 43 48 52 24 28 32 30 29 20 54 55 52 4E |.. CHR$(20) TURN|
00000A70: 53 20 4F 4E 20 43 4F 4D 50 52 45 53 53 45 44 20 |S ON COMPRESSED |
00000A80: 50 52 49 4E 54 20 2D 20 44 49 53 50 4C 41 59 20 |PRINT - DISPLAY |
00000A90: 4C 41 42 45 4C 20 4F 4E 20 53 43 52 45 45 4E 00 |LABEL ON SCREEN.|
00000AA0: BE 12 6A 04 48 B2 35 3A 8D 20 32 32 30 30 3A 8D |..j.H.5:. 2200:.|
00000AB0: 20 31 31 30 30 35 3A 89 20 31 36 30 31 30 00 F9 | 11005:. 16010..|
00000AC0: 12 6B 04 8F 20 44 49 53 50 4C 41 59 20 4C 41 42 |.k.. DISPLAY LAB|
00000AD0: 45 4C 20 4F 4E 20 53 43 52 45 45 4E 2D 47 4F 54 |EL ON SCREEN-GOT|
00000AE0: 4F 20 54 52 49 50 4C 45 20 57 49 44 45 20 4C 41 |O TRIPLE WIDE LA|
00000AF0: 42 45 4C 20 50 52 49 4E 54 00 21 13 74 04 99 20 |BEL PRINT.!.t.. |
00000B00: C7 28 31 34 37 29 3A 9F 34 2C 34 2C 31 3A 9D 34 |.(147):.4,4,1:.4|
00000B10: 3A 99 20 C7 28 32 37 29 22 46 22 3A 98 34 3A A0 |:. .(27)"F":.4:.|
00000B20: 34 00 3E 13 75 04 9F 34 2C 34 2C 31 3A 9D 34 3A |4.>.u..4,4,1:.4:|
00000B30: 99 20 C7 28 32 30 29 3B 3A 98 34 3A A0 34 00 7F |. .(20);:.4:.4..|
00000B40: 13 76 04 48 B2 34 3A 8D 20 31 31 30 30 35 3A 89 |.v.H.4:. 11005:.|
00000B50: 20 31 34 30 35 30 3A 8F 20 43 48 52 24 28 32 37 | 14050:. CHR$(27|
00000B60: 29 22 46 22 20 54 55 52 4E 53 20 4F 46 46 20 45 |)"F" TURNS OFF E|
00000B70: 4D 50 48 41 53 49 5A 45 44 20 50 52 49 4E 54 00 |MPHASIZED PRINT.|
00000B80: A8 13 78 04 8F 20 43 48 52 24 28 32 30 29 20 54 |..x.. CHR$(20) T|
00000B90: 55 52 4E 53 20 4F 4E 20 43 4F 4D 50 52 45 53 53 |URNS ON COMPRESS|
00000BA0: 45 44 20 50 52 49 4E 54 00 E1 13 79 04 8F 20 44 |ED PRINT...y.. D|
00000BB0: 49 53 50 4C 41 59 20 4C 41 42 45 4C 20 4F 4E 20 |ISPLAY LABEL ON |
00000BC0: 53 43 52 45 45 4E 20 2D 20 47 4F 54 4F 20 4C 41 |SCREEN - GOTO LA|
00000BD0: 42 45 4C 20 50 52 49 4E 54 20 52 4F 55 54 49 4E |BEL PRINT ROUTIN|
00000BE0: 45 00 08 14 7B 04 48 B2 33 3A 53 31 B2 31 35 3A |E...{.H.3:S1.15:|
00000BF0: 99 20 C7 28 31 34 37 29 3A 8D 20 31 31 30 30 35 |. .(147):. 11005|
00000C00: 3A 89 20 31 34 30 35 30 00 27 14 7C 04 8F 20 47 |:. 14050.'.|.. G|
00000C10: 4F 54 4F 20 4C 41 42 45 4C 20 50 52 49 4E 54 20 |OTO LABEL PRINT |
00000C20: 52 4F 55 54 49 4E 45 00 34 14 7D 04 99 20 C7 28 |ROUTINE.4.}.. .(|
00000C30: 31 34 37 29 00 4C 14 7E 04 48 B2 30 3A 8D 20 31 |147).L.~.H.0:. 1|
00000C40: 31 30 30 35 3A 99 20 C7 28 31 37 29 00 90 14 80 |1005:. .(17)....|
00000C50: 04 99 20 22 20 20 20 20 22 20 C7 28 31 38 29 20 |.. " " .(18) |
00000C60: 22 20 20 20 20 20 20 20 20 20 20 45 4D 50 48 41 |" EMPHA|
00000C70: 53 49 5A 45 20 4F 4E 20 20 20 20 20 20 20 20 20 |SIZE ON |
00000C80: 20 22 20 C7 28 31 34 36 29 20 22 20 20 20 20 22 | " .(146) " "|
00000C90: 00 9B 14 81 04 89 20 31 30 32 35 00 BC 14 83 04 |...... 1025.....|
00000CA0: 89 20 32 34 30 3A 8F 20 20 52 45 54 55 52 4E 20 |. 240:. RETURN |
00000CB0: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 C2 14 D0 |TO MAIN MENU....|
00000CC0: 07 8F 00 DF 14 DA 07 8F 20 3A 3A 3A 3A 3A 49 4E |........ :::::IN|
00000CD0: 53 54 52 55 43 54 49 4F 4E 53 3A 3A 3A 3A 3A 00 |STRUCTIONS:::::.|
00000CE0: E5 14 E4 07 8F 00 F2 14 E7 07 99 20 C7 28 31 34 |........... .(14|
00000CF0: 37 29 00 29 15 E9 07 99 3A 99 3A 99 20 22 20 20 |7).)....:.:. " |
00000D00: 20 20 20 20 20 20 20 20 20 20 22 20 C7 28 31 38 | " .(18|
00000D10: 29 20 22 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |) " INSTRUCTIONS|
00000D20: 20 22 20 C7 28 31 34 36 29 00 59 15 EE 07 99 3A | " .(146).Y....:|
00000D30: 99 3A 99 20 22 20 50 52 49 4E 54 20 57 49 44 54 |.:. " PRINT WIDT|
00000D40: 48 20 49 53 20 53 45 54 20 42 59 20 4C 49 4E 45 |H IS SET BY LINE|
00000D50: 20 4C 49 4D 49 54 45 52 22 00 79 15 F8 07 99 20 | LIMITER".y.... |
00000D60: 22 20 46 4F 52 20 33 20 31 2F 32 20 49 4E 43 48 |" FOR 3 1/2 INCH|
00000D70: 20 4C 41 42 45 4C 53 2E 22 00 A8 15 02 08 99 3A | LABELS."......:|
00000D80: 99 20 22 20 35 20 4C 49 4E 45 53 20 4E 4F 52 4D |. " 5 LINES NORM|
00000D90: 41 4C 20 4F 52 20 33 20 4C 49 4E 45 53 20 42 4F |AL OR 3 LINES BO|
00000DA0: 52 44 45 52 45 44 2E 22 00 D0 15 16 08 99 3A 99 |RDERED."......:.|
00000DB0: 20 22 20 44 4F 20 4E 4F 54 20 55 53 45 20 43 4F | " DO NOT USE CO|
00000DC0: 4D 4D 41 53 20 4F 52 20 43 4F 4C 4F 4E 53 2E 22 |MMAS OR COLONS."|
00000DD0: 00 FC 15 34 08 99 3A 99 20 22 20 41 20 52 45 54 |...4..:. " A RET|
00000DE0: 55 52 4E 20 57 49 54 48 20 4E 4F 20 45 4E 54 52 |URN WITH NO ENTR|
00000DF0: 59 20 57 49 4C 4C 20 47 49 56 45 22 00 13 16 3E |Y WILL GIVE"...>|
00000E00: 08 99 20 22 20 41 20 42 4C 41 4E 4B 20 4C 49 4E |.. " A BLANK LIN|
00000E10: 45 2E 22 00 1B 16 48 08 99 3A 99 00 5A 16 4A 08 |E."...H..:..Z.J.|
00000E20: 99 20 22 20 20 20 2D 2D 50 52 45 53 53 20 22 20 |. " --PRESS " |
00000E30: C7 28 31 38 29 20 22 53 48 49 46 54 22 20 C7 28 |.(18) "SHIFT" .(|
00000E40: 31 34 36 29 20 22 20 4B 45 59 20 54 4F 20 43 4F |146) " KEY TO CO|
00000E50: 4E 54 49 4E 55 45 2E 2D 2D 22 00 66 16 4C 08 92 |NTINUE.--".f.L..|
00000E60: 20 36 35 33 2C 31 00 6C 16 4E 08 8E 00 72 16 98 | 653,1.l.N...r..|
00000E70: 08 8F 00 96 16 A2 08 8F 20 20 3A 3A 54 52 49 50 |........ ::TRIP|
00000E80: 4C 45 20 43 4F 4C 2E 20 49 4E 53 54 52 55 43 54 |LE COL. INSTRUCT|
00000E90: 49 4F 4E 53 3A 3A 00 9C 16 AC 08 8F 00 A9 16 B1 |IONS::..........|
00000EA0: 08 99 20 C7 28 31 34 37 29 00 DA 16 B6 08 99 3A |.. .(147)......:|
00000EB0: 99 3A 99 20 22 20 20 20 20 54 52 49 50 4C 45 20 |.:. " TRIPLE |
00000EC0: 43 4F 4C 55 4D 4E 20 4C 41 42 45 4C 20 49 4E 53 |COLUMN LABEL INS|
00000ED0: 54 52 55 43 54 49 4F 4E 53 22 00 0B 17 C0 08 99 |TRUCTIONS"......|
00000EE0: 3A 99 3A 99 20 22 20 20 54 48 45 20 4C 45 4E 47 |:.:. " THE LENG|
00000EF0: 54 48 20 4F 46 20 54 52 49 50 4C 45 20 43 4F 4C |TH OF TRIPLE COL|
00000F00: 55 4D 4E 20 4C 41 42 45 4C 53 22 00 39 17 CA 08 |UMN LABELS".9...|
00000F10: 99 20 22 20 20 4D 55 53 54 20 42 45 20 4C 45 53 |. " MUST BE LES|
00000F20: 53 20 54 48 41 4E 20 54 48 45 20 4E 4F 52 4D 41 |S THAN THE NORMA|
00000F30: 4C 20 57 49 44 54 48 20 22 00 4A 17 CF 08 99 20 |L WIDTH ".J.... |
00000F40: 22 20 20 4C 41 42 45 4C 2E 22 00 78 17 D4 08 99 |" LABEL.".x....|
00000F50: 20 22 20 20 54 48 45 20 54 52 49 50 4C 45 20 43 | " THE TRIPLE C|
00000F60: 4F 4C 55 4D 4E 20 4C 41 42 45 4C 53 20 41 52 45 |OLUMN LABELS ARE|
00000F70: 20 53 45 54 20 54 4F 22 00 A6 17 D9 08 99 20 22 | SET TO"...... "|
00000F80: 20 20 50 52 49 4E 54 20 41 20 31 37 20 43 48 41 | PRINT A 17 CHA|
00000F90: 52 41 43 54 45 52 20 4C 41 42 45 4C 20 57 49 54 |RACTER LABEL WIT|
00000FA0: 48 20 54 57 4F 22 00 C7 17 DE 08 99 20 22 20 20 |H TWO"...... " |
00000FB0: 53 50 41 43 45 53 20 42 45 54 57 45 45 4E 20 4C |SPACES BETWEEN L|
00000FC0: 41 42 45 4C 53 2E 22 00 F4 17 E8 08 99 20 22 20 |ABELS."...... " |
00000FD0: 20 54 48 45 53 45 20 56 41 52 49 41 42 4C 45 53 | THESE VARIABLES|
00000FE0: 20 4D 41 59 20 42 45 20 43 48 41 4E 47 45 44 20 | MAY BE CHANGED |
00000FF0: 41 54 20 22 00 1C 18 F2 08 99 20 22 20 20 50 52 |AT "...... " PR|
00001000: 4F 47 52 41 4D 20 4C 49 4E 45 53 20 31 36 30 30 |OGRAM LINES 1600|
00001010: 30 20 54 4F 20 31 37 30 30 30 2E 22 00 45 18 FC |0 TO 17000.".E..|
00001020: 08 99 3A 99 20 22 20 20 49 46 20 59 4F 55 20 45 |..:. " IF YOU E|
00001030: 4E 54 45 52 45 44 20 41 20 4C 41 42 45 4C 20 57 |NTERED A LABEL W|
00001040: 49 54 48 20 22 00 71 18 06 09 99 20 22 20 20 4D |ITH ".q.... " M|
00001050: 4F 52 45 20 54 48 41 4E 20 31 37 20 43 48 41 52 |ORE THAN 17 CHAR|
00001060: 41 43 54 45 52 53 2C 20 59 4F 55 20 4D 41 59 20 |ACTERS, YOU MAY |
00001070: 22 00 99 18 10 09 99 20 22 20 20 52 45 54 55 52 |"...... " RETUR|
00001080: 4E 20 54 4F 20 52 45 2D 45 4E 54 45 52 20 54 48 |N TO RE-ENTER TH|
00001090: 45 20 4C 41 42 45 4C 2E 22 00 A1 18 60 09 99 3A |E LABEL."...`..:|
000010A0: 99 00 C9 18 6A 09 99 20 22 20 20 20 44 4F 20 59 |....j.. " DO Y|
000010B0: 4F 55 20 57 41 4E 54 20 54 4F 20 52 45 54 55 52 |OU WANT TO RETUR|
000010C0: 4E 20 54 4F 20 54 48 45 22 00 E9 18 6F 09 99 20 |N TO THE"...o.. |
000010D0: 22 20 20 20 4D 41 49 4E 20 4D 45 4E 55 3F 20 28 |" MAIN MENU? (|
000010E0: 43 52 3D 27 4E 4F 27 29 22 00 03 19 D8 09 A1 20 |CR='NO')"...... |
000010F0: 41 36 24 3A 8B 20 41 36 24 B2 22 22 20 A7 20 32 |A6$:. A6$."" . 2|
00001100: 35 32 30 00 17 19 E2 09 8B 20 41 36 24 B2 22 59 |520...... A6$."Y|
00001110: 22 20 A7 20 32 34 30 00 2B 19 EC 09 8B 20 41 36 |" . 240.+.... A6|
00001120: 24 B2 C7 28 31 33 29 20 A7 20 8E 00 4F 19 F6 09 |$..(13) . ..O...|
00001130: 8B 20 41 36 24 B3 B1 22 59 22 20 B0 20 41 36 24 |. A6$.."Y" . A6$|
00001140: B3 B1 20 C7 28 31 33 29 20 A7 20 32 35 32 30 00 |.. .(13) . 2520.|
00001150: 55 19 A0 0F 8F 00 71 19 A5 0F 8F 20 20 3A 3A 3A |U.....q.... :::|
00001160: 3A 4C 41 42 45 4C 20 42 4F 52 44 45 52 3A 3A 3A |:LABEL BORDER:::|
00001170: 3A 00 77 19 A7 0F 8F 00 AA 19 A8 0F 9F 34 2C 34 |:.w..........4,4|
00001180: 2C 31 3A 9D 34 3A 99 20 C7 28 31 38 29 3A 8F 20 |,1:.4:. .(18):. |
00001190: 20 54 55 52 4E 20 4F 46 46 20 43 4F 4D 50 52 45 | TURN OFF COMPRE|
000011A0: 53 53 45 44 20 50 52 49 4E 54 00 C8 19 A9 0F 98 |SSED PRINT......|
000011B0: 34 3A A0 34 3A 8F 20 20 54 55 52 4E 20 4F 46 46 |4:.4:. TURN OFF|
000011C0: 20 50 52 49 4E 54 45 52 00 F9 19 AA 0F 42 52 24 | PRINTER.....BR$|
000011D0: B2 22 2A 22 3A 8F 20 53 45 54 20 44 45 46 41 55 |."*":. SET DEFAU|
000011E0: 4C 54 20 56 41 4C 55 45 20 46 4F 52 20 4C 41 42 |LT VALUE FOR LAB|
000011F0: 45 4C 20 42 4F 52 44 45 52 00 30 1A AB 0F 56 31 |EL BORDER.0...V1|
00001200: 24 B2 22 30 30 31 22 3A 8F 20 20 53 45 54 53 20 |$."001":. SETS |
00001210: 49 4E 49 54 49 41 4C 20 44 49 53 50 4C 41 59 20 |INITIAL DISPLAY |
00001220: 56 41 4C 55 45 20 46 4F 52 20 56 4F 4C 55 4D 45 |VALUE FOR VOLUME|
00001230: 00 63 1A AC 0F 56 32 24 B2 22 20 56 4F 4C 2E 20 |.c...V2$." VOL. |
00001240: 22 3A 8F 20 20 53 45 54 20 44 45 46 41 55 4C 54 |":. SET DEFAULT|
00001250: 20 56 41 4C 55 45 20 46 4F 52 20 54 4F 50 20 4C | VALUE FOR TOP L|
00001260: 49 4E 45 00 88 1A AD 0F 41 34 24 B2 22 36 22 3A |INE.....A4$."6":|
00001270: 56 24 B2 22 59 22 3A 41 24 B2 22 22 3A 42 24 B2 |V$."Y":A$."":B$.|
00001280: 22 22 3A 43 24 B2 22 22 00 CC 1A AE 0F 5A 24 B2 |"":C$."".....Z$.|
00001290: 22 20 20 43 4F 4D 20 36 34 20 20 22 3A 8F 20 20 |" COM 64 ":. |
000012A0: 53 45 54 53 20 49 4E 49 54 49 41 4C 20 44 49 53 |SETS INITIAL DIS|
000012B0: 50 4C 41 59 20 56 41 4C 55 45 20 46 4F 52 20 42 |PLAY VALUE FOR B|
000012C0: 4F 54 54 4F 4D 20 42 4F 52 44 45 52 00 EF 1A AF |OTTOM BORDER....|
000012D0: 0F 8D 20 34 37 30 35 3A 8F 20 44 49 53 50 4C 41 |.. 4705:. DISPLA|
000012E0: 59 20 43 55 52 52 45 4E 54 20 4C 41 42 45 4C 00 |Y CURRENT LABEL.|
000012F0: 21 1B BF 0F 99 3A 99 3A 99 20 22 20 20 20 20 57 |!....:.:. " W|
00001300: 48 41 54 20 43 48 41 52 41 43 54 45 52 20 44 4F |HAT CHARACTER DO|
00001310: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 55 53 45 | YOU WANT TO USE|
00001320: 22 00 50 1B C0 0F 99 20 22 20 20 20 20 46 4F 52 |".P.... " FOR|
00001330: 20 54 48 45 20 42 4F 52 44 45 52 3F 20 5B 20 20 | THE BORDER? [ |
00001340: 20 5D 20 20 44 45 46 41 55 4C 54 20 3D 20 2A 22 | ] DEFAULT = *"|
00001350: 00 5D 1B CD 0F 85 20 22 22 3B 42 52 24 00 74 1B |.].... "";BR$.t.|
00001360: D2 0F 8B 20 C3 28 42 52 24 29 B2 B1 32 20 A7 20 |... .(BR$)..2 . |
00001370: 34 30 31 30 00 81 1B D7 0F 99 20 C7 28 31 34 37 |4010...... .(147|
00001380: 29 00 B0 1B DC 0F 99 3A 99 3A 99 22 20 20 57 4F |)......:.:." WO|
00001390: 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 41 20 56 |ULD YOU LIKE A V|
000013A0: 4F 4C 55 4D 45 20 4E 55 4D 42 45 52 20 49 4E 22 |OLUME NUMBER IN"|
000013B0: 00 DE 1B DD 0F 99 20 22 20 20 20 20 20 54 48 45 |...... " THE|
000013C0: 20 54 4F 50 20 4C 49 4E 45 20 4F 46 20 54 48 45 | TOP LINE OF THE|
000013D0: 20 42 4F 52 44 45 52 20 3F 22 3A 99 3A 99 00 03 | BORDER ?":.:...|
000013E0: 1C E6 0F 99 20 22 20 20 20 20 20 20 20 20 20 20 |.... " |
000013F0: 20 5B 20 59 20 5D 20 2D 20 2D 20 2D 20 59 45 53 | [ Y ] - - - YES|
00001400: 22 3A 99 00 27 1C F0 0F 99 20 22 20 20 20 20 20 |":..'.... " |
00001410: 20 20 20 20 20 20 5B 20 4E 20 5D 20 2D 20 2D 20 | [ N ] - - |
00001420: 2D 20 4E 4F 22 3A 99 00 52 1C FA 0F 99 20 22 20 |- NO":..R.... " |
00001430: 20 20 20 20 20 20 20 20 20 20 5B 20 20 20 5D 20 | [ ] |
00001440: 2E 2E 2E 2E 2E 20 59 4F 55 52 20 43 48 4F 49 43 |..... YOUR CHOIC|
00001450: 45 22 00 6A 1C FB 0F A1 20 56 24 3A 8B 20 56 24 |E".j.... V$:. V$|
00001460: B2 22 22 20 A7 20 34 30 39 31 00 77 1C FC 0F 99 |."" . 4091.w....|
00001470: 20 C7 28 31 34 37 29 00 8B 1C 0E 10 8B 20 56 24 | .(147)...... V$|
00001480: B2 22 4E 22 20 A7 20 34 31 39 31 00 A7 1C 18 10 |."N" . 4191.....|
00001490: 8B 20 56 24 B2 22 59 22 20 A7 20 99 20 C7 28 31 |. V$."Y" . . .(1|
000014A0: 34 37 29 3A 99 3A 99 00 D1 1C 19 10 99 20 22 20 |47):.:....... " |
000014B0: 20 20 45 4E 54 45 52 20 59 4F 55 52 20 56 4F 4C | ENTER YOUR VOL|
000014C0: 55 4D 45 20 4E 55 4D 42 45 52 20 28 23 23 23 29 |UME NUMBER (###)|
000014D0: 22 00 04 1D 1A 10 99 20 22 28 4D 55 53 54 20 42 |"...... "(MUST B|
000014E0: 45 20 33 20 43 48 41 52 41 43 54 45 52 53 20 4C |E 3 CHARACTERS L|
000014F0: 4F 4E 47 29 20 20 5B 20 20 20 5D 22 3B 3A 89 20 |ONG) [ ]";:. |
00001500: 34 31 34 30 00 0F 1D 22 10 89 20 34 30 36 30 00 |4140...".. 4060.|
00001510: 1C 1D 2C 10 85 20 22 22 3B 56 31 24 00 33 1D 31 |..,.. "";V1$.3.1|
00001520: 10 8B 20 C3 28 56 31 24 29 B3 B1 33 20 A7 20 34 |.. .(V1$)..3 . 4|
00001530: 30 36 30 00 6E 1D 36 10 99 20 C7 28 31 34 37 29 |060.n.6.. .(147)|
00001540: 3A 99 3A 99 3A 99 20 22 20 20 20 20 45 4E 54 45 |:.:.:. " ENTE|
00001550: 52 20 52 45 50 4C 41 43 45 4D 45 4E 54 20 46 4F |R REPLACEMENT FO|
00001560: 52 20 57 4F 52 44 20 27 56 4F 4C 2E 27 22 00 9E |R WORD 'VOL.'"..|
00001570: 1D 37 10 99 20 22 20 20 49 46 20 44 45 53 49 52 |.7.. " IF DESIR|
00001580: 45 44 2E 20 20 20 28 20 34 20 43 48 41 52 41 43 |ED. ( 4 CHARAC|
00001590: 54 45 52 53 20 4D 41 58 49 4D 55 4D 29 22 00 C3 |TERS MAXIMUM)"..|
000015A0: 1D 38 10 99 20 A3 38 29 20 22 44 45 46 41 55 4C |.8.. .8) "DEFAUL|
000015B0: 54 20 49 53 20 27 56 4F 4C 2E 27 3A 20 5B 20 20 |T IS 'VOL.': [ |
000015C0: 20 5D 22 00 EA 1D 3B 10 99 3A 99 3A 85 20 22 22 | ]"...;..:.:. ""|
000015D0: 3B 56 32 24 3A 8B 20 56 32 24 B2 22 22 20 A7 20 |;V2$:. V2$."" . |
000015E0: 56 32 24 B2 22 56 4F 4C 2E 22 00 10 1E 3D 10 8B |V2$."VOL."...=..|
000015F0: 20 C3 28 56 32 24 29 20 B2 20 34 20 A7 20 56 32 | .(V2$) . 4 . V2|
00001600: 24 B2 20 22 20 22 20 AA 56 32 24 AA 20 22 20 22 |$. " " .V2$. " "|
00001610: 00 3D 1E 3F 10 8B 20 C3 28 56 32 24 29 20 B2 20 |.=.?.. .(V2$) . |
00001620: 33 20 A7 20 56 32 24 20 B2 20 22 20 22 20 AA 20 |3 . V2$ . " " . |
00001630: 22 20 22 20 AA 56 32 24 AA 20 22 20 22 00 5E 1E |" " .V2$. " ".^.|
00001640: 40 10 99 20 22 34 31 36 30 22 3A 8B 20 C3 28 56 |@.. "4160":. .(V|
00001650: 32 24 29 20 B3 20 33 20 A7 20 34 30 36 30 00 69 |2$) . 3 . 4060.i|
00001660: 1E 5E 10 99 3A 99 3A 99 3A 00 76 1E 5F 10 99 20 |.^..:.:.:.v._.. |
00001670: C7 28 31 34 37 29 00 A1 1E 60 10 99 20 22 20 20 |.(147)...`.. " |
00001680: 20 20 20 57 48 41 54 20 57 4F 55 4C 44 20 59 4F | WHAT WOULD YO|
00001690: 55 20 4C 49 4B 45 20 49 4D 50 52 49 4E 54 45 44 |U LIKE IMPRINTED|
000016A0: 22 00 CC 1E 62 10 99 20 22 20 20 20 20 20 20 41 |"...b.. " A|
000016B0: 54 20 54 48 45 20 42 4F 54 54 4F 4D 20 4F 46 20 |T THE BOTTOM OF |
000016C0: 54 48 45 20 42 4F 52 44 45 52 3F 22 00 F6 1E 68 |THE BORDER?"...h|
000016D0: 10 99 3A 99 3A 99 20 22 20 20 20 20 20 20 20 20 |..:.:. " |
000016E0: 20 5B 20 31 20 5D 20 2D 20 2D 20 50 45 54 20 32 | [ 1 ] - - PET 2|
000016F0: 30 30 31 22 3A 99 00 1D 1F 72 10 99 20 22 20 20 |001":....r.. " |
00001700: 20 20 20 20 20 20 20 5B 20 32 20 5D 20 2D 20 2D | [ 2 ] - -|
00001710: 20 43 42 4D 20 38 30 33 32 20 22 3A 99 00 44 1F | CBM 8032 ":..D.|
00001720: 7C 10 99 20 22 20 20 20 20 20 20 20 20 20 5B 20 ||.. " [ |
00001730: 33 20 5D 20 2D 20 2D 20 43 42 4D 20 34 30 33 32 |3 ] - - CBM 4032|
00001740: 20 22 3A 99 00 6B 1F 86 10 99 20 22 20 20 20 20 | ":..k.... " |
00001750: 20 20 20 20 20 5B 20 34 20 5D 20 2D 20 2D 20 43 | [ 4 ] - - C|
00001760: 42 4D 20 38 30 39 36 20 22 3A 99 00 8F 1F 90 10 |BM 8096 ":......|
00001770: 99 20 22 20 20 20 20 20 20 20 20 20 5B 20 35 20 |. " [ 5 |
00001780: 5D 20 2D 20 2D 20 56 49 43 20 32 30 22 3A 99 00 |] - - VIC 20":..|
00001790: B3 1F 95 10 99 20 22 20 20 20 20 20 20 20 20 20 |..... " |
000017A0: 5B 20 36 20 5D 20 2D 20 2D 20 43 4F 4D 20 36 34 |[ 6 ] - - COM 64|
000017B0: 22 3A 99 00 E0 1F 9A 10 99 20 22 20 20 20 20 20 |":....... " |
000017C0: 20 20 20 20 5B 20 30 20 5D 20 2D 20 2D 20 53 4F | [ 0 ] - - SO|
000017D0: 4C 49 44 20 42 4F 52 44 45 52 20 22 3A 99 3A 99 |LID BORDER ":.:.|
000017E0: 00 0C 20 A4 10 99 20 22 20 20 20 20 20 20 20 20 |.. ... " |
000017F0: 20 5B 20 20 20 5D 20 2E 2E 2E 2E 2E 20 59 4F 55 | [ ] ..... YOU|
00001800: 52 20 43 48 4F 49 43 45 22 3B 3A 99 00 26 20 A6 |R CHOICE";:..& .|
00001810: 10 A1 20 41 34 24 3A 8B 20 41 34 24 B2 22 22 20 |.. A4$:. A4$."" |
00001820: A7 20 34 32 36 32 00 47 20 A9 10 8B 20 41 34 24 |. 4262.G ... A4$|
00001830: 20 B3 22 30 22 20 B0 20 41 34 24 B1 20 22 38 22 | ."0" . A4$. "8"|
00001840: 20 A7 20 34 32 36 30 00 68 20 AE 10 8B 20 41 34 | . 4260.h ... A4|
00001850: 24 B2 22 31 22 20 A7 20 5A 24 B2 20 22 20 50 45 |$."1" . Z$. " PE|
00001860: 54 20 32 30 30 31 20 22 00 89 20 B8 10 8B 20 41 |T 2001 ".. ... A|
00001870: 34 24 B2 22 32 22 20 A7 20 5A 24 B2 20 22 20 43 |4$."2" . Z$. " C|
00001880: 42 4D 20 38 30 33 32 20 22 00 AA 20 C2 10 8B 20 |BM 8032 ".. ... |
00001890: 41 34 24 B2 22 33 22 20 A7 20 5A 24 B2 20 22 20 |A4$."3" . Z$. " |
000018A0: 43 42 4D 20 34 30 33 32 20 22 00 CB 20 CC 10 8B |CBM 4032 ".. ...|
000018B0: 20 41 34 24 B2 22 34 22 20 A7 20 5A 24 B2 20 22 | A4$."4" . Z$. "|
000018C0: 20 43 42 4D 20 38 30 39 36 20 22 00 EC 20 D6 10 | CBM 8096 ".. ..|
000018D0: 8B 20 41 34 24 B2 22 35 22 20 A7 20 5A 24 B2 20 |. A4$."5" . Z$. |
000018E0: 22 20 20 56 49 43 20 32 30 20 20 22 00 0D 21 DB |" VIC 20 "..!.|
000018F0: 10 8B 20 41 34 24 B2 22 36 22 20 A7 20 5A 24 B2 |.. A4$."6" . Z$.|
00001900: 20 22 20 20 43 4F 4D 20 36 34 20 20 22 00 2E 21 | " COM 64 "..!|
00001910: E0 10 8B 20 41 34 24 B2 22 30 22 20 A7 20 5A 24 |... A4$."0" . Z$|
00001920: B2 20 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 39 |. "**********".9|
00001930: 21 E1 10 89 20 34 33 33 30 00 60 21 E5 10 4C B2 |!... 4330.`!..L.|
00001940: 31 3A 8D 20 34 37 30 35 3A 8F 20 44 49 53 50 4C |1:. 4705:. DISPL|
00001950: 41 59 20 43 55 52 52 45 4E 54 20 4C 41 42 45 4C |AY CURRENT LABEL|
00001960: 00 89 21 EA 10 99 20 C7 28 31 34 37 29 3A 89 20 |..!... .(147):. |
00001970: 31 32 30 33 30 3A 8F 20 47 4F 54 4F 20 38 30 20 |12030:. GOTO 80 |
00001980: 43 50 4C 20 53 45 54 55 50 00 8F 21 5C 12 8F 00 |CPL SETUP..!\...|
00001990: B1 21 5D 12 8F 20 3A 3A 3A 3A 3A 44 49 53 4B 20 |.!].. :::::DISK |
000019A0: 4C 41 42 45 4C 20 46 4F 52 4D 41 54 3A 3A 3A 3A |LABEL FORMAT::::|
000019B0: 3A 00 B7 21 5E 12 8F 00 C4 21 61 12 99 20 C7 28 |:..!^....!a.. .(|
000019C0: 31 34 37 29 00 01 22 66 12 48 B2 34 3A 8F 20 53 |147).."f.H.4:. S|
000019D0: 45 54 20 56 41 4C 55 45 20 46 4F 52 20 48 4F 52 |ET VALUE FOR HOR|
000019E0: 49 5A 4F 4E 54 41 4C 20 54 41 42 20 44 55 52 49 |IZONTAL TAB DURI|
000019F0: 4E 47 20 53 43 52 45 45 4E 20 44 49 53 50 4C 41 |NG SCREEN DISPLA|
00001A00: 59 00 46 22 70 12 8B 20 56 24 B2 22 4E 22 20 A7 |Y.F"p.. V$."N" .|
00001A10: 20 56 31 24 B2 42 52 24 AA 42 52 24 AA 42 52 24 | V1$.BR$.BR$.BR$|
00001A20: 3A 8F 20 46 49 4C 4C 20 54 4F 50 20 42 4F 52 44 |:. FILL TOP BORD|
00001A30: 45 52 20 57 49 54 48 20 52 45 51 55 49 52 45 44 |ER WITH REQUIRED|
00001A40: 20 43 48 41 52 2E 00 53 22 73 12 88 20 4A 24 B2 | CHAR..S"s.. J$.|
00001A50: 22 20 22 00 69 22 75 12 8B 20 56 24 B2 22 4E 22 |" ".i"u.. V$."N"|
00001A60: 20 A7 20 4A 24 B2 42 52 24 00 94 22 7A 12 8B 20 | . J$.BR$.."z.. |
00001A70: 56 24 B2 22 4E 22 20 A7 20 56 32 24 B2 42 52 24 |V$."N" . V2$.BR$|
00001A80: AA 42 52 24 AA 42 52 24 AA 42 52 24 AA 42 52 24 |.BR$.BR$.BR$.BR$|
00001A90: AA 42 52 24 00 B7 22 98 12 99 20 A3 48 AA 44 29 |.BR$.."... .H.D)|
00001AA0: 3A 81 20 42 52 B2 31 20 A4 20 42 3A 99 20 42 52 |:. BR.1 . B:. BR|
00001AB0: 24 3B 3A 82 20 42 52 00 E6 22 99 12 99 20 56 32 |$;:. BR.."... V2|
00001AC0: 24 3B 3A 99 20 56 31 24 3B 3A 99 20 4A 24 3B 3A |$;:. V1$;:. J$;:|
00001AD0: 81 20 42 52 B2 31 20 A4 20 42 3A 99 20 42 52 24 |. BR.1 . B:. BR$|
00001AE0: 3B 3A 82 20 42 52 00 F2 22 9A 12 99 20 C7 28 31 |;:. BR.."... .(1|
00001AF0: 30 29 00 0A 23 A2 12 4C B2 4C AA 31 3A 8B 20 4C |0)..#..L.L.1:. L|
00001B00: B2 32 20 A7 20 4C 24 B2 41 24 00 1C 23 AC 12 8B |.2 . L$.A$..#...|
00001B10: 20 4C B2 33 20 A7 20 4C 24 B2 42 24 00 2E 23 B6 | L.3 . L$.B$..#.|
00001B20: 12 8B 20 4C B2 34 20 A7 20 4C 24 B2 43 24 00 3E |.. L.4 . L$.C$.>|
00001B30: 23 BA 12 99 20 A3 48 AA 44 29 42 52 24 3B 00 54 |#... .H.D)BR$;.T|
00001B40: 23 BC 12 48 54 B2 B5 28 28 43 AB C3 28 4C 24 29 |#..HT..((C..(L$)|
00001B50: 29 AD 32 29 00 60 23 BE 12 48 41 B2 48 54 AA 31 |).2).`#..HA.HT.1|
00001B60: 00 72 23 C0 12 54 B2 48 54 AA C3 28 4C 24 29 AA |.r#..T.HT..(L$).|
00001B70: 48 41 00 84 23 C1 12 8B 20 54 B1 43 20 A7 20 48 |HA..#... T.C . H|
00001B80: 41 B2 48 54 00 9E 23 C3 12 99 20 A6 48 54 29 4C |A.HT..#... .HT)L|
00001B90: 24 A6 48 41 29 42 52 24 20 C7 28 31 30 29 00 AF |$.HA)BR$ .(10)..|
00001BA0: 23 C8 12 8B 20 4C B3 34 20 A7 20 34 37 37 30 00 |#... L.4 . 4770.|
00001BB0: EA 23 CA 12 8B 20 41 34 24 B2 22 30 22 20 A7 20 |.#... A4$."0" . |
00001BC0: 5A 24 B2 42 52 24 AA 42 52 24 AA 42 52 24 AA 42 |Z$.BR$.BR$.BR$.B|
00001BD0: 52 24 AA 42 52 24 AA 42 52 24 AA 42 52 24 AA 42 |R$.BR$.BR$.BR$.B|
00001BE0: 52 24 AA 42 52 24 AA 42 52 24 00 0D 24 D4 12 99 |R$.BR$.BR$..$...|
00001BF0: 20 A6 48 AA 44 29 3B 3A 81 20 42 52 B2 31 A4 20 | .H.D);:. BR.1. |
00001C00: 42 3A 99 20 42 52 24 3B 3A 82 20 42 52 00 3B 24 |B:. BR$;:. BR.;$|
00001C10: DE 12 99 20 5A 24 3B 3A 81 20 42 52 B2 31 A4 20 |... Z$;:. BR.1. |
00001C20: 42 3A 99 20 42 52 24 3B 3A 82 20 42 52 3A 99 20 |B:. BR$;:. BR:. |
00001C30: C7 28 31 30 29 20 C7 28 31 30 29 00 5B 24 ED 12 |.(10) .(10).[$..|
00001C40: 4C B2 31 3A 8F 20 52 45 53 45 54 20 4C 49 4E 45 |L.1:. RESET LINE|
00001C50: 20 43 4F 55 4E 54 20 46 4C 41 47 00 61 24 F2 12 | COUNT FLAG.a$..|
00001C60: 8E 00 67 24 70 17 8F 00 84 24 75 17 8F 20 20 3A |..g$p....$u.. :|
00001C70: 3A 3A 3A 3A 49 4E 50 55 54 20 4C 49 4E 45 53 3A |::::INPUT LINES:|
00001C80: 3A 3A 3A 3A 00 8A 24 7A 17 8F 00 97 24 84 17 99 |::::..$z....$...|
00001C90: 20 C7 28 31 34 37 29 00 B1 24 8E 17 81 20 49 B2 | .(147)..$... I.|
00001CA0: 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A 82 20 |1 . 4:. .(17):. |
00001CB0: 49 00 C9 24 98 17 99 20 22 20 49 4E 50 55 54 20 |I..$... " INPUT |
00001CC0: 4C 49 4E 45 20 23 31 20 22 00 F6 24 A2 17 99 20 |LINE #1 "..$... |
00001CD0: C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 34 3A |.(19):. I.1 . 4:|
00001CE0: 99 20 C7 28 31 37 29 3A 82 49 3A 99 20 A3 53 31 |. .(17):.I:. .S1|
00001CF0: AA 31 29 22 5D 22 00 0A 25 AC 17 99 3A 99 20 A6 |.1)"]"..%...:. .|
00001D00: 35 29 3A 85 20 22 22 3B 41 24 00 2C 25 B6 17 99 |5):. "";A$.,%...|
00001D10: 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 34 | .(19):. I.1 . 4|
00001D20: 3A 99 20 C7 28 31 37 29 3A 82 20 49 00 44 25 C0 |:. .(17):. I.D%.|
00001D30: 17 99 20 22 20 49 4E 50 55 54 20 4C 49 4E 45 20 |.. " INPUT LINE |
00001D40: 23 32 20 22 00 71 25 CA 17 99 20 C7 28 31 39 29 |#2 ".q%... .(19)|
00001D50: 3A 81 20 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 |:. I.1 . 4:. .(1|
00001D60: 37 29 3A 82 49 3A 99 20 A3 53 31 AA 31 29 22 5D |7):.I:. .S1.1)"]|
00001D70: 22 00 93 25 CF 17 99 20 C7 28 31 39 29 3A 81 20 |"..%... .(19):. |
00001D80: 49 B2 31 20 A4 20 36 3A 99 20 C7 28 31 37 29 3A |I.1 . 6:. .(17):|
00001D90: 82 20 49 00 A5 25 D4 17 99 20 A6 35 29 3A 85 20 |. I..%... .5):. |
00001DA0: 22 22 3B 42 24 00 C7 25 DE 17 99 20 C7 28 31 39 |"";B$..%... .(19|
00001DB0: 29 3A 81 20 49 B2 31 20 A4 20 34 3A 99 20 C7 28 |):. I.1 . 4:. .(|
00001DC0: 31 37 29 3A 82 20 49 00 DF 25 E8 17 99 20 22 20 |17):. I..%... " |
00001DD0: 49 4E 50 55 54 20 4C 49 4E 45 20 23 33 20 22 00 |INPUT LINE #3 ".|
00001DE0: 0C 26 F2 17 99 20 C7 28 31 39 29 3A 81 20 49 B2 |.&... .(19):. I.|
00001DF0: 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A 82 49 |1 . 4:. .(17):.I|
00001E00: 3A 99 20 A3 53 31 AA 31 29 22 5D 22 00 2E 26 F7 |:. .S1.1)"]"..&.|
00001E10: 17 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 |.. .(19):. I.1 .|
00001E20: 20 37 3A 99 20 C7 28 31 37 29 3A 82 20 49 00 40 | 7:. .(17):. I.@|
00001E30: 26 FC 17 99 20 A6 35 29 3A 85 20 22 22 3B 43 24 |&... .5):. "";C$|
00001E40: 00 62 26 06 18 99 20 C7 28 31 39 29 3A 81 20 49 |.b&... .(19):. I|
00001E50: B2 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A 82 |.1 . 4:. .(17):.|
00001E60: 20 49 00 7A 26 10 18 99 20 22 20 49 4E 50 55 54 | I.z&... " INPUT|
00001E70: 20 4C 49 4E 45 20 23 34 20 22 00 A7 26 1A 18 99 | LINE #4 "..&...|
00001E80: 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 34 | .(19):. I.1 . 4|
00001E90: 3A 99 20 C7 28 31 37 29 3A 82 49 3A 99 20 A3 53 |:. .(17):.I:. .S|
00001EA0: 31 AA 31 29 22 5D 22 00 C9 26 1F 18 99 20 C7 28 |1.1)"]"..&... .(|
00001EB0: 31 39 29 3A 81 20 49 B2 31 20 A4 20 38 3A 99 20 |19):. I.1 . 8:. |
00001EC0: C7 28 31 37 29 3A 82 20 49 00 DB 26 24 18 99 20 |.(17):. I..&$.. |
00001ED0: A6 35 29 3A 85 20 22 22 3B 45 24 00 FD 26 2E 18 |.5):. "";E$..&..|
00001EE0: 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 |. .(19):. I.1 . |
00001EF0: 34 3A 99 20 C7 28 31 37 29 3A 82 20 49 00 15 27 |4:. .(17):. I..'|
00001F00: 38 18 99 20 22 20 49 4E 50 55 54 20 4C 49 4E 45 |8.. " INPUT LINE|
00001F10: 20 23 35 20 22 00 42 27 42 18 99 20 C7 28 31 39 | #5 ".B'B.. .(19|
00001F20: 29 3A 81 20 49 B2 31 20 A4 20 34 3A 99 20 C7 28 |):. I.1 . 4:. .(|
00001F30: 31 37 29 3A 82 49 3A 99 20 A3 53 31 AA 31 29 22 |17):.I:. .S1.1)"|
00001F40: 5D 22 00 64 27 47 18 99 20 C7 28 31 39 29 3A 81 |]".d'G.. .(19):.|
00001F50: 20 49 B2 31 20 A4 20 39 3A 99 20 C7 28 31 37 29 | I.1 . 9:. .(17)|
00001F60: 3A 82 20 49 00 76 27 4C 18 99 20 A6 35 29 3A 85 |:. I.v'L.. .5):.|
00001F70: 20 22 22 3B 46 24 00 7C 27 56 18 8E 00 82 27 9C | "";F$.|'V....'.|
00001F80: 18 8F 00 A6 27 A6 18 8F 20 20 3A 3A 3A 52 45 53 |....'... :::RES|
00001F90: 45 54 20 4C 49 4E 45 20 50 52 49 4E 54 20 56 41 |ET LINE PRINT VA|
00001FA0: 4C 55 45 53 3A 3A 00 AC 27 B0 18 8F 00 B6 27 BA |LUES::..'.....'.|
00001FB0: 18 41 24 B2 22 22 00 C0 27 C4 18 42 24 B2 22 22 |.A$.""..'..B$.""|
00001FC0: 00 CA 27 CE 18 43 24 B2 22 22 00 D4 27 D8 18 45 |..'..C$.""..'..E|
00001FD0: 24 B2 22 22 00 DE 27 E2 18 46 24 B2 22 22 00 E4 |$.""..'..F$.""..|
00001FE0: 27 EC 18 8E 00 EA 27 58 1B 8F 00 05 28 5D 1B 8F |'.....'X....(]..|
00001FF0: 20 20 3A 3A 3A 3A 3A 48 4F 57 20 4D 41 4E 59 3F | :::::HOW MANY?|
00002000: 3A 3A 3A 3A 3A 00 0B 28 62 1B 8F 00 31 28 6C 1B |:::::..(b...1(l.|
00002010: 99 3A 99 3A 99 20 22 20 20 20 20 20 20 20 20 48 |.:.:. " H|
00002020: 4F 57 20 4D 41 4E 59 20 4C 41 42 45 4C 53 20 22 |OW MANY LABELS "|
00002030: 3B 00 39 28 80 1B 85 20 58 00 61 28 8A 1B 8B 20 |;.9(... X.a(... |
00002040: 58 B2 30 20 A7 20 89 20 32 34 30 3A 8F 20 52 45 |X.0 . . 240:. RE|
00002050: 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E |TURN TO MAIN MEN|
00002060: 55 00 67 28 94 1B 8E 00 6D 28 40 1F 8F 00 8D 28 |U.g(....m(@....(|
00002070: 45 1F 8F 20 20 3A 3A 3A 3A 3A 53 54 41 4E 44 41 |E.. :::::STANDA|
00002080: 52 44 20 50 52 49 4E 54 3A 3A 3A 3A 3A 00 93 28 |RD PRINT:::::..(|
00002090: 4A 1F 8F 00 A7 28 54 1F 8B 20 4C B3 B1 31 20 A7 |J....(T.. L..1 .|
000020A0: 20 89 20 38 30 34 30 00 DE 28 55 1F 8F 20 4C 3D | . 8040..(U.. L=|
000020B0: 31 20 49 4E 44 49 43 41 54 45 53 20 54 48 41 54 |1 INDICATES THAT|
000020C0: 20 44 49 53 4B 20 4C 41 42 45 4C 53 20 41 52 45 | DISK LABELS ARE|
000020D0: 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 00 0B | TO BE PRINTED..|
000020E0: 29 5E 1F 81 20 49 B2 31 20 A4 20 58 3A 8D 20 34 |)^.. I.1 . X:. 4|
000020F0: 37 32 30 3A 82 20 49 3A 8F 20 50 52 49 4E 54 20 |720:. I:. PRINT |
00002100: 44 49 53 4B 20 4C 41 42 45 4C 53 00 11 29 63 1F |DISK LABELS..)c.|
00002110: 8E 00 1F 29 68 1F 81 20 49 B2 31 20 A4 20 58 00 |...)h.. I.1 . X.|
00002120: 4B 29 72 1F 99 20 A6 48 29 20 41 24 20 C7 28 31 |K)r.. .H) A$ .(1|
00002130: 30 29 3A 8F 20 20 43 48 52 24 28 31 30 29 20 49 |0):. CHR$(10) I|
00002140: 53 20 4C 49 4E 45 20 46 45 45 44 00 5E 29 7C 1F |S LINE FEED.^)|.|
00002150: 99 20 A6 48 29 20 42 24 20 C7 28 31 30 29 00 71 |. .H) B$ .(10).q|
00002160: 29 86 1F 99 20 A6 48 29 20 43 24 20 C7 28 31 30 |)... .H) C$ .(10|
00002170: 29 00 84 29 90 1F 99 20 A6 48 29 20 45 24 20 C7 |)..)... .H) E$ .|
00002180: 28 31 30 29 00 97 29 9A 1F 99 20 A6 48 29 20 46 |(10)..)... .H) F|
00002190: 24 20 C7 28 31 30 29 00 A3 29 A4 1F 99 20 C7 28 |$ .(10)..)... .(|
000021A0: 31 30 29 00 AB 29 AE 1F 82 20 49 00 B1 29 B8 1F |10)..)... I..)..|
000021B0: 8E 00 B7 29 28 23 8F 00 D4 29 2D 23 8F 20 20 3A |...)(#...)-#. :|
000021C0: 3A 3A 3A 3A 44 4F 55 42 4C 45 20 57 49 44 45 3A |::::DOUBLE WIDE:|
000021D0: 3A 3A 3A 3A 00 DA 29 32 23 8F 00 1D 2A 37 23 8F |::::..)2#...*7#.|
000021E0: 20 20 43 48 52 24 28 31 34 29 20 52 45 51 55 49 | CHR$(14) REQUI|
000021F0: 52 45 44 20 4F 4E 20 45 41 43 48 20 4C 49 4E 45 |RED ON EACH LINE|
00002200: 20 54 4F 20 54 55 52 4E 20 4F 4E 20 44 4F 55 42 | TO TURN ON DOUB|
00002210: 4C 45 20 57 49 44 45 20 50 52 49 4E 54 00 2B 2A |LE WIDE PRINT.+*|
00002220: 3C 23 81 20 49 B2 31 20 A4 20 58 00 38 2A 46 23 |<#. I.1 . X.8*F#|
00002230: 99 20 C7 28 31 34 29 3B 00 4B 2A 50 23 99 20 A6 |. .(14);.K*P#. .|
00002240: 48 29 20 41 24 20 C7 28 31 30 29 00 58 2A 5A 23 |H) A$ .(10).X*Z#|
00002250: 99 20 C7 28 31 34 29 3B 00 6B 2A 64 23 99 20 A6 |. .(14);.k*d#. .|
00002260: 48 29 20 42 24 20 C7 28 31 30 29 00 78 2A 6E 23 |H) B$ .(10).x*n#|
00002270: 99 20 C7 28 31 34 29 3B 00 8B 2A 78 23 99 20 A6 |. .(14);..*x#. .|
00002280: 48 29 20 43 24 20 C7 28 31 30 29 00 98 2A 82 23 |H) C$ .(10)..*.#|
00002290: 99 20 C7 28 31 34 29 3B 00 AB 2A 8C 23 99 20 A6 |. .(14);..*.#. .|
000022A0: 48 29 20 45 24 20 C7 28 31 30 29 00 B8 2A 96 23 |H) E$ .(10)..*.#|
000022B0: 99 20 C7 28 31 34 29 3B 00 CB 2A A0 23 99 20 A6 |. .(14);..*.#. .|
000022C0: 48 29 20 46 24 20 C7 28 31 30 29 00 D7 2A AA 23 |H) F$ .(10)..*.#|
000022D0: 99 20 C7 28 31 30 29 00 DF 2A B4 23 82 20 49 00 |. .(10)..*.#. I.|
000022E0: E9 2A BE 23 98 34 3A A0 34 00 EF 2A C8 23 8E 00 |.*.#.4:.4..*.#..|
000022F0: F5 2A 10 27 8F 00 14 2B 1A 27 8F 20 3A 3A 3A 3A |.*.'...+.'. ::::|
00002300: 53 45 54 20 55 50 20 45 4D 50 48 41 53 49 5A 45 |SET UP EMPHASIZE|
00002310: 3A 3A 3A 3A 00 1A 2B 1F 27 8F 00 2E 2B 24 27 8B |::::..+.'...+$'.|
00002320: 20 45 B2 30 20 A7 20 89 20 31 30 30 35 30 00 42 | E.0 . . 10050.B|
00002330: 2B 2E 27 8B 20 45 B2 31 20 A7 20 89 20 31 30 30 |+.'. E.1 . . 100|
00002340: 39 30 00 48 2B 38 27 8E 00 64 2B 42 27 9F 34 2C |90.H+8'..d+B'.4,|
00002350: 34 2C 31 3A 9D 34 3A 8F 20 20 50 52 49 4E 54 45 |4,1:.4:. PRINTE|
00002360: 52 20 4F 4E 00 73 2B 47 27 99 20 C7 28 32 37 29 |R ON.s+G'. .(27)|
00002370: 22 45 22 00 7D 2B 4C 27 98 34 3A A0 34 00 A9 2B |"E".}+L'.4:.4..+|
00002380: 51 27 8F 20 43 48 52 24 28 32 37 29 22 45 22 20 |Q'. CHR$(27)"E" |
00002390: 54 55 52 4E 53 20 4F 4E 20 45 4D 50 48 41 53 49 |TURNS ON EMPHASI|
000023A0: 5A 45 44 20 50 52 49 4E 54 00 B3 2B 60 27 45 B2 |ZED PRINT..+`'E.|
000023B0: 31 3A 8E 00 D2 2B 6A 27 9F 34 2C 34 2C 31 3A 9D |1:...+j'.4,4,1:.|
000023C0: 34 3A 99 20 C7 28 32 37 29 22 46 22 3A 98 34 3A |4:. .(27)"F":.4:|
000023D0: A0 34 00 FF 2B 6B 27 8F 20 43 48 52 24 28 32 37 |.4..+k'. CHR$(27|
000023E0: 29 22 46 22 20 54 55 52 4E 53 20 4F 46 46 20 45 |)"F" TURNS OFF E|
000023F0: 4D 50 48 41 53 49 5A 45 44 20 50 52 49 4E 54 00 |MPHASIZED PRINT.|
00002400: 09 2C 88 27 45 B2 30 3A 8E 00 0F 2C F8 2A 8F 00 |.,.'E.0:...,.*..|
00002410: 34 2C FD 2A 8F 20 3A 53 43 52 45 45 4E 20 50 52 |4,.*. :SCREEN PR|
00002420: 49 4E 54 20 4F 46 20 4C 41 42 45 4C 20 56 41 4C |INT OF LABEL VAL|
00002430: 55 45 53 3A 00 3A 2C 02 2B 8F 00 69 2C 0C 2B 99 |UES:.:,.+..i,.+.|
00002440: 20 C7 28 31 34 37 29 C7 28 31 37 29 C7 28 31 37 | .(147).(17).(17|
00002450: 29 3A 8F 20 43 48 52 24 28 31 34 37 29 20 49 53 |):. CHR$(147) IS|
00002460: 20 43 4C 52 2F 48 4F 4D 45 00 75 2C 16 2B 99 20 | CLR/HOME.u,.+. |
00002470: A6 36 29 41 24 00 81 2C 20 2B 99 20 A6 36 29 42 |.6)A$.., +. .6)B|
00002480: 24 00 8D 2C 2A 2B 99 20 A6 36 29 43 24 00 99 2C |$..,*+. .6)C$..,|
00002490: 34 2B 99 20 A6 36 29 45 24 00 A5 2C 3E 2B 99 20 |4+. .6)E$..,>+. |
000024A0: A6 36 29 46 24 00 AB 2C 48 2B 8E 00 B1 2C E0 2E |.6)F$..,H+...,..|
000024B0: 8F 00 D1 2C E5 2E 8F 20 20 3A 3A 3A 3A 3A 20 38 |...,... ::::: 8|
000024C0: 30 20 43 50 4C 20 53 45 54 55 50 20 3A 3A 3A 3A |0 CPL SETUP ::::|
000024D0: 3A 00 D7 2C EA 2E 8F 00 F2 2C FE 2E 8D 20 32 30 |:..,.....,... 20|
000024E0: 30 30 3A 8F 20 20 49 4E 53 54 52 55 43 54 49 4F |00:. INSTRUCTIO|
000024F0: 4E 53 00 0A 2D 08 2F 8D 20 36 30 32 30 3A 8F 20 |NS..-./. 6020:. |
00002500: 20 47 45 54 20 49 4E 50 55 54 00 33 2D 0D 2F 8B | GET INPUT.3-./.|
00002510: 20 4C B2 31 20 A7 20 8D 20 34 37 30 35 3A 8F 20 | L.1 . . 4705:. |
00002520: 20 44 49 53 50 4C 41 59 20 44 49 53 4B 20 4C 41 | DISPLAY DISK LA|
00002530: 42 45 4C 00 61 2D 0F 2F 8B 20 4C B3 B1 31 20 A7 |BEL.a-./. L..1 .|
00002540: 20 8D 20 31 31 30 32 30 3A 8F 20 44 49 53 50 4C | . 11020:. DISPL|
00002550: 41 59 20 52 45 47 55 4C 41 52 20 4C 41 42 45 4C |AY REGULAR LABEL|
00002560: 53 00 79 2D 12 2F 8D 20 37 30 32 30 3A 8F 20 20 |S.y-./. 7020:. |
00002570: 48 4F 57 20 4D 41 4E 59 3F 00 87 2D 1C 2F 9F 34 |HOW MANY?..-./.4|
00002580: 2C 34 2C 31 3A 9D 34 00 99 2D 20 2F 8F 20 20 50 |,4,1:.4..- /. P|
00002590: 52 49 4E 54 45 52 20 4F 4E 00 B4 2D 26 2F 8D 20 |RINTER ON..-&/. |
000025A0: 38 30 32 30 3A 8F 20 20 50 52 49 4E 54 20 4C 41 |8020:. PRINT LA|
000025B0: 42 45 4C 53 00 E8 2D 2F 2F 99 20 C7 28 51 29 3A |BELS..-//. .(Q):|
000025C0: 8F 20 20 51 20 4D 41 59 20 54 55 52 4E 20 43 4F |. Q MAY TURN CO|
000025D0: 4D 50 52 45 53 53 45 44 20 50 52 49 4E 54 20 4F |MPRESSED PRINT O|
000025E0: 4E 20 4F 52 20 4F 46 46 00 F2 2D 30 2F 98 34 3A |N OR OFF..-0/.4:|
000025F0: A0 34 00 05 2E 31 2F 8F 20 20 50 52 49 4E 54 45 |.4...1/. PRINTE|
00002600: 52 20 4F 46 46 00 31 2E 35 2F 99 20 C7 28 31 34 |R OFF.1.5/. .(14|
00002610: 37 29 3A 8B 20 4C B2 31 20 A7 20 8D 20 34 37 30 |7):. L.1 . . 470|
00002620: 35 3A 8B 20 4C B2 31 20 A7 20 89 20 31 32 30 39 |5:. L.1 . . 1209|
00002630: 30 00 3D 2E 38 2F 8D 20 31 31 30 33 30 00 6C 2E |0.=.8/. 11030.l.|
00002640: 3A 2F 99 3A 99 3A 99 20 22 20 20 20 20 20 4D 4F |:/.:.:. " MO|
00002650: 52 45 20 4F 46 20 54 48 45 20 53 41 4D 45 20 4C |RE OF THE SAME L|
00002660: 41 42 45 4C 20 22 3B 3A 85 20 58 24 00 91 2E 3E |ABEL ";:. X$...>|
00002670: 2F 8B 20 C8 28 58 24 2C 31 29 B2 22 59 22 20 A7 |/. .(X$,1)."Y" .|
00002680: 20 99 20 C7 28 31 34 37 29 3A 89 20 31 32 30 34 | . .(147):. 1204|
00002690: 37 00 D9 2E 40 2F 8F 20 20 50 45 52 46 4F 52 4D |7...@/. PERFORM|
000026A0: 20 44 49 53 50 4C 41 59 20 4C 41 42 45 4C 53 20 | DISPLAY LABELS |
000026B0: 4F 4E 20 53 43 52 45 45 4E 2D 2D 43 48 52 24 28 |ON SCREEN--CHR$(|
000026C0: 31 34 37 29 20 49 53 20 43 55 52 53 4F 52 20 43 |147) IS CURSOR C|
000026D0: 4C 45 41 52 2F 48 4F 4D 45 00 F5 2E 44 2F 8B 20 |LEAR/HOME...D/. |
000026E0: C8 28 58 24 2C 31 29 B2 22 4E 22 20 A7 20 89 20 |.(X$,1)."N" . . |
000026F0: 31 32 31 32 30 00 01 2F 4E 2F 89 20 31 32 30 38 |12120../N/. 1208|
00002700: 35 00 2D 2F 58 2F 51 B2 31 38 3A 4C B2 30 3A 8D |5.-/X/Q.18:L.0:.|
00002710: 20 36 33 30 30 3A 89 20 32 34 30 3A 8F 20 20 47 | 6300:. 240:. G|
00002720: 4F 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 33 2F |OTO MAIN MENU.3/|
00002730: C8 32 8F 00 54 2F CD 32 8F 20 20 3A 3A 3A 3A 3A |.2..T/.2. :::::|
00002740: 20 31 33 32 20 43 50 4C 20 53 45 54 55 50 20 3A | 132 CPL SETUP :|
00002750: 3A 3A 3A 3A 00 5A 2F D2 32 8F 00 68 2F DC 32 9F |::::.Z/.2..h/.2.|
00002760: 34 2C 34 2C 31 3A 9D 34 00 74 2F DD 32 99 20 C7 |4,4,1:.4.t/.2. .|
00002770: 28 32 30 29 00 7E 2F E1 32 98 34 3A A0 34 00 A8 |(20).~/.2.4:.4..|
00002780: 2F E5 32 8F 20 20 43 48 52 24 28 32 30 29 20 54 |/.2. CHR$(20) T|
00002790: 55 52 4E 53 20 4F 4E 20 43 4F 4D 50 52 45 53 53 |URNS ON COMPRESS|
000027A0: 45 44 20 50 52 49 4E 54 00 C8 2F E6 32 89 20 31 |ED PRINT../.2. 1|
000027B0: 32 30 33 30 3A 8F 20 20 47 4F 54 4F 20 50 52 49 |2030:. GOTO PRI|
000027C0: 4E 54 20 53 45 54 55 50 00 CE 2F B0 36 8F 00 EE |NT SETUP../.6...|
000027D0: 2F B5 36 8F 20 20 3A 3A 3A 3A 3A 20 34 30 20 43 |/.6. ::::: 40 C|
000027E0: 50 4C 20 53 45 54 55 50 20 3A 3A 3A 3A 3A 00 F4 |PL SETUP :::::..|
000027F0: 2F BA 36 8F 00 0E 30 CE 36 8D 20 32 30 32 30 3A |/.6...0.6. 2020:|
00002800: 8F 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 00 26 |. INSTRUCTIONS.&|
00002810: 30 D8 36 8D 20 36 30 32 30 3A 8F 20 20 47 45 54 |0.6. 6020:. GET|
00002820: 20 49 4E 50 55 54 00 3E 30 E2 36 8D 20 37 30 32 | INPUT.>0.6. 702|
00002830: 30 3A 8F 20 20 48 4F 57 20 4D 41 4E 59 3F 00 4C |0:. HOW MANY?.L|
00002840: 30 EC 36 9F 34 2C 34 2C 31 3A 9D 34 00 66 30 F6 |0.6.4,4,1:.4.f0.|
00002850: 36 8D 20 39 30 32 30 3A 8F 20 20 50 52 49 4E 54 |6. 9020:. PRINT|
00002860: 20 4C 41 52 47 45 00 7B 30 0A 37 99 20 C7 28 31 | LARGE.{0.7. .(1|
00002870: 34 37 29 3A 8D 20 31 31 30 32 30 00 A8 30 0E 37 |47):. 11020..0.7|
00002880: 99 3A 99 20 22 20 20 20 20 20 4D 4F 52 45 20 4F |.:. " MORE O|
00002890: 46 20 54 48 45 20 53 41 4D 45 20 4C 41 42 45 4C |F THE SAME LABEL|
000028A0: 20 22 3B 3A 85 20 58 24 00 D5 30 10 37 8B 20 C8 | ";:. X$..0.7. .|
000028B0: 28 58 24 2C 31 29 B2 22 59 22 20 A7 20 99 20 C7 |(X$,1)."Y" . . .|
000028C0: 28 31 34 37 29 3A 8D 20 31 31 30 32 30 3A 89 20 |(147):. 11020:. |
000028D0: 31 34 30 35 30 00 F4 30 12 37 8F 20 20 44 49 53 |14050..0.7. DIS|
000028E0: 50 4C 41 59 20 4C 41 42 45 4C 20 4F 4E 20 53 43 |PLAY LABEL ON SC|
000028F0: 52 45 45 4E 00 02 31 14 37 9F 34 2C 34 2C 31 3A |REEN..1.7.4,4,1:|
00002900: 9D 34 00 0E 31 1E 37 99 20 C7 28 31 38 29 00 18 |.4..1.7. .(18)..|
00002910: 31 28 37 98 34 3A A0 34 00 3B 31 78 37 8D 20 36 |1(7.4:.4.;1x7. 6|
00002920: 33 30 30 3A 89 20 32 34 30 3A 8F 20 20 47 4F 54 |300:. 240:. GOT|
00002930: 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 41 31 98 3A |O MAIN MENU.A1.:|
00002940: 8F 00 61 31 9D 3A 8F 20 20 3A 3A 3A 3A 3A 20 36 |..a1.:. ::::: 6|
00002950: 36 20 43 50 4C 20 53 45 54 55 50 20 3A 3A 3A 3A |6 CPL SETUP ::::|
00002960: 3A 00 67 31 A2 3A 8F 00 75 31 AC 3A 9F 34 2C 34 |:.g1.:..u1.:.4,4|
00002970: 2C 31 3A 9D 34 00 83 31 B6 3A 99 20 C7 28 32 30 |,1:.4..1.:. .(20|
00002980: 29 3B 3A 00 AD 31 B7 3A 8F 20 20 43 48 52 24 28 |);:..1.:. CHR$(|
00002990: 32 30 29 20 54 55 52 4E 53 20 4F 4E 20 43 4F 4D |20) TURNS ON COM|
000029A0: 50 52 45 53 53 45 44 20 50 52 49 4E 54 00 B7 31 |PRESSED PRINT..1|
000029B0: C0 3A 98 34 3A A0 34 00 D7 31 E8 3A 89 20 31 34 |.:.4:.4..1.:. 14|
000029C0: 30 33 30 3A 8F 20 20 47 4F 54 4F 20 50 52 49 4E |030:. GOTO PRIN|
000029D0: 54 20 53 45 54 55 50 00 DD 31 80 3E 8F 00 01 32 |T SETUP..1.>...2|
000029E0: 85 3E 8F 20 20 3A 3A 3A 3A 3A 54 52 49 50 4C 45 |.>. :::::TRIPLE|
000029F0: 20 57 49 44 45 20 4C 41 42 45 4C 20 3A 3A 3A 3A | WIDE LABEL ::::|
00002A00: 3A 00 07 32 8A 3E 8F 00 24 32 94 3E 8D 20 31 31 |:..2.>..$2.>. 11|
00002A10: 30 32 30 3A 8F 20 20 44 49 53 50 4C 41 59 20 4C |020:. DISPLAY L|
00002A20: 41 42 45 4C 00 56 32 A3 3E 99 3A 99 3A 99 20 A6 |ABEL.V2.>.:.:. .|
00002A30: 35 29 22 53 50 45 43 49 46 59 20 4E 55 4D 42 45 |5)"SPECIFY NUMBE|
00002A40: 52 20 4F 46 20 52 4F 57 53 20 4F 46 20 33 20 4C |R OF ROWS OF 3 L|
00002A50: 41 42 45 4C 53 22 00 79 32 A8 3E 8D 20 37 30 32 |ABELS".y2.>. 702|
00002A60: 30 3A 8F 20 20 48 4F 57 20 4D 41 4E 59 20 4C 41 |0:. HOW MANY LA|
00002A70: 42 45 4C 20 52 4F 57 53 3F 00 85 32 AD 3E 89 20 |BEL ROWS?..2.>. |
00002A80: 31 36 35 30 30 00 8B 32 AE 3E 8F 00 AB 32 AF 3E |16500..2.>...2.>|
00002A90: 8F 20 20 3A 3A 3A 20 43 45 4E 54 45 52 20 4A 55 |. ::: CENTER JU|
00002AA0: 53 54 49 46 49 45 44 20 3A 3A 3A 00 B1 32 B0 3E |STIFIED :::..2.>|
00002AB0: 8F 00 BD 32 B2 3E 9F 34 2C 34 3A 9D 34 00 C6 32 |...2.>.4,4:.4..2|
00002AC0: B7 3E 52 B2 31 37 00 D4 32 D0 3E 81 20 49 B2 31 |.>R.17..2.>. I.1|
00002AD0: 20 A4 20 58 00 DC 32 D3 3E 55 B2 31 00 F4 32 E4 | . X..2.>U.1..2.|
00002AE0: 3E 55 B2 55 AA 31 3A 8B 20 55 B2 32 20 A7 20 59 |>U.U.1:. U.2 . Y|
00002AF0: 24 B2 41 24 00 06 33 E9 3E 8B 20 55 B2 33 20 A7 |$.A$..3.>. U.3 .|
00002B00: 20 59 24 B2 42 24 00 18 33 EE 3E 8B 20 55 B2 34 | Y$.B$..3.>. U.4|
00002B10: 20 A7 20 59 24 B2 43 24 00 2A 33 F3 3E 8B 20 55 | . Y$.C$.*3.>. U|
00002B20: B2 35 20 A7 20 59 24 B2 45 24 00 3C 33 F8 3E 8B |.5 . Y$.E$.<3.>.|
00002B30: 20 55 B2 36 20 A7 20 59 24 B2 46 24 00 48 33 FD | U.6 . Y$.F$.H3.|
00002B40: 3E 51 B2 C3 28 59 24 29 00 59 33 02 3F 50 B2 B5 |>Q..(Y$).Y3.?P..|
00002B50: 28 28 52 AB 51 29 AD 32 29 00 72 33 07 3F 8F 20 |((R.Q).2).r3.?. |
00002B60: 20 50 3D 53 50 41 43 45 53 20 56 41 52 49 41 42 | P=SPACES VARIAB|
00002B70: 4C 45 00 7D 33 0C 3F 50 41 B2 50 AA 31 00 8B 33 |LE.}3.?PA.P.1..3|
00002B80: 11 3F 50 54 B2 50 AA 51 AA 50 41 00 9D 33 16 3F |.?PT.P.Q.PA..3.?|
00002B90: 8B 20 50 54 B1 52 20 A7 20 50 41 B2 50 00 D0 33 |. PT.R . PA.P..3|
00002BA0: 1B 3F 42 54 B2 33 3A 8F 20 20 42 54 3D 53 50 41 |.?BT.3:. BT=SPA|
00002BB0: 43 45 53 20 42 45 54 57 45 45 4E 20 54 52 49 50 |CES BETWEEN TRIP|
00002BC0: 4C 45 20 43 4F 4C 55 4D 4E 20 4C 41 42 45 4C 53 |LE COLUMN LABELS|
00002BD0: 00 F9 33 20 3F 99 20 A6 48 AA 50 29 20 59 24 3B |..3 ?. .H.P) Y$;|
00002BE0: A6 50 41 AA 42 54 AA 50 29 3B 59 24 3B A6 50 41 |.PA.BT.P);Y$;.PA|
00002BF0: AA 42 54 AA 50 29 3B 59 24 00 0B 34 25 3F 8B 20 |.BT.P);Y$..4%?. |
00002C00: 55 B3 36 20 A7 20 31 36 31 30 30 00 2B 34 2A 3F |U.6 . 16100.+4*?|
00002C10: 55 B2 31 3A 8F 20 52 45 53 45 54 20 4C 49 4E 45 |U.1:. RESET LINE|
00002C20: 20 43 4F 55 4E 54 20 46 4C 41 47 00 31 34 2F 3F | COUNT FLAG.14/?|
00002C30: 99 00 37 34 34 3F 82 00 41 34 E8 3F 98 34 3A A0 |..744?..A4.?.4:.|
00002C40: 34 00 67 34 F2 3F 99 20 C7 28 31 34 37 29 3A 8D |4.g4.?. .(147):.|
00002C50: 20 31 31 30 32 30 3A 8F 20 20 44 49 53 50 4C 41 | 11020:. DISPLA|
00002C60: 59 20 4C 41 42 45 4C 00 96 34 FC 3F 99 3A 99 3A |Y LABEL..4.?.:.:|
00002C70: 99 20 22 20 20 20 20 20 4D 4F 52 45 20 4F 46 20 |. " MORE OF |
00002C80: 54 48 45 20 53 41 4D 45 20 4C 41 42 45 4C 20 22 |THE SAME LABEL "|
00002C90: 3B 3A 85 20 58 24 00 B2 34 01 40 8B 20 C8 28 58 |;:. X$..4.@. .(X|
00002CA0: 24 2C 31 29 B2 22 59 22 20 A7 20 89 20 31 36 30 |$,1)."Y" . . 160|
00002CB0: 32 30 00 E6 34 06 40 99 20 C7 28 31 38 29 20 C7 |20..4.@. .(18) .|
00002CC0: 28 32 37 29 22 40 22 3A 8D 20 36 33 30 30 3A 89 |(27)"@":. 6300:.|
00002CD0: 20 32 34 30 3A 8F 20 20 47 4F 54 4F 20 4D 41 49 | 240:. GOTO MAI|
00002CE0: 4E 20 4D 45 4E 55 00 F9 34 74 40 99 20 C7 28 31 |N MENU..4t@. .(1|
00002CF0: 34 37 29 3A 99 3A 99 3A 99 00 25 35 7E 40 99 20 |47):.:.:..%5~@. |
00002D00: 22 20 20 20 20 20 20 20 20 44 4F 20 59 4F 55 20 |" DO YOU |
00002D10: 57 41 4E 54 20 54 48 45 20 4C 41 42 45 4C 53 3A |WANT THE LABELS:|
00002D20: 22 3A 99 3A 99 00 4C 35 88 40 99 20 22 20 20 20 |":.:..L5.@. " |
00002D30: 20 20 20 20 20 43 20 2D 20 43 45 4E 54 45 52 20 | C - CENTER |
00002D40: 4A 55 53 54 49 46 49 45 44 22 3A 99 00 71 35 92 |JUSTIFIED":..q5.|
00002D50: 40 99 20 22 20 20 20 20 20 20 20 20 4C 20 2D 20 |@. " L - |
00002D60: 4C 45 46 54 20 4A 55 53 54 49 46 49 45 44 22 3A |LEFT JUSTIFIED":|
00002D70: 99 00 99 35 9C 40 99 20 22 20 20 20 20 20 20 20 |...5.@. " |
00002D80: 20 4D 20 2D 20 52 45 54 55 52 4E 20 54 4F 20 4D | M - RETURN TO M|
00002D90: 41 49 4E 20 4D 45 4E 55 22 00 B4 35 A6 40 A1 20 |AIN MENU"..5.@. |
00002DA0: 41 37 24 3A 8B 20 41 37 24 B2 22 22 20 A7 20 31 |A7$:. A7$."" . 1|
00002DB0: 36 35 35 30 00 CA 35 B0 40 8B 20 41 37 24 B2 22 |6550..5.@. A7$."|
00002DC0: 43 22 20 A7 20 31 36 30 35 30 00 E0 35 BA 40 8B |C" . 16050..5.@.|
00002DD0: 20 41 37 24 B2 22 4C 22 20 A7 20 31 36 37 30 30 | A7$."L" . 16700|
00002DE0: 00 02 36 C4 40 8B 20 41 37 24 B3 B1 22 43 22 20 |..6.@. A7$.."C" |
00002DF0: AF 20 41 37 24 B3 B1 22 4C 22 20 A7 20 89 20 32 |. A7$.."L" . . 2|
00002E00: 34 30 00 08 36 3C 41 8F 00 2B 36 46 41 8F 20 20 |40..6<A..+6FA. |
00002E10: 3A 3A 3A 3A 20 4C 45 46 54 20 4A 55 53 54 49 46 |:::: LEFT JUSTIF|
00002E20: 49 43 41 54 49 4F 4E 20 3A 3A 3A 00 31 36 50 41 |ICATION :::.16PA|
00002E30: 8F 00 3D 36 5A 41 9F 34 2C 34 3A 9D 34 00 7B 36 |..=6ZA.4,4:.4.{6|
00002E40: 64 41 52 B2 31 37 3A 81 20 49 B2 31 20 A4 20 58 |dAR.17:. I.1 . X|
00002E50: 3A 55 B2 31 3A 8F 20 20 52 20 49 53 20 54 48 45 |:U.1:. R IS THE|
00002E60: 20 4C 49 4E 45 20 4C 49 4D 49 54 45 52 20 46 4F | LINE LIMITER FO|
00002E70: 52 20 4F 4E 45 20 4C 41 42 45 4C 00 93 36 6E 41 |R ONE LABEL..6nA|
00002E80: 55 B2 55 AA 31 3A 8B 20 55 B2 32 20 A7 20 59 24 |U.U.1:. U.2 . Y$|
00002E90: B2 41 24 00 A5 36 78 41 8B 20 55 B2 33 20 A7 20 |.A$..6xA. U.3 . |
00002EA0: 59 24 B2 42 24 00 B7 36 82 41 8B 20 55 B2 34 20 |Y$.B$..6.A. U.4 |
00002EB0: A7 20 59 24 B2 43 24 00 C9 36 8C 41 8B 20 55 B2 |. Y$.C$..6.A. U.|
00002EC0: 35 20 A7 20 59 24 B2 45 24 00 DB 36 96 41 8B 20 |5 . Y$.E$..6.A. |
00002ED0: 55 B2 36 20 A7 20 59 24 B2 46 24 00 0E 37 A0 41 |U.6 . Y$.F$..7.A|
00002EE0: 51 B2 C3 28 59 24 29 3A 42 54 B2 33 3A 8F 20 20 |Q..(Y$):BT.3:. |
00002EF0: 42 54 20 3D 20 53 50 41 43 45 53 20 42 45 54 57 |BT = SPACES BETW|
00002F00: 45 45 4E 20 54 48 45 20 4C 41 42 45 4C 53 00 1B |EEN THE LABELS..|
00002F10: 37 AA 41 50 B2 B5 28 52 AB 51 29 00 34 37 B4 41 |7.AP..(R.Q).47.A|
00002F20: 8F 20 20 50 3D 53 50 41 43 45 53 20 56 41 52 49 |. P=SPACES VARI|
00002F30: 41 42 4C 45 00 55 37 BE 41 99 20 A6 48 29 20 59 |ABLE.U7.A. .H) Y|
00002F40: 24 3B A6 50 AA 42 54 29 3B 59 24 3B A6 50 AA 42 |$;.P.BT);Y$;.P.B|
00002F50: 54 29 3B 59 24 00 67 37 C8 41 8B 20 55 B3 36 20 |T);Y$.g7.A. U.6 |
00002F60: A7 20 31 36 37 35 30 00 88 37 D2 41 55 B2 31 3A |. 16750..7.AU.1:|
00002F70: 8F 20 20 52 45 53 45 54 20 4C 49 4E 45 20 43 4F |. RESET LINE CO|
00002F80: 55 4E 54 20 46 4C 41 47 00 8E 37 DC 41 99 00 94 |UNT FLAG..7.A...|
00002F90: 37 E6 41 82 00 A0 37 F0 41 89 20 31 36 33 36 30 |7.A...7.A. 16360|
00002FA0: 00 A6 37 68 42 8F 00 C4 37 6D 42 8F 20 20 3A 3A |..7hB...7mB. ::|
00002FB0: 3A 3A 3A 20 59 4F 55 52 20 4C 41 42 45 4C 20 3A |::: YOUR LABEL :|
00002FC0: 3A 3A 3A 3A 00 CA 37 72 42 8F 00 E5 37 7C 42 41 |::::..7rB...7|BA|
00002FD0: 24 B2 22 59 20 4F 20 55 20 52 20 20 20 4E 20 41 |$."Y O U R N A|
00002FE0: 20 4D 20 45 22 00 FD 37 86 42 42 24 B2 22 41 20 | M E"..7.BB$."A |
00002FF0: 44 20 44 20 52 20 45 20 53 20 53 20 22 00 17 38 |D D R E S S "..8|
00003000: 90 42 43 24 B2 22 43 49 54 59 20 20 53 54 41 54 |.BC$."CITY STAT|
00003010: 45 20 20 5A 49 50 22 00 21 38 9A 42 45 24 B2 22 |E ZIP".!8.BE$."|
00003020: 22 00 3F 38 A4 42 46 24 B2 22 41 53 53 49 47 4E |".?8.BF$."ASSIGN|
00003030: 20 41 54 20 4C 49 4E 45 20 31 37 30 32 30 22 00 | AT LINE 17020".|
00003040: 45 38 AE 42 8E 00 4B 38 50 46 8F 00 6B 38 55 46 |E8.B..K8PF..k8UF|
00003050: 8F 20 20 3A 3A 3A 3A 3A 20 31 30 20 4D 4F 53 54 |. ::::: 10 MOST|
00003060: 20 55 53 45 44 20 3A 3A 3A 3A 3A 00 71 38 58 46 | USED :::::.q8XF|
00003070: 8F 00 91 38 5A 46 81 20 49 B2 31 20 A4 20 32 3A |...8ZF. I.1 . 2:|
00003080: 99 20 C7 28 31 37 29 3A 82 20 49 3A 99 20 A6 33 |. .(17):. I:. .3|
00003090: 29 00 B8 38 5F 46 99 20 22 20 20 20 20 20 12 20 |)..8_F. " . |
000030A0: 31 30 20 4D 4F 53 54 20 55 53 45 44 20 4C 41 42 |10 MOST USED LAB|
000030B0: 45 4C 53 20 92 22 3A 99 00 D9 38 64 46 99 22 20 |ELS .":...8dF." |
000030C0: 20 20 20 20 20 20 20 20 20 20 20 20 53 45 4C 45 | SELE|
000030D0: 43 54 20 46 52 4F 4D 3A 22 00 E1 38 6E 46 99 3A |CT FROM:"..8nF.:|
000030E0: 99 00 0E 39 78 46 99 20 22 20 20 20 20 5B 20 31 |...9xF. " [ 1|
000030F0: 20 5D 20 2D 20 2D 20 2D 20 43 4F 4D 50 55 54 45 | ] - - - COMPUTE|
00003100: 20 50 55 42 4C 49 43 41 54 49 4F 4E 53 22 00 39 | PUBLICATIONS".9|
00003110: 39 82 46 99 20 22 20 20 20 20 5B 20 32 20 5D 20 |9.F. " [ 2 ] |
00003120: 2D 20 2D 20 2D 20 4C 41 42 45 4C 20 41 54 20 4C |- - - LABEL AT L|
00003130: 49 4E 45 31 38 33 37 30 22 00 64 39 8C 46 99 20 |INE18370".d9.F. |
00003140: 22 20 20 20 20 5B 20 33 20 5D 20 2D 20 2D 20 2D |" [ 3 ] - - -|
00003150: 20 4C 41 42 45 4C 20 41 54 20 4C 49 4E 45 31 38 | LABEL AT LINE18|
00003160: 34 34 30 22 00 8F 39 96 46 99 20 22 20 20 20 20 |440"..9.F. " |
00003170: 5B 20 34 20 5D 20 2D 20 2D 20 2D 20 4C 41 42 45 |[ 4 ] - - - LABE|
00003180: 4C 20 41 54 20 4C 49 4E 45 31 38 35 31 30 22 00 |L AT LINE18510".|
00003190: BA 39 A0 46 99 20 22 20 20 20 20 5B 20 35 20 5D |.9.F. " [ 5 ]|
000031A0: 20 2D 20 2D 20 2D 20 4C 41 42 45 4C 20 41 54 20 | - - - LABEL AT |
000031B0: 4C 49 4E 45 31 38 35 38 30 22 00 E5 39 AA 46 99 |LINE18580"..9.F.|
000031C0: 20 22 20 20 20 20 5B 20 36 20 5D 20 2D 20 2D 20 | " [ 6 ] - - |
000031D0: 2D 20 4C 41 42 45 4C 20 41 54 20 4C 49 4E 45 31 |- LABEL AT LINE1|
000031E0: 38 36 35 30 22 00 10 3A B4 46 99 20 22 20 20 20 |8650"..:.F. " |
000031F0: 20 5B 20 37 20 5D 20 2D 20 2D 20 2D 20 4C 41 42 | [ 7 ] - - - LAB|
00003200: 45 4C 20 41 54 20 4C 49 4E 45 31 38 37 32 30 22 |EL AT LINE18720"|
00003210: 00 3B 3A BE 46 99 20 22 20 20 20 20 5B 20 38 20 |.;:.F. " [ 8 |
00003220: 5D 20 2D 20 2D 20 2D 20 4C 41 42 45 4C 20 41 54 |] - - - LABEL AT|
00003230: 20 4C 49 4E 45 31 38 37 39 30 22 00 66 3A C8 46 | LINE18790".f:.F|
00003240: 99 20 22 20 20 20 20 5B 20 39 20 5D 20 2D 20 2D |. " [ 9 ] - -|
00003250: 20 2D 20 4C 41 42 45 4C 20 41 54 20 4C 49 4E 45 | - LABEL AT LINE|
00003260: 31 38 38 36 30 22 00 91 3A D2 46 99 20 22 20 20 |18860"..:.F. " |
00003270: 20 20 5B 20 30 20 5D 20 2D 20 2D 20 2D 20 4C 41 | [ 0 ] - - - LA|
00003280: 42 45 4C 20 41 54 20 4C 49 4E 45 31 38 39 33 30 |BEL AT LINE18930|
00003290: 22 00 BF 3A DC 46 99 20 22 20 20 20 20 5B 20 52 |"..:.F. " [ R|
000032A0: 20 5D 20 2D 20 2D 20 2D 20 3C 52 45 54 55 52 4E | ] - - - <RETURN|
000032B0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 3E 22 00 | TO MAIN MENU>".|
000032C0: E7 3A E6 46 99 3A 99 3A 99 20 22 20 20 20 20 5B |.:.F.:.:. " [|
000032D0: 20 20 20 5D 20 2E 2E 2E 2E 2E 20 59 4F 55 52 20 | ] ..... YOUR |
000032E0: 43 48 4F 49 43 45 22 00 02 3B F5 46 A1 20 41 33 |CHOICE"..;.F. A3|
000032F0: 24 3A 8B 20 41 33 24 B2 22 22 20 A7 20 31 38 31 |$:. A3$."" . 181|
00003300: 36 35 00 2A 3B FA 46 8B 20 41 33 24 B2 22 31 22 |65.*;.F. A3$."1"|
00003310: 20 A7 20 8D 20 31 38 33 30 30 3A 99 20 C7 28 31 | . . 18300:. .(1|
00003320: 34 37 29 3A 89 20 31 30 32 30 00 58 3B FB 46 8F |47):. 1020.X;.F.|
00003330: 20 20 50 45 52 46 4F 52 4D 20 4C 41 42 45 4C 20 | PERFORM LABEL |
00003340: 50 49 43 4B 55 50 20 2D 20 47 4F 54 4F 20 50 52 |PICKUP - GOTO PR|
00003350: 49 4E 54 20 4D 45 4E 55 00 80 3B 04 47 8B 20 41 |INT MENU..;.G. A|
00003360: 33 24 B2 22 32 22 20 A7 20 8D 20 31 38 33 37 30 |3$."2" . . 18370|
00003370: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
00003380: 00 A8 3B 0E 47 8B 20 41 33 24 B2 22 33 22 20 A7 |..;.G. A3$."3" .|
00003390: 20 8D 20 31 38 34 34 30 3A 99 20 C7 28 31 34 37 | . 18440:. .(147|
000033A0: 29 3A 89 20 31 30 32 30 00 D0 3B 18 47 8B 20 41 |):. 1020..;.G. A|
000033B0: 33 24 B2 22 34 22 20 A7 20 8D 20 31 38 35 31 30 |3$."4" . . 18510|
000033C0: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
000033D0: 00 F8 3B 22 47 8B 20 41 33 24 B2 22 35 22 20 A7 |..;"G. A3$."5" .|
000033E0: 20 8D 20 31 38 35 38 30 3A 99 20 C7 28 31 34 37 | . 18580:. .(147|
000033F0: 29 3A 89 20 31 30 32 30 00 20 3C 2C 47 8B 20 41 |):. 1020. <,G. A|
00003400: 33 24 B2 22 36 22 20 A7 20 8D 20 31 38 36 35 30 |3$."6" . . 18650|
00003410: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
00003420: 00 48 3C 36 47 8B 20 41 33 24 B2 22 37 22 20 A7 |.H<6G. A3$."7" .|
00003430: 20 8D 20 31 38 37 32 30 3A 99 20 C7 28 31 34 37 | . 18720:. .(147|
00003440: 29 3A 89 20 31 30 32 30 00 70 3C 40 47 8B 20 41 |):. 1020.p<@G. A|
00003450: 33 24 B2 22 38 22 20 A7 20 8D 20 31 38 37 39 30 |3$."8" . . 18790|
00003460: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
00003470: 00 98 3C 4A 47 8B 20 41 33 24 B2 22 39 22 20 A7 |..<JG. A3$."9" .|
00003480: 20 8D 20 31 38 38 36 30 3A 99 20 C7 28 31 34 37 | . 18860:. .(147|
00003490: 29 3A 89 20 31 30 32 30 00 C0 3C 54 47 8B 20 41 |):. 1020..<TG. A|
000034A0: 33 24 B2 22 30 22 20 A7 20 8D 20 31 38 39 33 30 |3$."0" . . 18930|
000034B0: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
000034C0: 00 E8 3C 5E 47 8B 20 41 33 24 B2 22 52 22 20 A7 |..<^G. A3$."R" .|
000034D0: 20 89 20 32 34 30 3A 8F 20 20 47 4F 54 4F 20 4D | . 240:. GOTO M|
000034E0: 41 49 4E 20 4D 45 4E 55 00 04 3D 72 47 8F 20 20 |AIN MENU..=rG. |
000034F0: 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 31 20 3A |::::: LABEL #1 :|
00003500: 3A 3A 3A 3A 00 28 3D 7C 47 41 24 B2 22 43 4F 4D |::::.(=|GA$."COM|
00003510: 50 55 54 45 20 50 55 42 4C 49 43 41 54 49 4F 4E |PUTE PUBLICATION|
00003520: 53 2C 20 49 4E 43 2E 22 00 40 3D 86 47 42 24 B2 |S, INC.".@=.GB$.|
00003530: 22 50 2E 20 4F 2E 20 42 4F 58 20 35 34 30 36 22 |"P. O. BOX 5406"|
00003540: 00 5F 3D 90 47 43 24 B2 22 47 52 45 45 4E 53 42 |._=.GC$."GREENSB|
00003550: 4F 52 4F 2C 20 4E 43 20 20 32 37 34 30 33 22 00 |ORO, NC 27403".|
00003560: 6F 3D 9A 47 45 24 B2 22 55 2E 53 2E 41 2E 22 00 |o=.GE$."U.S.A.".|
00003570: 79 3D A4 47 46 24 B2 22 22 00 7F 3D AE 47 8E 00 |y=.GF$.""..=.G..|
00003580: 9B 3D B8 47 8F 20 20 3A 3A 3A 3A 3A 20 4C 41 42 |.=.G. ::::: LAB|
00003590: 45 4C 20 23 32 20 3A 3A 3A 3A 3A 00 BA 3D C2 47 |EL #2 :::::..=.G|
000035A0: 41 24 B2 22 55 4E 41 53 53 49 47 4E 45 44 20 4C |A$."UNASSIGNED L|
000035B0: 49 4E 45 20 31 38 33 37 30 22 00 C4 3D CC 47 42 |INE 18370"..=.GB|
000035C0: 24 B2 22 22 00 CE 3D D6 47 43 24 B2 22 22 00 D8 |$.""..=.GC$.""..|
000035D0: 3D E0 47 45 24 B2 22 22 00 E2 3D EA 47 46 24 B2 |=.GE$.""..=.GF$.|
000035E0: 22 22 00 E8 3D F4 47 8E 00 04 3E FE 47 8F 20 20 |""..=.G...>.G. |
000035F0: 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 33 20 3A |::::: LABEL #3 :|
00003600: 3A 3A 3A 3A 00 23 3E 08 48 41 24 B2 22 55 4E 41 |::::.#>.HA$."UNA|
00003610: 53 53 49 47 4E 45 44 20 4C 49 4E 45 20 31 38 34 |SSIGNED LINE 184|
00003620: 34 30 22 00 2D 3E 12 48 42 24 B2 22 22 00 37 3E |40".->.HB$."".7>|
00003630: 1C 48 43 24 B2 22 22 00 41 3E 26 48 45 24 B2 22 |.HC$."".A>&HE$."|
00003640: 22 00 4B 3E 30 48 46 24 B2 22 22 00 51 3E 3A 48 |".K>0HF$."".Q>:H|
00003650: 8E 00 6D 3E 44 48 8F 20 20 3A 3A 3A 3A 3A 20 4C |..m>DH. ::::: L|
00003660: 41 42 45 4C 20 23 34 20 3A 3A 3A 3A 3A 00 8C 3E |ABEL #4 :::::..>|
00003670: 4E 48 41 24 B2 22 55 4E 41 53 53 49 47 4E 45 44 |NHA$."UNASSIGNED|
00003680: 20 4C 49 4E 45 20 31 38 35 31 30 22 00 96 3E 58 | LINE 18510"..>X|
00003690: 48 42 24 B2 22 22 00 A0 3E 62 48 43 24 B2 22 22 |HB$.""..>bHC$.""|
000036A0: 00 AA 3E 6C 48 45 24 B2 22 22 00 B4 3E 76 48 46 |..>lHE$.""..>vHF|
000036B0: 24 B2 22 22 00 BA 3E 80 48 8E 00 D6 3E 8A 48 8F |$.""..>.H...>.H.|
000036C0: 20 20 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 35 | ::::: LABEL #5|
000036D0: 20 3A 3A 3A 3A 3A 00 F5 3E 94 48 41 24 B2 22 55 | :::::..>.HA$."U|
000036E0: 4E 41 53 53 49 47 4E 45 44 20 4C 49 4E 45 20 31 |NASSIGNED LINE 1|
000036F0: 38 35 31 30 22 00 FF 3E 9E 48 42 24 B2 22 22 00 |8510"..>.HB$."".|
00003700: 09 3F A8 48 43 24 B2 22 22 00 13 3F B2 48 45 24 |.?.HC$.""..?.HE$|
00003710: B2 22 22 00 1D 3F BC 48 46 24 B2 22 22 00 23 3F |.""..?.HF$."".#?|
00003720: C6 48 8E 00 3F 3F D0 48 8F 20 20 3A 3A 3A 3A 3A |.H..??.H. :::::|
00003730: 20 4C 41 42 45 4C 20 23 36 20 3A 3A 3A 3A 3A 00 | LABEL #6 :::::.|
00003740: 5E 3F DA 48 41 24 B2 22 55 4E 41 53 53 49 47 4E |^?.HA$."UNASSIGN|
00003750: 45 44 20 4C 49 4E 45 20 31 38 36 35 30 22 00 68 |ED LINE 18650".h|
00003760: 3F E4 48 42 24 B2 22 22 00 72 3F EE 48 43 24 B2 |?.HB$."".r?.HC$.|
00003770: 22 22 00 7C 3F F8 48 45 24 B2 22 22 00 86 3F 02 |"".|?.HE$.""..?.|
00003780: 49 46 24 B2 22 22 00 8C 3F 0C 49 8E 00 A8 3F 16 |IF$.""..?.I...?.|
00003790: 49 8F 20 20 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 |I. ::::: LABEL |
000037A0: 23 37 20 3A 3A 3A 3A 3A 00 C7 3F 20 49 41 24 B2 |#7 :::::..? IA$.|
000037B0: 22 55 4E 41 53 53 49 47 4E 45 44 20 4C 49 4E 45 |"UNASSIGNED LINE|
000037C0: 20 31 38 37 32 30 22 00 D1 3F 2A 49 42 24 B2 22 | 18720"..?*IB$."|
000037D0: 22 00 DB 3F 34 49 43 24 B2 22 22 00 E5 3F 3E 49 |"..?4IC$.""..?>I|
000037E0: 45 24 B2 22 22 00 EF 3F 48 49 46 24 B2 22 22 00 |E$.""..?HIF$."".|
000037F0: F5 3F 52 49 8E 00 11 40 5C 49 8F 20 20 3A 3A 3A |.?RI...@\I. :::|
00003800: 3A 3A 20 4C 41 42 45 4C 20 23 38 20 3A 3A 3A 3A |:: LABEL #8 ::::|
00003810: 3A 00 30 40 66 49 41 24 B2 22 55 4E 41 53 53 49 |:.0@fIA$."UNASSI|
00003820: 47 4E 45 44 20 4C 49 4E 45 20 31 38 37 39 30 22 |GNED LINE 18790"|
00003830: 00 3A 40 70 49 42 24 B2 22 22 00 44 40 7A 49 43 |.:@pIB$."".D@zIC|
00003840: 24 B2 22 22 00 4E 40 84 49 45 24 B2 22 22 00 58 |$."".N@.IE$."".X|
00003850: 40 8E 49 46 24 B2 22 22 00 5E 40 98 49 8E 00 7A |@.IF$."".^@.I..z|
00003860: 40 A2 49 8F 20 20 3A 3A 3A 3A 3A 20 4C 41 42 45 |@.I. ::::: LABE|
00003870: 4C 20 23 39 20 3A 3A 3A 3A 3A 00 99 40 AC 49 41 |L #9 :::::..@.IA|
00003880: 24 B2 22 55 4E 41 53 53 49 47 4E 45 44 20 4C 49 |$."UNASSIGNED LI|
00003890: 4E 45 20 31 38 38 36 30 22 00 A3 40 B6 49 42 24 |NE 18860"..@.IB$|
000038A0: B2 22 22 00 AD 40 C0 49 43 24 B2 22 22 00 B7 40 |.""..@.IC$.""..@|
000038B0: CA 49 45 24 B2 22 22 00 C1 40 D4 49 46 24 B2 22 |.IE$.""..@.IF$."|
000038C0: 22 00 C7 40 DE 49 8E 00 E3 40 E8 49 8F 20 20 3A |"..@.I...@.I. :|
000038D0: 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 30 20 3A 3A |:::: LABEL #0 ::|
000038E0: 3A 3A 3A 00 02 41 F2 49 41 24 B2 22 55 4E 41 53 |:::..A.IA$."UNAS|
000038F0: 53 49 47 4E 45 44 20 4C 49 4E 45 20 31 38 38 36 |SIGNED LINE 1886|
00003900: 30 22 00 0C 41 FC 49 42 24 B2 22 22 00 16 41 06 |0"..A.IB$.""..A.|
00003910: 4A 43 24 B2 22 22 00 20 41 10 4A 45 24 B2 22 22 |JC$."". A.JE$.""|
00003920: 00 2A 41 1A 4A 46 24 B2 22 22 00 30 41 24 4A 8E |.*A.JF$."".0A$J.|
00003930: 00 36 41 A8 61 8F 00 4D 41 B2 61 8F 20 20 3A 3A |.6A.a..MA.a. ::|
00003940: 3A 3A 3A 20 45 4E 44 20 3A 3A 3A 3A 3A 00 53 41 |::: END :::::.SA|
00003950: B7 61 8F 00 60 41 BC 61 99 20 C7 28 31 34 37 29 |.a..`A.a. .(147)|
00003960: 00 83 41 C6 61 99 20 C7 28 31 34 37 29 3A 81 20 |..A.a. .(147):. |
00003970: 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A |I.1 . 4:. .(17):|
00003980: 82 20 49 00 AA 41 D0 61 99 20 22 20 20 20 20 20 |. I..A.a. " |
00003990: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********|
000039A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 CB 41 DA 61 99 |*********"..A.a.|
000039B0: 20 A6 31 30 29 22 2A 20 20 20 20 20 20 20 20 20 | .10)"* |
000039C0: 20 20 20 20 20 20 20 20 20 2A 22 00 F2 41 E4 61 | *"..A.a|
000039D0: 99 20 22 20 20 20 20 20 20 20 20 20 20 2A 20 20 |. " * |
000039E0: 20 20 20 47 4F 4F 44 20 42 59 45 20 20 20 20 20 | GOOD BYE |
000039F0: 2A 22 00 13 42 EE 61 99 20 A6 31 30 29 22 2A 20 |*"..B.a. .10)"* |
00003A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003A10: 20 2A 22 00 3A 42 F8 61 99 20 22 20 20 20 20 20 | *".:B.a. " |
00003A20: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********|
00003A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 4F 42 02 62 81 |*********".OB.b.|
00003A40: 20 49 B2 31 20 A4 20 31 30 30 30 3A 82 20 49 00 | I.1 . 1000:. I.|
00003A50: 64 42 0C 62 81 20 49 B2 31 20 A4 20 32 35 3A 99 |dB.b. I.1 . 25:.|
00003A60: 3A 82 20 49 00 6A 42 16 62 80 00 70 42 18 79 8F |:. I.jB.b..pB.y.|
00003A70: 00 93 42 22 79 8F 20 20 3A 3A 3A 3A 3A 20 53 55 |..B"y. ::::: SU|
00003A80: 42 52 4F 55 54 49 4E 45 20 4C 49 53 54 20 3A 3A |BROUTINE LIST ::|
00003A90: 3A 3A 3A 00 99 42 2C 79 8F 00 B5 42 36 79 8F 20 |:::..B,y...B6y. |
00003AA0: 20 20 31 30 30 20 53 45 54 55 50 2F 4D 41 49 4E | 100 SETUP/MAIN|
00003AB0: 20 4D 45 4E 55 00 CC 42 40 79 8F 20 20 31 30 30 | MENU..B@y. 100|
00003AC0: 30 20 50 52 49 4E 54 20 4D 45 4E 55 00 E5 42 4A |0 PRINT MENU..BJ|
00003AD0: 79 8F 20 20 32 30 30 30 20 49 4E 53 54 52 55 43 |y. 2000 INSTRUC|
00003AE0: 54 49 4F 4E 53 00 FE 42 54 79 8F 20 20 34 30 30 |TIONS..BTy. 400|
00003AF0: 30 20 4C 41 42 45 4C 20 42 4F 52 44 45 52 00 25 |0 LABEL BORDER.%|
00003B00: 43 5E 79 8F 20 20 35 30 30 30 20 4C 49 4E 45 20 |C^y. 5000 LINE |
00003B10: 4C 49 4D 49 54 45 52 20 26 20 49 4E 50 55 54 20 |LIMITER & INPUT |
00003B20: 4C 49 4E 45 53 00 42 43 72 79 8F 20 20 37 30 30 |LINES.BCry. 700|
00003B30: 30 20 48 4F 57 20 4D 41 4E 59 20 4C 41 42 45 4C |0 HOW MANY LABEL|
00003B40: 53 3F 00 5D 43 7C 79 8F 20 20 38 30 30 30 20 53 |S?.]C|y. 8000 S|
00003B50: 54 41 4E 44 41 52 44 20 50 52 49 4E 54 00 75 43 |TANDARD PRINT.uC|
00003B60: 86 79 8F 20 20 39 30 30 30 20 44 4F 55 42 4C 45 |.y. 9000 DOUBLE|
00003B70: 20 57 49 44 45 00 92 43 90 79 8F 20 31 30 30 30 | WIDE..C.y. 1000|
00003B80: 30 20 53 45 54 55 50 20 45 4D 50 48 41 53 49 5A |0 SETUP EMPHASIZ|
00003B90: 45 44 00 AF 43 9A 79 8F 20 31 31 30 30 30 20 4C |ED..C.y. 11000 L|
00003BA0: 41 42 45 4C 20 46 4F 52 20 53 43 52 45 45 4E 00 |ABEL FOR SCREEN.|
00003BB0: C8 43 A4 79 8F 20 31 32 30 30 30 20 38 30 20 43 |.C.y. 12000 80 C|
00003BC0: 50 4C 20 53 45 54 55 50 00 E2 43 AE 79 8F 20 31 |PL SETUP..C.y. 1|
00003BD0: 33 30 30 30 20 31 33 32 20 43 50 4C 20 53 45 54 |3000 132 CPL SET|
00003BE0: 55 50 00 FB 43 B8 79 8F 20 31 34 30 30 30 20 34 |UP..C.y. 14000 4|
00003BF0: 30 20 43 50 4C 20 53 45 54 55 50 00 14 44 C2 79 |0 CPL SETUP..D.y|
00003C00: 8F 20 31 35 30 30 30 20 36 36 20 43 50 4C 20 53 |. 15000 66 CPL S|
00003C10: 45 54 55 50 00 2C 44 CC 79 8F 20 31 36 30 30 30 |ETUP.,D.y. 16000|
00003C20: 20 54 52 49 50 4C 45 20 57 49 44 45 00 43 44 D6 | TRIPLE WIDE.CD.|
00003C30: 79 8F 20 31 37 30 30 30 20 59 4F 55 52 20 4C 41 |y. 17000 YOUR LA|
00003C40: 42 45 4C 00 5C 44 E0 79 8F 20 31 38 30 30 30 20 |BEL.\D.y. 18000 |
00003C50: 31 30 20 4D 4F 53 54 20 55 53 45 44 00 6C 44 EA |10 MOST USED.lD.|
00003C60: 79 8F 20 32 35 30 30 30 20 45 4E 44 00 88 44 F4 |y. 25000 END..D.|
00003C70: 79 8F 20 33 31 30 30 30 20 53 55 42 52 4F 55 54 |y. 31000 SUBROUT|
00003C80: 49 4E 45 20 4C 49 53 54 00 00 00 |INE LIST... |
..*.X.. G(147):. I.1 . 5:. G(17):. I:. .
7).[.}.. G(18) " PRINTER MUST BE TURNED
ON " G(146).P.... I.1 . 1500:. I.V......
.... :::::::LABEL INPUT MENU::::::::....
...L.... G(147):.:. CHR$(147) IS CLEAR/
HOME...... I.1 . 40:. "*";:. I:.;......
"*".38)"*";.-.... "* *** LABEL M
AKER *** *";.A.H.. "*" .38) "*"
;.[.R.. I.1 . 40:. "*";:. I.A.T...G.U...
M.V...S.W... ....:. " PRINTER CODE
S DESIGNED FOR "...... .13) "GEMINI 10X/
15 ".D....:....... " --PRESS " G(18) "
SHIFT" G(146) " KEY TO CONTINUE.--".....
. 653,1...... 6300:E.1.Q.... E IS EMPH
ASIZE ON/OFF FLAG=1 INDICATES OFF.M....
G(147)G(17)G(17)G(17)...... .13) G(18) "
MAIN MENU " G(146)...... G(17) .15) "SE
LECTION".W.J..:.:. " [ 1 ] - - - NEW
LABEL"...T..:. " [ 2 ] - - - YOUR L
ABEL".,.^..:. " [ 3 ] - - - 10 MOST
USED LABELS".\.H..:. " [ 4 ] - - - S
HORTENED DISK LABEL"...R..:. " [ 5 ]
- - - FULL SIZE DISK LABEL"...|..:. "
[ Q ] - - - < END >"......:.:.......
" [ ] .......YOUR CHOICE"...... A1
$:. A1$."" . 400.-.B.. A1$."1" . . G(147
):S1.30:. 6020:. 11005:. 1025.S.G.. GET
LABEL LINES-DISPLAY LABEL ON SCREEN-GOTO
PRINT MENU ROUTINE...L.. A1$."2" . . G(
147):. 17010:. G(147):. 1020.L.M.. GET L
ABEL-GOTO PRINT MENU ROUTINE...V.. A1$."
3" . . G(147):. 18010...W.. GOTO MOST US
ED MENU ROUTINE.B.... A1$."4" . S1.23:L.
1:A.27:B.7:C.22:D.3:. 4008.A.... GOTO LA
BEL PRINT ROUTINE...... A1$."5" . S1.29:
L.1:A.33:B.10:C.28:D.0:. 4008...... GOTO
LABEL PRINT ROUTINE.L.... A1$."Q" . . 2
5020...... GOTO END ROUTINE............
::::PRINT CHOICE::::............ 11005.4
.... CPL=CHARACTERS PER LINE.]....:.:. .
14) G(18)" PRINT MENU "G(146)...... CHR
$(18) IS REVERSE ON -- CHR
$(146) IS REVERSE OFF --...... .15)"SELE
CTION"...... ". [ 1 ] - - - STANDARD 8
0 CPL"...... " [ 2 ] - - - COMPRESSED
132 CPL".@.$.. " [ 3 ] - - - TRIPLE CO
LUMN LABELS-STD".P.).. " [ 4 ] - - - D
OUBLE WIDE/COMPR 66 CPL"...... " [ 5 ]
- - - DOUBLE WIDE 40 CPL"...3.. " [ 6
] - - - EMPHASIZED"...8.. " [ 9 ] - -
- RETURN TO MAIN MENU"...=.. 10020:. DI
SPLAY EMPHASIZE FLAG.1.B..:. " [ ] .
.... YOUR CHOICE".7.D.....E.. ---- EMP
HASIZED PRINT MODE DOES NOT COMBINE WITH
COMPRESSED MODE---...F.....G.....L.. G(
19):. I.1 . 11:. G(17):. I:. .2):. Y...Q
.. Y . 1110,1120,1130,1140,1147,1149,115
5,1155,1155...V.. G(147)...X..4,4,1:.4..
.Z.. G(18).$.\..4: 4.A.].H.5:Q.18:. 1100
5:. 12050.X.^.. DISPLAY LABEL ON SCREEN-
GOTO LABEL PRINT ROUTINE..._.. H=HORIZO
NTAL SPACING VARIABLE...`.. G(147):Q.20.
..A..4,4,1:.4.L.B.. G(27)"F".X.C.. G(20)
...E..4: 4...F.. Q=VARIABLE TO TURN ON
OR OFF COMPRESSED PRINT./.G.H.9:. 11005:
. 12050.\.H.. CHR$(27)"F" TURNS OFF EMPH
ASIZED PRINT...I.. CHR$(20) TURNS ON COM
PRESSED PRINT - DISPLAY LABEL ON SCREEN.
..J.H.5:. 2200:. 11005:. 16010...K.. DIS
PLAY LABEL ON SCREEN-GOTO TRIPLE WIDE LA
BEL PRINT.!.T.. G(147):.4,4,1:.4:. G(27)
"F":.4: 4.>.U..4,4,1:.4:. G(20);:.4: 4.
.V.H.4:. 11005:. 14050:. CHR$(27)"F" TUR
NS OFF EMPHASIZED PRINT...X.. CHR$(20) T
URNS ON COMPRESSED PRINT...Y.. DISPLAY L
ABEL ON SCREEN - GOTO LABEL PRINT ROUTIN
E...{.H.3:S1.15:. G(147):. 11005:. 14050
.'.|.. GOTO LABEL PRINT ROUTINE.4.}.. G(
147).L.~.H.0:. 11005:. G(17)...... "
" G(18) " EMPHASIZE ON
" G(146) " "...... 1025...... 240:.
RETURN TO MAIN MENU.B.P.....Z.. :::::IN
STRUCTIONS:::::............ G(147).)....
:.:. " " G(18) " INSTRUCTIONS
" G(146).Y....:.:. " PRINT WIDTH IS SET
BY LINE LIMITER".Y.... " FOR 3 1/2 INCH
LABELS."......:. " 5 LINES NORMAL OR 3
LINES BORDERED.".P....:. " DO NOT USE CO
MMAS OR COLONS."...4..:. " A RETURN WITH
NO ENTRY WILL GIVE"...>.. " A BLANK LIN
E."...H..:..Z.J.. " --PRESS " G(18) "S
HIFT" G(146) " KEY TO CONTINUE.--".F.L..
653,1.L.N...R.......... ::TRIPLE COL.
INSTRUCTIONS::............ G(147).Z....:
.:. " TRIPLE COLUMN LABEL INSTRUCTION
S"......:.:. " THE LENGTH OF TRIPLE COL
UMN LABELS".9.J.. " MUST BE LESS THAN T
HE NORMAL WIDTH ".J.O.. " LABEL.".X.T..
" THE TRIPLE COLUMN LABELS ARE SET TO"
...Y.. " PRINT A 17 CHARACTER LABEL WIT
H TWO".G.... " SPACES BETWEEN LABELS.".
..... " THESE VARIABLES MAY BE CHANGED
AT "...... " PROGRAM LINES 16000 TO 170
00.".E....:. " IF YOU ENTERED A LABEL W
ITH ".Q.... " MORE THAN 17 CHARACTERS,
YOU MAY "...... " RETURN TO RE-ENTER TH
E LABEL."...`..:..I.J.. " DO YOU WANT
TO RETURN TO THE"...O.. " MAIN MENU? (
CR='NO')"...X.. A6$:. A6$."" . 2520.....
. A6$."Y" . 240.+.... A6$.G(13) . ..O...
. A6$.."Y" . A6$.. G(13) . 2520.U. ...Q.
... ::::LABEL BORDER::::.W..........4,4
,1:.4:. G(18):. TURN OFF COMPRESSED PRI
NT.H....4: 4:. TURN OFF PRINTER.....BR$
."*":. SET DEFAULT VALUE FOR LABEL BORDE
R.0...V1$."001":. SETS INITIAL DISPLAY
VALUE FOR VOLUME.C...V2$." VOL. ":. SET
DEFAULT VALUE FOR TOP LINE.....A4$."6":
V$."Y":A$."":B$."":C$."".L...Z$." COM 6
4 ":. SETS INITIAL DISPLAY VALUE FOR B
OTTOM BORDER...... 4705:. DISPLAY CURREN
T LABEL.!....:.:. " WHAT CHARACTER DO
YOU WANT TO USE".P.... " FOR THE BOR
DER? [ ] DEFAULT = *".].M.. "";BR$.T.
R.. C(BR$)..2 . 4010...W.. G(147)......:
.:." WOULD YOU LIKE A VOLUME NUMBER IN"
...... " THE TOP LINE OF THE BORDER
?":.:....... " [ Y ] - - - YES
":..'.... " [ N ] - - - NO":..
R.... " [ ] ..... YOUR CHOIC
E".J.... V$:. V$."" . 4091.W.... G(147).
..... V$."N" . 4191...... V$."Y" . . G(1
47):.:..Q.... " ENTER YOUR VOLUME NUMB
ER (###)"...... "(MUST BE 3 CHARACTERS L
ONG) [ ]";:. 4140...".. 4060...,.. ""
;V1$.3.1.. C(V1$)..3 . 4060.N.6.. G(147)
:.:.:. " ENTER REPLACEMENT FOR WORD '
VOL.'"...7.. " IF DESIRED. ( 4 CHARAC
TERS MAXIMUM)".C.8.. .8) "DEFAULT IS 'VO
L.': [ ]"...;..:.:. "";V2$:. V2$."" .
V2$."VOL."...=.. C(V2$) . 4 . V2$. " " .
V2$. " ".=.?.. C(V2$) . 3 . V2$ . " " .
" " .V2$. " ".^.@.. "4160":. C(V2$) . 3
. 4060.I.^..:.:.:.V._.. G(147)...`.. "
WHAT WOULD YOU LIKE IMPRINTED".L.B..
" AT THE BOTTOM OF THE BORDER?"...H
..:.:. " [ 1 ] - - PET 2001":...
.R.. " [ 2 ] - - CBM 8032 ":..D.
|.. " [ 3 ] - - CBM 4032 ":..K..
.. " [ 4 ] - - CBM 8096 ":......
. " [ 5 ] - - VIC 20":....... "
[ 6 ] - - COM 64":....... "
[ 0 ] - - SOLID BORDER ":.:... ... "
[ ] ..... YOUR CHOICE";:..& .
.. A4$:. A4$."" . 4262.G ... A4$ ."0" .
A4$. "8" . 4260.H ... A4$."1" . Z$. " PE
T 2001 ".. ... A4$."2" . Z$. " CBM 8032
".. B.. A4$."3" . Z$. " CBM 4032 ".K L..
A4$."4" . Z$. " CBM 8096 ".. V.. A4$."5
" . Z$. " VIC 20 "..!... A4$."6" . Z$.
" COM 64 "..!... A4$."0" . Z$. "*****
*****".9!... 4330.`!..L.1:. 4705:. DISPL
AY CURRENT LABEL..!... G(147):. 12030:.
GOTO 80 CPL SETUP..!\....!].. :::::DISK
LABEL FORMAT:::::..!^...D!A.. G(147).."F
.H.4:. SET VALUE FOR HORIZONTAL TAB DURI
NG SCREEN DISPLAY.F"P.. V$."N" . V1$.BR$
.BR$.BR$:. FILL TOP BORDER WITH REQUIRED
CHAR..S"S.. J$." ".I"U.. V$."N" . J$.BR
$.."Z.. V$."N" . V2$.BR$.BR$.BR$.BR$.BR$
.BR$.."... .H.D):. BR.1 . B:. BR$;:. BR.
."... V2$;:. V1$;:. J$;:. BR.1 . B:. BR$
;:. BR.."... G(10)..#..L.L.1:. L.2 . L$.
A$..#... L.3 . L$.B$..#... L.4 . L$.C$.>
#... .H.D)BR$;.T#..HT..((C.C(L$)).2).`#.
.HA.HT.1.R#..T.HT.C(L$).HA..#A.. T.C . H
A.HT..#C.. .HT)L$.HA)BR$ G(10)..#H.. L.4
. 4770..#J.. A4$."0" . Z$.BR$.BR$.BR$.B
R$.BR$.BR$.BR$.BR$.BR$.BR$..$T.. .H.D);:
. BR.1. B:. BR$;:. BR.;$... Z$;:. BR.1.
B:. BR$;:. BR:. G(10) G(10).[$..L.1:. RE
SET LINE COUNT FLAG.A$....G$P....$U.. :
::::INPUT LINES:::::..$Z....$... G(147).
.$... I.1 . 4:. G(17):. I.I$... " INPUT
LINE #1 "..$... G(19):. I.1 . 4:. G(17):
.I:. .S1.1)"]"..%...:. .5):. "";A$.,%...
G(19):. I.1 . 4:. G(17):. I.D%... " INP
UT LINE #2 ".Q%J.. G(19):. I.1 . 4:. G(1
7):.I:. .S1.1)"]"..%O.. G(19):. I.1 . 6:
. G(17):. I..%T.. .5):. "";B$.G%... G(19
):. I.1 . 4:. G(17):. I..%... " INPUT LI
NE #3 "..&... G(19):. I.1 . 4:. G(17):.I
:. .S1.1)"]"..&... G(19):. I.1 . 7:. G(1
7):. I.@&... .5):. "";C$.B&... G(19):. I
.1 . 4:. G(17):. I.Z&... " INPUT LINE #4
"..&... G(19):. I.1 . 4:. G(17):.I:. .S
1.1)"]".I&... G(19):. I.1 . 8:. G(17):.
I..&$.. .5):. "";E$..&... G(19):. I.1 .
4:. G(17):. I..'8.. " INPUT LINE #5 ".B'
B.. G(19):. I.1 . 4:. G(17):.I:. .S1.1)"
]".D'G.. G(19):. I.1 . 9:. G(17):. I.V'L
.. .5):. "";F$.|'V....'.....'... :::RES
ET LINE PRINT VALUES::..'.....'..A$.""..
'D.B$."".J'N.C$."".T'X.E$.""..'..F$.""..
'.....'X....(].. :::::HOW MANY?:::::..(
B...1(L..:.:. " HOW MANY LABELS "
;.9(... X.A(... X.0 . . 240:. RETURN TO
MAIN MENU.G(....M(@....(E.. :::::STANDA
RD PRINT:::::..(J....(T.. L..1 . . 8040.
.(U.. L=1 INDICATES THAT DISK LABELS ARE
TO BE PRINTED..)^.. I.1 . X:. 4720:. I:
. PRINT DISK LABELS..)C....)H.. I.1 . X.
K)R.. .H) A$ G(10):. CHR$(10) IS LINE F
EED.^)|.. .H) B$ G(10).Q)... .H) C$ G(10
)..)... .H) E$ G(10)..)... .H) F$ G(10).
.)... G(10)..)... I..).....)(#..T)-#. :
::::DOUBLE WIDE:::::.Z)2#...*7#. CHR$(1
4) REQUIRED ON EACH LINE TO TURN ON DOUB
LE WIDE PRINT.+*<#. I.1 . X.8*F#. G(14);
.K*P#. .H) A$ G(10).X*Z#. G(14);.K*D#. .
H) B$ G(10).X*N#. G(14);..*X#. .H) C$ G(
10)..*.#. G(14);..*.#. .H) E$ G(10)..*.#
. G(14);.K* #. .H) F$ G(10).W*.#. G(10).
.*.#. I..*.#.4: 4..*H#...*.'...+.'. ::::
SET UP EMPHASIZE::::..+.'...+$'. E.0 . .
10050.B+.'. E.1 . . 10090.H+8'..D+B'.4,
4,1:.4:. PRINTER ON.S+G'. G(27)"E".}+L'
.4: 4..+Q'. CHR$(27)"E" TURNS ON EMPHASI
ZED PRINT..+`'E.1:..R+J'.4,4,1:.4:. G(27
)"F":.4: 4..+K'. CHR$(27)"F" TURNS OFF E
MPHASIZED PRINT..,.'E.0:...,.*..4,.*. :S
CREEN PRINT OF LABEL VALUES:.:,.+..I,.+.
G(147)G(17)G(17):. CHR$(147) IS CLR/HOM
E.U,.+. .6)A$.., +. .6)B$..,*+. .6)C$..,
4+. .6)E$..,>+. .6)F$..,H+...,....Q,...
::::: 80 CPL SETUP :::::.W,.....,... 20
00:. INSTRUCTIONS..-./. 6020:. GET INP
UT.3-./. L.1 . . 4705:. DISPLAY DISK LA
BEL.A-./. L..1 . . 11020:. DISPLAY REGUL
AR LABELS.Y-./. 7020:. HOW MANY?..-./.4
,4,1:.4..- /. PRINTER ON..-&/. 8020:.
PRINT LABELS..-//. G(Q):. Q MAY TURN CO
MPRESSED PRINT ON OR OFF..-0/.4: 4...1/.
PRINTER OFF.1.5/. G(147):. L.1 . . 470
5:. L.1 . . 12090.=.8/. 11030.L.:/.:.:.
" MORE OF THE SAME LABEL ";:. X$...>
/. H(X$,1)."Y" . . G(147):. 12047.Y.@/.
PERFORM DISPLAY LABELS ON SCREEN--CHR$(
147) IS CURSOR CLEAR/HOME...D/. H(X$,1).
"N" . . 12120../N/. 12085.-/X/Q.18:L.0:.
6300:. 240:. GOTO MAIN MENU.3/H2..T/M2
. ::::: 132 CPL SETUP :::::.Z/R2..H/.2.
4,4,1:.4.T/.2. G(20).~/.2.4: 4../.2. CH
R$(20) TURNS ON COMPRESSED PRINT.H/.2. 1
2030:. GOTO PRINT SETUP.N/.6.../.6. ::
::: 40 CPL SETUP :::::../.6...0N6. 2020:
. INSTRUCTIONS.&0X6. 6020:. GET INPUT.>
0.6. 7020:. HOW MANY?.L0.6.4,4,1:.4.F0.
6. 9020:. PRINT LARGE.{0.7. G(147):. 11
020..0.7.:. " MORE OF THE SAME LABEL
";:. X$.U0.7. H(X$,1)."Y" . . G(147):.
11020:. 14050..0.7. DISPLAY LABEL ON SC
REEN..1.7.4,4,1:.4..1.7. G(18)..1(7.4: 4
.;1X7. 6300:. 240:. GOTO MAIN MENU.A1.:
..A1.:. ::::: 66 CPL SETUP :::::.G1.:..
U1.:.4,4,1:.4..1.:. G(20);:..1.:. CHR$(
20) TURNS ON COMPRESSED PRINT..1.:.4: 4.
W1.:. 14030:. GOTO PRINT SETUP..1.>...2
.>. :::::TRIPLE WIDE LABEL :::::..2.>..
$2.>. 11020:. DISPLAY LABEL.V2.>.:.:. .
5)"SPECIFY NUMBER OF ROWS OF 3 LABELS".Y
2.>. 7020:. HOW MANY LABEL ROWS?..2.>.
16500..2.>...2.>. ::: CENTER JUSTIFIED
:::..2.>...2.>.4,4:.4.F2.>R.17.T2P>. I.1
. X..2S>U.1..2.>U.U.1:. U.2 . Y$.A$..3.
>. U.3 . Y$.B$..3.>. U.4 . Y$.C$.*3.>. U
.5 . Y$.E$.<3.>. U.6 . Y$.F$.H3.>Q.C(Y$)
.Y3.?P..((R.Q).2).R3.?. P=SPACES VARIAB
LE.}3.?PA.P.1..3.?PT.P.Q.PA..3.?. PT.R .
PA.P.P3.?BT.3:. BT=SPACES BETWEEN TRIP
LE COLUMN LABELS..3 ?. .H.P) Y$;.PA.BT.P
);Y$;.PA.BT.P);Y$..4%?. U.6 . 16100.+4*?
U.1:. RESET LINE COUNT FLAG.14/?..744?..
A4.?.4: 4.G4.?. G(147):. 11020:. DISPLA
Y LABEL..4.?.:.:. " MORE OF THE SAME
LABEL ";:. X$..4.@. H(X$,1)."Y" . . 160
20..4.@. G(18) G(27)"@":. 6300:. 240:.
GOTO MAIN MENU..4T@. G(147):.:.:..%5~@.
" DO YOU WANT THE LABELS:":.:..L5
.@. " C - CENTER JUSTIFIED":..Q5.
@. " L - LEFT JUSTIFIED":...5.@.
" M - RETURN TO MAIN MENU"..5.@.
A7$:. A7$."" . 16550.J5.@. A7$."C" . 160
50..5.@. A7$."L" . 16700..6D@. A7$.."C"
. A7$.."L" . . 240..6<A..+6FA. :::: LEF
T JUSTIFICATION :::.16PA..=6ZA.4,4:.4.{6
DAR.17:. I.1 . X:U.1:. R IS THE LINE LI
MITER FOR ONE LABEL..6NAU.U.1:. U.2 . Y$
.A$..6XA. U.3 . Y$.B$..6.A. U.4 . Y$.C$.
I6.A. U.5 . Y$.E$..6.A. U.6 . Y$.F$..7 A
Q.C(Y$):BT.3:. BT = SPACES BETWEEN THE
LABELS..7.AP..(R.Q).47.A. P=SPACES VARI
ABLE.U7.A. .H) Y$;.P.BT);Y$;.P.BT);Y$.G7
HA. U.6 . 16750..7RAU.1:. RESET LINE CO
UNT FLAG..7.A...7.A.. 7.A. 16360..7HB..D
7MB. ::::: YOUR LABEL :::::.J7RB...7|BA
$."Y O U R N A M E"..7.BB$."A D D R E
S S "..8.BC$."CITY STATE ZIP".!8.BE$."
".?8.BF$."ASSIGN AT LINE 17020".E8.B..K8
PF..K8UF. ::::: 10 MOST USED :::::.Q8XF
...8ZF. I.1 . 2:. G(17):. I:. .3)..8_F.
" . 10 MOST USED LABELS .":..Y8DF."
SELECT FROM:"..8NF.:...9XF.
" [ 1 ] - - - COMPUTE PUBLICATIONS".9
9.F. " [ 2 ] - - - LABEL AT LINE18370
".D9.F. " [ 3 ] - - - LABEL AT LINE18
440"..9.F. " [ 4 ] - - - LABEL AT LIN
E18510"..9 F. " [ 5 ] - - - LABEL AT
LINE18580"..9.F. " [ 6 ] - - - LABEL
AT LINE18650"..:.F. " [ 7 ] - - - LAB
EL AT LINE18720".;:.F. " [ 8 ] - - -
LABEL AT LINE18790".F:HF. " [ 9 ] - -
- LABEL AT LINE18860"..:RF. " [ 0 ]
- - - LABEL AT LINE18930"..:.F. " [ R
] - - - <RETURN TO MAIN MENU>"..:.F.:.:
. " [ ] ..... YOUR CHOICE"..;.F. A3
$:. A3$."" . 18165.*;.F. A3$."1" . . 183
00:. G(147):. 1020.X;.F. PERFORM LABEL
PICKUP - GOTO PRINT MENU..;.G. A3$."2" .
. 18370:. G(147):. 1020..;.G. A3$."3" .
. 18440:. G(147):. 1020.P;.G. A3$."4" .
. 18510:. G(147):. 1020..;"G. A3$."5" .
. 18580:. G(147):. 1020. <,G. A3$."6" .
. 18650:. G(147):. 1020.H<6G. A3$."7" .
. 18720:. G(147):. 1020.P<@G. A3$."8" .
. 18790:. G(147):. 1020..<JG. A3$."9" .
. 18860:. G(147):. 1020..<TG. A3$."0" .
. 18930:. G(147):. 1020..<^G. A3$."R" .
. 240:. GOTO MAIN MENU..=RG. ::::: LA
BEL #1 :::::.(=|GA$."COMPUTE PUBLICATION
S, INC.".@=.GB$."P. O. BOX 5406"._=.GC$.
"GREENSBORO, NC 27403".O=.GE$."U.S.A.".
Y=.GF$."".=.G...=.G. ::::: LABEL #2 ::
:::..=BGA$."UNASSIGNED LINE 18370".D=LGB
$."".N=VGC$."".X=.GE$.""..=.GF$.""..=.G.
..>.G. ::::: LABEL #3 :::::.#>.HA$."UNA
SSIGNED LINE 18440".->.HB$."".7>.HC$."".
A>&HE$."".K>0HF$."".Q>:H..M>DH. ::::: L
ABEL #4 :::::..>NHA$."UNASSIGNED LINE 18
510"..>XHB$."". >BHC$.""..>LHE$.""..>VHF
$.""..>.H..V>.H. ::::: LABEL #5 :::::..
>.HA$."UNASSIGNED LINE 18510"..>.HB$."".
.?.HC$.""..?.HE$.""..?.HF$."".#?FH..??PH
. ::::: LABEL #6 :::::.^?ZHA$."UNASSIGN
ED LINE 18650".H?.HB$."".R?.HC$."".|?.HE
$.""..?.IF$.""..?.I...?.I. ::::: LABEL
#7 :::::.G? IA$."UNASSIGNED LINE 18720".
Q?*IB$.""..?4IC$.""..?>IE$.""..?HIF$."".
.?RI...@\I. ::::: LABEL #8 :::::.0@FIA$
."UNASSIGNED LINE 18790".:@PIB$."".D@ZIC
$."".N@.IE$."".X@.IF$."".^@.I..Z@.I. ::
::: LABEL #9 :::::..@.IA$."UNASSIGNED LI
NE 18860"..@.IB$.""..@.IC$.""..@JIE$."".
A@TIF$."".G@.I...@.I. ::::: LABEL #0 ::
:::..A.IA$."UNASSIGNED LINE 18860"..A.IB
$.""..A.JC$."". A.JE$."".*A.JF$."".0A$J.
.6A.A..MA.A. ::::: END :::::.SA.A..`A.A
. G(147)..AFA. G(147):. I.1 . 4:. G(17):
. I..APA. " *******************
*".KAZA. .10)"* *"..A.A
. " * GOOD BYE *"..B.A.
.10)"* *".:B.A. "
********************".OB.B. I.1 . 1
000:. I.DB.B. I.1 . 25:.:. I.JB.B..PB.Y.
..B"Y. ::::: SUBROUTINE LIST :::::..B,Y
...B6Y. 100 SETUP/MAIN MENU.LB@Y. 100
0 PRINT MENU..BJY. 2000 INSTRUCTIONS..B
TY. 4000 LABEL BORDER.%C^Y. 5000 LINE
LIMITER & INPUT LINES.BCRY. 7000 HOW MA
NY LABELS?.]C|Y. 8000 STANDARD PRINT.UC
.Y. 9000 DOUBLE WIDE..C.Y. 10000 SETUP
EMPHASIZED..C.Y. 11000 LABEL FOR SCREEN.
HC.Y. 12000 80 CPL SETUP..C.Y. 13000 132
CPL SETUP..C.Y. 14000 40 CPL SETUP..DBY
. 15000 66 CPL SETUP.,DLY. 16000 TRIPLE
WIDE.CDVY. 17000 YOUR LABEL.\D.Y. 18000
10 MOST USED.LD.Y. 25000 END..D.Y. 31000
SUBROUTINE LIST...
> CLICK IMAGE PREVIEW FOR FULL MODAL