LABEL MAKER.C
FILE INFORMATION
FILENAME(S): LABEL MAKER.C
FILE TYPE(S): PRG
FILE SIZE: 15.7K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
cde0ecf61c31ab1fa4ba86e76d7bbedc07317d37977720a2bec0b32128dab9c8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | LABEL MAKER.C | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 1 | DOWNLOAD FILE |
| U TILITIE | LABEL MAKER.C | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 0A 00 8F 20 2A 2A 2A 4C 41 42 45 4C |....... ***LABEL|
00000010: 20 4D 41 4B 45 52 2A 2A 2A 00 61 08 14 00 8F 20 | MAKER***.a.... |
00000020: 2F 2F 2F 4F 52 49 47 49 4E 41 4C 20 50 52 4F 47 |///ORIGINAL PROG|
00000030: 52 41 4D 20 57 52 49 54 54 45 4E 20 42 59 20 53 |RAM WRITTEN BY S|
00000040: 2E 50 2E 54 55 4C 4B 20 4E 42 41 47 56 2D 4D 41 |.P.TULK NBAGV-MA|
00000050: 44 49 53 4F 4E 2C 20 4F 48 49 4F 2D 30 33 2F 38 |DISON, OHIO-03/8|
00000060: 31 00 96 08 1E 00 8F 20 2F 2F 2F 52 45 56 49 53 |1...... ///REVIS|
00000070: 45 44 20 42 59 20 53 2E 50 2E 20 54 55 4C 4B 20 |ED BY S.P. TULK |
00000080: 4E 42 41 47 55 20 49 4E 20 4A 55 4E 45 20 31 39 |NBAGU IN JUNE 19|
00000090: 38 31 20 2F 2F 2F 00 9C 08 28 00 8F 00 CE 08 32 |81 ///...(.....2|
000000A0: 00 8F 20 3A 3A 3A 52 45 56 49 53 45 44 20 42 59 |.. :::REVISED BY|
000000B0: 20 4D 49 43 48 41 45 4C 20 4D 4F 4F 52 45 20 49 | MICHAEL MOORE I|
000000C0: 4E 20 4F 43 54 2E 20 31 39 38 32 3A 3A 3A 00 10 |N OCT. 1982:::..|
000000D0: 09 3C 00 8F 20 3A 3A 3A 43 4F 4E 54 52 49 42 55 |.<.. :::CONTRIBU|
000000E0: 54 45 44 20 42 59 20 4D 49 43 48 41 45 4C 20 4D |TED BY MICHAEL M|
000000F0: 4F 4F 52 45 20 54 4F 20 41 50 50 4C 45 20 43 4F |OORE TO APPLE CO|
00000100: 52 50 53 20 4F 46 20 44 41 4C 4C 41 53 3A 3A 3A |RPS OF DALLAS:::|
00000110: 00 16 09 46 00 8F 00 62 09 50 00 8F 20 2D 2D 2D |...F...b.P.. ---|
00000120: 41 44 41 50 54 45 44 20 46 4F 52 20 43 4F 4D 4D |ADAPTED FOR COMM|
00000130: 4F 44 4F 52 45 20 36 34 20 42 59 20 50 48 49 4C |ODORE 64 BY PHIL|
00000140: 20 44 45 47 45 4C 49 41 2C 20 44 45 43 41 54 55 | DEGELIA, DECATU|
00000150: 52 2C 20 54 45 58 41 53 2C 20 30 39 2F 38 33 2D |R, TEXAS, 09/83-|
00000160: 2D 2D 00 8B 09 78 00 99 20 C7 28 31 34 37 29 3A |--...x.. .(147):|
00000170: 81 20 49 B2 31 20 A4 20 35 3A 99 20 C7 28 31 37 |. I.1 . 5:. .(17|
00000180: 29 3A 82 20 49 3A 99 20 A6 37 29 00 BC 09 7D 00 |):. I:. .7)...}.|
00000190: 99 20 C7 28 31 38 29 20 22 20 50 52 49 4E 54 45 |. .(18) " PRINTE|
000001A0: 52 20 4D 55 53 54 20 42 45 20 54 55 52 4E 45 44 |R MUST BE TURNED|
000001B0: 20 4F 4E 20 22 20 C7 28 31 34 36 29 00 D1 09 82 | ON " .(146)....|
000001C0: 00 81 20 49 B2 31 20 A4 20 31 35 30 30 3A 82 20 |.. I.1 . 1500:. |
000001D0: 49 00 D7 09 8C 00 8F 00 FD 09 91 00 8F 20 3A 3A |I............ ::|
000001E0: 3A 3A 3A 3A 3A 4C 41 42 45 4C 20 49 4E 50 55 54 |:::::LABEL INPUT|
000001F0: 20 4D 45 4E 55 3A 3A 3A 3A 3A 3A 3A 3A 00 03 0A | MENU::::::::...|
00000200: 94 00 8F 00 2D 0A 96 00 99 20 C7 28 31 34 37 29 |....-.... .(147)|
00000210: 3A 99 3A 8F 20 20 43 48 52 24 28 31 34 37 29 20 |:.:. CHR$(147) |
00000220: 49 53 20 43 4C 45 41 52 2F 48 4F 4D 45 00 4A 0A |IS CLEAR/HOME.J.|
00000230: AA 00 81 20 49 B2 31 20 A4 20 34 30 3A 99 20 22 |... I.1 . 40:. "|
00000240: 2A 22 3B 3A 82 20 49 3A 99 3B 00 5C 0A B4 00 99 |*";:. I:.;.\....|
00000250: 20 22 2A 22 A6 33 38 29 22 2A 22 3B 00 8E 0A BE | "*".38)"*";....|
00000260: 00 99 20 22 2A 20 20 20 20 20 2A 2A 2A 20 20 20 |.. "* *** |
00000270: 20 20 4C 41 42 45 4C 20 4D 41 4B 45 52 20 20 20 | LABEL MAKER |
00000280: 20 2A 2A 2A 20 20 20 20 20 20 20 2A 22 3B 00 A2 | *** *";..|
00000290: 0A C8 00 99 20 22 2A 22 20 A6 33 38 29 20 22 2A |.... "*" .38) "*|
000002A0: 22 3B 00 BC 0A D2 00 81 20 49 B2 31 20 A4 20 34 |";...... I.1 . 4|
000002B0: 30 3A 99 20 22 2A 22 3B 3A 82 20 49 00 F1 0A D4 |0:. "*";:. I....|
000002C0: 00 99 20 C7 28 31 37 29 20 A6 36 29 20 C7 28 31 |.. .(17) .6) .(1|
000002D0: 37 29 20 22 4F 52 49 47 49 4E 41 4C 20 50 52 4F |7) "ORIGINAL PRO|
000002E0: 47 52 41 4D 20 57 52 49 54 54 45 4E 20 42 59 3A |GRAM WRITTEN BY:|
000002F0: 22 00 0D 0B D5 00 99 20 C7 28 31 37 29 A6 31 33 |"...... .(17).13|
00000300: 29 22 53 2E 20 50 2E 20 54 55 4C 4B 22 00 3D 0B |)"S. P. TULK".=.|
00000310: D6 00 99 20 C7 28 31 37 29 C7 28 31 37 29 A6 37 |... .(17).(17).7|
00000320: 29 20 22 4D 4F 44 49 46 49 45 44 20 42 59 20 4D |) "MODIFIED BY M|
00000330: 49 43 48 41 45 4C 20 4D 4F 4F 52 45 22 00 73 0B |ICHAEL MOORE".s.|
00000340: D7 00 99 20 C7 28 31 37 29 C7 28 31 37 29 A6 34 |... .(17).(17).4|
00000350: 29 22 41 44 41 50 54 45 44 20 46 4F 52 20 43 2D |)"ADAPTED FOR C-|
00000360: 36 34 20 42 59 20 50 48 49 4C 20 44 45 47 45 4C |64 BY PHIL DEGEL|
00000370: 49 41 22 00 A0 0B DC 00 99 3A 99 20 22 20 20 20 |IA"......:. " |
00000380: 20 20 20 20 50 52 49 4E 54 45 52 20 43 4F 44 45 | PRINTER CODE|
00000390: 53 20 44 45 53 49 47 4E 45 44 20 46 4F 52 20 22 |S DESIGNED FOR "|
000003A0: 00 BC 0B E1 00 99 20 A6 31 33 29 20 22 47 45 4D |...... .13) "GEM|
000003B0: 49 4E 49 20 31 30 58 2F 31 35 20 22 00 C4 0B E6 |INI 10X/15 "....|
000003C0: 00 99 3A 99 00 03 0C E9 00 99 20 22 20 20 20 2D |..:....... " -|
000003D0: 2D 50 52 45 53 53 20 22 20 C7 28 31 38 29 20 22 |-PRESS " .(18) "|
000003E0: 53 48 49 46 54 22 20 C7 28 31 34 36 29 20 22 20 |SHIFT" .(146) " |
000003F0: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |KEY TO CONTINUE.|
00000400: 2D 2D 22 00 0F 0C EB 00 92 20 36 35 33 2C 31 00 |--"...... 653,1.|
00000410: 1E 0C F0 00 8D 20 36 33 30 30 3A 45 B2 31 00 51 |..... 6300:E.1.Q|
00000420: 0C F5 00 8F 20 20 20 45 20 49 53 20 45 4D 50 48 |.... E IS EMPH|
00000430: 41 53 49 5A 45 20 4F 4E 2F 4F 46 46 20 46 4C 41 |ASIZE ON/OFF FLA|
00000440: 47 3D 31 20 49 4E 44 49 43 41 54 45 53 20 4F 46 |G=1 INDICATES OF|
00000450: 46 00 6D 0C FA 00 99 20 C7 28 31 34 37 29 C7 28 |F.m.... .(147).(|
00000460: 31 37 29 C7 28 31 37 29 C7 28 31 37 29 00 93 0C |17).(17).(17)...|
00000470: FF 00 99 20 A6 31 33 29 20 C7 28 31 38 29 20 22 |... .13) .(18) "|
00000480: 20 4D 41 49 4E 20 4D 45 4E 55 20 22 20 C7 28 31 | MAIN MENU " .(1|
00000490: 34 36 29 00 B0 0C 04 01 99 20 C7 28 31 37 29 20 |46)...... .(17) |
000004A0: A6 31 35 29 20 22 53 45 4C 45 43 54 49 4F 4E 22 |.15) "SELECTION"|
000004B0: 00 D7 0C 4A 01 99 3A 99 3A 99 20 22 20 20 20 20 |...J..:.:. " |
000004C0: 20 5B 20 31 20 5D 20 2D 20 2D 20 2D 20 4E 45 57 | [ 1 ] - - - NEW|
000004D0: 20 4C 41 42 45 4C 22 00 FD 0C 54 01 99 3A 99 20 | LABEL"...T..:. |
000004E0: 22 20 20 20 20 20 5B 20 32 20 5D 20 2D 20 2D 20 |" [ 2 ] - - |
000004F0: 2D 20 59 4F 55 52 20 4C 41 42 45 4C 22 00 2C 0D |- YOUR LABEL".,.|
00000500: 5E 01 99 3A 99 20 22 20 20 20 20 20 5B 20 33 20 |^..:. " [ 3 |
00000510: 5D 20 2D 20 2D 20 2D 20 31 30 20 4D 4F 53 54 20 |] - - - 10 MOST |
00000520: 55 53 45 44 20 4C 41 42 45 4C 53 22 00 5C 0D 68 |USED LABELS".\.h|
00000530: 01 99 3A 99 20 22 20 20 20 20 20 5B 20 34 20 5D |..:. " [ 4 ]|
00000540: 20 2D 20 2D 20 2D 20 53 48 4F 52 54 45 4E 45 44 | - - - SHORTENED|
00000550: 20 44 49 53 4B 20 4C 41 42 45 4C 22 00 8C 0D 72 | DISK LABEL"...r|
00000560: 01 99 3A 99 20 22 20 20 20 20 20 5B 20 35 20 5D |..:. " [ 5 ]|
00000570: 20 2D 20 2D 20 2D 20 46 55 4C 4C 20 53 49 5A 45 | - - - FULL SIZE|
00000580: 20 44 49 53 4B 20 4C 41 42 45 4C 22 00 AF 0D 7C | DISK LABEL"...||
00000590: 01 99 3A 99 20 22 20 20 20 20 20 5B 20 51 20 5D |..:. " [ Q ]|
000005A0: 20 2D 20 2D 20 2D 20 3C 20 45 4E 44 20 3E 22 00 | - - - < END >".|
000005B0: B9 0D 81 01 99 3A 99 3A 99 00 DF 0D 86 01 99 20 |.....:.:....... |
000005C0: 22 20 20 20 20 20 5B 20 20 20 5D 20 2E 2E 2E 2E |" [ ] ....|
000005D0: 2E 2E 2E 59 4F 55 52 20 43 48 4F 49 43 45 22 00 |...YOUR CHOICE".|
000005E0: F8 0D 90 01 A1 20 41 31 24 3A 8B 20 41 31 24 B2 |..... A1$:. A1$.|
000005F0: 22 22 20 A7 20 34 30 30 00 2D 0E C2 01 8B 20 41 |"" . 400.-.... A|
00000600: 31 24 B2 22 31 22 20 A7 20 99 20 C7 28 31 34 37 |1$."1" . . .(147|
00000610: 29 3A 53 31 B2 33 30 3A 8D 20 36 30 32 30 3A 8D |):S1.30:. 6020:.|
00000620: 20 31 31 30 30 35 3A 89 20 31 30 32 35 00 73 0E | 11005:. 1025.s.|
00000630: C7 01 8F 20 47 45 54 20 4C 41 42 45 4C 20 4C 49 |... GET LABEL LI|
00000640: 4E 45 53 2D 44 49 53 50 4C 41 59 20 4C 41 42 45 |NES-DISPLAY LABE|
00000650: 4C 20 4F 4E 20 53 43 52 45 45 4E 2D 47 4F 54 4F |L ON SCREEN-GOTO|
00000660: 20 50 52 49 4E 54 20 4D 45 4E 55 20 52 4F 55 54 | PRINT MENU ROUT|
00000670: 49 4E 45 00 A4 0E CC 01 8B 20 41 31 24 B2 22 32 |INE...... A1$."2|
00000680: 22 20 A7 20 99 20 C7 28 31 34 37 29 3A 8D 20 31 |" . . .(147):. 1|
00000690: 37 30 31 30 3A 99 20 C7 28 31 34 37 29 3A 89 20 |7010:. .(147):. |
000006A0: 31 30 32 30 00 CC 0E CD 01 8F 20 47 45 54 20 4C |1020...... GET L|
000006B0: 41 42 45 4C 2D 47 4F 54 4F 20 50 52 49 4E 54 20 |ABEL-GOTO PRINT |
000006C0: 4D 45 4E 55 20 52 4F 55 54 49 4E 45 00 ED 0E D6 |MENU ROUTINE....|
000006D0: 01 8B 20 41 31 24 B2 22 33 22 20 A7 20 99 20 C7 |.. A1$."3" . . .|
000006E0: 28 31 34 37 29 3A 89 20 31 38 30 31 30 00 0F 0F |(147):. 18010...|
000006F0: D7 01 8F 20 47 4F 54 4F 20 4D 4F 53 54 20 55 53 |... GOTO MOST US|
00000700: 45 44 20 4D 45 4E 55 20 52 4F 55 54 49 4E 45 00 |ED MENU ROUTINE.|
00000710: 42 0F E0 01 8B 20 41 31 24 B2 22 34 22 20 A7 20 |B.... A1$."4" . |
00000720: 53 31 B2 32 33 3A 4C B2 31 3A 41 B2 32 37 3A 42 |S1.23:L.1:A.27:B|
00000730: B2 37 3A 43 B2 32 32 3A 44 B2 33 3A 89 20 34 30 |.7:C.22:D.3:. 40|
00000740: 30 38 00 61 0F E1 01 8F 20 47 4F 54 4F 20 4C 41 |08.a.... GOTO LA|
00000750: 42 45 4C 20 50 52 49 4E 54 20 52 4F 55 54 49 4E |BEL PRINT ROUTIN|
00000760: 45 00 95 0F E5 01 8B 20 41 31 24 B2 22 35 22 20 |E...... A1$."5" |
00000770: A7 20 53 31 B2 32 39 3A 4C B2 31 3A 41 B2 33 33 |. S1.29:L.1:A.33|
00000780: 3A 42 B2 31 30 3A 43 B2 32 38 3A 44 B2 30 3A 89 |:B.10:C.28:D.0:.|
00000790: 20 34 30 30 38 00 B4 0F E6 01 8F 20 47 4F 54 4F | 4008...... GOTO|
000007A0: 20 4C 41 42 45 4C 20 50 52 49 4E 54 20 52 4F 55 | LABEL PRINT ROU|
000007B0: 54 49 4E 45 00 CC 0F EA 01 8B 20 41 31 24 B2 22 |TINE...... A1$."|
000007C0: 51 22 20 A7 20 89 20 32 35 30 32 30 00 E3 0F EB |Q" . . 25020....|
000007D0: 01 8F 20 47 4F 54 4F 20 45 4E 44 20 52 4F 55 54 |.. GOTO END ROUT|
000007E0: 49 4E 45 00 E9 0F E8 03 8F 00 04 10 ED 03 8F 20 |INE............ |
000007F0: 3A 3A 3A 3A 50 52 49 4E 54 20 43 48 4F 49 43 45 |::::PRINT CHOICE|
00000800: 3A 3A 3A 3A 00 0A 10 F0 03 8F 00 30 10 FC 03 8D |::::.......0....|
00000810: 20 31 31 30 30 35 3A 8F 20 44 49 53 50 4C 41 59 | 11005:. DISPLAY|
00000820: 20 4C 41 42 45 4C 20 4F 4E 20 53 43 52 45 45 4E | LABEL ON SCREEN|
00000830: 00 4E 10 FE 03 8F 20 43 50 4C 3D 43 48 41 52 41 |.N.... CPL=CHARA|
00000840: 43 54 45 52 53 20 50 45 52 20 4C 49 4E 45 00 77 |CTERS PER LINE.w|
00000850: 10 01 04 99 3A 99 3A 99 20 A6 31 34 29 20 C7 28 |....:.:. .14) .(|
00000860: 31 38 29 22 20 50 52 49 4E 54 20 4D 45 4E 55 20 |18)" PRINT MENU |
00000870: 22 C7 28 31 34 36 29 00 C2 10 04 04 8F 20 20 43 |".(146)...... C|
00000880: 48 52 24 28 31 38 29 20 49 53 20 52 45 56 45 52 |HR$(18) IS REVER|
00000890: 53 45 20 4F 4E 20 2D 2D 20 20 20 20 20 20 20 20 |SE ON -- |
000008A0: 20 20 20 20 20 20 20 43 48 52 24 28 31 34 36 29 | CHR$(146)|
000008B0: 20 49 53 20 52 45 56 45 52 53 45 20 4F 46 46 20 | IS REVERSE OFF |
000008C0: 2D 2D 00 D8 10 06 04 99 20 A6 31 35 29 22 53 45 |--...... .15)"SE|
000008D0: 4C 45 43 54 49 4F 4E 22 00 00 11 10 04 99 20 22 |LECTION"...... "|
000008E0: 11 20 20 20 5B 20 31 20 5D 20 2D 20 2D 20 2D 20 |. [ 1 ] - - - |
000008F0: 53 54 41 4E 44 41 52 44 20 38 30 20 43 50 4C 22 |STANDARD 80 CPL"|
00000900: 00 2A 11 1A 04 99 20 22 20 20 20 5B 20 32 20 5D |.*.... " [ 2 ]|
00000910: 20 2D 20 2D 20 2D 20 43 4F 4D 50 52 45 53 53 45 | - - - COMPRESSE|
00000920: 44 20 31 33 32 20 43 50 4C 22 00 5A 11 24 04 99 |D 132 CPL".Z.$..|
00000930: 20 22 20 20 20 5B 20 33 20 5D 20 2D 20 2D 20 2D | " [ 3 ] - - -|
00000940: 20 54 52 49 50 4C 45 20 43 4F 4C 55 4D 4E 20 4C | TRIPLE COLUMN L|
00000950: 41 42 45 4C 53 2D 53 54 44 22 00 8A 11 29 04 99 |ABELS-STD"...)..|
00000960: 20 22 20 20 20 5B 20 34 20 5D 20 2D 20 2D 20 2D | " [ 4 ] - - -|
00000970: 20 44 4F 55 42 4C 45 20 57 49 44 45 2F 43 4F 4D | DOUBLE WIDE/COM|
00000980: 50 52 20 36 36 20 43 50 4C 22 00 B4 11 2E 04 99 |PR 66 CPL"......|
00000990: 20 22 20 20 20 5B 20 35 20 5D 20 2D 20 2D 20 2D | " [ 5 ] - - -|
000009A0: 20 44 4F 55 42 4C 45 20 57 49 44 45 20 34 30 20 | DOUBLE WIDE 40 |
000009B0: 43 50 4C 22 00 D6 11 33 04 99 20 22 20 20 20 5B |CPL"...3.. " [|
000009C0: 20 36 20 5D 20 2D 20 2D 20 2D 20 45 4D 50 48 41 | 6 ] - - - EMPHA|
000009D0: 53 49 5A 45 44 22 00 01 12 38 04 99 20 22 20 20 |SIZED"...8.. " |
000009E0: 20 5B 20 39 20 5D 20 2D 20 2D 20 2D 20 52 45 54 | [ 9 ] - - - RET|
000009F0: 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |URN TO MAIN MENU|
00000A00: 22 00 26 12 3D 04 8D 20 31 30 30 32 30 3A 8F 20 |".&.=.. 10020:. |
00000A10: 44 49 53 50 4C 41 59 20 45 4D 50 48 41 53 49 5A |DISPLAY EMPHASIZ|
00000A20: 45 20 46 4C 41 47 00 4B 12 42 04 99 3A 99 20 22 |E FLAG.K.B..:. "|
00000A30: 20 20 20 5B 20 20 20 5D 20 2E 2E 2E 2E 2E 20 59 | [ ] ..... Y|
00000A40: 4F 55 52 20 43 48 4F 49 43 45 22 00 51 12 44 04 |OUR CHOICE".Q.D.|
00000A50: 8F 00 9D 12 45 04 8F 20 20 20 2D 2D 2D 2D 20 45 |....E.. ---- E|
00000A60: 4D 50 48 41 53 49 5A 45 44 20 50 52 49 4E 54 20 |MPHASIZED PRINT |
00000A70: 4D 4F 44 45 20 44 4F 45 53 20 4E 4F 54 20 43 4F |MODE DOES NOT CO|
00000A80: 4D 42 49 4E 45 20 57 49 54 48 20 43 4F 4D 50 52 |MBINE WITH COMPR|
00000A90: 45 53 53 45 44 20 4D 4F 44 45 2D 2D 2D 00 A3 12 |ESSED MODE---...|
00000AA0: 46 04 8F 00 A9 12 47 04 8F 00 D6 12 4C 04 99 20 |F.....G.....L.. |
00000AB0: C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 31 31 |.(19):. I.1 . 11|
00000AC0: 3A 99 20 C7 28 31 37 29 3A 82 20 49 3A 99 20 A6 |:. .(17):. I:. .|
00000AD0: 32 29 3A 85 20 59 00 0D 13 51 04 91 20 59 20 89 |2):. Y...Q.. Y .|
00000AE0: 20 31 31 31 30 2C 31 31 32 30 2C 31 31 33 30 2C | 1110,1120,1130,|
00000AF0: 31 31 34 30 2C 31 31 34 37 2C 31 31 34 39 2C 31 |1140,1147,1149,1|
00000B00: 31 35 35 2C 31 31 35 35 2C 31 31 35 35 00 1A 13 |155,1155,1155...|
00000B10: 56 04 99 20 C7 28 31 34 37 29 00 28 13 58 04 9F |V.. .(147).(.X..|
00000B20: 34 2C 34 2C 31 3A 9D 34 00 34 13 5A 04 99 20 C7 |4,4,1:.4.4.Z.. .|
00000B30: 28 31 38 29 00 3E 13 5C 04 98 34 3A A0 34 00 5B |(18).>.\..4:.4.[|
00000B40: 13 5D 04 48 B2 35 3A 51 B2 31 38 3A 8D 20 31 31 |.].H.5:Q.18:. 11|
00000B50: 30 30 35 3A 89 20 31 32 30 35 30 00 92 13 5E 04 |005:. 12050...^.|
00000B60: 8F 20 44 49 53 50 4C 41 59 20 4C 41 42 45 4C 20 |. DISPLAY LABEL |
00000B70: 4F 4E 20 53 43 52 45 45 4E 2D 47 4F 54 4F 20 4C |ON SCREEN-GOTO L|
00000B80: 41 42 45 4C 20 50 52 49 4E 54 20 52 4F 55 54 49 |ABEL PRINT ROUTI|
00000B90: 4E 45 00 B7 13 5F 04 8F 20 20 48 3D 48 4F 52 49 |NE..._.. H=HORI|
00000BA0: 5A 4F 4E 54 41 4C 20 53 50 41 43 49 4E 47 20 56 |ZONTAL SPACING V|
00000BB0: 41 52 49 41 42 4C 45 00 C9 13 60 04 99 20 C7 28 |ARIABLE...`.. .(|
00000BC0: 31 34 37 29 3A 51 B2 32 30 00 D7 13 61 04 9F 34 |147):Q.20...a..4|
00000BD0: 2C 34 2C 31 3A 9D 34 00 E6 13 62 04 99 20 C7 28 |,4,1:.4...b.. .(|
00000BE0: 32 37 29 22 46 22 00 F2 13 63 04 99 20 C7 28 32 |27)"F"...c.. .(2|
00000BF0: 30 29 00 FC 13 65 04 98 34 3A A0 34 00 31 14 66 |0)...e..4:.4.1.f|
00000C00: 04 8F 20 20 51 3D 56 41 52 49 41 42 4C 45 20 54 |.. Q=VARIABLE T|
00000C10: 4F 20 54 55 52 4E 20 4F 4E 20 4F 52 20 4F 46 46 |O TURN ON OR OFF|
00000C20: 20 43 4F 4D 50 52 45 53 53 45 44 20 50 52 49 4E | COMPRESSED PRIN|
00000C30: 54 00 49 14 67 04 48 B2 39 3A 8D 20 31 31 30 30 |T.I.g.H.9:. 1100|
00000C40: 35 3A 89 20 31 32 30 35 30 00 76 14 68 04 8F 20 |5:. 12050.v.h.. |
00000C50: 43 48 52 24 28 32 37 29 22 46 22 20 54 55 52 4E |CHR$(27)"F" TURN|
00000C60: 53 20 4F 46 46 20 45 4D 50 48 41 53 49 5A 45 44 |S OFF EMPHASIZED|
00000C70: 20 50 52 49 4E 54 00 B9 14 69 04 8F 20 43 48 52 | PRINT...i.. CHR|
00000C80: 24 28 32 30 29 20 54 55 52 4E 53 20 4F 4E 20 43 |$(20) TURNS ON C|
00000C90: 4F 4D 50 52 45 53 53 45 44 20 50 52 49 4E 54 20 |OMPRESSED PRINT |
00000CA0: 2D 20 44 49 53 50 4C 41 59 20 4C 41 42 45 4C 20 |- DISPLAY LABEL |
00000CB0: 4F 4E 20 53 43 52 45 45 4E 00 D8 14 6A 04 48 B2 |ON SCREEN...j.H.|
00000CC0: 35 3A 8D 20 32 32 30 30 3A 8D 20 31 31 30 30 35 |5:. 2200:. 11005|
00000CD0: 3A 89 20 31 36 30 31 30 00 13 15 6B 04 8F 20 44 |:. 16010...k.. D|
00000CE0: 49 53 50 4C 41 59 20 4C 41 42 45 4C 20 4F 4E 20 |ISPLAY LABEL ON |
00000CF0: 53 43 52 45 45 4E 2D 47 4F 54 4F 20 54 52 49 50 |SCREEN-GOTO TRIP|
00000D00: 4C 45 20 57 49 44 45 20 4C 41 42 45 4C 20 50 52 |LE WIDE LABEL PR|
00000D10: 49 4E 54 00 3B 15 74 04 99 20 C7 28 31 34 37 29 |INT.;.t.. .(147)|
00000D20: 3A 9F 34 2C 34 2C 31 3A 9D 34 3A 99 20 C7 28 32 |:.4,4,1:.4:. .(2|
00000D30: 37 29 22 46 22 3A 98 34 3A A0 34 00 58 15 75 04 |7)"F":.4:.4.X.u.|
00000D40: 9F 34 2C 34 2C 31 3A 9D 34 3A 99 20 C7 28 32 30 |.4,4,1:.4:. .(20|
00000D50: 29 3B 3A 98 34 3A A0 34 00 99 15 76 04 48 B2 34 |);:.4:.4...v.H.4|
00000D60: 3A 8D 20 31 31 30 30 35 3A 89 20 31 34 30 35 30 |:. 11005:. 14050|
00000D70: 3A 8F 20 43 48 52 24 28 32 37 29 22 46 22 20 54 |:. CHR$(27)"F" T|
00000D80: 55 52 4E 53 20 4F 46 46 20 45 4D 50 48 41 53 49 |URNS OFF EMPHASI|
00000D90: 5A 45 44 20 50 52 49 4E 54 00 C2 15 78 04 8F 20 |ZED PRINT...x.. |
00000DA0: 43 48 52 24 28 32 30 29 20 54 55 52 4E 53 20 4F |CHR$(20) TURNS O|
00000DB0: 4E 20 43 4F 4D 50 52 45 53 53 45 44 20 50 52 49 |N COMPRESSED PRI|
00000DC0: 4E 54 00 FB 15 79 04 8F 20 44 49 53 50 4C 41 59 |NT...y.. DISPLAY|
00000DD0: 20 4C 41 42 45 4C 20 4F 4E 20 53 43 52 45 45 4E | LABEL ON SCREEN|
00000DE0: 20 2D 20 47 4F 54 4F 20 4C 41 42 45 4C 20 50 52 | - GOTO LABEL PR|
00000DF0: 49 4E 54 20 52 4F 55 54 49 4E 45 00 22 16 7B 04 |INT ROUTINE.".{.|
00000E00: 48 B2 33 3A 53 31 B2 31 35 3A 99 20 C7 28 31 34 |H.3:S1.15:. .(14|
00000E10: 37 29 3A 8D 20 31 31 30 30 35 3A 89 20 31 34 30 |7):. 11005:. 140|
00000E20: 35 30 00 41 16 7C 04 8F 20 47 4F 54 4F 20 4C 41 |50.A.|.. GOTO LA|
00000E30: 42 45 4C 20 50 52 49 4E 54 20 52 4F 55 54 49 4E |BEL PRINT ROUTIN|
00000E40: 45 00 4E 16 7D 04 99 20 C7 28 31 34 37 29 00 66 |E.N.}.. .(147).f|
00000E50: 16 7E 04 48 B2 30 3A 8D 20 31 31 30 30 35 3A 99 |.~.H.0:. 11005:.|
00000E60: 20 C7 28 31 37 29 00 AA 16 80 04 99 20 22 20 20 | .(17)...... " |
00000E70: 20 20 22 20 C7 28 31 38 29 20 22 20 20 20 20 20 | " .(18) " |
00000E80: 20 20 20 20 20 45 4D 50 48 41 53 49 5A 45 20 4F | EMPHASIZE O|
00000E90: 4E 20 20 20 20 20 20 20 20 20 20 22 20 C7 28 31 |N " .(1|
00000EA0: 34 36 29 20 22 20 20 20 20 22 00 B5 16 81 04 89 |46) " "......|
00000EB0: 20 31 30 32 35 00 D6 16 83 04 89 20 32 34 30 3A | 1025...... 240:|
00000EC0: 8F 20 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 |. RETURN TO MAI|
00000ED0: 4E 20 4D 45 4E 55 00 DC 16 D0 07 8F 00 F9 16 DA |N MENU..........|
00000EE0: 07 8F 20 3A 3A 3A 3A 3A 49 4E 53 54 52 55 43 54 |.. :::::INSTRUCT|
00000EF0: 49 4F 4E 53 3A 3A 3A 3A 3A 00 FF 16 E4 07 8F 00 |IONS:::::.......|
00000F00: 0C 17 E7 07 99 20 C7 28 31 34 37 29 00 43 17 E9 |..... .(147).C..|
00000F10: 07 99 3A 99 3A 99 20 22 20 20 20 20 20 20 20 20 |..:.:. " |
00000F20: 20 20 20 20 22 20 C7 28 31 38 29 20 22 20 49 4E | " .(18) " IN|
00000F30: 53 54 52 55 43 54 49 4F 4E 53 20 22 20 C7 28 31 |STRUCTIONS " .(1|
00000F40: 34 36 29 00 73 17 EE 07 99 3A 99 3A 99 20 22 20 |46).s....:.:. " |
00000F50: 50 52 49 4E 54 20 57 49 44 54 48 20 49 53 20 53 |PRINT WIDTH IS S|
00000F60: 45 54 20 42 59 20 4C 49 4E 45 20 4C 49 4D 49 54 |ET BY LINE LIMIT|
00000F70: 45 52 22 00 93 17 F8 07 99 20 22 20 46 4F 52 20 |ER"...... " FOR |
00000F80: 33 20 31 2F 32 20 49 4E 43 48 20 4C 41 42 45 4C |3 1/2 INCH LABEL|
00000F90: 53 2E 22 00 C2 17 02 08 99 3A 99 20 22 20 35 20 |S."......:. " 5 |
00000FA0: 4C 49 4E 45 53 20 4E 4F 52 4D 41 4C 20 4F 52 20 |LINES NORMAL OR |
00000FB0: 33 20 4C 49 4E 45 53 20 42 4F 52 44 45 52 45 44 |3 LINES BORDERED|
00000FC0: 2E 22 00 EA 17 16 08 99 3A 99 20 22 20 44 4F 20 |."......:. " DO |
00000FD0: 4E 4F 54 20 55 53 45 20 43 4F 4D 4D 41 53 20 4F |NOT USE COMMAS O|
00000FE0: 52 20 43 4F 4C 4F 4E 53 2E 22 00 16 18 34 08 99 |R COLONS."...4..|
00000FF0: 3A 99 20 22 20 41 20 52 45 54 55 52 4E 20 57 49 |:. " A RETURN WI|
00001000: 54 48 20 4E 4F 20 45 4E 54 52 59 20 57 49 4C 4C |TH NO ENTRY WILL|
00001010: 20 47 49 56 45 22 00 2D 18 3E 08 99 20 22 20 41 | GIVE".-.>.. " A|
00001020: 20 42 4C 41 4E 4B 20 4C 49 4E 45 2E 22 00 35 18 | BLANK LINE.".5.|
00001030: 48 08 99 3A 99 00 74 18 4A 08 99 20 22 20 20 20 |H..:..t.J.. " |
00001040: 2D 2D 50 52 45 53 53 20 22 20 C7 28 31 38 29 20 |--PRESS " .(18) |
00001050: 22 53 48 49 46 54 22 20 C7 28 31 34 36 29 20 22 |"SHIFT" .(146) "|
00001060: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00001070: 2E 2D 2D 22 00 80 18 4C 08 92 20 36 35 33 2C 31 |.--"...L.. 653,1|
00001080: 00 86 18 4E 08 8E 00 8C 18 98 08 8F 00 B0 18 A2 |...N............|
00001090: 08 8F 20 20 3A 3A 54 52 49 50 4C 45 20 43 4F 4C |.. ::TRIPLE COL|
000010A0: 2E 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 3A 3A |. INSTRUCTIONS::|
000010B0: 00 B6 18 AC 08 8F 00 C3 18 B1 08 99 20 C7 28 31 |............ .(1|
000010C0: 34 37 29 00 F4 18 B6 08 99 3A 99 3A 99 20 22 20 |47)......:.:. " |
000010D0: 20 20 20 54 52 49 50 4C 45 20 43 4F 4C 55 4D 4E | TRIPLE COLUMN|
000010E0: 20 4C 41 42 45 4C 20 49 4E 53 54 52 55 43 54 49 | LABEL INSTRUCTI|
000010F0: 4F 4E 53 22 00 25 19 C0 08 99 3A 99 3A 99 20 22 |ONS".%....:.:. "|
00001100: 20 20 54 48 45 20 4C 45 4E 47 54 48 20 4F 46 20 | THE LENGTH OF |
00001110: 54 52 49 50 4C 45 20 43 4F 4C 55 4D 4E 20 4C 41 |TRIPLE COLUMN LA|
00001120: 42 45 4C 53 22 00 53 19 CA 08 99 20 22 20 20 4D |BELS".S.... " M|
00001130: 55 53 54 20 42 45 20 4C 45 53 53 20 54 48 41 4E |UST BE LESS THAN|
00001140: 20 54 48 45 20 4E 4F 52 4D 41 4C 20 57 49 44 54 | THE NORMAL WIDT|
00001150: 48 20 22 00 64 19 CF 08 99 20 22 20 20 4C 41 42 |H ".d.... " LAB|
00001160: 45 4C 2E 22 00 92 19 D4 08 99 20 22 20 20 54 48 |EL."...... " TH|
00001170: 45 20 54 52 49 50 4C 45 20 43 4F 4C 55 4D 4E 20 |E TRIPLE COLUMN |
00001180: 4C 41 42 45 4C 53 20 41 52 45 20 53 45 54 20 54 |LABELS ARE SET T|
00001190: 4F 22 00 C0 19 D9 08 99 20 22 20 20 50 52 49 4E |O"...... " PRIN|
000011A0: 54 20 41 20 31 37 20 43 48 41 52 41 43 54 45 52 |T A 17 CHARACTER|
000011B0: 20 4C 41 42 45 4C 20 57 49 54 48 20 54 57 4F 22 | LABEL WITH TWO"|
000011C0: 00 E1 19 DE 08 99 20 22 20 20 53 50 41 43 45 53 |...... " SPACES|
000011D0: 20 42 45 54 57 45 45 4E 20 4C 41 42 45 4C 53 2E | BETWEEN LABELS.|
000011E0: 22 00 0E 1A E8 08 99 20 22 20 20 54 48 45 53 45 |"...... " THESE|
000011F0: 20 56 41 52 49 41 42 4C 45 53 20 4D 41 59 20 42 | VARIABLES MAY B|
00001200: 45 20 43 48 41 4E 47 45 44 20 41 54 20 22 00 36 |E CHANGED AT ".6|
00001210: 1A F2 08 99 20 22 20 20 50 52 4F 47 52 41 4D 20 |.... " PROGRAM |
00001220: 4C 49 4E 45 53 20 31 36 30 30 30 20 54 4F 20 31 |LINES 16000 TO 1|
00001230: 37 30 30 30 2E 22 00 5F 1A FC 08 99 3A 99 20 22 |7000."._....:. "|
00001240: 20 20 49 46 20 59 4F 55 20 45 4E 54 45 52 45 44 | IF YOU ENTERED|
00001250: 20 41 20 4C 41 42 45 4C 20 57 49 54 48 20 22 00 | A LABEL WITH ".|
00001260: 8B 1A 06 09 99 20 22 20 20 4D 4F 52 45 20 54 48 |..... " MORE TH|
00001270: 41 4E 20 31 37 20 43 48 41 52 41 43 54 45 52 53 |AN 17 CHARACTERS|
00001280: 2C 20 59 4F 55 20 4D 41 59 20 22 00 B3 1A 10 09 |, YOU MAY ".....|
00001290: 99 20 22 20 20 52 45 54 55 52 4E 20 54 4F 20 52 |. " RETURN TO R|
000012A0: 45 2D 45 4E 54 45 52 20 54 48 45 20 4C 41 42 45 |E-ENTER THE LABE|
000012B0: 4C 2E 22 00 BB 1A 60 09 99 3A 99 00 E3 1A 6A 09 |L."...`..:....j.|
000012C0: 99 20 22 20 20 20 44 4F 20 59 4F 55 20 57 41 4E |. " DO YOU WAN|
000012D0: 54 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 54 |T TO RETURN TO T|
000012E0: 48 45 22 00 03 1B 6F 09 99 20 22 20 20 20 4D 41 |HE"...o.. " MA|
000012F0: 49 4E 20 4D 45 4E 55 3F 20 28 43 52 3D 27 4E 4F |IN MENU? (CR='NO|
00001300: 27 29 22 00 1D 1B D8 09 A1 20 41 36 24 3A 8B 20 |')"...... A6$:. |
00001310: 41 36 24 B2 22 22 20 A7 20 32 35 32 30 00 31 1B |A6$."" . 2520.1.|
00001320: E2 09 8B 20 41 36 24 B2 22 59 22 20 A7 20 32 34 |... A6$."Y" . 24|
00001330: 30 00 45 1B EC 09 8B 20 41 36 24 B2 C7 28 31 33 |0.E.... A6$..(13|
00001340: 29 20 A7 20 8E 00 69 1B F6 09 8B 20 41 36 24 B3 |) . ..i.... A6$.|
00001350: B1 22 59 22 20 B0 20 01 36 24 B3 B1 20 C7 28 31 |."Y" . .6$.. .(1|
00001360: 33 29 20 A7 20 32 35 32 30 00 6F 1B A0 0F 8F 00 |3) . 2520.o.....|
00001370: 8B 1B A5 0F 8F 20 20 3A 3A 3A 3A 4C 41 42 45 4C |..... ::::LABEL|
00001380: 20 42 4F 52 44 45 52 3A 3A 3A 3A 00 91 1B A7 0F | BORDER::::.....|
00001390: 8F 00 C4 1B A8 0F 9F 34 2C 34 2C 31 3A 9D 34 3A |.......4,4,1:.4:|
000013A0: 99 20 C7 28 31 38 29 3A 8F 20 20 54 55 52 4E 20 |. .(18):. TURN |
000013B0: 4F 46 46 20 43 4F 4D 50 52 45 53 53 45 44 20 50 |OFF COMPRESSED P|
000013C0: 52 49 4E 54 00 E2 1B A9 0F 98 34 3A A0 34 3A 8F |RINT......4:.4:.|
000013D0: 20 20 54 55 52 4E 20 2F 46 46 20 50 52 49 4E 54 | TURN /FF PRINT|
000013E0: 45 52 00 13 1C AA 0F 42 52 24 B2 22 2A 22 3A 8F |ER.....BR$."*":.|
000013F0: 20 53 45 54 20 44 45 46 41 55 4C 54 20 56 41 4C | SET DEFAULT VAL|
00001400: 55 45 20 46 4F 52 20 4C 41 42 45 4C 20 42 4F 52 |UE FOR LABEL BOR|
00001410: 44 45 52 00 4A 1C AB 0F 56 31 24 B2 22 30 30 31 |DER.J...V1$."001|
00001420: 22 3A 8F 20 20 53 45 54 53 20 49 4E 49 54 49 41 |":. SETS INITIA|
00001430: 4C 20 44 49 53 50 4C 41 59 20 56 41 4C 55 45 20 |L DISPLAY VALUE |
00001440: 46 4F 52 20 56 4F 4C 55 4D 45 00 7D 1C AC 0F 56 |FOR VOLUME.}...V|
00001450: 32 24 B2 22 20 56 4F 4C 2E 20 22 3A 8F 20 20 53 |2$." VOL. ":. S|
00001460: 45 54 20 44 45 46 41 55 4C 54 20 56 41 4C 55 45 |ET DEFAULT VALUE|
00001470: 20 46 4F 52 20 54 4F 50 20 4C 49 4E 45 00 A2 1C | FOR TOP LINE...|
00001480: AD 0F 41 34 24 B2 22 36 22 3A 56 24 B2 22 59 22 |..A4$."6":V$."Y"|
00001490: 3A 41 24 B2 22 22 3A 42 24 B2 22 22 3A 43 24 B2 |:A$."":B$."":C$.|
000014A0: 22 22 00 E6 1C AE 0F 5A 24 B2 22 20 20 43 4F 4D |"".....Z$." COM|
000014B0: 20 36 34 20 20 22 3A 8F 20 20 53 45 54 53 20 49 | 64 ":. SETS I|
000014C0: 4E 49 54 49 41 4C 20 44 49 53 50 4C 41 59 20 56 |NITIAL DISPLAY V|
000014D0: 41 4C 55 45 20 46 4F 52 20 42 4F 54 54 4F 4D 20 |ALUE FOR BOTTOM |
000014E0: 42 4F 52 44 45 52 00 09 1D AF 0F 8D 20 34 37 30 |BORDER...... 470|
000014F0: 35 3A 8F 20 44 49 53 50 4C 41 59 20 43 55 52 52 |5:. DISPLAY CURR|
00001500: 45 4E 54 20 4C 41 42 45 4C 00 3B 1D BF 0F 99 3A |ENT LABEL.;....:|
00001510: 99 3A 99 20 22 20 20 20 20 57 48 41 54 20 43 48 |.:. " WHAT CH|
00001520: 41 52 41 43 54 45 52 20 44 4F 20 59 4F 55 20 57 |ARACTER DO YOU W|
00001530: 41 4E 54 20 54 4F 20 55 53 45 22 00 6A 1D C0 0F |ANT TO USE".j...|
00001540: 99 20 22 20 20 20 20 46 4F 52 20 54 48 45 20 42 |. " FOR THE B|
00001550: 4F 52 44 45 52 3F 20 5B 20 20 20 5D 20 20 44 45 |ORDER? [ ] DE|
00001560: 46 41 55 4C 54 20 3D 20 2A 22 00 77 1D CD 0F 85 |FAULT = *".w....|
00001570: 20 22 22 3B 42 52 24 00 8E 1D D2 0F 8B 20 C3 28 | "";BR$...... .(|
00001580: 42 52 24 29 B2 B1 32 20 A7 20 34 30 31 30 00 9B |BR$)..2 . 4010..|
00001590: 1D D7 0F 99 20 C7 28 31 34 37 29 00 CA 1D DC 0F |.... .(147).....|
000015A0: 99 3A 99 3A 99 22 20 20 57 4F 55 4C 44 20 59 4F |.:.:." WOULD YO|
000015B0: 55 20 4C 49 4B 45 20 41 20 56 4F 4C 55 4D 45 20 |U LIKE A VOLUME |
000015C0: 4E 55 4D 42 45 52 20 49 4E 22 00 F8 1D DD 0F 99 |NUMBER IN"......|
000015D0: 20 22 20 20 20 20 20 54 48 45 20 54 4F 50 20 4C | " THE TOP L|
000015E0: 49 4E 45 20 4F 46 20 54 48 45 20 42 4F 52 44 45 |INE OF THE BORDE|
000015F0: 52 20 3F 22 3A 99 3A 99 00 1D 1E E6 0F 99 20 22 |R ?":.:....... "|
00001600: 20 20 20 20 20 20 20 20 20 20 20 5B 20 59 20 5D | [ Y ]|
00001610: 20 2D 20 2D 20 2D 20 59 45 53 22 3A 99 00 41 1E | - - - YES":..A.|
00001620: F0 0F 99 20 22 20 20 20 20 20 20 20 20 20 20 20 |... " |
00001630: 5B 20 4E 20 5D 20 2D 20 2D 20 2D 20 4E 4F 22 3A |[ N ] - - - NO":|
00001640: 99 00 6C 1E FA 0F 99 20 22 20 20 20 20 20 20 20 |..l.... " |
00001650: 20 20 20 20 5B 20 20 20 5D 20 2E 2E 2E 2E 2E 20 | [ ] ..... |
00001660: 59 4F 55 52 20 43 48 4F 49 43 45 22 00 84 1E FB |YOUR CHOICE"....|
00001670: 0F A1 20 56 24 3A 8B 20 56 24 B2 22 22 20 A7 20 |.. V$:. V$."" . |
00001680: 34 30 39 31 00 91 1E FC 0F 99 20 C7 28 31 34 37 |4091...... .(147|
00001690: 29 00 A5 1E 0E 10 8B 20 56 24 B2 22 4E 22 20 A7 |)...... V$."N" .|
000016A0: 20 34 31 39 31 00 C1 1E 18 10 8B 20 56 24 B2 22 | 4191...... V$."|
000016B0: 59 22 20 A7 20 99 20 C7 28 31 34 37 29 3A 99 3A |Y" . . .(147):.:|
000016C0: 99 00 EB 1E 19 10 99 20 22 20 20 20 45 4E 54 45 |....... " ENTE|
000016D0: 52 20 59 4F 55 52 20 56 4F 4C 55 4D 45 20 4E 55 |R YOUR VOLUME NU|
000016E0: 4D 42 45 52 20 28 23 23 23 29 22 00 1E 1F 1A 10 |MBER (###)".....|
000016F0: 99 20 22 28 4D 55 53 54 20 42 45 20 33 20 43 48 |. "(MUST BE 3 CH|
00001700: 41 52 41 43 54 45 52 53 20 4C 4F 4E 47 29 20 20 |ARACTERS LONG) |
00001710: 5B 20 20 20 5D 22 3B 3A 89 20 34 31 34 30 00 29 |[ ]";:. 4140.)|
00001720: 1F 22 10 89 20 34 30 36 30 00 36 1F 2C 10 85 20 |.".. 4060.6.,.. |
00001730: 22 22 3B 56 31 24 00 4D 1F 31 10 8B 20 C3 28 56 |"";V1$.M.1.. .(V|
00001740: 31 24 29 B3 B1 33 20 A7 20 34 30 36 30 00 88 1F |1$)..3 . 4060...|
00001750: 36 10 99 20 C7 28 31 34 37 29 3A 99 3A 99 3A 99 |6.. .(147):.:.:.|
00001760: 20 22 20 20 20 20 45 4E 54 45 52 20 52 45 50 4C | " ENTER REPL|
00001770: 41 43 45 4D 45 4E 54 20 46 4F 52 20 57 4F 52 44 |ACEMENT FOR WORD|
00001780: 20 27 56 4F 4C 2E 27 22 00 B8 1F 37 10 99 20 22 | 'VOL.'"...7.. "|
00001790: 20 20 49 46 20 44 45 53 49 52 45 44 2E 20 20 20 | IF DESIRED. |
000017A0: 28 20 34 20 43 48 41 52 41 43 54 45 52 53 20 4D |( 4 CHARACTERS M|
000017B0: 41 58 49 4D 55 4D 29 22 00 DD 1F 38 10 99 20 A3 |AXIMUM)"...8.. .|
000017C0: 38 29 20 22 44 45 46 41 55 4C 54 20 49 53 20 27 |8) "DEFAULT IS '|
000017D0: 56 4F 4C 2E 27 3A 20 5B 20 20 20 5D 22 00 04 20 |VOL.': [ ]".. |
000017E0: 3B 10 99 3A 99 3A 85 20 22 22 3B 56 32 24 3A 8B |;..:.:. "";V2$:.|
000017F0: 20 56 32 24 B2 22 22 20 A7 20 56 32 24 B2 22 56 | V2$."" . V2$."V|
00001800: 4F 4C 2E 22 00 2A 20 3D 10 8B 20 C3 28 56 32 24 |OL.".* =.. .(V2$|
00001810: 29 20 B2 20 34 20 A7 20 56 32 24 B2 20 22 20 22 |) . 4 . V2$. " "|
00001820: 20 AA 56 32 24 AA 20 22 20 22 00 57 20 3F 10 8B | .V2$. " ".W ?..|
00001830: 20 C3 28 56 32 24 29 20 B2 20 33 20 A7 20 56 32 | .(V2$) . 3 . V2|
00001840: 24 20 B2 20 22 20 22 20 AA 20 22 20 22 20 AA 56 |$ . " " . " " .V|
00001850: 32 24 AA 20 22 20 22 00 78 20 40 10 99 20 22 34 |2$. " ".x @.. "4|
00001860: 31 36 30 22 3A 8B 20 C3 28 56 32 24 29 20 B3 20 |160":. .(V2$) . |
00001870: 33 20 A7 20 34 30 36 30 00 83 20 5E 10 99 3A 99 |3 . 4060.. ^..:.|
00001880: 3A 99 3A 00 90 20 5F 10 99 20 C7 28 31 34 37 29 |:.:.. _.. .(147)|
00001890: 00 BB 20 60 10 99 20 22 20 20 20 20 20 57 48 41 |.. `.. " WHA|
000018A0: 54 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 |T WOULD YOU LIKE|
000018B0: 20 49 4D 50 52 49 4E 54 45 44 22 00 E6 20 62 10 | IMPRINTED".. b.|
000018C0: 99 20 22 20 20 20 20 20 20 41 54 20 54 48 45 20 |. " AT THE |
000018D0: 42 4F 54 54 4F 4D 20 4F 46 20 54 48 45 20 42 4F |BOTTOM OF THE BO|
000018E0: 52 44 45 52 3F 22 00 10 21 68 10 99 3A 99 3A 99 |RDER?"..!h..:.:.|
000018F0: 20 22 20 20 20 20 20 20 20 20 20 5B 20 31 20 5D | " [ 1 ]|
00001900: 20 2D 20 2D 20 50 45 54 20 32 30 30 31 22 3A 99 | - - PET 2001":.|
00001910: 00 37 21 72 10 99 20 22 20 20 20 20 20 20 20 20 |.7!r.. " |
00001920: 20 5B 20 32 20 5D 20 2D 20 2D 20 43 42 4D 20 38 | [ 2 ] - - CBM 8|
00001930: 30 33 32 20 22 3A 99 00 5E 21 7C 10 99 20 22 20 |032 ":..^!|.. " |
00001940: 20 20 20 20 20 20 20 20 5B 20 33 20 5D 20 2D 20 | [ 3 ] - |
00001950: 2D 20 43 42 4D 20 34 30 33 32 20 22 3A 99 00 85 |- CBM 4032 ":...|
00001960: 21 86 10 99 20 22 20 20 20 20 20 20 20 20 20 5B |!... " [|
00001970: 20 34 20 5D 20 2D 20 2D 20 43 42 4D 20 38 30 39 | 4 ] - - CBM 809|
00001980: 36 20 22 3A 99 00 A9 21 90 10 99 20 22 20 20 20 |6 ":...!... " |
00001990: 20 20 20 20 20 20 5B 20 35 20 5D 20 2D 20 2D 20 | [ 5 ] - - |
000019A0: 56 49 43 20 32 30 22 3A 99 00 CD 21 95 10 99 20 |VIC 20":...!... |
000019B0: 22 20 20 20 20 20 20 20 20 20 5B 20 36 20 5D 20 |" [ 6 ] |
000019C0: 2D 20 2D 20 43 4F 4D 20 36 34 22 3A 99 00 FA 21 |- - COM 64":...!|
000019D0: 9A 10 99 20 22 20 20 20 20 20 20 20 20 20 5B 20 |... " [ |
000019E0: 30 20 5D 20 2D 20 2D 20 53 4F 4C 49 44 20 42 4F |0 ] - - SOLID BO|
000019F0: 52 44 45 52 20 22 3A 99 3A 99 00 26 22 A4 10 99 |RDER ":.:..&"...|
00001A00: 20 22 20 20 20 20 20 20 20 20 20 5B 20 20 20 5D | " [ ]|
00001A10: 20 2E 2E 2E 2E 2E 20 59 4F 55 52 20 43 48 4F 49 | ..... YOUR CHOI|
00001A20: 43 45 22 3B 3A 99 00 40 22 A6 10 A1 20 41 34 24 |CE";:..@"... A4$|
00001A30: 3A 8B 20 41 34 24 B2 22 22 20 A7 20 34 32 36 32 |:. A4$."" . 4262|
00001A40: 00 61 22 A9 10 8B 20 41 34 24 20 B3 22 30 22 20 |.a"... A4$ ."0" |
00001A50: B0 20 41 34 24 B1 20 22 38 22 20 A7 20 34 32 36 |. A4$. "8" . 426|
00001A60: 30 00 82 22 AE 10 8B 20 41 34 24 B2 22 31 22 20 |0.."... A4$."1" |
00001A70: A7 20 5A 24 B2 20 22 20 50 45 54 20 32 30 30 31 |. Z$. " PET 2001|
00001A80: 20 22 00 A3 22 B8 10 8B 20 41 34 24 B2 22 32 22 | ".."... A4$."2"|
00001A90: 20 A7 20 5A 24 B2 20 22 20 43 42 4D 20 38 30 33 | . Z$. " CBM 803|
00001AA0: 32 20 22 00 C4 22 C2 10 8B 20 41 34 24 B2 22 33 |2 ".."... A4$."3|
00001AB0: 22 20 A7 20 5A 24 B2 20 22 20 43 42 4D 20 34 30 |" . Z$. " CBM 40|
00001AC0: 33 32 20 22 00 E5 22 CC 10 8B 20 41 34 24 B2 22 |32 ".."... A4$."|
00001AD0: 34 22 20 A7 20 5A 24 B2 20 22 20 43 42 4D 20 38 |4" . Z$. " CBM 8|
00001AE0: 30 39 36 20 22 00 06 23 D6 10 8B 20 41 34 24 B2 |096 "..#... A4$.|
00001AF0: 22 35 22 20 A7 20 5A 24 B2 20 22 20 20 56 49 43 |"5" . Z$. " VIC|
00001B00: 20 32 30 20 20 22 00 27 23 DB 10 8B 20 41 34 24 | 20 ".'#... A4$|
00001B10: B2 22 36 22 20 A7 20 5A 24 B2 20 22 20 20 43 4F |."6" . Z$. " CO|
00001B20: 4D 20 36 34 20 20 22 00 48 23 E0 10 8B 20 41 34 |M 64 ".H#... A4|
00001B30: 24 B2 22 30 22 20 A7 20 5A 24 B2 20 22 2A 2A 2A |$."0" . Z$. "***|
00001B40: 2A 2A 2A 2A 2A 2A 2A 22 00 53 23 E1 10 89 20 34 |*******".S#... 4|
00001B50: 33 33 30 00 7A 23 E5 10 4C B2 31 3A 8D 20 34 37 |330.z#..L.1:. 47|
00001B60: 30 35 3A 8F 20 44 49 53 50 4C 41 59 20 43 55 52 |05:. DISPLAY CUR|
00001B70: 52 45 4E 54 20 4C 41 42 45 4C 00 A3 23 EA 10 99 |RENT LABEL..#...|
00001B80: 20 C7 28 31 34 37 29 3A 89 20 31 32 30 33 30 3A | .(147):. 12030:|
00001B90: 8F 20 47 4F 54 4F 20 38 30 20 43 50 4C 20 53 45 |. GOTO 80 CPL SE|
00001BA0: 54 55 50 00 A9 23 5C 12 8F 00 CB 23 5D 12 8F 20 |TUP..#\....#].. |
00001BB0: 3A 3A 3A 3A 3A 44 49 53 4B 20 4C 41 42 45 4C 20 |:::::DISK LABEL |
00001BC0: 46 4F 52 4D 41 54 3A 3A 3A 3A 3A 00 D1 23 5E 12 |FORMAT:::::..#^.|
00001BD0: 8F 00 DE 23 61 12 99 20 C7 28 31 34 37 29 00 1B |...#a.. .(147)..|
00001BE0: 24 66 12 48 B2 34 3A 8F 20 53 45 54 20 56 41 4C |$f.H.4:. SET VAL|
00001BF0: 55 45 20 46 4F 52 20 48 4F 52 49 5A 4F 4E 54 41 |UE FOR HORIZONTA|
00001C00: 4C 20 54 41 42 20 44 55 52 49 4E 47 20 53 43 52 |L TAB DURING SCR|
00001C10: 45 45 4E 20 44 49 53 50 4C 41 59 00 60 24 70 12 |EEN DISPLAY.`$p.|
00001C20: 8B 20 56 24 B2 22 4E 22 20 A7 20 56 31 24 B2 42 |. V$."N" . V1$.B|
00001C30: 52 24 AA 42 52 24 AA 42 52 24 3A 8F 20 46 49 4C |R$.BR$.BR$:. FIL|
00001C40: 4C 20 54 4F 50 20 42 4F 52 44 45 52 20 57 49 54 |L TOP BORDER WIT|
00001C50: 48 20 52 45 51 55 49 52 45 44 20 43 48 41 52 2E |H REQUIRED CHAR.|
00001C60: 00 6D 24 73 12 88 20 4A 24 B2 22 20 22 00 83 24 |.m$s.. J$." "..$|
00001C70: 75 12 8B 20 56 24 B2 22 4E 22 20 A7 20 4A 24 B2 |u.. V$."N" . J$.|
00001C80: 42 52 24 00 AE 24 7A 12 8B 20 56 24 B2 22 4E 22 |BR$..$z.. V$."N"|
00001C90: 20 A7 20 56 32 24 B2 42 52 24 AA 42 52 24 AA 42 | . V2$.BR$.BR$.B|
00001CA0: 52 24 AA 42 52 24 AA 42 52 24 AA 42 52 24 00 D1 |R$.BR$.BR$.BR$..|
00001CB0: 24 98 12 99 20 A3 48 AA 44 29 3A 81 20 42 52 B2 |$... .H.D):. BR.|
00001CC0: 31 20 A4 20 42 3A 99 20 42 52 24 3B 3A 82 20 42 |1 . B:. BR$;:. B|
00001CD0: 52 00 00 25 99 12 99 20 56 32 24 3B 3A 99 20 56 |R..%... V2$;:. V|
00001CE0: 31 24 3B 3A 99 20 4A 24 3B 3A 81 20 42 52 B2 31 |1$;:. J$;:. BR.1|
00001CF0: 20 A4 20 42 3A 99 20 42 52 24 3B 3A 82 20 42 52 | . B:. BR$;:. BR|
00001D00: 00 0C 25 9A 12 99 20 C7 28 31 30 29 00 24 25 A2 |..%... .(10).$%.|
00001D10: 12 4C B2 4C AA 31 3A 8B 20 4C B2 32 20 A7 20 4C |.L.L.1:. L.2 . L|
00001D20: 24 B2 41 24 00 36 25 AC 12 8B 20 4C B2 33 20 A7 |$.A$.6%... L.3 .|
00001D30: 20 4C 24 B2 42 24 00 48 25 B6 12 8B 20 4C B2 34 | L$.B$.H%... L.4|
00001D40: 20 A7 20 4C 24 B2 43 24 00 58 25 BA 12 99 20 A3 | . L$.C$.X%... .|
00001D50: 48 AA 44 29 42 52 24 3B 00 6E 25 BC 12 48 54 B2 |H.D)BR$;.n%..HT.|
00001D60: B5 28 28 43 AB C3 28 4C 24 29 29 AD 32 29 00 7A |.((C..(L$)).2).z|
00001D70: 25 BE 12 48 41 B2 48 54 AA 31 00 8C 25 C0 12 54 |%..HA.HT.1..%..T|
00001D80: B2 48 54 AA C3 28 4C 24 29 AA 48 41 00 9E 25 C1 |.HT..(L$).HA..%.|
00001D90: 12 8B 20 54 B1 43 20 A7 20 48 41 B2 48 54 00 B8 |.. T.C . HA.HT..|
00001DA0: 25 C3 12 99 20 A6 48 54 29 4C 24 A6 48 41 29 42 |%... .HT)L$.HA)B|
00001DB0: 52 24 20 C7 28 31 30 29 00 C9 25 C8 12 8B 20 4C |R$ .(10)..%... L|
00001DC0: B3 34 20 A7 20 34 37 37 30 00 04 26 CA 12 8B 20 |.4 . 4770..&... |
00001DD0: 41 34 24 B2 22 30 22 20 A7 20 5A 24 B2 42 52 24 |A4$."0" . Z$.BR$|
00001DE0: AA 42 52 24 AA 42 52 24 AA 42 52 24 AA 42 52 24 |.BR$.BR$.BR$.BR$|
00001DF0: AA 42 52 24 AA 42 52 24 AA 42 52 24 AA 42 52 24 |.BR$.BR$.BR$.BR$|
00001E00: AA 42 52 24 00 27 26 D4 12 99 20 A6 48 AA 44 29 |.BR$.'&... .H.D)|
00001E10: 3B 3A 81 20 42 52 B2 31 A4 20 42 3A 99 20 42 52 |;:. BR.1. B:. BR|
00001E20: 24 3B 3A 82 20 42 52 00 55 26 DE 12 99 20 5A 24 |$;:. BR.U&... Z$|
00001E30: 3B 3A 81 20 42 52 B2 31 A4 20 42 3A 99 20 42 52 |;:. BR.1. B:. BR|
00001E40: 24 3B 3A 82 20 42 52 3A 99 20 C7 28 31 30 29 20 |$;:. BR:. .(10) |
00001E50: C7 28 31 30 29 00 75 26 ED 12 4C B2 31 3A 8F 20 |.(10).u&..L.1:. |
00001E60: 52 45 53 45 54 20 4C 49 4E 45 20 43 4F 55 4E 54 |RESET LINE COUNT|
00001E70: 20 46 4C 41 47 00 7B 26 F2 12 8E 00 81 26 70 17 | FLAG.{&.....&p.|
00001E80: 8F 00 9E 26 75 17 8F 20 20 3A 3A 3A 3A 3A 49 4E |...&u.. :::::IN|
00001E90: 50 55 54 20 4C 49 4E 45 53 3A 3A 3A 3A 3A 00 A4 |PUT LINES:::::..|
00001EA0: 26 7A 17 8F 00 B1 26 84 17 99 20 C7 28 31 34 37 |&z....&... .(147|
00001EB0: 29 00 CB 26 8E 17 81 20 49 B2 31 20 A4 20 34 3A |)..&... I.1 . 4:|
00001EC0: 99 20 C7 28 31 37 29 3A 82 20 49 00 E3 26 98 17 |. .(17):. I..&..|
00001ED0: 99 20 22 20 49 4E 50 55 54 20 4C 49 4E 45 20 23 |. " INPUT LINE #|
00001EE0: 31 20 22 00 10 27 A2 17 99 20 C7 28 31 39 29 3A |1 "..'... .(19):|
00001EF0: 81 20 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 37 |. I.1 . 4:. .(17|
00001F00: 29 3A 82 49 3A 99 20 A3 53 31 AA 31 29 22 5D 22 |):.I:. .S1.1)"]"|
00001F10: 00 24 27 AC 17 99 3A 99 20 A6 35 29 3A 85 20 22 |.$'...:. .5):. "|
00001F20: 22 3B 41 24 00 46 27 B6 17 99 20 C7 28 31 39 29 |";A$.F'... .(19)|
00001F30: 3A 81 20 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 |:. I.1 . 4:. .(1|
00001F40: 37 29 3A 82 20 49 00 5E 27 C0 17 99 20 22 20 49 |7):. I.^'... " I|
00001F50: 4E 50 55 54 20 4C 49 4E 45 20 23 32 20 22 00 8B |NPUT LINE #2 "..|
00001F60: 27 CA 17 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 |'... .(19):. I.1|
00001F70: 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A 82 49 3A | . 4:. .(17):.I:|
00001F80: 99 20 A3 53 31 AA 31 29 22 5D 22 00 AD 27 CF 17 |. .S1.1)"]"..'..|
00001F90: 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 |. .(19):. I.1 . |
00001FA0: 36 3A 99 20 C7 28 31 37 29 3A 82 20 49 00 BF 27 |6:. .(17):. I..'|
00001FB0: D4 17 99 20 A6 35 29 3A 85 20 22 22 3B 42 24 00 |... .5):. "";B$.|
00001FC0: E1 27 DE 17 99 20 C7 28 31 39 29 3A 81 20 49 B2 |.'... .(19):. I.|
00001FD0: 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A 82 20 |1 . 4:. .(17):. |
00001FE0: 49 00 F9 27 E8 17 99 20 22 20 49 4E 50 55 54 20 |I..'... " INPUT |
00001FF0: 4C 49 4E 45 20 23 33 20 22 00 26 28 F2 17 99 20 |LINE #3 ".&(... |
00002000: C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 34 3A |.(19):. I.1 . 4:|
00002010: 99 20 C7 28 31 37 29 3A 82 49 3A 99 20 A3 53 31 |. .(17):.I:. .S1|
00002020: AA 31 29 22 5D 22 00 48 28 F7 17 99 20 C7 28 31 |.1)"]".H(... .(1|
00002030: 39 29 3A 81 20 49 B2 31 20 A4 20 37 3A 99 20 C7 |9):. I.1 . 7:. .|
00002040: 28 31 37 29 3A 82 20 49 00 5A 28 FC 17 99 20 A6 |(17):. I.Z(... .|
00002050: 35 29 3A 85 20 22 22 3B 43 24 00 7C 28 06 18 99 |5):. "";C$.|(...|
00002060: 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 34 | .(19):. I.1 . 4|
00002070: 3A 99 20 C7 28 31 37 29 3A 82 20 49 00 94 28 10 |:. .(17):. I..(.|
00002080: 18 99 20 22 20 49 4E 50 55 54 20 4C 49 4E 45 20 |.. " INPUT LINE |
00002090: 23 34 20 22 00 C1 28 1A 18 99 20 C7 28 31 39 29 |#4 "..(... .(19)|
000020A0: 3A 81 20 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 |:. I.1 . 4:. .(1|
000020B0: 37 29 3A 82 49 3A 99 20 A3 53 31 AA 31 29 22 5D |7):.I:. .S1.1)"]|
000020C0: 22 00 E3 28 1F 18 99 20 C7 28 31 39 29 3A 81 20 |"..(... .(19):. |
000020D0: 49 B2 31 20 A4 20 38 3A 99 20 C7 28 31 37 29 3A |I.1 . 8:. .(17):|
000020E0: 82 20 49 00 F5 28 24 18 99 20 A6 35 29 3A 85 20 |. I..($.. .5):. |
000020F0: 22 22 3B 45 24 00 17 29 2E 18 99 20 C7 28 31 39 |"";E$..)... .(19|
00002100: 29 3A 81 20 49 B2 31 20 A4 20 34 3A 99 20 C7 28 |):. I.1 . 4:. .(|
00002110: 31 37 29 3A 82 20 49 00 2F 29 38 18 99 20 22 20 |17):. I./)8.. " |
00002120: 49 4E 50 55 54 20 4C 49 4E 45 20 23 35 20 22 00 |INPUT LINE #5 ".|
00002130: 5C 29 42 18 99 20 C7 28 31 39 29 3A 81 20 49 B2 |\)B.. .(19):. I.|
00002140: 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A 82 49 |1 . 4:. .(17):.I|
00002150: 3A 99 20 A3 53 31 AA 31 29 22 5D 22 00 7E 29 47 |:. .S1.1)"]".~)G|
00002160: 18 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 |.. .(19):. I.1 .|
00002170: 20 39 3A 99 20 C7 28 31 37 29 3A 82 20 49 00 90 | 9:. .(17):. I..|
00002180: 29 4C 18 99 20 A6 35 29 3A 85 20 22 22 3B 46 24 |)L.. .5):. "";F$|
00002190: 00 96 29 56 18 8E 00 9C 29 9C 18 8F 00 C0 29 A6 |..)V....).....).|
000021A0: 18 8F 20 20 3A 3A 3A 52 45 53 45 54 20 4C 49 4E |.. :::RESET LIN|
000021B0: 45 20 50 52 49 4E 54 20 56 41 4C 55 45 53 3A 3A |E PRINT VALUES::|
000021C0: 00 C6 29 B0 18 8F 00 D0 29 BA 18 41 24 B2 22 22 |..).....)..A$.""|
000021D0: 00 DA 29 C4 18 42 24 B2 22 22 00 E4 29 CE 18 43 |..)..B$.""..)..C|
000021E0: 24 B2 22 22 00 EE 29 D8 18 45 24 B2 22 22 00 F8 |$.""..)..E$.""..|
000021F0: 29 E2 18 46 24 B2 22 22 00 FE 29 EC 18 8E 00 04 |)..F$.""..).....|
00002200: 2A 58 1B 8F 00 1F 2A 5D 1B 8F 20 20 3A 3A 3A 3A |*X....*].. ::::|
00002210: 3A 48 4F 57 20 4D 41 4E 59 3F 3A 3A 3A 3A 3A 00 |:HOW MANY?:::::.|
00002220: 25 2A 62 1B 8F 00 4B 2A 6C 1B 99 3A 99 3A 99 20 |%*b...K*l..:.:. |
00002230: 22 20 20 20 20 20 20 20 20 48 4F 57 20 4D 41 4E |" HOW MAN|
00002240: 59 20 4C 41 42 45 4C 53 20 22 3B 00 53 2A 80 1B |Y LABELS ";.S*..|
00002250: 85 20 58 00 7B 2A 8A 1B 8B 20 58 B2 30 20 A7 20 |. X.{*... X.0 . |
00002260: 89 20 32 34 30 3A 8F 20 52 45 54 55 52 4E 20 54 |. 240:. RETURN T|
00002270: 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 81 2A 94 1B |O MAIN MENU..*..|
00002280: 8E 00 87 2A 40 1F 8F 00 A7 2A 45 1F 8F 20 20 3A |...*@....*E.. :|
00002290: 3A 3A 3A 3A 53 54 41 4E 44 41 52 44 20 50 52 49 |::::STANDARD PRI|
000022A0: 4E 54 3A 3A 3A 3A 3A 00 AD 2A 4A 1F 8F 00 C1 2A |NT:::::..*J....*|
000022B0: 54 1F 8B 20 4C B3 B1 31 20 A7 20 89 20 38 30 34 |T.. L..1 . . 804|
000022C0: 30 00 F8 2A 55 1F 8F 20 4C 3D 31 20 49 4E 44 49 |0..*U.. L=1 INDI|
000022D0: 43 41 54 45 53 20 54 48 41 54 20 44 49 53 4B 20 |CATES THAT DISK |
000022E0: 4C 41 42 45 4C 53 20 41 52 45 20 54 4F 20 42 45 |LABELS ARE TO BE|
000022F0: 20 50 52 49 4E 54 45 44 00 25 2B 5E 1F 81 20 49 | PRINTED.%+^.. I|
00002300: B2 31 20 A4 20 58 3A 8D 20 34 37 32 30 3A 82 20 |.1 . X:. 4720:. |
00002310: 49 3A 8F 20 50 52 49 4E 54 20 44 49 53 4B 20 4C |I:. PRINT DISK L|
00002320: 41 42 45 4C 53 00 2B 2B 63 1F 8E 00 39 2B 68 1F |ABELS.++c...9+h.|
00002330: 81 20 49 B2 31 20 A4 20 58 00 65 2B 72 1F 99 20 |. I.1 . X.e+r.. |
00002340: A6 48 29 20 41 24 20 C7 28 31 30 29 3A 8F 20 20 |.H) A$ .(10):. |
00002350: 43 48 52 24 28 31 30 29 20 49 53 20 4C 49 4E 45 |CHR$(10) IS LINE|
00002360: 20 46 45 45 44 00 78 2B 7C 1F 99 20 A6 48 29 20 | FEED.x+|.. .H) |
00002370: 42 24 20 C7 28 31 30 29 00 8B 2B 86 1F 99 20 A6 |B$ .(10)..+... .|
00002380: 48 29 20 43 24 20 C7 28 31 30 29 00 9E 2B 90 1F |H) C$ .(10)..+..|
00002390: 99 20 A6 48 29 20 45 24 20 C7 28 31 30 29 00 B1 |. .H) E$ .(10)..|
000023A0: 2B 9A 1F 99 20 A6 48 29 20 46 24 20 C7 28 31 30 |+... .H) F$ .(10|
000023B0: 29 00 BD 2B A4 1F 99 20 C7 28 31 30 29 00 C5 2B |)..+... .(10)..+|
000023C0: AE 1F 82 20 49 00 CB 2B B8 1F 8E 00 D1 2B 28 23 |... I..+.....+(#|
000023D0: 8F 00 EE 2B 2D 23 8F 20 20 3A 3A 3A 3A 3A 44 4F |...+-#. :::::DO|
000023E0: 55 42 4C 45 20 57 49 44 45 3A 3A 3A 3A 3A 00 F4 |UBLE WIDE:::::..|
000023F0: 2B 32 23 8F 00 37 2C 37 23 8F 20 20 43 48 52 24 |+2#..7,7#. CHR$|
00002400: 28 31 34 29 20 52 45 51 55 49 52 45 44 20 4F 4E |(14) REQUIRED ON|
00002410: 20 45 41 43 48 20 4C 49 4E 45 20 54 4F 20 54 55 | EACH LINE TO TU|
00002420: 52 4E 20 4F 4E 20 44 4F 55 42 4C 45 20 57 49 44 |RN ON DOUBLE WID|
00002430: 45 20 50 52 49 4E 54 00 45 2C 3C 23 81 20 49 B2 |E PRINT.E,<#. I.|
00002440: 31 20 A4 20 58 00 52 2C 46 23 99 20 C7 28 31 34 |1 . X.R,F#. .(14|
00002450: 29 3B 00 65 2C 50 23 99 20 A6 48 29 20 41 24 20 |);.e,P#. .H) A$ |
00002460: C7 28 31 30 29 00 72 2C 5A 23 99 20 C7 28 31 34 |.(10).r,Z#. .(14|
00002470: 29 3B 00 85 2C 64 23 99 20 A6 48 29 20 42 24 20 |);..,d#. .H) B$ |
00002480: C7 28 31 30 29 00 92 2C 6E 23 99 20 C7 28 31 34 |.(10)..,n#. .(14|
00002490: 29 3B 00 A5 2C 78 23 99 20 A6 48 29 20 43 24 20 |);..,x#. .H) C$ |
000024A0: C7 28 31 30 29 00 B2 2C 82 23 99 20 C7 28 31 34 |.(10)..,.#. .(14|
000024B0: 29 3B 00 C5 2C 8C 23 99 20 A6 48 29 20 45 24 20 |);..,.#. .H) E$ |
000024C0: C7 28 31 30 29 00 D2 2C 96 23 99 20 C7 28 31 34 |.(10)..,.#. .(14|
000024D0: 29 3B 00 E5 2C A0 23 99 20 A6 48 29 20 46 24 20 |);..,.#. .H) F$ |
000024E0: C7 28 31 30 29 00 F1 2C AA 23 99 20 C7 28 31 30 |.(10)..,.#. .(10|
000024F0: 29 00 F9 2C B4 23 82 20 49 00 03 2D BE 23 98 34 |)..,.#. I..-.#.4|
00002500: 3A A0 34 00 09 2D C8 23 8E 00 0F 2D 10 27 8F 00 |:.4..-.#...-.'..|
00002510: 2E 2D 1A 27 8F 20 3A 3A 3A 3A 53 45 54 20 55 50 |.-.'. ::::SET UP|
00002520: 20 45 4D 50 48 41 53 49 5A 45 3A 3A 3A 3A 00 34 | EMPHASIZE::::.4|
00002530: 2D 1F 27 8F 00 48 2D 24 27 8B 20 45 B2 30 20 A7 |-.'..H-$'. E.0 .|
00002540: 20 89 20 31 30 30 35 30 00 5C 2D 2E 27 8B 20 45 | . 10050.\-.'. E|
00002550: B2 31 20 A7 20 89 20 31 30 30 39 30 00 62 2D 38 |.1 . . 10090.b-8|
00002560: 27 8E 00 7E 2D 42 27 9F 34 2C 34 2C 31 3A 9D 34 |'..~-B'.4,4,1:.4|
00002570: 3A 8F 20 20 50 52 49 4E 54 45 52 20 4F 4E 00 8D |:. PRINTER ON..|
00002580: 2D 47 27 99 20 C7 28 32 37 29 22 45 22 00 97 2D |-G'. .(27)"E"..-|
00002590: 4C 27 98 34 3A A0 34 00 C3 2D 51 27 8F 20 43 48 |L'.4:.4..-Q'. CH|
000025A0: 52 24 28 32 37 29 22 45 22 20 54 55 52 4E 53 20 |R$(27)"E" TURNS |
000025B0: 4F 4E 20 45 4D 50 48 41 53 49 5A 45 44 20 50 52 |ON EMPHASIZED PR|
000025C0: 49 4E 54 00 CD 2D 60 27 45 B2 31 3A 8E 00 EC 2D |INT..-`'E.1:...-|
000025D0: 6A 27 9F 34 2C 34 2C 31 3A 9D 34 3A 99 20 C7 28 |j'.4,4,1:.4:. .(|
000025E0: 32 37 29 22 46 22 3A 98 34 3A A0 34 00 19 2E 6B |27)"F":.4:.4...k|
000025F0: 27 8F 20 43 48 52 24 28 32 37 29 22 46 22 20 54 |'. CHR$(27)"F" T|
00002600: 55 52 4E 53 20 4F 46 46 20 45 4D 50 48 41 53 49 |URNS OFF EMPHASI|
00002610: 5A 45 44 20 50 52 49 4E 54 00 23 2E 88 27 45 B2 |ZED PRINT.#..'E.|
00002620: 30 3A 8E 00 29 2E F8 2A 8F 00 4E 2E FD 2A 8F 20 |0:..)..*..N..*. |
00002630: 3A 53 43 52 45 45 4E 20 50 52 49 4E 54 20 4F 46 |:SCREEN PRINT OF|
00002640: 20 4C 41 42 45 4C 20 56 41 4C 55 45 53 3A 00 54 | LABEL VALUES:.T|
00002650: 2E 02 2B 8F 00 83 2E 0C 2B 99 20 C7 28 31 34 37 |..+.....+. .(147|
00002660: 29 C7 28 31 37 29 C7 28 31 37 29 3A 8F 20 43 48 |).(17).(17):. CH|
00002670: 52 24 28 31 34 37 29 20 49 53 20 43 4C 52 2F 48 |R$(147) IS CLR/H|
00002680: 4F 4D 45 00 8F 2E 16 2B 99 20 A6 36 29 41 24 00 |OME....+. .6)A$.|
00002690: 9B 2E 20 2B 99 20 A6 36 29 42 24 00 A7 2E 2A 2B |.. +. .6)B$...*+|
000026A0: 99 20 A6 36 29 43 24 00 B3 2E 34 2B 99 20 A6 36 |. .6)C$...4+. .6|
000026B0: 29 45 24 00 BF 2E 3E 2B 99 20 A6 36 29 46 24 00 |)E$...>+. .6)F$.|
000026C0: C5 2E 48 2B 8E 00 CB 2E E0 2E 8F 00 EB 2E E5 2E |..H+............|
000026D0: 8F 20 20 3A 3A 3A 3A 3A 20 38 30 20 43 50 4C 20 |. ::::: 80 CPL |
000026E0: 53 45 54 55 50 20 3A 3A 3A 3A 3A 00 F1 2E EA 2E |SETUP :::::.....|
000026F0: 8F 00 0C 2F FE 2E 8D 20 32 30 30 30 3A 8F 20 20 |.../... 2000:. |
00002700: 49 4E 53 54 52 55 43 54 49 4F 4E 53 00 24 2F 08 |INSTRUCTIONS.$/.|
00002710: 2F 8D 20 36 30 32 30 3A 8F 20 20 47 45 54 20 49 |/. 6020:. GET I|
00002720: 4E 50 55 54 00 4D 2F 0D 2F 8B 20 4C B2 31 20 A7 |NPUT.M/./. L.1 .|
00002730: 20 8D 20 34 37 30 35 3A 8F 20 20 44 49 53 50 4C | . 4705:. DISPL|
00002740: 41 59 20 44 49 53 4B 20 4C 41 42 45 4C 00 7B 2F |AY DISK LABEL.{/|
00002750: 0F 2F 8B 20 4C B3 B1 31 20 A7 20 8D 20 31 31 30 |./. L..1 . . 110|
00002760: 32 30 3A 8F 20 44 49 53 50 4C 41 59 20 52 45 47 |20:. DISPLAY REG|
00002770: 55 4C 41 52 20 4C 41 42 45 4C 53 00 93 2F 12 2F |ULAR LABELS.././|
00002780: 8D 20 37 30 32 30 3A 8F 20 20 48 4F 57 20 4D 41 |. 7020:. HOW MA|
00002790: 4E 59 3F 00 A1 2F 1C 2F 9F 34 2C 34 2C 31 3A 9D |NY?.././.4,4,1:.|
000027A0: 34 00 B3 2F 20 2F 8F 20 20 50 52 49 4E 54 45 52 |4../ /. PRINTER|
000027B0: 20 4F 4E 00 CE 2F 26 2F 8D 20 38 30 32 30 3A 8F | ON../&/. 8020:.|
000027C0: 20 20 50 52 49 4E 54 20 4C 41 42 45 4C 53 00 02 | PRINT LABELS..|
000027D0: 30 2F 2F 99 20 C7 28 51 29 3A 8F 20 20 51 20 4D |0//. .(Q):. Q M|
000027E0: 41 59 20 54 55 52 4E 20 43 4F 4D 50 52 45 53 53 |AY TURN COMPRESS|
000027F0: 45 44 20 50 52 49 4E 54 20 4F 4E 20 4F 52 20 4F |ED PRINT ON OR O|
00002800: 46 46 00 0C 30 30 2F 98 34 3A A0 34 00 1F 30 31 |FF..00/.4:.4..01|
00002810: 2F 8F 20 20 50 52 49 4E 54 45 52 20 4F 46 46 00 |/. PRINTER OFF.|
00002820: 4B 30 35 2F 99 20 C7 28 31 34 37 29 3A 8B 20 4C |K05/. .(147):. L|
00002830: B2 31 20 A7 20 8D 20 34 37 30 35 3A 8B 20 4C B2 |.1 . . 4705:. L.|
00002840: 31 20 A7 20 89 20 31 32 30 39 30 00 57 30 38 2F |1 . . 12090.W08/|
00002850: 8D 20 31 31 30 33 30 00 86 30 3A 2F 99 3A 99 3A |. 11030..0:/.:.:|
00002860: 99 20 22 20 20 20 20 20 4D 4F 52 45 20 4F 46 20 |. " MORE OF |
00002870: 54 48 45 20 53 41 4D 45 20 4C 41 42 45 4C 20 22 |THE SAME LABEL "|
00002880: 3B 3A 85 20 58 24 00 AB 30 3E 2F 8B 20 C8 28 58 |;:. X$..0>/. .(X|
00002890: 24 2C 31 29 B2 22 59 22 20 A7 20 99 20 C7 28 31 |$,1)."Y" . . .(1|
000028A0: 34 37 29 3A 89 20 31 32 30 34 37 00 F3 30 40 2F |47):. 12047..0@/|
000028B0: 8F 20 20 50 45 52 46 4F 52 4D 20 44 49 53 50 4C |. PERFORM DISPL|
000028C0: 41 59 20 4C 41 42 45 4C 53 20 4F 4E 20 53 43 52 |AY LABELS ON SCR|
000028D0: 45 45 4E 2D 2D 43 48 52 24 28 31 34 37 29 20 49 |EEN--CHR$(147) I|
000028E0: 53 20 43 55 52 53 4F 52 20 43 4C 45 41 52 2F 48 |S CURSOR CLEAR/H|
000028F0: 4F 4D 45 00 0F 31 44 2F 8B 20 C8 28 58 24 2C 31 |OME..1D/. .(X$,1|
00002900: 29 B2 22 4E 22 20 A7 20 89 20 31 32 31 32 30 00 |)."N" . . 12120.|
00002910: 1B 31 4E 2F 89 20 31 32 30 38 35 00 47 31 58 2F |.1N/. 12085.G1X/|
00002920: 51 B2 31 38 3A 4C B2 30 3A 8D 20 36 33 30 30 3A |Q.18:L.0:. 6300:|
00002930: 89 20 32 34 30 3A 8F 20 20 47 4F 54 4F 20 4D 41 |. 240:. GOTO MA|
00002940: 49 4E 20 4D 45 4E 55 00 4D 31 C8 32 8F 00 6E 31 |IN MENU.M1.2..n1|
00002950: CD 32 8F 20 20 3A 3A 3A 3A 3A 20 31 33 32 20 43 |.2. ::::: 132 C|
00002960: 50 4C 20 53 45 54 55 50 20 3A 3A 3A 3A 3A 00 74 |PL SETUP :::::.t|
00002970: 31 D2 32 8F 00 82 31 DC 32 9F 34 2C 34 2C 31 3A |1.2...1.2.4,4,1:|
00002980: 9D 34 00 8E 31 DD 32 99 20 C7 28 32 30 29 00 98 |.4..1.2. .(20)..|
00002990: 31 E1 32 98 34 3A A0 34 00 C2 31 E5 32 8F 20 20 |1.2.4:.4..1.2. |
000029A0: 43 48 52 24 28 32 30 29 20 54 55 52 4E 53 20 4F |CHR$(20) TURNS O|
000029B0: 4E 20 43 4F 4D 50 52 45 53 53 45 44 20 50 52 49 |N COMPRESSED PRI|
000029C0: 4E 54 00 E2 31 E6 32 89 20 31 32 30 33 30 3A 8F |NT..1.2. 12030:.|
000029D0: 20 20 47 4F 54 4F 20 50 52 49 4E 54 20 53 45 54 | GOTO PRINT SET|
000029E0: 55 50 00 E8 31 B0 36 8F 00 08 32 B5 36 8F 20 20 |UP..1.6...2.6. |
000029F0: 3A 3A 3A 3A 3A 20 34 30 20 43 50 4C 20 53 45 54 |::::: 40 CPL SET|
00002A00: 55 50 20 3A 3A 3A 3A 3A 00 0E 32 BA 36 8F 00 28 |UP :::::..2.6..(|
00002A10: 32 CE 36 8D 20 32 30 32 30 3A 8F 20 49 4E 53 54 |2.6. 2020:. INST|
00002A20: 52 55 43 54 49 4F 4E 53 00 40 32 D8 36 8D 20 36 |RUCTIONS.@2.6. 6|
00002A30: 30 32 30 3A 8F 20 20 47 45 54 20 49 4E 50 55 54 |020:. GET INPUT|
00002A40: 00 58 32 E2 36 8D 20 37 30 32 30 3A 8F 20 20 48 |.X2.6. 7020:. H|
00002A50: 4F 57 20 4D 41 4E 59 3F 00 66 32 EC 36 9F 34 2C |OW MANY?.f2.6.4,|
00002A60: 34 2C 31 3A 9D 34 00 80 32 F6 36 8D 20 39 30 32 |4,1:.4..2.6. 902|
00002A70: 30 3A 8F 20 20 50 52 49 4E 54 20 4C 41 52 47 45 |0:. PRINT LARGE|
00002A80: 00 95 32 0A 37 99 20 C7 28 31 34 37 29 3A 8D 20 |..2.7. .(147):. |
00002A90: 31 31 30 32 30 00 C2 32 0E 37 99 3A 99 20 22 20 |11020..2.7.:. " |
00002AA0: 20 20 20 20 4D 4F 52 45 20 4F 46 20 54 48 45 20 | MORE OF THE |
00002AB0: 53 41 4D 45 20 4C 41 42 45 4C 20 22 3B 3A 85 20 |SAME LABEL ";:. |
00002AC0: 58 24 00 EF 32 10 37 8B 20 C8 28 58 24 2C 31 29 |X$..2.7. .(X$,1)|
00002AD0: B2 22 59 22 20 A7 20 99 20 C7 28 31 34 37 29 3A |."Y" . . .(147):|
00002AE0: 8D 20 31 31 30 32 30 3A 89 20 31 34 30 35 30 00 |. 11020:. 14050.|
00002AF0: 0E 33 12 37 8F 20 20 44 49 53 50 4C 41 59 20 4C |.3.7. DISPLAY L|
00002B00: 41 42 45 4C 20 4F 4E 20 53 43 52 45 45 4E 00 1C |ABEL ON SCREEN..|
00002B10: 33 14 37 9F 34 2C 34 2C 31 3A 9D 34 00 28 33 1E |3.7.4,4,1:.4.(3.|
00002B20: 37 99 20 C7 28 31 38 29 00 32 33 28 37 98 34 3A |7. .(18).23(7.4:|
00002B30: A0 34 00 55 33 78 37 8D 20 36 33 30 30 3A 89 20 |.4.U3x7. 6300:. |
00002B40: 32 34 30 3A 8F 20 20 47 4F 54 4F 20 4D 41 49 4E |240:. GOTO MAIN|
00002B50: 20 4D 45 4E 55 00 5B 33 98 3A 8F 00 7B 33 9D 3A | MENU.[3.:..{3.:|
00002B60: 8F 20 20 3A 3A 3A 3A 3A 20 36 36 20 43 50 4C 20 |. ::::: 66 CPL |
00002B70: 53 45 54 55 50 20 3A 3A 3A 3A 3A 00 81 33 A2 3A |SETUP :::::..3.:|
00002B80: 8F 00 8F 33 AC 3A 9F 34 2C 34 2C 31 3A 9D 34 00 |...3.:.4,4,1:.4.|
00002B90: 9D 33 B6 3A 99 20 C7 28 32 30 29 3B 3A 00 C7 33 |.3.:. .(20);:..3|
00002BA0: B7 3A 8F 20 20 43 48 52 24 28 32 30 29 20 54 55 |.:. CHR$(20) TU|
00002BB0: 52 4E 53 20 4F 4E 20 43 4F 4D 50 52 45 53 53 45 |RNS ON COMPRESSE|
00002BC0: 44 20 50 52 49 4E 54 00 D1 33 C0 3A 98 34 3A A0 |D PRINT..3.:.4:.|
00002BD0: 34 00 F1 33 E8 3A 89 20 31 34 30 33 30 3A 8F 20 |4..3.:. 14030:. |
00002BE0: 20 47 4F 54 4F 20 50 52 49 4E 54 20 53 45 54 55 | GOTO PRINT SETU|
00002BF0: 50 00 F7 33 80 3E 8F 00 1B 34 85 3E 8F 20 20 3A |P..3.>...4.>. :|
00002C00: 3A 3A 3A 3A 54 52 49 50 4C 45 20 57 49 44 45 20 |::::TRIPLE WIDE |
00002C10: 4C 41 42 45 4C 20 3A 3A 3A 3A 3A 00 21 34 8A 3E |LABEL :::::.!4.>|
00002C20: 8F 00 3E 34 94 3E 8D 20 31 31 30 32 30 3A 8F 20 |..>4.>. 11020:. |
00002C30: 20 44 49 53 50 4C 41 59 20 4C 41 42 45 4C 00 70 | DISPLAY LABEL.p|
00002C40: 34 A3 3E 99 3A 99 3A 99 20 A6 35 29 22 53 50 45 |4.>.:.:. .5)"SPE|
00002C50: 43 49 46 59 20 4E 55 4D 42 45 52 20 4F 46 20 52 |CIFY NUMBER OF R|
00002C60: 4F 57 53 20 4F 46 20 33 20 4C 41 42 45 4C 53 22 |OWS OF 3 LABELS"|
00002C70: 00 93 34 A8 3E 8D 20 37 30 32 30 3A 8F 20 20 48 |..4.>. 7020:. H|
00002C80: 4F 57 20 4D 41 4E 59 20 4C 41 42 45 4C 20 52 4F |OW MANY LABEL RO|
00002C90: 57 53 3F 00 9F 34 AD 3E 89 20 31 36 35 30 30 00 |WS?..4.>. 16500.|
00002CA0: A5 34 AE 3E 8F 00 C5 34 AF 3E 8F 20 20 3A 3A 3A |.4.>...4.>. :::|
00002CB0: 20 43 45 4E 54 45 52 20 4A 55 53 54 49 46 49 45 | CENTER JUSTIFIE|
00002CC0: 44 20 3A 3A 3A 00 CB 34 B0 3E 8F 00 D7 34 B2 3E |D :::..4.>...4.>|
00002CD0: 9F 34 2C 34 3A 9D 34 00 E0 34 B7 3E 52 B2 31 37 |.4,4:.4..4.>R.17|
00002CE0: 00 EE 34 D0 3E 81 20 49 B2 31 20 A4 20 58 00 F6 |..4.>. I.1 . X..|
00002CF0: 34 D3 3E 55 B2 31 00 0E 35 E4 3E 55 B2 55 AA 31 |4.>U.1..5.>U.U.1|
00002D00: 3A 8B 20 55 B2 32 20 A7 20 59 24 B2 41 24 00 20 |:. U.2 . Y$.A$. |
00002D10: 35 E9 3E 8B 20 55 B2 33 20 A7 20 59 24 B2 42 24 |5.>. U.3 . Y$.B$|
00002D20: 00 32 35 EE 3E 8B 20 55 B2 34 20 A7 20 59 24 B2 |.25.>. U.4 . Y$.|
00002D30: 43 24 00 44 35 F3 3E 8B 20 55 B2 35 20 A7 20 59 |C$.D5.>. U.5 . Y|
00002D40: 24 B2 45 24 00 56 35 F8 3E 8B 20 55 B2 36 20 A7 |$.E$.V5.>. U.6 .|
00002D50: 20 59 24 B2 46 24 00 62 35 FD 3E 51 B2 C3 28 59 | Y$.F$.b5.>Q..(Y|
00002D60: 24 29 00 73 35 02 3F 50 B2 B5 28 28 52 AB 51 29 |$).s5.?P..((R.Q)|
00002D70: AD 32 29 00 8C 35 07 3F 8F 20 20 50 3D 53 50 41 |.2)..5.?. P=SPA|
00002D80: 43 45 53 20 56 41 52 49 41 42 4C 45 00 97 35 0C |CES VARIABLE..5.|
00002D90: 3F 50 41 B2 50 AA 31 00 A5 35 11 3F 50 54 B2 50 |?PA.P.1..5.?PT.P|
00002DA0: AA 51 AA 50 41 00 B7 35 16 3F 8B 20 50 54 B1 52 |.Q.PA..5.?. PT.R|
00002DB0: 20 A7 20 50 41 B2 50 00 EA 35 1B 3F 42 54 B2 33 | . PA.P..5.?BT.3|
00002DC0: 3A 8F 20 20 42 54 3D 53 50 41 43 45 53 20 42 45 |:. BT=SPACES BE|
00002DD0: 54 57 45 45 4E 20 54 52 49 50 4C 45 20 43 4F 4C |TWEEN TRIPLE COL|
00002DE0: 55 4D 4E 20 4C 41 42 45 4C 53 00 13 36 20 3F 99 |UMN LABELS..6 ?.|
00002DF0: 20 A6 48 AA 50 29 20 59 24 3B A6 50 41 AA 42 54 | .H.P) Y$;.PA.BT|
00002E00: AA 50 29 3B 59 24 3B A6 50 41 AA 42 54 AA 50 29 |.P);Y$;.PA.BT.P)|
00002E10: 3B 59 24 00 25 36 25 3F 8B 20 55 B3 36 20 A7 20 |;Y$.%6%?. U.6 . |
00002E20: 31 36 31 30 30 00 45 36 2A 3F 55 B2 31 3A 8F 20 |16100.E6*?U.1:. |
00002E30: 52 45 53 45 54 20 4C 49 4E 45 20 43 4F 55 4E 54 |RESET LINE COUNT|
00002E40: 20 46 4C 41 47 00 4B 36 2F 3F 99 00 51 36 34 3F | FLAG.K6/?..Q64?|
00002E50: 82 00 5B 36 E8 3F 98 34 3A A0 34 00 81 36 F2 3F |..[6.?.4:.4..6.?|
00002E60: 99 20 C7 28 31 34 37 29 3A 8D 20 31 31 30 32 30 |. .(147):. 11020|
00002E70: 3A 8F 20 20 44 49 53 50 4C 41 59 20 4C 41 42 45 |:. DISPLAY LABE|
00002E80: 4C 00 B0 36 FC 3F 99 3A 99 3A 99 20 22 20 20 20 |L..6.?.:.:. " |
00002E90: 20 20 4D 4F 52 45 20 4F 46 20 54 48 45 20 53 41 | MORE OF THE SA|
00002EA0: 4D 45 20 4C 41 42 45 4C 20 22 3B 3A 85 20 58 24 |ME LABEL ";:. X$|
00002EB0: 00 CC 36 01 40 8B 20 C8 28 58 24 2C 31 29 B2 22 |..6.@. .(X$,1)."|
00002EC0: 59 22 20 A7 20 89 20 31 36 30 32 30 00 00 37 06 |Y" . . 16020..7.|
00002ED0: 40 99 20 C7 28 31 38 29 20 C7 28 32 37 29 22 40 |@. .(18) .(27)"@|
00002EE0: 22 3A 8D 20 36 33 30 30 3A 89 20 32 34 30 3A 8F |":. 6300:. 240:.|
00002EF0: 20 20 47 4F 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 | GOTO MAIN MENU|
00002F00: 00 13 37 74 40 99 20 C7 28 31 34 37 29 3A 99 3A |..7t@. .(147):.:|
00002F10: 99 3A 99 00 3F 37 7E 40 99 20 22 20 20 20 20 20 |.:..?7~@. " |
00002F20: 20 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 | DO YOU WANT T|
00002F30: 48 45 20 4C 41 42 45 4C 53 3A 22 3A 99 3A 99 00 |HE LABELS:":.:..|
00002F40: 66 37 88 40 99 20 22 20 20 20 20 20 20 20 20 43 |f7.@. " C|
00002F50: 20 2D 20 43 45 4E 54 45 52 20 4A 55 53 54 49 46 | - CENTER JUSTIF|
00002F60: 49 45 44 22 3A 99 00 8B 37 92 40 99 20 22 20 20 |IED":...7.@. " |
00002F70: 20 20 20 20 20 20 4C 20 2D 20 4C 45 46 54 20 4A | L - LEFT J|
00002F80: 55 53 54 49 46 49 45 44 22 3A 99 00 B3 37 9C 40 |USTIFIED":...7.@|
00002F90: 99 20 22 20 20 20 20 20 20 20 20 4D 20 2D 20 52 |. " M - R|
00002FA0: 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 |ETURN TO MAIN ME|
00002FB0: 4E 55 22 00 CE 37 A6 40 A1 20 41 37 24 3A 8B 20 |NU"..7.@. A7$:. |
00002FC0: 41 37 24 B2 22 22 20 A7 20 31 36 35 35 30 00 E4 |A7$."" . 16550..|
00002FD0: 37 B0 40 8B 20 41 37 24 B2 22 43 22 20 A7 20 31 |7.@. A7$."C" . 1|
00002FE0: 36 30 35 30 00 FA 37 BA 40 8B 20 41 37 24 B2 22 |6050..7.@. A7$."|
00002FF0: 4C 22 20 A7 20 31 36 37 30 30 00 1C 38 C4 40 8B |L" . 16700..8.@.|
00003000: 20 41 37 24 B3 B1 22 43 22 20 AF 20 41 37 24 B3 | A7$.."C" . A7$.|
00003010: B1 22 4C 22 20 A7 20 89 20 32 34 30 00 22 38 3C |."L" . . 240."8<|
00003020: 41 8F 00 45 38 46 41 8F 20 20 3A 3A 3A 3A 20 4C |A..E8FA. :::: L|
00003030: 45 46 54 20 4A 55 53 54 49 46 49 43 41 54 49 4F |EFT JUSTIFICATIO|
00003040: 4E 20 3A 3A 3A 00 4B 38 50 41 8F 00 57 38 5A 41 |N :::.K8PA..W8ZA|
00003050: 9F 34 2C 34 3A 9D 34 00 95 38 64 41 52 B2 31 37 |.4,4:.4..8dAR.17|
00003060: 3A 81 20 49 B2 31 20 A4 20 58 3A 55 B2 31 3A 8F |:. I.1 . X:U.1:.|
00003070: 20 20 52 20 49 53 20 54 48 45 20 4C 49 4E 45 20 | R IS THE LINE |
00003080: 4C 49 4D 49 54 45 52 20 46 4F 52 20 4F 4E 45 20 |LIMITER FOR ONE |
00003090: 4C 41 42 45 4C 00 AD 38 6E 41 55 B2 55 AA 31 3A |LABEL..8nAU.U.1:|
000030A0: 8B 20 55 B2 32 20 A7 20 59 24 B2 41 24 00 BF 38 |. U.2 . Y$.A$..8|
000030B0: 78 41 8B 20 55 B2 33 20 A7 20 59 24 B2 42 24 00 |xA. U.3 . Y$.B$.|
000030C0: D1 38 82 41 8B 20 55 B2 34 20 A7 20 59 24 B2 43 |.8.A. U.4 . Y$.C|
000030D0: 24 00 E3 38 8C 41 8B 20 55 B2 35 20 A7 20 59 24 |$..8.A. U.5 . Y$|
000030E0: B2 45 24 00 F5 38 96 41 8B 20 55 B2 36 20 A7 20 |.E$..8.A. U.6 . |
000030F0: 59 24 B2 46 24 00 28 39 A0 41 51 B2 C3 28 59 24 |Y$.F$.(9.AQ..(Y$|
00003100: 29 3A 42 54 B2 33 3A 8F 20 20 42 54 20 3D 20 53 |):BT.3:. BT = S|
00003110: 50 41 43 45 53 20 42 45 54 57 45 45 4E 20 54 48 |PACES BETWEEN TH|
00003120: 45 20 4C 41 42 45 4C 53 00 35 39 AA 41 50 B2 B5 |E LABELS.59.AP..|
00003130: 28 52 AB 51 29 00 4E 39 B4 41 8F 20 20 50 3D 53 |(R.Q).N9.A. P=S|
00003140: 50 41 43 45 53 20 56 41 52 49 41 42 4C 45 00 6F |PACES VARIABLE.o|
00003150: 39 BE 41 99 20 A6 48 29 20 59 24 3B A6 50 AA 42 |9.A. .H) Y$;.P.B|
00003160: 54 29 3B 59 24 3B A6 50 AA 42 54 29 3B 59 24 00 |T);Y$;.P.BT);Y$.|
00003170: 81 39 C8 41 8B 20 55 B3 36 20 A7 20 31 36 37 35 |.9.A. U.6 . 1675|
00003180: 30 00 A2 39 D2 41 55 B2 31 3A 8F 20 20 52 45 53 |0..9.AU.1:. RES|
00003190: 45 54 20 4C 49 4E 45 20 43 4F 55 4E 54 20 46 4C |ET LINE COUNT FL|
000031A0: 41 47 00 A8 39 DC 41 99 00 AE 39 E6 41 82 00 BA |AG..9.A...9.A...|
000031B0: 39 F0 41 89 20 31 36 33 36 30 00 C0 39 68 42 8F |9.A. 16360..9hB.|
000031C0: 00 DE 39 6D 42 8F 20 20 3A 3A 3A 3A 3A 20 59 4F |..9mB. ::::: YO|
000031D0: 55 52 20 4C 41 42 45 4C 20 3A 3A 3A 3A 3A 00 E4 |UR LABEL :::::..|
000031E0: 39 72 42 8F 00 FF 39 7C 42 41 24 B2 22 59 20 4F |9rB...9|BA$."Y O|
000031F0: 20 55 20 52 20 20 20 4E 20 41 20 4D 20 45 22 00 | U R N A M E".|
00003200: 17 3A 86 42 42 24 B2 22 41 20 44 20 44 20 52 20 |.:.BB$."A D D R |
00003210: 45 20 53 20 53 20 22 00 31 30 90 42 43 24 B2 22 |E S S ".10.BC$."|
00003220: 43 49 54 59 20 20 53 54 41 54 45 20 20 5A 49 50 |CITY STATE ZIP|
00003230: 22 00 3B 3A 9A 42 45 24 B2 22 22 00 59 3A A4 42 |".;:.BE$."".Y:.B|
00003240: 46 24 B2 22 41 53 53 49 47 4E 20 41 54 20 4C 49 |F$."ASSIGN AT LI|
00003250: 4E 45 20 31 37 30 32 30 22 00 5F 3A AE 42 8E 00 |NE 17020"._:.B..|
00003260: 65 3A 50 46 8F 00 85 3A 55 46 8F 20 20 3A 3A 3A |e:PF...:UF. :::|
00003270: 3A 3A 20 31 30 20 4D 4F 53 54 20 55 53 45 44 20 |:: 10 MOST USED |
00003280: 3A 3A 3A 3A 3A 00 8B 3A 58 46 8F 00 AB 3A 5A 46 |:::::..:XF...:ZF|
00003290: 81 20 49 B2 31 20 A4 20 32 38 99 20 C7 28 31 37 |. I.1 . 28. .(17|
000032A0: 29 3A 82 20 49 3A 99 20 A6 33 29 00 D2 3A 5F 46 |):. I:. .3)..:_F|
000032B0: 99 20 22 20 20 20 20 20 12 20 31 30 20 4D 4F 53 |. " . 10 MOS|
000032C0: 54 20 55 53 45 44 20 4C 41 42 45 4C 53 20 92 22 |T USED LABELS ."|
000032D0: 3A 99 00 F3 3A 64 46 99 22 20 20 20 20 20 20 20 |:...:dF." |
000032E0: 20 20 20 20 20 20 53 45 4C 45 43 54 20 46 52 4F | SELECT FRO|
000032F0: 4D 3A 22 00 FB 3A 6E 46 99 3A 99 00 28 3B 78 46 |M:"..:nF.:..(;xF|
00003300: 99 20 22 20 20 20 20 5B 20 31 20 5D 20 2D 20 2D |. " [ 1 ] - -|
00003310: 20 2D 20 43 4F 4D 50 55 54 45 20 50 55 42 4C 49 | - COMPUTE PUBLI|
00003320: 43 41 54 49 4F 4E 53 22 00 53 3B 82 46 99 20 22 |CATIONS".S;.F. "|
00003330: 20 20 20 20 5B 20 32 20 5D 20 2D 20 2D 20 2D 20 | [ 2 ] - - - |
00003340: 4C 41 42 45 4C 20 41 54 20 4C 49 4E 45 31 38 33 |LABEL AT LINE183|
00003350: 37 30 22 00 7E 3B 8C 46 99 20 22 20 20 20 20 5B |70".~;.F. " [|
00003360: 20 33 20 5D 20 2D 20 2D 20 2D 20 4C 41 42 45 4C | 3 ] - - - LABEL|
00003370: 20 41 54 20 4C 49 4E 45 31 38 34 34 30 22 00 A9 | AT LINE18440"..|
00003380: 3B 96 46 99 20 22 20 20 20 20 5B 20 34 20 5D 20 |;.F. " [ 4 ] |
00003390: 2D 20 2D 20 2D 20 4C 41 42 45 4C 20 41 54 20 4C |- - - LABEL AT L|
000033A0: 49 4E 45 31 38 35 31 30 22 00 D4 3B A0 46 99 20 |INE18510"..;.F. |
000033B0: 22 20 20 20 20 5B 20 35 20 5D 20 2D 20 2D 20 2D |" [ 5 ] - - -|
000033C0: 20 4C 41 42 45 4C 20 41 54 20 4C 49 4E 45 31 38 | LABEL AT LINE18|
000033D0: 35 38 30 22 00 FF 3B AA 46 99 20 22 20 20 20 20 |580"..;.F. " |
000033E0: 5B 20 36 20 5D 20 2D 20 2D 20 2D 20 4C 41 42 45 |[ 6 ] - - - LABE|
000033F0: 4C 20 41 54 20 4C 49 4E 45 31 38 36 35 30 22 00 |L AT LINE18650".|
00003400: 2A 3C B4 46 99 20 22 20 20 20 20 5B 20 37 20 5D |*<.F. " [ 7 ]|
00003410: 20 2D 20 2D 20 2D 20 4C 41 42 45 4C 20 41 54 20 | - - - LABEL AT |
00003420: 4C 49 4E 45 31 38 37 32 30 22 00 55 3C BE 46 99 |LINE18720".U<.F.|
00003430: 20 22 20 20 20 20 5B 20 38 20 5D 20 2D 20 2D 20 | " [ 8 ] - - |
00003440: 2D 20 4C 41 42 45 4C 20 41 54 20 4C 49 4E 45 31 |- LABEL AT LINE1|
00003450: 38 37 39 30 22 00 80 3C C8 46 99 20 22 20 20 20 |8790"..<.F. " |
00003460: 20 5B 20 39 20 5D 20 2D 20 2D 20 2D 20 4C 41 42 | [ 9 ] - - - LAB|
00003470: 45 4C 20 41 54 20 4C 49 4E 45 31 38 38 36 30 22 |EL AT LINE18860"|
00003480: 00 AB 3C D2 46 99 20 22 20 20 20 20 5B 20 30 20 |..<.F. " [ 0 |
00003490: 5D 20 2D 20 2D 20 2D 20 4C 41 42 45 4C 20 41 54 |] - - - LABEL AT|
000034A0: 20 4C 49 4E 45 31 38 39 33 30 22 00 D9 3C DC 46 | LINE18930"..<.F|
000034B0: 99 20 22 20 20 20 20 5B 20 52 20 5D 20 2D 20 2D |. " [ R ] - -|
000034C0: 20 2D 20 3C 52 45 54 55 52 4E 20 54 4F 20 4D 41 | - <RETURN TO MA|
000034D0: 49 4E 20 4D 45 4E 55 3E 22 00 01 3D E6 46 99 3A |IN MENU>"..=.F.:|
000034E0: 99 3A 99 20 22 20 20 20 20 5B 20 20 20 5D 20 2E |.:. " [ ] .|
000034F0: 2E 2E 2E 2E 20 59 4F 55 52 20 43 48 4F 49 43 45 |.... YOUR CHOICE|
00003500: 22 00 1C 3D F5 46 A1 20 41 33 24 3A 8B 20 41 33 |"..=.F. A3$:. A3|
00003510: 24 B2 22 22 20 A7 20 31 38 31 36 35 00 44 3D FA |$."" . 18165.D=.|
00003520: 46 8B 20 41 33 24 B2 22 31 22 20 A7 20 8D 20 31 |F. A3$."1" . . 1|
00003530: 38 33 30 30 3A 99 20 C7 28 31 34 37 29 3A 89 20 |8300:. .(147):. |
00003540: 31 30 32 30 00 72 3D FB 46 8F 20 20 50 45 52 46 |1020.r=.F. PERF|
00003550: 4F 52 4D 20 4C 41 42 45 4C 20 50 49 43 4B 55 50 |ORM LABEL PICKUP|
00003560: 20 2D 20 47 4F 54 4F 20 50 52 49 4E 54 20 4D 45 | - GOTO PRINT ME|
00003570: 4E 55 00 9A 3D 04 47 8B 20 41 33 24 B2 22 32 22 |NU..=.G. A3$."2"|
00003580: 20 A7 20 8D 20 31 38 33 37 30 3A 99 20 C7 28 31 | . . 18370:. .(1|
00003590: 34 37 29 3A 89 20 31 30 32 30 00 C2 3D 0E 47 8B |47):. 1020..=.G.|
000035A0: 20 41 33 24 B2 22 33 22 20 A7 20 8D 20 31 38 34 | A3$."3" . . 184|
000035B0: 34 30 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 |40:. .(147):. 10|
000035C0: 32 30 00 EA 3D 18 47 8B 20 41 33 24 B2 22 34 22 |20..=.G. A3$."4"|
000035D0: 20 A7 20 8D 20 31 38 35 31 30 3A 99 20 C7 28 31 | . . 18510:. .(1|
000035E0: 34 37 29 3A 89 20 31 30 32 30 00 12 3E 22 47 8B |47):. 1020..>"G.|
000035F0: 20 41 33 24 B2 22 35 22 20 A7 20 8D 20 31 38 35 | A3$."5" . . 185|
00003600: 38 30 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 |80:. .(147):. 10|
00003610: 32 30 00 3A 3E 2C 47 8B 20 41 33 24 B2 22 36 22 |20.:>,G. A3$."6"|
00003620: 20 A7 20 8D 20 31 38 36 35 30 3A 99 20 C7 28 31 | . . 18650:. .(1|
00003630: 34 37 29 3A 89 20 31 30 32 30 00 62 3E 36 47 8B |47):. 1020.b>6G.|
00003640: 20 41 33 24 B2 22 37 22 20 A7 20 8D 20 31 38 37 | A3$."7" . . 187|
00003650: 32 30 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 |20:. .(147):. 10|
00003660: 32 30 00 8A 3E 40 47 8B 20 41 33 24 B2 22 38 22 |20..>@G. A3$."8"|
00003670: 20 A7 20 8D 20 31 38 37 39 30 3A 99 20 C7 28 31 | . . 18790:. .(1|
00003680: 34 37 29 3A 89 20 31 30 32 30 00 B2 3E 4A 47 8B |47):. 1020..>JG.|
00003690: 20 41 33 24 B2 22 39 22 20 A7 20 8D 20 31 38 38 | A3$."9" . . 188|
000036A0: 36 30 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 |60:. .(147):. 10|
000036B0: 32 30 00 DA 3E 54 47 8B 20 41 33 24 B2 22 30 22 |20..>TG. A3$."0"|
000036C0: 20 A7 20 8D 20 31 38 39 33 30 3A 99 20 C7 28 31 | . . 18930:. .(1|
000036D0: 34 37 29 3A 89 20 31 30 32 30 00 02 3F 5E 47 8B |47):. 1020..?^G.|
000036E0: 20 41 33 24 B2 22 52 22 20 A7 20 89 20 32 34 30 | A3$."R" . . 240|
000036F0: 3A 8F 20 20 47 4F 54 4F 20 4D 41 49 4E 20 4D 45 |:. GOTO MAIN ME|
00003700: 4E 55 00 1E 3F 72 47 8F 20 20 3A 3A 3A 3A 3A 20 |NU..?rG. ::::: |
00003710: 4C 41 42 45 4C 20 23 31 20 3A 3A 3A 3A 3A 00 42 |LABEL #1 :::::.B|
00003720: 3F 7C 47 41 24 B2 22 43 4F 4D 50 55 54 45 20 50 |?|GA$."COMPUTE P|
00003730: 55 42 4C 49 43 41 54 49 4F 4E 53 2C 20 49 4E 43 |UBLICATIONS, INC|
00003740: 2E 22 00 5A 3F 86 47 42 24 B2 22 50 2E 20 4F 2E |.".Z?.GB$."P. O.|
00003750: 20 42 4F 58 20 35 34 30 36 22 00 79 3F 90 47 43 | BOX 5406".y?.GC|
00003760: 24 B2 22 47 52 45 45 4E 53 42 4F 52 4F 2C 20 4E |$."GREENSBORO, N|
00003770: 43 20 20 32 37 34 30 33 22 00 89 3F 9A 47 45 24 |C 27403"..?.GE$|
00003780: B2 22 55 2E 53 2E 41 2E 22 00 93 3F A4 47 46 04 |."U.S.A."..?.GF.|
00003790: B2 22 22 00 99 3F AE 47 8E 00 B5 3F B8 47 8F 20 |.""..?.G...?.G. |
000037A0: 20 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 32 20 | ::::: LABEL #2 |
000037B0: 3A 3A 3A 3A 3A 00 D4 3F C2 47 41 24 B2 22 55 4E |:::::..?.GA$."UN|
000037C0: 41 53 53 49 47 4E 45 44 20 4C 49 4E 45 20 31 38 |ASSIGNED LINE 18|
000037D0: 33 37 30 22 00 DE 3F CC 47 42 24 B2 22 22 00 E8 |370"..?.GB$.""..|
000037E0: 3F D6 47 43 24 B2 22 22 00 F2 3F E0 47 45 24 B2 |?.GC$.""..?.GE$.|
000037F0: 22 22 00 FC 3F EA 47 46 24 B2 22 22 00 02 40 F4 |""..?.GF$.""..@.|
00003800: 47 8E 00 1E 40 FE 47 8F 20 20 3A 3A 3A 3A 3A 20 |G...@.G. ::::: |
00003810: 4C 41 42 45 4C 20 23 33 20 3A 3A 3A 3A 3A 00 3D |LABEL #3 :::::.=|
00003820: 40 08 48 41 24 B2 22 55 4E 41 53 53 49 47 4E 45 |@.HA$."UNASSIGNE|
00003830: 44 20 4C 49 4E 45 20 31 38 34 34 30 22 00 47 40 |D LINE 18440".G@|
00003840: 12 48 42 24 B2 22 22 00 51 40 1C 48 43 24 B2 22 |.HB$."".Q@.HC$."|
00003850: 22 00 5B 40 26 48 45 24 B2 22 22 00 65 40 30 48 |".[@&HE$."".e@0H|
00003860: 46 24 B2 22 22 00 6B 40 3A 48 8E 00 87 40 44 48 |F$."".k@:H...@DH|
00003870: 8F 20 20 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 |. ::::: LABEL #|
00003880: 34 20 3A 3A 3A 3A 3A 00 A6 40 4E 48 41 24 B2 22 |4 :::::..@NHA$."|
00003890: 55 4E 41 53 53 49 47 4E 45 44 20 4C 49 4E 45 20 |UNASSIGNED LINE |
000038A0: 31 38 35 31 30 22 00 B0 40 58 48 42 24 B2 22 22 |18510"..@XHB$.""|
000038B0: 00 BA 40 62 48 43 24 B2 22 22 00 C4 40 6C 48 45 |..@bHC$.""..@lHE|
000038C0: 24 B2 22 22 00 CE 40 76 48 46 24 B2 22 22 00 D4 |$.""..@vHF$.""..|
000038D0: 40 80 48 8E 00 F0 40 8A 48 8F 20 20 3A 3A 3A 3A |@.H...@.H. ::::|
000038E0: 3A 20 4C 41 42 45 4C 20 23 35 20 3A 3A 3A 3A 3A |: LABEL #5 :::::|
000038F0: 00 0F 41 94 48 41 24 B2 22 55 4E 41 53 53 49 47 |..A.HA$."UNASSIG|
00003900: 4E 45 44 20 4C 49 4E 45 20 31 38 35 31 30 22 00 |NED LINE 18510".|
00003910: 19 41 9E 48 42 24 B2 22 22 00 23 41 A8 48 43 24 |.A.HB$."".#A.HC$|
00003920: B2 22 22 00 2D 41 B2 48 45 24 B2 22 22 00 37 41 |."".-A.HE$."".7A|
00003930: BC 48 46 24 B2 22 22 00 3D 41 C6 48 8E 00 59 41 |.HF$."".=A.H..YA|
00003940: D0 48 8F 20 20 3A 3A 3A 3A 3A 20 4C 41 42 45 4C |.H. ::::: LABEL|
00003950: 20 23 36 20 3A 3A 3A 3A 3A 00 78 41 DA 48 41 24 | #6 :::::.xA.HA$|
00003960: B2 22 55 4E 41 53 53 49 47 4E 45 44 20 4C 49 4E |."UNASSIGNED LIN|
00003970: 45 20 31 38 36 35 30 22 00 82 41 E4 48 42 24 B2 |E 18650"..A.HB$.|
00003980: 22 22 00 8C 41 EE 48 43 24 B2 22 22 00 96 41 F8 |""..A.HC$.""..A.|
00003990: 48 45 24 B2 22 22 00 A0 41 02 49 46 24 B2 22 22 |HE$.""..A.IF$.""|
000039A0: 00 A6 41 0C 49 8E 00 C2 41 16 49 8F 20 20 3A 3A |..A.I...A.I. ::|
000039B0: 3A 3A 3A 20 4C 41 42 45 4C 20 23 37 20 3A 3A 3A |::: LABEL #7 :::|
000039C0: 3A 3A 00 E1 41 20 49 41 24 B2 22 55 4E 41 53 53 |::..A IA$."UNASS|
000039D0: 49 47 4E 45 44 20 4C 49 4E 45 20 31 38 37 32 30 |IGNED LINE 18720|
000039E0: 22 00 EB 41 2A 49 42 24 B2 22 22 00 F5 41 34 49 |"..A*IB$.""..A4I|
000039F0: 43 24 B2 22 22 00 FF 41 3E 49 45 24 B2 22 22 00 |C$.""..A>IE$."".|
00003A00: 09 42 48 49 46 24 B2 22 22 00 0F 42 52 49 8E 00 |.BHIF$.""..BRI..|
00003A10: 2B 42 5C 49 8F 20 20 3A 3A 3A 3A 3A 20 4C 41 42 |+B\I. ::::: LAB|
00003A20: 45 4C 20 23 38 20 3A 3A 3A 3A 3A 00 4A 42 66 49 |EL #8 :::::.JBfI|
00003A30: 41 24 B2 22 55 4E 41 53 53 49 47 4E 45 44 20 4C |A$."UNASSIGNED L|
00003A40: 49 4E 45 20 31 38 37 39 30 22 00 54 42 70 49 42 |INE 18790".TBpIB|
00003A50: 24 B2 22 22 00 5E 42 7A 49 43 24 B2 22 22 00 68 |$."".^BzIC$."".h|
00003A60: 42 84 49 45 24 B2 22 22 00 72 42 8E 49 46 24 B2 |B.IE$."".rB.IF$.|
00003A70: 22 22 00 78 42 98 49 8E 00 94 42 A2 49 8F 20 20 |"".xB.I...B.I. |
00003A80: 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 39 20 3A |::::: LABEL #9 :|
00003A90: 3A 3A 3A 3A 00 B3 42 AC 49 41 24 B2 22 55 4E 41 |::::..B.IA$."UNA|
00003AA0: 53 53 49 47 4E 45 44 20 4C 49 4E 45 20 31 38 38 |SSIGNED LINE 188|
00003AB0: 36 30 22 00 BD 42 B6 49 42 24 B2 22 22 00 C7 42 |60"..B.IB$.""..B|
00003AC0: C0 49 43 24 B2 22 22 00 D1 42 CA 49 45 24 B2 22 |.IC$.""..B.IE$."|
00003AD0: 22 00 DB 42 D4 49 46 24 B2 22 22 00 E1 42 DE 49 |"..B.IF$.""..B.I|
00003AE0: 8E 00 FD 42 E8 49 8F 20 20 3A 3A 3A 3A 3A 20 4C |...B.I. ::::: L|
00003AF0: 41 42 45 4C 20 23 30 20 3A 3A 3A 3A 3A 00 1C 43 |ABEL #0 :::::..C|
00003B00: F2 49 41 24 B2 22 55 4E 41 53 53 49 47 4E 45 44 |.IA$."UNASSIGNED|
00003B10: 20 4C 49 4E 45 20 31 38 38 36 30 22 00 26 43 FC | LINE 18860".&C.|
00003B20: 49 42 24 B2 22 22 00 30 43 06 4A 43 24 B2 22 22 |IB$."".0C.JC$.""|
00003B30: 00 3A 43 10 4A 45 24 B2 22 22 00 44 43 1A 4A 46 |.:C.JE$."".DC.JF|
00003B40: 24 B2 22 22 00 4A 43 24 4A 8E 00 50 43 A8 61 8F |$."".JC$J..PC.a.|
00003B50: 00 67 43 B2 61 8F 20 20 3A 3A 3A 3A 3A 20 45 4E |.gC.a. ::::: EN|
00003B60: 44 20 3A 3A 3A 3A 3A 00 6D 43 B7 61 8F 00 7A 43 |D :::::.mC.a..zC|
00003B70: BC 61 99 20 C7 28 31 34 37 29 00 9D 43 C6 61 99 |.a. .(147)..C.a.|
00003B80: 20 C7 28 31 34 37 29 3A 81 20 49 B2 31 20 A4 20 | .(147):. I.1 . |
00003B90: 34 3A 99 20 C7 28 31 37 29 3A 82 20 49 00 C4 43 |4:. .(17):. I..C|
00003BA0: D0 61 99 20 22 20 20 20 20 20 20 20 20 20 20 2A |.a. " *|
00003BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003BC0: 2A 2A 2A 22 00 E5 43 DA 61 99 20 A6 31 30 29 22 |***"..C.a. .10)"|
00003BD0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00003BE0: 20 20 20 2A 22 00 0C 44 E4 61 99 20 22 20 20 20 | *"..D.a. " |
00003BF0: 20 20 20 20 20 20 20 2A 20 20 20 20 20 47 4F 4F | * GOO|
00003C00: 44 20 42 59 45 20 20 20 20 20 2A 22 00 2D 44 EE |D BYE *".-D.|
00003C10: 61 99 20 A6 31 30 29 22 2A 20 20 20 20 20 20 20 |a. .10)"* |
00003C20: 20 20 20 20 20 20 20 20 20 20 20 2A 22 00 54 44 | *".TD|
00003C30: F8 61 99 20 22 20 20 20 20 20 20 20 20 20 20 2A |.a. " *|
00003C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003C50: 2A 2A 2A 22 00 69 44 02 62 81 20 49 B2 31 20 A4 |***".iD.b. I.1 .|
00003C60: 20 31 30 30 30 3A 82 20 49 00 7E 44 0C 62 81 20 | 1000:. I.~D.b. |
00003C70: 49 B2 31 20 A4 20 32 35 3A 99 3A 82 20 49 00 84 |I.1 . 25:.:. I..|
00003C80: 44 16 62 80 00 8A 44 18 79 8F 00 AD 44 22 79 8F |D.b...D.y...D"y.|
00003C90: 20 20 3A 3A 3A 3A 3A 20 53 55 42 52 4F 55 54 49 | ::::: SUBROUTI|
00003CA0: 4E 45 20 4C 49 53 54 20 3A 3A 3A 3A 3A 00 B3 44 |NE LIST :::::..D|
00003CB0: 2C 79 8F 00 CF 44 36 79 8F 20 20 20 31 30 30 20 |,y...D6y. 100 |
00003CC0: 53 45 54 55 50 2F 4D 41 49 4E 20 4D 45 4E 55 00 |SETUP/MAIN MENU.|
00003CD0: E6 44 40 79 8F 20 20 31 30 30 30 20 50 52 49 4E |.D@y. 1000 PRIN|
00003CE0: 54 20 4D 45 4E 55 00 FF 44 4A 79 8F 20 20 32 30 |T MENU..DJy. 20|
00003CF0: 30 30 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 00 |00 INSTRUCTIONS.|
00003D00: 18 45 54 79 8F 20 20 34 30 30 30 20 4C 41 42 45 |.ETy. 4000 LABE|
00003D10: 4C 20 42 4F 52 44 45 52 00 3F 45 5E 79 8F 20 20 |L BORDER.?E^y. |
00003D20: 35 30 30 30 20 4C 49 4E 45 20 4C 49 4D 49 54 45 |5000 LINE LIMITE|
00003D30: 52 20 26 20 49 4E 50 55 54 20 4C 49 4E 45 53 00 |R & INPUT LINES.|
00003D40: 5C 45 72 79 8F 20 20 37 30 30 30 20 48 4F 57 20 |\Ery. 7000 HOW |
00003D50: 4D 41 4E 59 20 4C 41 42 45 4C 53 3F 00 77 45 7C |MANY LABELS?.wE||
00003D60: 79 8F 20 20 38 30 30 30 20 53 54 41 4E 44 41 52 |y. 8000 STANDAR|
00003D70: 44 20 50 52 49 4E 54 00 8F 45 86 79 8F 20 20 39 |D PRINT..E.y. 9|
00003D80: 30 30 30 20 44 4F 55 42 4C 45 20 57 49 44 45 00 |000 DOUBLE WIDE.|
00003D90: AC 45 90 79 8F 20 31 30 30 30 30 20 53 45 54 55 |.E.y. 10000 SETU|
00003DA0: 50 20 45 4D 50 48 41 53 49 5A 45 44 00 C9 45 9A |P EMPHASIZED..E.|
00003DB0: 79 8F 20 31 31 30 30 30 20 4C 41 42 45 4C 20 46 |y. 11000 LABEL F|
00003DC0: 4F 52 20 53 43 52 45 45 4E 00 E2 45 A4 79 8F 20 |OR SCREEN..E.y. |
00003DD0: 31 32 30 30 30 20 38 30 20 43 50 4C 20 53 45 54 |12000 80 CPL SET|
00003DE0: 55 50 00 FC 45 AE 79 8F 20 31 33 30 30 30 20 31 |UP..E.y. 13000 1|
00003DF0: 33 32 20 43 50 4C 20 53 45 54 55 50 00 15 46 B8 |32 CPL SETUP..F.|
00003E00: 79 8F 20 31 34 30 30 30 20 34 30 20 43 50 4C 20 |y. 14000 40 CPL |
00003E10: 53 45 54 55 50 00 2E 46 C2 79 8F 20 31 35 30 30 |SETUP..F.y. 1500|
00003E20: 30 20 36 36 20 43 50 4C 20 53 45 54 55 50 00 46 |0 66 CPL SETUP.F|
00003E30: 46 CC 79 8F 20 31 36 30 30 30 20 54 52 49 50 4C |F.y. 16000 TRIPL|
00003E40: 45 20 57 49 44 45 00 5D 46 D6 79 8F 20 31 37 30 |E WIDE.]F.y. 170|
00003E50: 30 30 20 59 4F 55 52 20 4C 41 42 45 4C 00 76 46 |00 YOUR LABEL.vF|
00003E60: E0 79 8F 20 31 38 30 30 30 20 31 30 20 4D 4F 53 |.y. 18000 10 MOS|
00003E70: 54 20 55 53 45 44 00 86 46 EA 79 8F 20 32 35 30 |T USED..F.y. 250|
00003E80: 30 30 20 45 4E 44 00 A2 46 F4 79 8F 20 33 31 30 |00 END..F.y. 310|
00003E90: 30 30 20 53 55 42 52 4F 55 54 49 4E 45 20 4C 49 |00 SUBROUTINE LI|
00003EA0: 53 54 00 00 00 |ST... |
....... ***LABEL MAKER***.A.... ///ORIGI
NAL PROGRAM WRITTEN BY S.P.TULK NBAGV-MA
DISON, OHIO-03/81...... ///REVISED BY S.
P. TULK NBAGU IN JUNE 1981 ///...(...N.2
.. :::REVISED BY MICHAEL MOORE IN OCT. 1
982:::...<.. :::CONTRIBUTED BY MICHAEL M
OORE TO APPLE CORPS OF DALLAS:::...F...B
.P.. ---ADAPTED FOR COMMODORE 64 BY PHIL
DEGELIA, DECATUR, TEXAS, 09/83---...X..
G(147):. I.1 . 5:. G(17):. I:. .7)...}.
. G(18) " PRINTER MUST BE TURNED ON " G(
146).Q.... I.1 . 1500:. I.W.......... ::
:::::LABEL INPUT MENU::::::::.......-...
. G(147):.:. CHR$(147) IS CLEAR/HOME.J.
... I.1 . 40:. "*";:. I:.;.\.... "*".38)
"*";...... "* *** LABEL MAKER
*** *";...H.. "*" .38) "*";...R..
I.1 . 40:. "*";:. I...T.. G(17) .6) G(1
7) "ORIGINAL PROGRAM WRITTEN BY:"...U..
G(17).13)"S. P. TULK".=.V.. G(17)G(17).7
) "MODIFIED BY MICHAEL MOORE".S.W.. G(17
)G(17).4)"ADAPTED FOR C-64 BY PHIL DEGEL
IA". ....:. " PRINTER CODES DESIGN
ED FOR "...... .13) "GEMINI 10X/15 ".D..
..:....... " --PRESS " G(18) "SHIFT" G
(146) " KEY TO CONTINUE.--"...... 653,1.
..... 6300:E.1.Q.... E IS EMPHASIZE ON
/OFF FLAG=1 INDICATES OFF.M.... G(147)G(
17)G(17)G(17)...... .13) G(18) " MAIN ME
NU " G(146)...... G(17) .15) "SELECTION"
.W.J..:.:. " [ 1 ] - - - NEW LABEL".
..T..:. " [ 2 ] - - - YOUR LABEL".,.
^..:. " [ 3 ] - - - 10 MOST USED LAB
ELS".\.H..:. " [ 4 ] - - - SHORTENED
DISK LABEL"...R..:. " [ 5 ] - - - F
ULL SIZE DISK LABEL"...|..:. " [ Q ]
- - - < END >"......:.:....... " [
] .......YOUR CHOICE"...... A1$:. A1$.
"" . 400.-.B.. A1$."1" . . G(147):S1.30:
. 6020:. 11005:. 1025.S.G.. GET LABEL LI
NES-DISPLAY LABEL ON SCREEN-GOTO PRINT M
ENU ROUTINE...L.. A1$."2" . . G(147):. 1
7010:. G(147):. 1020.L.M.. GET LABEL-GOT
O PRINT MENU ROUTINE...V.. A1$."3" . . G
(147):. 18010...W.. GOTO MOST USED MENU
ROUTINE.B.... A1$."4" . S1.23:L.1:A.27:B
.7:C.22:D.3:. 4008.A.... GOTO LABEL PRIN
T ROUTINE...... A1$."5" . S1.29:L.1:A.33
:B.10:C.28:D.0:. 4008...... GOTO LABEL P
RINT ROUTINE.L.... A1$."Q" . . 25020....
.. GOTO END ROUTINE............ ::::PRIN
T CHOICE::::.......0.... 11005:. DISPLAY
LABEL ON SCREEN.N.... CPL=CHARACTERS PE
R LINE.W....:.:. .14) G(18)" PRINT MENU
"G(146).B.... CHR$(18) IS REVERSE ON --
CHR$(146) IS REVERSE OFF
--.X.... .15)"SELECTION"...... ". [ 1
] - - - STANDARD 80 CPL".*.... " [ 2 ]
- - - COMPRESSED 132 CPL".Z.$.. " [ 3
] - - - TRIPLE COLUMN LABELS-STD"...)..
" [ 4 ] - - - DOUBLE WIDE/COMPR 66 CP
L"...... " [ 5 ] - - - DOUBLE WIDE 40
CPL".V.3.. " [ 6 ] - - - EMPHASIZED"..
.8.. " [ 9 ] - - - RETURN TO MAIN MENU
".&.=.. 10020:. DISPLAY EMPHASIZE FLAG.K
.B..:. " [ ] ..... YOUR CHOICE".Q.D.
....E.. ---- EMPHASIZED PRINT MODE DOE
S NOT COMBINE WITH COMPRESSED MODE---...
F.....G...V.L.. G(19):. I.1 . 11:. G(17)
:. I:. .2):. Y...Q.. Y . 1110,1120,1130,
1140,1147,1149,1155,1155,1155...V.. G(14
7).(.X..4,4,1:.4.4.Z.. G(18).>.\..4: 4.[
.].H.5:Q.18:. 11005:. 12050...^.. DISPLA
Y LABEL ON SCREEN-GOTO LABEL PRINT ROUTI
NE..._.. H=HORIZONTAL SPACING VARIABLE.
I.`.. G(147):Q.20.W.A..4,4,1:.4...B.. G(
27)"F"...C.. G(20)...E..4: 4.1.F.. Q=VA
RIABLE TO TURN ON OR OFF COMPRESSED PRIN
T.I.G.H.9:. 11005:. 12050.V.H.. CHR$(27)
"F" TURNS OFF EMPHASIZED PRINT...I.. CHR
$(20) TURNS ON COMPRESSED PRINT - DISPLA
Y LABEL ON SCREEN.X.J.H.5:. 2200:. 11005
:. 16010...K.. DISPLAY LABEL ON SCREEN-G
OTO TRIPLE WIDE LABEL PRINT.;.T.. G(147)
:.4,4,1:.4:. G(27)"F":.4: 4.X.U..4,4,1:.
4:. G(20);:.4: 4...V.H.4:. 11005:. 14050
:. CHR$(27)"F" TURNS OFF EMPHASIZED PRIN
T.B.X.. CHR$(20) TURNS ON COMPRESSED PRI
NT...Y.. DISPLAY LABEL ON SCREEN - GOTO
LABEL PRINT ROUTINE.".{.H.3:S1.15:. G(14
7):. 11005:. 14050.A.|.. GOTO LABEL PRIN
T ROUTINE.N.}.. G(147).F.~.H.0:. 11005:.
G(17)...... " " G(18) " EMP
HASIZE ON " G(146) " "......
1025.V.... 240:. RETURN TO MAIN MENU..
.P.....Z.. :::::INSTRUCTIONS:::::.......
..... G(147).C....:.:. " " G(
18) " INSTRUCTIONS " G(146).S....:.:. "
PRINT WIDTH IS SET BY LINE LIMITER".....
. " FOR 3 1/2 INCH LABELS.".B....:. " 5
LINES NORMAL OR 3 LINES BORDERED."......
:. " DO NOT USE COMMAS OR COLONS."...4..
:. " A RETURN WITH NO ENTRY WILL GIVE".-
.>.. " A BLANK LINE.".5.H..:..T.J.. "
--PRESS " G(18) "SHIFT" G(146) " KEY TO
CONTINUE.--"...L.. 653,1...N............
.. ::TRIPLE COL. INSTRUCTIONS::.......C
.... G(147)......:.:. " TRIPLE COLUMN
LABEL INSTRUCTIONS".%....:.:. " THE LE
NGTH OF TRIPLE COLUMN LABELS".S.J.. " M
UST BE LESS THAN THE NORMAL WIDTH ".D.O.
. " LABEL."...T.. " THE TRIPLE COLUMN
LABELS ARE SET TO"...Y.. " PRINT A 17 C
HARACTER LABEL WITH TWO"...... " SPACES
BETWEEN LABELS."...... " THESE VARIABL
ES MAY BE CHANGED AT ".6.... " PROGRAM
LINES 16000 TO 17000."._....:. " IF YOU
ENTERED A LABEL WITH "...... " MORE TH
AN 17 CHARACTERS, YOU MAY "...... " RET
URN TO RE-ENTER THE LABEL."...`..:....J.
. " DO YOU WANT TO RETURN TO THE"...O.
. " MAIN MENU? (CR='NO')"...X.. A6$:.
A6$."" . 2520.1.... A6$."Y" . 240.E....
A6$.G(13) . ..I.... A6$.."Y" . .6$.. G(1
3) . 2520.O. ........ ::::LABEL BORDER:
:::.......D....4,4,1:.4:. G(18):. TURN
OFF COMPRESSED PRINT......4: 4:. TURN /
FF PRINTER.....BR$."*":. SET DEFAULT VAL
UE FOR LABEL BORDER.J...V1$."001":. SET
S INITIAL DISPLAY VALUE FOR VOLUME.}...V
2$." VOL. ":. SET DEFAULT VALUE FOR TOP
LINE.....A4$."6":V$."Y":A$."":B$."":C$.
"".....Z$." COM 64 ":. SETS INITIAL D
ISPLAY VALUE FOR BOTTOM BORDER...... 470
5:. DISPLAY CURRENT LABEL.;....:.:. "
WHAT CHARACTER DO YOU WANT TO USE".J...
. " FOR THE BORDER? [ ] DEFAULT =
*".W.M.. "";BR$...R.. C(BR$)..2 . 4010..
.W.. G(147).J....:.:." WOULD YOU LIKE A
VOLUME NUMBER IN"...... " THE TOP L
INE OF THE BORDER ?":.:....... "
[ Y ] - - - YES":..A.... "
[ N ] - - - NO":..L.... " [
] ..... YOUR CHOICE"...... V$:. V$."" .
4091...... G(147)...... V$."N" . 4191.A.
... V$."Y" . . G(147):.:....... " ENTE
R YOUR VOLUME NUMBER (###)"...... "(MUST
BE 3 CHARACTERS LONG) [ ]";:. 4140.)
.".. 4060.6.,.. "";V1$.M.1.. C(V1$)..3 .
4060...6.. G(147):.:.:. " ENTER REPL
ACEMENT FOR WORD 'VOL.'"...7.. " IF DES
IRED. ( 4 CHARACTERS MAXIMUM)"...8.. .
8) "DEFAULT IS 'VOL.': [ ]".. ;..:.:.
"";V2$:. V2$."" . V2$."VOL.".* =.. C(V2$
) . 4 . V2$. " " .V2$. " ".W ?.. C(V2$)
. 3 . V2$ . " " . " " .V2$. " ".X @.. "4
160":. C(V2$) . 3 . 4060.. ^..:.:.:.. _.
. G(147).. `.. " WHAT WOULD YOU LIKE
IMPRINTED".. B.. " AT THE BOTTOM O
F THE BORDER?"..!H..:.:. " [ 1 ]
- - PET 2001":..7!R.. " [ 2 ] -
- CBM 8032 ":..^!|.. " [ 3 ] -
- CBM 4032 ":...!... " [ 4 ] - -
CBM 8096 ":...!... " [ 5 ] - -
VIC 20":..M!... " [ 6 ] - - COM
64":...!... " [ 0 ] - - SOLID BO
RDER ":.:..&"... " [ ] ..... Y
OUR CHOICE";:..@"... A4$:. A4$."" . 4262
.A"... A4$ ."0" . A4$. "8" . 4260.."...
A4$."1" . Z$. " PET 2001 ".."... A4$."2"
. Z$. " CBM 8032 ".D"B.. A4$."3" . Z$.
" CBM 4032 ".."L.. A4$."4" . Z$. " CBM 8
096 "..#V.. A4$."5" . Z$. " VIC 20 ".'
#... A4$."6" . Z$. " COM 64 ".H#... A4
$."0" . Z$. "**********".S#... 4330.Z#..
L.1:. 4705:. DISPLAY CURRENT LABEL..#...
G(147):. 12030:. GOTO 80 CPL SETUP..#\.
..K#].. :::::DISK LABEL FORMAT:::::.Q#^.
...#A.. G(147)..$F.H.4:. SET VALUE FOR H
ORIZONTAL TAB DURING SCREEN DISPLAY.`$P.
. V$."N" . V1$.BR$.BR$.BR$:. FILL TOP BO
RDER WITH REQUIRED CHAR..M$S.. J$." "..$
U.. V$."N" . J$.BR$..$Z.. V$."N" . V2$.B
R$.BR$.BR$.BR$.BR$.BR$.Q$... .H.D):. BR.
1 . B:. BR$;:. BR..%... V2$;:. V1$;:. J$
;:. BR.1 . B:. BR$;:. BR..%... G(10).$%.
.L.L.1:. L.2 . L$.A$.6%... L.3 . L$.B$.H
%... L.4 . L$.C$.X%... .H.D)BR$;.N%..HT.
.((C.C(L$)).2).Z%..HA.HT.1..%..T.HT.C(L$
).HA..%A.. T.C . HA.HT..%C.. .HT)L$.HA)B
R$ G(10).I%H.. L.4 . 4770..&J.. A4$."0"
. Z$.BR$.BR$.BR$.BR$.BR$.BR$.BR$.BR$.BR$
.BR$.'&T.. .H.D);:. BR.1. B:. BR$;:. BR.
U&... Z$;:. BR.1. B:. BR$;:. BR:. G(10)
G(10).U&..L.1:. RESET LINE COUNT FLAG.{&
.....&P....&U.. :::::INPUT LINES:::::..
&Z....&... G(147).K&... I.1 . 4:. G(17):
. I..&... " INPUT LINE #1 "..'... G(19):
. I.1 . 4:. G(17):.I:. .S1.1)"]".$'...:.
.5):. "";A$.F'... G(19):. I.1 . 4:. G(1
7):. I.^'... " INPUT LINE #2 "..'J.. G(1
9):. I.1 . 4:. G(17):.I:. .S1.1)"]"..'O.
. G(19):. I.1 . 6:. G(17):. I..'T.. .5):
. "";B$..'... G(19):. I.1 . 4:. G(17):.
I..'... " INPUT LINE #3 ".&(... G(19):.
I.1 . 4:. G(17):.I:. .S1.1)"]".H(... G(1
9):. I.1 . 7:. G(17):. I.Z(... .5):. "";
C$.|(... G(19):. I.1 . 4:. G(17):. I..(.
.. " INPUT LINE #4 ".A(... G(19):. I.1 .
4:. G(17):.I:. .S1.1)"]"..(... G(19):.
I.1 . 8:. G(17):. I..($.. .5):. "";E$..)
... G(19):. I.1 . 4:. G(17):. I./)8.. "
INPUT LINE #5 ".\)B.. G(19):. I.1 . 4:.
G(17):.I:. .S1.1)"]".~)G.. G(19):. I.1 .
9:. G(17):. I..)L.. .5):. "";F$..)V....
).....)... :::RESET LINE PRINT VALUES::
.F)....P)..A$."".Z)D.B$.""..)N.C$.""..)X
.E$.""..)..F$.""..).....*X....*].. ::::
:HOW MANY?:::::.%*B...K*L..:.:. "
HOW MANY LABELS ";.S*... X.{*... X.0 .
. 240:. RETURN TO MAIN MENU..*.....*@...
.*E.. :::::STANDARD PRINT:::::..*J...A*
T.. L..1 . . 8040..*U.. L=1 INDICATES TH
AT DISK LABELS ARE TO BE PRINTED.%+^.. I
.1 . X:. 4720:. I:. PRINT DISK LABELS.++
C...9+H.. I.1 . X.E+R.. .H) A$ G(10):.
CHR$(10) IS LINE FEED.X+|.. .H) B$ G(10)
..+... .H) C$ G(10)..+... .H) E$ G(10)..
+... .H) F$ G(10)..+... G(10).E+... I.K+
....Q+(#...+-#. :::::DOUBLE WIDE:::::..
+2#..7,7#. CHR$(14) REQUIRED ON EACH LI
NE TO TURN ON DOUBLE WIDE PRINT.E,<#. I.
1 . X.R,F#. G(14);.E,P#. .H) A$ G(10).R,
Z#. G(14);..,D#. .H) B$ G(10)..,N#. G(14
);..,X#. .H) C$ G(10)..,.#. G(14);.E,.#.
.H) E$ G(10).R,.#. G(14);.., #. .H) F$
G(10)..,.#. G(10)..,.#. I..-.#.4: 4..-H#
...-.'...-.'. ::::SET UP EMPHASIZE::::.4
-.'..H-$'. E.0 . . 10050.\-.'. E.1 . . 1
0090.B-8'..~-B'.4,4,1:.4:. PRINTER ON..
-G'. G(27)"E"..-L'.4: 4.C-Q'. CHR$(27)"E
" TURNS ON EMPHASIZED PRINT.M-`'E.1:...-
J'.4,4,1:.4:. G(27)"F":.4: 4...K'. CHR$(
27)"F" TURNS OFF EMPHASIZED PRINT.#..'E.
0:..)..*..N..*. :SCREEN PRINT OF LABEL V
ALUES:.T..+.....+. G(147)G(17)G(17):. CH
R$(147) IS CLR/HOME....+. .6)A$... +. .6
)B$...*+. .6)C$...4+. .6)E$...>+. .6)F$.
E.H+..K.......... ::::: 80 CPL SETUP ::
:::......../... 2000:. INSTRUCTIONS.$/.
/. 6020:. GET INPUT.M/./. L.1 . . 4705:
. DISPLAY DISK LABEL.{/./. L..1 . . 110
20:. DISPLAY REGULAR LABELS.././. 7020:.
HOW MANY?.././.4,4,1:.4../ /. PRINTER
ON.N/&/. 8020:. PRINT LABELS..0//. G(Q
):. Q MAY TURN COMPRESSED PRINT ON OR O
FF..00/.4: 4..01/. PRINTER OFF.K05/. G(
147):. L.1 . . 4705:. L.1 . . 12090.W08/
. 11030..0:/.:.:. " MORE OF THE SAME
LABEL ";:. X$..0>/. H(X$,1)."Y" . . G(1
47):. 12047..0@/. PERFORM DISPLAY LABEL
S ON SCREEN--CHR$(147) IS CURSOR CLEAR/H
OME..1D/. H(X$,1)."N" . . 12120..1N/. 12
085.G1X/Q.18:L.0:. 6300:. 240:. GOTO MA
IN MENU.M1H2..N1M2. ::::: 132 CPL SETUP
:::::.T1R2...1.2.4,4,1:.4..1.2. G(20)..
1.2.4: 4.B1.2. CHR$(20) TURNS ON COMPRE
SSED PRINT..1.2. 12030:. GOTO PRINT SET
UP..1.6...2.6. ::::: 40 CPL SETUP :::::
..2.6..(2N6. 2020:. INSTRUCTIONS.@2X6. 6
020:. GET INPUT.X2.6. 7020:. HOW MANY?
.F2.6.4,4,1:.4..2.6. 9020:. PRINT LARGE
..2.7. G(147):. 11020.B2.7.:. " MORE
OF THE SAME LABEL ";:. X$..2.7. H(X$,1)
."Y" . . G(147):. 11020:. 14050..3.7. D
ISPLAY LABEL ON SCREEN..3.7.4,4,1:.4.(3.
7. G(18).23(7.4: 4.U3X7. 6300:. 240:. G
OTO MAIN MENU.[3.:..{3.:. ::::: 66 CPL
SETUP :::::..3.:...3.:.4,4,1:.4..3.:. G(
20);:.G3.:. CHR$(20) TURNS ON COMPRESSE
D PRINT.Q3.:.4: 4..3.:. 14030:. GOTO PR
INT SETUP..3.>...4.>. :::::TRIPLE WIDE
LABEL :::::.!4.>..>4.>. 11020:. DISPLAY
LABEL.P4.>.:.:. .5)"SPECIFY NUMBER OF R
OWS OF 3 LABELS"..4.>. 7020:. HOW MANY
LABEL ROWS?..4.>. 16500..4.>..E4.>. :::
CENTER JUSTIFIED :::.K4.>..W4.>.4,4:.4.
.4.>R.17..4P>. I.1 . X..4S>U.1..5.>U.U.1
:. U.2 . Y$.A$. 5.>. U.3 . Y$.B$.25.>. U
.4 . Y$.C$.D5.>. U.5 . Y$.E$.V5.>. U.6 .
Y$.F$.B5.>Q.C(Y$).S5.?P..((R.Q).2)..5.?
. P=SPACES VARIABLE..5.?PA.P.1..5.?PT.P
.Q.PA..5.?. PT.R . PA.P..5.?BT.3:. BT=S
PACES BETWEEN TRIPLE COLUMN LABELS..6 ?.
.H.P) Y$;.PA.BT.P);Y$;.PA.BT.P);Y$.%6%?
. U.6 . 16100.E6*?U.1:. RESET LINE COUNT
FLAG.K6/?..Q64?..[6.?.4: 4..6.?. G(147)
:. 11020:. DISPLAY LABEL..6.?.:.:. "
MORE OF THE SAME LABEL ";:. X$.L6.@. H
(X$,1)."Y" . . 16020..7.@. G(18) G(27)"@
":. 6300:. 240:. GOTO MAIN MENU..7T@. G
(147):.:.:..?7~@. " DO YOU WANT T
HE LABELS:":.:..F7.@. " C - CENTE
R JUSTIFIED":...7.@. " L - LEFT J
USTIFIED":...7.@. " M - RETURN TO
MAIN MENU".N7.@. A7$:. A7$."" . 16550..
7.@. A7$."C" . 16050..7.@. A7$."L" . 167
00..8D@. A7$.."C" . A7$.."L" . . 240."8<
A..E8FA. :::: LEFT JUSTIFICATION :::.K8
PA..W8ZA.4,4:.4..8DAR.17:. I.1 . X:U.1:.
R IS THE LINE LIMITER FOR ONE LABEL..8
NAU.U.1:. U.2 . Y$.A$..8XA. U.3 . Y$.B$.
Q8.A. U.4 . Y$.C$..8.A. U.5 . Y$.E$..8.A
. U.6 . Y$.F$.(9 AQ.C(Y$):BT.3:. BT = S
PACES BETWEEN THE LABELS.59.AP..(R.Q).N9
.A. P=SPACES VARIABLE.O9.A. .H) Y$;.P.B
T);Y$;.P.BT);Y$..9HA. U.6 . 16750..9RAU.
1:. RESET LINE COUNT FLAG..9.A...9.A...
9.A. 16360..9HB...9MB. ::::: YOUR LABEL
:::::..9RB...9|BA$."Y O U R N A M E".
.:.BB$."A D D R E S S ".10.BC$."CITY ST
ATE ZIP".;:.BE$."".Y:.BF$."ASSIGN AT LI
NE 17020"._:.B..E:PF...:UF. ::::: 10 MO
ST USED :::::..:XF...:ZF. I.1 . 28. G(17
):. I:. .3).R:_F. " . 10 MOST USED L
ABELS .":...:DF." SELECT FRO
M:"..:NF.:..(;XF. " [ 1 ] - - - COMPU
TE PUBLICATIONS".S;.F. " [ 2 ] - - -
LABEL AT LINE18370".~;.F. " [ 3 ] - -
- LABEL AT LINE18440"..;.F. " [ 4 ]
- - - LABEL AT LINE18510".T; F. " [ 5
] - - - LABEL AT LINE18580"..;.F. "
[ 6 ] - - - LABEL AT LINE18650".*<.F. "
[ 7 ] - - - LABEL AT LINE18720".U<.F.
" [ 8 ] - - - LABEL AT LINE18790"..<
HF. " [ 9 ] - - - LABEL AT LINE18860"
..<RF. " [ 0 ] - - - LABEL AT LINE189
30".Y<.F. " [ R ] - - - <RETURN TO MA
IN MENU>"..=.F.:.:. " [ ] ..... YOU
R CHOICE"..=.F. A3$:. A3$."" . 18165.D=.
F. A3$."1" . . 18300:. G(147):. 1020.R=.
F. PERFORM LABEL PICKUP - GOTO PRINT ME
NU..=.G. A3$."2" . . 18370:. G(147):. 10
20.B=.G. A3$."3" . . 18440:. G(147):. 10
20..=.G. A3$."4" . . 18510:. G(147):. 10
20..>"G. A3$."5" . . 18580:. G(147):. 10
20.:>,G. A3$."6" . . 18650:. G(147):. 10
20.B>6G. A3$."7" . . 18720:. G(147):. 10
20..>@G. A3$."8" . . 18790:. G(147):. 10
20..>JG. A3$."9" . . 18860:. G(147):. 10
20.Z>TG. A3$."0" . . 18930:. G(147):. 10
20..?^G. A3$."R" . . 240:. GOTO MAIN ME
NU..?RG. ::::: LABEL #1 :::::.B?|GA$."C
OMPUTE PUBLICATIONS, INC.".Z?.GB$."P. O.
BOX 5406".Y?.GC$."GREENSBORO, NC 27403
"..?.GE$."U.S.A."..?.GF..""..?.G...?.G.
::::: LABEL #2 :::::.T?BGA$."UNASSIGNED
LINE 18370"..?LGB$.""..?VGC$.""..?.GE$.
""..?.GF$.""..@.G...@.G. ::::: LABEL #3
:::::.=@.HA$."UNASSIGNED LINE 18440".G@
.HB$."".Q@.HC$."".[@&HE$."".E@0HF$."".K@
:H...@DH. ::::: LABEL #4 :::::..@NHA$."
UNASSIGNED LINE 18510"..@XHB$.""..@BHC$.
"".D@LHE$."".N@VHF$."".T@.H...@.H. ::::
: LABEL #5 :::::..A.HA$."UNASSIGNED LINE
18510"..A.HB$."".#A.HC$."".-A.HE$."".7A
.HF$."".=AFH..YAPH. ::::: LABEL #6 ::::
:.XAZHA$."UNASSIGNED LINE 18650"..A.HB$.
""..A.HC$.""..A.HE$."". A.IF$.""..A.I..B
A.I. ::::: LABEL #7 :::::..A IA$."UNASS
IGNED LINE 18720"..A*IB$.""..A4IC$.""..A
>IE$.""..BHIF$.""..BRI..+B\I. ::::: LAB
EL #8 :::::.JBFIA$."UNASSIGNED LINE 1879
0".TBPIB$."".^BZIC$."".HB.IE$."".RB.IF$.
"".XB.I...B.I. ::::: LABEL #9 :::::..B.
IA$."UNASSIGNED LINE 18860"..B.IB$."".GB
.IC$."".QBJIE$.""..BTIF$.""..B.I...B.I.
::::: LABEL #0 :::::..C.IA$."UNASSIGNED
LINE 18860".&C.IB$."".0C.JC$."".:C.JE$.
"".DC.JF$."".JC$J..PC.A..GC.A. ::::: EN
D :::::.MC.A..ZC.A. G(147)..CFA. G(147):
. I.1 . 4:. G(17):. I.DCPA. " *
*******************"..CZA. .10)"*
*"..D.A. " * GOO
D BYE *".-D.A. .10)"*
*".TD.A. " *****************
***".ID.B. I.1 . 1000:. I.~D.B. I.1 . 25
:.:. I..D.B...D.Y...D"Y. ::::: SUBROUTI
NE LIST :::::..D,Y..OD6Y. 100 SETUP/MA
IN MENU..D@Y. 1000 PRINT MENU..DJY. 20
00 INSTRUCTIONS..ETY. 4000 LABEL BORDER
.?E^Y. 5000 LINE LIMITER & INPUT LINES.
\ERY. 7000 HOW MANY LABELS?.WE|Y. 8000
STANDARD PRINT..E.Y. 9000 DOUBLE WIDE.
.E.Y. 10000 SETUP EMPHASIZED.IE.Y. 11000
LABEL FOR SCREEN..E.Y. 12000 80 CPL SET
UP..E.Y. 13000 132 CPL SETUP..F.Y. 14000
40 CPL SETUP..FBY. 15000 66 CPL SETUP.F
FLY. 16000 TRIPLE WIDE.]FVY. 17000 YOUR
LABEL.VF.Y. 18000 10 MOST USED..F.Y. 250
00 END..F.Y. 31000 SUBROUTINE LIST...
> CLICK IMAGE PREVIEW FOR FULL MODAL