ETIKETTEN
FILE INFORMATION
FILENAME(S): ETIKETTEN
FILE TYPE(S): PRG
FILE SIZE: 15.7K
FIRST SEEN: 2025-12-02 22:47:40
APPEARS ON: 1 disk(s)
FILE HASH
f0f173edad528280f66b7338827c63c9a997d350241abb544104aad8942091d9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 7 90 | ETIKETTEN | PRG | swasti, charly | 21 | 0 | 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 DB 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 45 49 47 | [ 1 ] - - - EIG|
000004D0: 45 4E 45 20 45 49 4E 47 41 42 45 00 03 0D 54 01 |ENE EINGABE...T.|
000004E0: 99 3A 99 20 22 20 20 20 20 20 5B 20 32 20 5D 20 |.:. " [ 2 ] |
000004F0: 2D 20 2D 20 2D 20 4D 45 49 4E 45 20 41 44 52 45 |- - - MEINE ADRE|
00000500: 53 53 45 00 32 0D 5E 01 99 3A 99 20 22 20 20 20 |SSE.2.^..:. " |
00000510: 20 20 5B 20 33 20 5D 20 2D 20 2D 20 2D 20 31 30 | [ 3 ] - - - 10|
00000520: 20 4D 4F 53 54 20 55 53 45 44 20 4C 41 42 45 4C | MOST USED LABEL|
00000530: 53 22 00 62 0D 68 01 99 3A 99 20 22 20 20 20 20 |S".b.h..:. " |
00000540: 20 5B 20 34 20 5D 20 2D 20 2D 20 2D 20 53 48 4F | [ 4 ] - - - SHO|
00000550: 52 54 45 4E 45 44 20 44 49 53 4B 20 4C 41 42 45 |RTENED DISK LABE|
00000560: 4C 22 00 92 0D 72 01 99 3A 99 20 22 20 20 20 20 |L"...r..:. " |
00000570: 20 5B 20 35 20 5D 20 2D 20 2D 20 2D 20 46 55 4C | [ 5 ] - - - FUL|
00000580: 4C 20 53 49 5A 45 20 44 49 53 4B 20 4C 41 42 45 |L SIZE DISK LABE|
00000590: 4C 22 00 B5 0D 7C 01 99 3A 99 20 22 20 20 20 20 |L"...|..:. " |
000005A0: 20 5B 20 51 20 5D 20 2D 20 2D 20 2D 20 3C 20 45 | [ Q ] - - - < E|
000005B0: 4E 44 20 3E 22 00 BF 0D 81 01 99 3A 99 3A 99 00 |ND >"......:.:..|
000005C0: E5 0D 86 01 99 20 22 20 20 20 20 20 5B 20 20 20 |..... " [ |
000005D0: 5D 20 2E 2E 2E 2E 2E 2E 2E 59 4F 55 52 20 43 48 |] .......YOUR CH|
000005E0: 4F 49 43 45 22 00 FE 0D 90 01 A1 20 41 31 24 3A |OICE"...... A1$:|
000005F0: 8B 20 41 31 24 B2 22 22 20 A7 20 34 30 30 00 33 |. A1$."" . 400.3|
00000600: 0E C2 01 8B 20 41 31 24 B2 22 31 22 20 A7 20 99 |.... A1$."1" . .|
00000610: 20 C7 28 31 34 37 29 3A 53 31 B2 33 30 3A 8D 20 | .(147):S1.30:. |
00000620: 36 30 32 30 3A 8D 20 31 31 30 30 35 3A 89 20 31 |6020:. 11005:. 1|
00000630: 30 32 35 00 79 0E C7 01 8F 20 47 45 54 20 4C 41 |025.y.... GET LA|
00000640: 42 45 4C 20 4C 49 4E 45 53 2D 44 49 53 50 4C 41 |BEL LINES-DISPLA|
00000650: 59 20 4C 41 42 45 4C 20 4F 4E 20 53 43 52 45 45 |Y LABEL ON SCREE|
00000660: 4E 2D 47 4F 54 4F 20 50 52 49 4E 54 20 4D 45 4E |N-GOTO PRINT MEN|
00000670: 55 20 52 4F 55 54 49 4E 45 00 AA 0E CC 01 8B 20 |U ROUTINE...... |
00000680: 41 31 24 B2 22 32 22 20 A7 20 99 20 C7 28 31 34 |A1$."2" . . .(14|
00000690: 37 29 3A 8D 20 31 37 30 31 30 3A 99 20 C7 28 31 |7):. 17010:. .(1|
000006A0: 34 37 29 3A 89 20 31 30 32 30 00 D2 0E CD 01 8F |47):. 1020......|
000006B0: 20 47 45 54 20 4C 41 42 45 4C 2D 47 4F 54 4F 20 | GET LABEL-GOTO |
000006C0: 50 52 49 4E 54 20 4D 45 4E 55 20 52 4F 55 54 49 |PRINT MENU ROUTI|
000006D0: 4E 45 00 F3 0E D6 01 8B 20 41 31 24 B2 22 33 22 |NE...... A1$."3"|
000006E0: 20 A7 20 99 20 C7 28 31 34 37 29 3A 89 20 31 38 | . . .(147):. 18|
000006F0: 30 31 30 00 15 0F D7 01 8F 20 47 4F 54 4F 20 4D |010...... GOTO M|
00000700: 4F 53 54 20 55 53 45 44 20 4D 45 4E 55 20 52 4F |OST USED MENU RO|
00000710: 55 54 49 4E 45 00 48 0F E0 01 8B 20 41 31 24 B2 |UTINE.H.... A1$.|
00000720: 22 34 22 20 A7 20 53 31 B2 32 33 3A 4C B2 31 3A |"4" . S1.23:L.1:|
00000730: 41 B2 32 37 3A 42 B2 37 3A 43 B2 32 32 3A 44 B2 |A.27:B.7:C.22:D.|
00000740: 33 3A 89 20 34 30 30 38 00 67 0F E1 01 8F 20 47 |3:. 4008.g.... G|
00000750: 4F 54 4F 20 4C 41 42 45 4C 20 50 52 49 4E 54 20 |OTO LABEL PRINT |
00000760: 52 4F 55 54 49 4E 45 00 9B 0F E5 01 8B 20 41 31 |ROUTINE...... A1|
00000770: 24 B2 22 35 22 20 A7 20 53 31 B2 32 39 3A 4C B2 |$."5" . S1.29:L.|
00000780: 31 3A 41 B2 33 33 3A 42 B2 31 30 3A 43 B2 32 38 |1:A.33:B.10:C.28|
00000790: 3A 44 B2 30 3A 89 20 34 30 30 38 00 BA 0F E6 01 |:D.0:. 4008.....|
000007A0: 8F 20 47 4F 54 4F 20 4C 41 42 45 4C 20 50 52 49 |. GOTO LABEL PRI|
000007B0: 4E 54 20 52 4F 55 54 49 4E 45 00 D2 0F EA 01 8B |NT ROUTINE......|
000007C0: 20 41 31 24 B2 22 51 22 20 A7 20 89 20 32 35 30 | A1$."Q" . . 250|
000007D0: 32 30 00 E9 0F EB 01 8F 20 47 4F 54 4F 20 45 4E |20...... GOTO EN|
000007E0: 44 20 52 4F 55 54 49 4E 45 00 EF 0F E8 03 8F 00 |D ROUTINE.......|
000007F0: 0A 10 ED 03 8F 20 3A 3A 3A 3A 50 52 49 4E 54 20 |..... ::::PRINT |
00000800: 43 48 4F 49 43 45 3A 3A 3A 3A 00 10 10 F0 03 8F |CHOICE::::......|
00000810: 00 36 10 FC 03 8D 20 31 31 30 30 35 3A 8F 20 44 |.6.... 11005:. D|
00000820: 49 53 50 4C 41 59 20 4C 41 42 45 4C 20 4F 4E 20 |ISPLAY LABEL ON |
00000830: 53 43 52 45 45 4E 00 54 10 FE 03 8F 20 43 50 4C |SCREEN.T.... CPL|
00000840: 3D 43 48 41 52 41 43 54 45 52 53 20 50 45 52 20 |=CHARACTERS PER |
00000850: 4C 49 4E 45 00 7D 10 01 04 99 3A 99 3A 99 20 A6 |LINE.}....:.:. .|
00000860: 31 34 29 20 C7 28 31 38 29 22 20 50 52 49 4E 54 |14) .(18)" PRINT|
00000870: 20 4D 45 4E 55 20 22 C7 28 31 34 36 29 00 C8 10 | MENU ".(146)...|
00000880: 04 04 8F 20 20 43 48 52 24 28 31 38 29 20 49 53 |... CHR$(18) IS|
00000890: 20 52 45 56 45 52 53 45 20 4F 4E 20 2D 2D 20 20 | REVERSE ON -- |
000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 52 | CHR|
000008B0: 24 28 31 34 36 29 20 49 53 20 52 45 56 45 52 53 |$(146) IS REVERS|
000008C0: 45 20 4F 46 46 20 2D 2D 00 DE 10 06 04 99 20 A6 |E OFF --...... .|
000008D0: 31 35 29 22 53 45 4C 45 43 54 49 4F 4E 22 00 06 |15)"SELECTION"..|
000008E0: 11 10 04 99 20 22 11 20 20 20 5B 20 31 20 5D 20 |.... ". [ 1 ] |
000008F0: 2D 20 2D 20 2D 20 53 54 41 4E 44 41 52 44 20 38 |- - - STANDARD 8|
00000900: 30 20 43 50 4C 22 00 30 11 1A 04 99 20 22 20 20 |0 CPL".0.... " |
00000910: 20 5B 20 32 20 5D 20 2D 20 2D 20 2D 20 43 4F 4D | [ 2 ] - - - COM|
00000920: 50 52 45 53 53 45 44 20 31 33 32 20 43 50 4C 22 |PRESSED 132 CPL"|
00000930: 00 60 11 24 04 99 20 22 20 20 20 5B 20 33 20 5D |.`.$.. " [ 3 ]|
00000940: 20 2D 20 2D 20 2D 20 54 52 49 50 4C 45 20 43 4F | - - - TRIPLE CO|
00000950: 4C 55 4D 4E 20 4C 41 42 45 4C 53 2D 53 54 44 22 |LUMN LABELS-STD"|
00000960: 00 90 11 29 04 99 20 22 20 20 20 5B 20 34 20 5D |...).. " [ 4 ]|
00000970: 20 2D 20 2D 20 2D 20 44 4F 55 42 4C 45 20 57 49 | - - - DOUBLE WI|
00000980: 44 45 2F 43 4F 4D 50 52 20 36 36 20 43 50 4C 22 |DE/COMPR 66 CPL"|
00000990: 00 BA 11 2E 04 99 20 22 20 20 20 5B 20 35 20 5D |...... " [ 5 ]|
000009A0: 20 2D 20 2D 20 2D 20 44 4F 55 42 4C 45 20 57 49 | - - - DOUBLE WI|
000009B0: 44 45 20 34 30 20 43 50 4C 22 00 DC 11 33 04 99 |DE 40 CPL"...3..|
000009C0: 20 22 20 20 20 5B 20 36 20 5D 20 2D 20 2D 20 2D | " [ 6 ] - - -|
000009D0: 20 45 4D 50 48 41 53 49 5A 45 44 22 00 07 12 38 | EMPHASIZED"...8|
000009E0: 04 99 20 22 20 20 20 5B 20 39 20 5D 20 2D 20 2D |.. " [ 9 ] - -|
000009F0: 20 2D 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 | - RETURN TO MAI|
00000A00: 4E 20 4D 45 4E 55 22 00 2C 12 3D 04 8D 20 31 30 |N MENU".,.=.. 10|
00000A10: 30 32 30 3A 8F 20 44 49 53 50 4C 41 59 20 45 4D |020:. DISPLAY EM|
00000A20: 50 48 41 53 49 5A 45 20 46 4C 41 47 00 51 12 42 |PHASIZE FLAG.Q.B|
00000A30: 04 99 3A 99 20 22 20 20 20 5B 20 20 20 5D 20 2E |..:. " [ ] .|
00000A40: 2E 2E 2E 2E 20 59 4F 55 52 20 43 48 4F 49 43 45 |.... YOUR CHOICE|
00000A50: 22 00 57 12 44 04 8F 00 A3 12 45 04 8F 20 20 20 |".W.D.....E.. |
00000A60: 2D 2D 2D 2D 20 45 4D 50 48 41 53 49 5A 45 44 20 |---- EMPHASIZED |
00000A70: 50 52 49 4E 54 20 4D 4F 44 45 20 44 4F 45 53 20 |PRINT MODE DOES |
00000A80: 4E 4F 54 20 43 4F 4D 42 49 4E 45 20 57 49 54 48 |NOT COMBINE WITH|
00000A90: 20 43 4F 4D 50 52 45 53 53 45 44 20 4D 4F 44 45 | COMPRESSED MODE|
00000AA0: 2D 2D 2D 00 A9 12 46 04 8F 00 AF 12 47 04 8F 00 |---...F.....G...|
00000AB0: DC 12 4C 04 99 20 C7 28 31 39 29 3A 81 20 49 B2 |..L.. .(19):. I.|
00000AC0: 31 20 A4 20 31 31 3A 99 20 C7 28 31 37 29 3A 82 |1 . 11:. .(17):.|
00000AD0: 20 49 3A 99 20 A6 32 29 3A 85 20 59 00 13 13 51 | I:. .2):. Y...Q|
00000AE0: 04 91 20 59 20 89 20 31 31 31 30 2C 31 31 32 30 |.. Y . 1110,1120|
00000AF0: 2C 31 31 33 30 2C 31 31 34 30 2C 31 31 34 37 2C |,1130,1140,1147,|
00000B00: 31 31 34 39 2C 31 31 35 35 2C 31 31 35 35 2C 31 |1149,1155,1155,1|
00000B10: 31 35 35 00 20 13 56 04 99 20 C7 28 31 34 37 29 |155. .V.. .(147)|
00000B20: 00 2E 13 58 04 9F 34 2C 34 2C 31 3A 9D 34 00 3A |...X..4,4,1:.4.:|
00000B30: 13 5A 04 99 20 C7 28 31 38 29 00 44 13 5C 04 98 |.Z.. .(18).D.\..|
00000B40: 34 3A A0 34 00 61 13 5D 04 48 B2 35 3A 51 B2 31 |4:.4.a.].H.5:Q.1|
00000B50: 38 3A 8D 20 31 31 30 30 35 3A 89 20 31 32 30 35 |8:. 11005:. 1205|
00000B60: 30 00 98 13 5E 04 8F 20 44 49 53 50 4C 41 59 20 |0...^.. DISPLAY |
00000B70: 4C 41 42 45 4C 20 4F 4E 20 53 43 52 45 45 4E 2D |LABEL ON SCREEN-|
00000B80: 47 4F 54 4F 20 4C 41 42 45 4C 20 50 52 49 4E 54 |GOTO LABEL PRINT|
00000B90: 20 52 4F 55 54 49 4E 45 00 BD 13 5F 04 8F 20 20 | ROUTINE..._.. |
00000BA0: 48 3D 48 4F 52 49 5A 4F 4E 54 41 4C 20 53 50 41 |H=HORIZONTAL SPA|
00000BB0: 43 49 4E 47 20 56 41 52 49 41 42 4C 45 00 CF 13 |CING VARIABLE...|
00000BC0: 60 04 99 20 C7 28 31 34 37 29 3A 51 B2 32 30 00 |`.. .(147):Q.20.|
00000BD0: DD 13 61 04 9F 34 2C 34 2C 31 3A 9D 34 00 EC 13 |..a..4,4,1:.4...|
00000BE0: 62 04 99 20 C7 28 32 37 29 22 46 22 00 F8 13 63 |b.. .(27)"F"...c|
00000BF0: 04 99 20 C7 28 32 30 29 00 02 14 65 04 98 34 3A |.. .(20)...e..4:|
00000C00: A0 34 00 37 14 66 04 8F 20 20 51 3D 56 41 52 49 |.4.7.f.. Q=VARI|
00000C10: 41 42 4C 45 20 54 4F 20 54 55 52 4E 20 4F 4E 20 |ABLE TO TURN ON |
00000C20: 4F 52 20 4F 46 46 20 43 4F 4D 50 52 45 53 53 45 |OR OFF COMPRESSE|
00000C30: 44 20 50 52 49 4E 54 00 4F 14 67 04 48 B2 39 3A |D PRINT.O.g.H.9:|
00000C40: 8D 20 31 31 30 30 35 3A 89 20 31 32 30 35 30 00 |. 11005:. 12050.|
00000C50: 7C 14 68 04 8F 20 43 48 52 24 28 32 37 29 22 46 ||.h.. CHR$(27)"F|
00000C60: 22 20 54 55 52 4E 53 20 4F 46 46 20 45 4D 50 48 |" TURNS OFF EMPH|
00000C70: 41 53 49 5A 45 44 20 50 52 49 4E 54 00 BF 14 69 |ASIZED PRINT...i|
00000C80: 04 8F 20 43 48 52 24 28 32 30 29 20 54 55 52 4E |.. CHR$(20) TURN|
00000C90: 53 20 4F 4E 20 43 4F 4D 50 52 45 53 53 45 44 20 |S ON COMPRESSED |
00000CA0: 50 52 49 4E 54 20 2D 20 44 49 53 50 4C 41 59 20 |PRINT - DISPLAY |
00000CB0: 4C 41 42 45 4C 20 4F 4E 20 53 43 52 45 45 4E 00 |LABEL ON SCREEN.|
00000CC0: DE 14 6A 04 48 B2 35 3A 8D 20 32 32 30 30 3A 8D |..j.H.5:. 2200:.|
00000CD0: 20 31 31 30 30 35 3A 89 20 31 36 30 31 30 00 19 | 11005:. 16010..|
00000CE0: 15 6B 04 8F 20 44 49 53 50 4C 41 59 20 4C 41 42 |.k.. DISPLAY LAB|
00000CF0: 45 4C 20 4F 4E 20 53 43 52 45 45 4E 2D 47 4F 54 |EL ON SCREEN-GOT|
00000D00: 4F 20 54 52 49 50 4C 45 20 57 49 44 45 20 4C 41 |O TRIPLE WIDE LA|
00000D10: 42 45 4C 20 50 52 49 4E 54 00 41 15 74 04 99 20 |BEL PRINT.A.t.. |
00000D20: C7 28 31 34 37 29 3A 9F 34 2C 34 2C 31 3A 9D 34 |.(147):.4,4,1:.4|
00000D30: 3A 99 20 C7 28 32 37 29 22 46 22 3A 98 34 3A A0 |:. .(27)"F":.4:.|
00000D40: 34 00 5E 15 75 04 9F 34 2C 34 2C 31 3A 9D 34 3A |4.^.u..4,4,1:.4:|
00000D50: 99 20 C7 28 32 30 29 3B 3A 98 34 3A A0 34 00 9F |. .(20);:.4:.4..|
00000D60: 15 76 04 48 B2 34 3A 8D 20 31 31 30 30 35 3A 89 |.v.H.4:. 11005:.|
00000D70: 20 31 34 30 35 30 3A 8F 20 43 48 52 24 28 32 37 | 14050:. CHR$(27|
00000D80: 29 22 46 22 20 54 55 52 4E 53 20 4F 46 46 20 45 |)"F" TURNS OFF E|
00000D90: 4D 50 48 41 53 49 5A 45 44 20 50 52 49 4E 54 00 |MPHASIZED PRINT.|
00000DA0: C8 15 78 04 8F 20 43 48 52 24 28 32 30 29 20 54 |..x.. CHR$(20) T|
00000DB0: 55 52 4E 53 20 4F 4E 20 43 4F 4D 50 52 45 53 53 |URNS ON COMPRESS|
00000DC0: 45 44 20 50 52 49 4E 54 00 01 16 79 04 8F 20 44 |ED PRINT...y.. D|
00000DD0: 49 53 50 4C 41 59 20 4C 41 42 45 4C 20 4F 4E 20 |ISPLAY LABEL ON |
00000DE0: 53 43 52 45 45 4E 20 2D 20 47 4F 54 4F 20 4C 41 |SCREEN - GOTO LA|
00000DF0: 42 45 4C 20 50 52 49 4E 54 20 52 4F 55 54 49 4E |BEL PRINT ROUTIN|
00000E00: 45 00 28 16 7B 04 48 B2 33 3A 53 31 B2 31 35 3A |E.(.{.H.3:S1.15:|
00000E10: 99 20 C7 28 31 34 37 29 3A 8D 20 31 31 30 30 35 |. .(147):. 11005|
00000E20: 3A 89 20 31 34 30 35 30 00 47 16 7C 04 8F 20 47 |:. 14050.G.|.. G|
00000E30: 4F 54 4F 20 4C 41 42 45 4C 20 50 52 49 4E 54 20 |OTO LABEL PRINT |
00000E40: 52 4F 55 54 49 4E 45 00 54 16 7D 04 99 20 C7 28 |ROUTINE.T.}.. .(|
00000E50: 31 34 37 29 00 6C 16 7E 04 48 B2 30 3A 8D 20 31 |147).l.~.H.0:. 1|
00000E60: 31 30 30 35 3A 99 20 C7 28 31 37 29 00 B0 16 80 |1005:. .(17)....|
00000E70: 04 99 20 22 20 20 20 20 22 20 C7 28 31 38 29 20 |.. " " .(18) |
00000E80: 22 20 20 20 20 20 20 20 20 20 20 45 4D 50 48 41 |" EMPHA|
00000E90: 53 49 5A 45 20 4F 4E 20 20 20 20 20 20 20 20 20 |SIZE ON |
00000EA0: 20 22 20 C7 28 31 34 36 29 20 22 20 20 20 20 22 | " .(146) " "|
00000EB0: 00 BB 16 81 04 89 20 31 30 32 35 00 DC 16 83 04 |...... 1025.....|
00000EC0: 89 20 32 34 30 3A 8F 20 20 52 45 54 55 52 4E 20 |. 240:. RETURN |
00000ED0: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 E2 16 D0 |TO MAIN MENU....|
00000EE0: 07 8F 00 FF 16 DA 07 8F 20 3A 3A 3A 3A 3A 49 4E |........ :::::IN|
00000EF0: 53 54 52 55 43 54 49 4F 4E 53 3A 3A 3A 3A 3A 00 |STRUCTIONS:::::.|
00000F00: 05 17 E4 07 8F 00 12 17 E7 07 99 20 C7 28 31 34 |........... .(14|
00000F10: 37 29 00 49 17 E9 07 99 3A 99 3A 99 20 22 20 20 |7).I....:.:. " |
00000F20: 20 20 20 20 20 20 20 20 20 20 22 20 C7 28 31 38 | " .(18|
00000F30: 29 20 22 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |) " INSTRUCTIONS|
00000F40: 20 22 20 C7 28 31 34 36 29 00 79 17 EE 07 99 3A | " .(146).y....:|
00000F50: 99 3A 99 20 22 20 50 52 49 4E 54 20 57 49 44 54 |.:. " PRINT WIDT|
00000F60: 48 20 49 53 20 53 45 54 20 42 59 20 4C 49 4E 45 |H IS SET BY LINE|
00000F70: 20 4C 49 4D 49 54 45 52 22 00 99 17 F8 07 99 20 | LIMITER"...... |
00000F80: 22 20 46 4F 52 20 33 20 31 2F 32 20 49 4E 43 48 |" FOR 3 1/2 INCH|
00000F90: 20 4C 41 42 45 4C 53 2E 22 00 C8 17 02 08 99 3A | LABELS."......:|
00000FA0: 99 20 22 20 35 20 4C 49 4E 45 53 20 4E 4F 52 4D |. " 5 LINES NORM|
00000FB0: 41 4C 20 4F 52 20 33 20 4C 49 4E 45 53 20 42 4F |AL OR 3 LINES BO|
00000FC0: 52 44 45 52 45 44 2E 22 00 F0 17 16 08 99 3A 99 |RDERED."......:.|
00000FD0: 20 22 20 44 4F 20 4E 4F 54 20 55 53 45 20 43 4F | " DO NOT USE CO|
00000FE0: 4D 4D 41 53 20 4F 52 20 43 4F 4C 4F 4E 53 2E 22 |MMAS OR COLONS."|
00000FF0: 00 1C 18 34 08 99 3A 99 20 22 20 41 20 52 45 54 |...4..:. " A RET|
00001000: 55 52 4E 20 57 49 54 48 20 4E 4F 20 45 4E 54 52 |URN WITH NO ENTR|
00001010: 59 20 57 49 4C 4C 20 47 49 56 45 22 00 33 18 3E |Y WILL GIVE".3.>|
00001020: 08 99 20 22 20 41 20 42 4C 41 4E 4B 20 4C 49 4E |.. " A BLANK LIN|
00001030: 45 2E 22 00 3B 18 48 08 99 3A 99 00 7A 18 4A 08 |E.".;.H..:..z.J.|
00001040: 99 20 22 20 20 20 2D 2D 50 52 45 53 53 20 22 20 |. " --PRESS " |
00001050: C7 28 31 38 29 20 22 53 48 49 46 54 22 20 C7 28 |.(18) "SHIFT" .(|
00001060: 31 34 36 29 20 22 20 4B 45 59 20 54 4F 20 43 4F |146) " KEY TO CO|
00001070: 4E 54 49 4E 55 45 2E 2D 2D 22 00 86 18 4C 08 92 |NTINUE.--"...L..|
00001080: 20 36 35 33 2C 31 00 8C 18 4E 08 8E 00 92 18 98 | 653,1...N......|
00001090: 08 8F 00 B6 18 A2 08 8F 20 20 3A 3A 54 52 49 50 |........ ::TRIP|
000010A0: 4C 45 20 43 4F 4C 2E 20 49 4E 53 54 52 55 43 54 |LE COL. INSTRUCT|
000010B0: 49 4F 4E 53 3A 3A 00 BC 18 AC 08 8F 00 C9 18 B1 |IONS::..........|
000010C0: 08 99 20 C7 28 31 34 37 29 00 FA 18 B6 08 99 3A |.. .(147)......:|
000010D0: 99 3A 99 20 22 20 20 20 20 54 52 49 50 4C 45 20 |.:. " TRIPLE |
000010E0: 43 4F 4C 55 4D 4E 20 4C 41 42 45 4C 20 49 4E 53 |COLUMN LABEL INS|
000010F0: 54 52 55 43 54 49 4F 4E 53 22 00 2B 19 C0 08 99 |TRUCTIONS".+....|
00001100: 3A 99 3A 99 20 22 20 20 54 48 45 20 4C 45 4E 47 |:.:. " THE LENG|
00001110: 54 48 20 4F 46 20 54 52 49 50 4C 45 20 43 4F 4C |TH OF TRIPLE COL|
00001120: 55 4D 4E 20 4C 41 42 45 4C 53 22 00 59 19 CA 08 |UMN LABELS".Y...|
00001130: 99 20 22 20 20 4D 55 53 54 20 42 45 20 4C 45 53 |. " MUST BE LES|
00001140: 53 20 54 48 41 4E 20 54 48 45 20 4E 4F 52 4D 41 |S THAN THE NORMA|
00001150: 4C 20 57 49 44 54 48 20 22 00 6A 19 CF 08 99 20 |L WIDTH ".j.... |
00001160: 22 20 20 4C 41 42 45 4C 2E 22 00 98 19 D4 08 99 |" LABEL."......|
00001170: 20 22 20 20 54 48 45 20 54 52 49 50 4C 45 20 43 | " THE TRIPLE C|
00001180: 4F 4C 55 4D 4E 20 4C 41 42 45 4C 53 20 41 52 45 |OLUMN LABELS ARE|
00001190: 20 53 45 54 20 54 4F 22 00 C6 19 D9 08 99 20 22 | SET TO"...... "|
000011A0: 20 20 50 52 49 4E 54 20 41 20 31 37 20 43 48 41 | PRINT A 17 CHA|
000011B0: 52 41 43 54 45 52 20 4C 41 42 45 4C 20 57 49 54 |RACTER LABEL WIT|
000011C0: 48 20 54 57 4F 22 00 E7 19 DE 08 99 20 22 20 20 |H TWO"...... " |
000011D0: 53 50 41 43 45 53 20 42 45 54 57 45 45 4E 20 4C |SPACES BETWEEN L|
000011E0: 41 42 45 4C 53 2E 22 00 14 1A E8 08 99 20 22 20 |ABELS."...... " |
000011F0: 20 54 48 45 53 45 20 56 41 52 49 41 42 4C 45 53 | THESE VARIABLES|
00001200: 20 4D 41 59 20 42 45 20 43 48 41 4E 47 45 44 20 | MAY BE CHANGED |
00001210: 41 54 20 22 00 3C 1A F2 08 99 20 22 20 20 50 52 |AT ".<.... " PR|
00001220: 4F 47 52 41 4D 20 4C 49 4E 45 53 20 31 36 30 30 |OGRAM LINES 1600|
00001230: 30 20 54 4F 20 31 37 30 30 30 2E 22 00 65 1A FC |0 TO 17000.".e..|
00001240: 08 99 3A 99 20 22 20 20 49 46 20 59 4F 55 20 45 |..:. " IF YOU E|
00001250: 4E 54 45 52 45 44 20 41 20 4C 41 42 45 4C 20 57 |NTERED A LABEL W|
00001260: 49 54 48 20 22 00 91 1A 06 09 99 20 22 20 20 4D |ITH "...... " M|
00001270: 4F 52 45 20 54 48 41 4E 20 31 37 20 43 48 41 52 |ORE THAN 17 CHAR|
00001280: 41 43 54 45 52 53 2C 20 59 4F 55 20 4D 41 59 20 |ACTERS, YOU MAY |
00001290: 22 00 B9 1A 10 09 99 20 22 20 20 52 45 54 55 52 |"...... " RETUR|
000012A0: 4E 20 54 4F 20 52 45 2D 45 4E 54 45 52 20 54 48 |N TO RE-ENTER TH|
000012B0: 45 20 4C 41 42 45 4C 2E 22 00 C1 1A 60 09 99 3A |E LABEL."...`..:|
000012C0: 99 00 E9 1A 6A 09 99 20 22 20 20 20 44 4F 20 59 |....j.. " DO Y|
000012D0: 4F 55 20 57 41 4E 54 20 54 4F 20 52 45 54 55 52 |OU WANT TO RETUR|
000012E0: 4E 20 54 4F 20 54 48 45 22 00 09 1B 6F 09 99 20 |N TO THE"...o.. |
000012F0: 22 20 20 20 4D 41 49 4E 20 4D 45 4E 55 3F 20 28 |" MAIN MENU? (|
00001300: 43 52 3D 27 4E 4F 27 29 22 00 23 1B D8 09 A1 20 |CR='NO')".#.... |
00001310: 41 36 24 3A 8B 20 41 36 24 B2 22 22 20 A7 20 32 |A6$:. A6$."" . 2|
00001320: 35 32 30 00 37 1B E2 09 8B 20 41 36 24 B2 22 59 |520.7.... A6$."Y|
00001330: 22 20 A7 20 32 34 30 00 4B 1B EC 09 8B 20 41 36 |" . 240.K.... A6|
00001340: 24 B2 C7 28 31 33 29 20 A7 20 8E 00 6F 1B F6 09 |$..(13) . ..o...|
00001350: 8B 20 41 36 24 B3 B1 22 59 22 20 B0 20 41 36 24 |. A6$.."Y" . A6$|
00001360: B3 B1 20 C7 28 31 33 29 20 A7 20 32 35 32 30 00 |.. .(13) . 2520.|
00001370: 75 1B A0 0F 8F 00 91 1B A5 0F 8F 20 20 3A 3A 3A |u.......... :::|
00001380: 3A 4C 41 42 45 4C 20 42 4F 52 44 45 52 3A 3A 3A |:LABEL BORDER:::|
00001390: 3A 00 97 1B A7 0F 8F 00 CA 1B A8 0F 9F 34 2C 34 |:............4,4|
000013A0: 2C 31 3A 9D 34 3A 99 20 C7 28 31 38 29 3A 8F 20 |,1:.4:. .(18):. |
000013B0: 20 54 55 52 4E 20 4F 46 46 20 43 4F 4D 50 52 45 | TURN OFF COMPRE|
000013C0: 53 53 45 44 20 50 52 49 4E 54 00 E8 1B A9 0F 98 |SSED PRINT......|
000013D0: 34 3A A0 34 3A 8F 20 20 54 55 52 4E 20 4F 46 46 |4:.4:. TURN OFF|
000013E0: 20 50 52 49 4E 54 45 52 00 19 1C AA 0F 42 52 24 | PRINTER.....BR$|
000013F0: B2 22 2A 22 3A 8F 20 53 45 54 20 44 45 46 41 55 |."*":. SET DEFAU|
00001400: 4C 54 20 56 41 4C 55 45 20 46 4F 52 20 4C 41 42 |LT VALUE FOR LAB|
00001410: 45 4C 20 42 4F 52 44 45 52 00 50 1C AB 0F 56 31 |EL BORDER.P...V1|
00001420: 24 B2 22 30 30 31 22 3A 8F 20 20 53 45 54 53 20 |$."001":. SETS |
00001430: 49 4E 49 54 49 41 4C 20 44 49 53 50 4C 41 59 20 |INITIAL DISPLAY |
00001440: 56 41 4C 55 45 20 46 4F 52 20 56 4F 4C 55 4D 45 |VALUE FOR VOLUME|
00001450: 00 83 1C AC 0F 56 32 24 B2 22 20 56 4F 4C 2E 20 |.....V2$." VOL. |
00001460: 22 3A 8F 20 20 53 45 54 20 44 45 46 41 55 4C 54 |":. SET DEFAULT|
00001470: 20 56 41 4C 55 45 20 46 4F 52 20 54 4F 50 20 4C | VALUE FOR TOP L|
00001480: 49 4E 45 00 A8 1C AD 0F 41 34 24 B2 22 36 22 3A |INE.....A4$."6":|
00001490: 56 24 B2 22 59 22 3A 41 24 B2 22 22 3A 42 24 B2 |V$."Y":A$."":B$.|
000014A0: 22 22 3A 43 24 B2 22 22 00 EC 1C AE 0F 5A 24 B2 |"":C$."".....Z$.|
000014B0: 22 20 20 43 4F 4D 20 36 34 20 20 22 3A 8F 20 20 |" COM 64 ":. |
000014C0: 53 45 54 53 20 49 4E 49 54 49 41 4C 20 44 49 53 |SETS INITIAL DIS|
000014D0: 50 4C 41 59 20 56 41 4C 55 45 20 46 4F 52 20 42 |PLAY VALUE FOR B|
000014E0: 4F 54 54 4F 4D 20 42 4F 52 44 45 52 00 0F 1D AF |OTTOM BORDER....|
000014F0: 0F 8D 20 34 37 30 35 3A 8F 20 44 49 53 50 4C 41 |.. 4705:. DISPLA|
00001500: 59 20 43 55 52 52 45 4E 54 20 4C 41 42 45 4C 00 |Y CURRENT LABEL.|
00001510: 41 1D BF 0F 99 3A 99 3A 99 20 22 20 20 20 20 57 |A....:.:. " W|
00001520: 48 41 54 20 43 48 41 52 41 43 54 45 52 20 44 4F |HAT CHARACTER DO|
00001530: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 55 53 45 | YOU WANT TO USE|
00001540: 22 00 70 1D C0 0F 99 20 22 20 20 20 20 46 4F 52 |".p.... " FOR|
00001550: 20 54 48 45 20 42 4F 52 44 45 52 3F 20 5B 20 20 | THE BORDER? [ |
00001560: 20 5D 20 20 44 45 46 41 55 4C 54 20 3D 20 2A 22 | ] DEFAULT = *"|
00001570: 00 7D 1D CD 0F 85 20 22 22 3B 42 52 24 00 94 1D |.}.... "";BR$...|
00001580: D2 0F 8B 20 C3 28 42 52 24 29 B2 B1 32 20 A7 20 |... .(BR$)..2 . |
00001590: 34 30 31 30 00 A1 1D D7 0F 99 20 C7 28 31 34 37 |4010...... .(147|
000015A0: 29 00 D0 1D DC 0F 99 3A 99 3A 99 22 20 20 57 4F |)......:.:." WO|
000015B0: 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 41 20 56 |ULD YOU LIKE A V|
000015C0: 4F 4C 55 4D 45 20 4E 55 4D 42 45 52 20 49 4E 22 |OLUME NUMBER IN"|
000015D0: 00 FE 1D DD 0F 99 20 22 20 20 20 20 20 54 48 45 |...... " THE|
000015E0: 20 54 4F 50 20 4C 49 4E 45 20 4F 46 20 54 48 45 | TOP LINE OF THE|
000015F0: 20 42 4F 52 44 45 52 20 3F 22 3A 99 3A 99 00 23 | BORDER ?":.:..#|
00001600: 1E E6 0F 99 20 22 20 20 20 20 20 20 20 20 20 20 |.... " |
00001610: 20 5B 20 59 20 5D 20 2D 20 2D 20 2D 20 59 45 53 | [ Y ] - - - YES|
00001620: 22 3A 99 00 47 1E F0 0F 99 20 22 20 20 20 20 20 |":..G.... " |
00001630: 20 20 20 20 20 20 5B 20 4E 20 5D 20 2D 20 2D 20 | [ N ] - - |
00001640: 2D 20 4E 4F 22 3A 99 00 72 1E FA 0F 99 20 22 20 |- NO":..r.... " |
00001650: 20 20 20 20 20 20 20 20 20 20 5B 20 20 20 5D 20 | [ ] |
00001660: 2E 2E 2E 2E 2E 20 59 4F 55 52 20 43 48 4F 49 43 |..... YOUR CHOIC|
00001670: 45 22 00 8A 1E FB 0F A1 20 56 24 3A 8B 20 56 24 |E"...... V$:. V$|
00001680: B2 22 22 20 A7 20 34 30 39 31 00 97 1E FC 0F 99 |."" . 4091......|
00001690: 20 C7 28 31 34 37 29 00 AB 1E 0E 10 8B 20 56 24 | .(147)...... V$|
000016A0: B2 22 4E 22 20 A7 20 34 31 39 31 00 C7 1E 18 10 |."N" . 4191.....|
000016B0: 8B 20 56 24 B2 22 59 22 20 A7 20 99 20 C7 28 31 |. V$."Y" . . .(1|
000016C0: 34 37 29 3A 99 3A 99 00 F1 1E 19 10 99 20 22 20 |47):.:....... " |
000016D0: 20 20 45 4E 54 45 52 20 59 4F 55 52 20 56 4F 4C | ENTER YOUR VOL|
000016E0: 55 4D 45 20 4E 55 4D 42 45 52 20 28 23 23 23 29 |UME NUMBER (###)|
000016F0: 22 00 24 1F 1A 10 99 20 22 28 4D 55 53 54 20 42 |".$.... "(MUST B|
00001700: 45 20 33 20 43 48 41 52 41 43 54 45 52 53 20 4C |E 3 CHARACTERS L|
00001710: 4F 4E 47 29 20 20 5B 20 20 20 5D 22 3B 3A 89 20 |ONG) [ ]";:. |
00001720: 34 31 34 30 00 2F 1F 22 10 89 20 34 30 36 30 00 |4140./.".. 4060.|
00001730: 3C 1F 2C 10 85 20 22 22 3B 56 31 24 00 53 1F 31 |<.,.. "";V1$.S.1|
00001740: 10 8B 20 C3 28 56 31 24 29 B3 B1 33 20 A7 20 34 |.. .(V1$)..3 . 4|
00001750: 30 36 30 00 8E 1F 36 10 99 20 C7 28 31 34 37 29 |060...6.. .(147)|
00001760: 3A 99 3A 99 3A 99 20 22 20 20 20 20 45 4E 54 45 |:.:.:. " ENTE|
00001770: 52 20 52 45 50 4C 41 43 45 4D 45 4E 54 20 46 4F |R REPLACEMENT FO|
00001780: 52 20 57 4F 52 44 20 27 56 4F 4C 2E 27 22 00 BE |R WORD 'VOL.'"..|
00001790: 1F 37 10 99 20 22 20 20 49 46 20 44 45 53 49 52 |.7.. " IF DESIR|
000017A0: 45 44 2E 20 20 20 28 20 34 20 43 48 41 52 41 43 |ED. ( 4 CHARAC|
000017B0: 54 45 52 53 20 4D 41 58 49 4D 55 4D 29 22 00 E3 |TERS MAXIMUM)"..|
000017C0: 1F 38 10 99 20 A3 38 29 20 22 44 45 46 41 55 4C |.8.. .8) "DEFAUL|
000017D0: 54 20 49 53 20 27 56 4F 4C 2E 27 3A 20 5B 20 20 |T IS 'VOL.': [ |
000017E0: 20 5D 22 00 0A 20 3B 10 99 3A 99 3A 85 20 22 22 | ]".. ;..:.:. ""|
000017F0: 3B 56 32 24 3A 8B 20 56 32 24 B2 22 22 20 A7 20 |;V2$:. V2$."" . |
00001800: 56 32 24 B2 22 56 4F 4C 2E 22 00 30 20 3D 10 8B |V2$."VOL.".0 =..|
00001810: 20 C3 28 56 32 24 29 20 B2 20 34 20 A7 20 56 32 | .(V2$) . 4 . V2|
00001820: 24 B2 20 22 20 22 20 AA 56 32 24 AA 20 22 20 22 |$. " " .V2$. " "|
00001830: 00 5D 20 3F 10 8B 20 C3 28 56 32 24 29 20 B2 20 |.] ?.. .(V2$) . |
00001840: 33 20 A7 20 56 32 24 20 B2 20 22 20 22 20 AA 20 |3 . V2$ . " " . |
00001850: 22 20 22 20 AA 56 32 24 AA 20 22 20 22 00 7E 20 |" " .V2$. " ".~ |
00001860: 40 10 99 20 22 34 31 36 30 22 3A 8B 20 C3 28 56 |@.. "4160":. .(V|
00001870: 32 24 29 20 B3 20 33 20 A7 20 34 30 36 30 00 89 |2$) . 3 . 4060..|
00001880: 20 5E 10 99 3A 99 3A 99 3A 00 96 20 5F 10 99 20 | ^..:.:.:.. _.. |
00001890: C7 28 31 34 37 29 00 C1 20 60 10 99 20 22 20 20 |.(147).. `.. " |
000018A0: 20 20 20 57 48 41 54 20 57 4F 55 4C 44 20 59 4F | WHAT WOULD YO|
000018B0: 55 20 4C 49 4B 45 20 49 4D 50 52 49 4E 54 45 44 |U LIKE IMPRINTED|
000018C0: 22 00 EC 20 62 10 99 20 22 20 20 20 20 20 20 41 |".. b.. " A|
000018D0: 54 20 54 48 45 20 42 4F 54 54 4F 4D 20 4F 46 20 |T THE BOTTOM OF |
000018E0: 54 48 45 20 42 4F 52 44 45 52 3F 22 00 16 21 68 |THE BORDER?"..!h|
000018F0: 10 99 3A 99 3A 99 20 22 20 20 20 20 20 20 20 20 |..:.:. " |
00001900: 20 5B 20 31 20 5D 20 2D 20 2D 20 50 45 54 20 32 | [ 1 ] - - PET 2|
00001910: 30 30 31 22 3A 99 00 3D 21 72 10 99 20 22 20 20 |001":..=!r.. " |
00001920: 20 20 20 20 20 20 20 5B 20 32 20 5D 20 2D 20 2D | [ 2 ] - -|
00001930: 20 43 42 4D 20 38 30 33 32 20 22 3A 99 00 64 21 | CBM 8032 ":..d!|
00001940: 7C 10 99 20 22 20 20 20 20 20 20 20 20 20 5B 20 ||.. " [ |
00001950: 33 20 5D 20 2D 20 2D 20 43 42 4D 20 34 30 33 32 |3 ] - - CBM 4032|
00001960: 20 22 3A 99 00 8B 21 86 10 99 20 22 20 20 20 20 | ":...!... " |
00001970: 20 20 20 20 20 5B 20 34 20 5D 20 2D 20 2D 20 43 | [ 4 ] - - C|
00001980: 42 4D 20 38 30 39 36 20 22 3A 99 00 AF 21 90 10 |BM 8096 ":...!..|
00001990: 99 20 22 20 20 20 20 20 20 20 20 20 5B 20 35 20 |. " [ 5 |
000019A0: 5D 20 2D 20 2D 20 56 49 43 20 32 30 22 3A 99 00 |] - - VIC 20":..|
000019B0: D4 21 95 10 99 20 22 20 20 20 20 20 20 20 20 20 |.!... " |
000019C0: 5B 20 36 20 5D 20 2D 20 2D 20 43 42 4D 20 31 32 |[ 6 ] - - CBM 12|
000019D0: 38 22 3A 99 00 01 22 9A 10 99 20 22 20 20 20 20 |8":..."... " |
000019E0: 20 20 20 20 20 5B 20 30 20 5D 20 2D 20 2D 20 53 | [ 0 ] - - S|
000019F0: 4F 4C 49 44 20 42 4F 52 44 45 52 20 22 3A 99 3A |OLID BORDER ":.:|
00001A00: 99 00 2D 22 A4 10 99 20 22 20 20 20 20 20 20 20 |..-"... " |
00001A10: 20 20 5B 20 20 20 5D 20 2E 2E 2E 2E 2E 20 59 4F | [ ] ..... YO|
00001A20: 55 52 20 43 48 4F 49 43 45 22 3B 3A 99 00 47 22 |UR CHOICE";:..G"|
00001A30: A6 10 A1 20 41 34 24 3A 8B 20 41 34 24 B2 22 22 |... A4$:. A4$.""|
00001A40: 20 A7 20 34 32 36 32 00 68 22 A9 10 8B 20 41 34 | . 4262.h"... A4|
00001A50: 24 20 B3 22 30 22 20 B0 20 41 34 24 B1 20 22 38 |$ ."0" . A4$. "8|
00001A60: 22 20 A7 20 34 32 36 30 00 89 22 AE 10 8B 20 41 |" . 4260.."... A|
00001A70: 34 24 B2 22 31 22 20 A7 20 5A 24 B2 20 22 20 50 |4$."1" . Z$. " P|
00001A80: 45 54 20 32 30 30 31 20 22 00 AA 22 B8 10 8B 20 |ET 2001 ".."... |
00001A90: 41 34 24 B2 22 32 22 20 A7 20 5A 24 B2 20 22 20 |A4$."2" . Z$. " |
00001AA0: 43 42 4D 20 38 30 33 32 20 22 00 CB 22 C2 10 8B |CBM 8032 ".."...|
00001AB0: 20 41 34 24 B2 22 33 22 20 A7 20 5A 24 B2 20 22 | A4$."3" . Z$. "|
00001AC0: 20 43 42 4D 20 34 30 33 32 20 22 00 EC 22 CC 10 | CBM 4032 ".."..|
00001AD0: 8B 20 41 34 24 B2 22 34 22 20 A7 20 5A 24 B2 20 |. A4$."4" . Z$. |
00001AE0: 22 20 43 42 4D 20 38 30 39 36 20 22 00 0D 23 D6 |" CBM 8096 "..#.|
00001AF0: 10 8B 20 41 34 24 B2 22 35 22 20 A7 20 5A 24 B2 |.. A4$."5" . Z$.|
00001B00: 20 22 20 20 56 49 43 20 32 30 20 20 22 00 2F 23 | " VIC 20 "./#|
00001B10: DB 10 8B 20 41 34 24 B2 22 36 22 20 A7 20 5A 24 |... A4$."6" . Z$|
00001B20: B2 20 22 20 20 43 42 4D 20 31 32 38 20 20 22 00 |. " CBM 128 ".|
00001B30: 50 23 E0 10 8B 20 41 34 24 B2 22 30 22 20 A7 20 |P#... A4$."0" . |
00001B40: 5A 24 B2 20 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |Z$. "**********"|
00001B50: 00 5B 23 E1 10 89 20 34 33 33 30 00 82 23 E5 10 |.[#... 4330..#..|
00001B60: 4C B2 31 3A 8D 20 34 37 30 35 3A 8F 20 44 49 53 |L.1:. 4705:. DIS|
00001B70: 50 4C 41 59 20 43 55 52 52 45 4E 54 20 4C 41 42 |PLAY CURRENT LAB|
00001B80: 45 4C 00 AB 23 EA 10 99 20 C7 28 31 34 37 29 3A |EL..#... .(147):|
00001B90: 89 20 31 32 30 33 30 3A 8F 20 47 4F 54 4F 20 38 |. 12030:. GOTO 8|
00001BA0: 30 20 43 50 4C 20 53 45 54 55 50 00 B1 23 5C 12 |0 CPL SETUP..#\.|
00001BB0: 8F 00 D3 23 5D 12 8F 20 3A 3A 3A 3A 3A 44 49 53 |...#].. :::::DIS|
00001BC0: 4B 20 4C 41 42 45 4C 20 46 4F 52 4D 41 54 3A 3A |K LABEL FORMAT::|
00001BD0: 3A 3A 3A 00 D9 23 5E 12 8F 00 E6 23 61 12 99 20 |:::..#^....#a.. |
00001BE0: C7 28 31 34 37 29 00 23 24 66 12 48 B2 34 3A 8F |.(147).#$f.H.4:.|
00001BF0: 20 53 45 54 20 56 41 4C 55 45 20 46 4F 52 20 48 | SET VALUE FOR H|
00001C00: 4F 52 49 5A 4F 4E 54 41 4C 20 54 41 42 20 44 55 |ORIZONTAL TAB DU|
00001C10: 52 49 4E 47 20 53 43 52 45 45 4E 20 44 49 53 50 |RING SCREEN DISP|
00001C20: 4C 41 59 00 68 24 70 12 8B 20 56 24 B2 22 4E 22 |LAY.h$p.. V$."N"|
00001C30: 20 A7 20 56 31 24 B2 42 52 24 AA 42 52 24 AA 42 | . V1$.BR$.BR$.B|
00001C40: 52 24 3A 8F 20 46 49 4C 4C 20 54 4F 50 20 42 4F |R$:. FILL TOP BO|
00001C50: 52 44 45 52 20 57 49 54 48 20 52 45 51 55 49 52 |RDER WITH REQUIR|
00001C60: 45 44 20 43 48 41 52 2E 00 75 24 73 12 88 20 4A |ED CHAR..u$s.. J|
00001C70: 24 B2 22 20 22 00 8B 24 75 12 8B 20 56 24 B2 22 |$." "..$u.. V$."|
00001C80: 4E 22 20 A7 20 4A 24 B2 42 52 24 00 B6 24 7A 12 |N" . J$.BR$..$z.|
00001C90: 8B 20 56 24 B2 22 4E 22 20 A7 20 56 32 24 B2 42 |. V$."N" . V2$.B|
00001CA0: 52 24 AA 42 52 24 AA 42 52 24 AA 42 52 24 AA 42 |R$.BR$.BR$.BR$.B|
00001CB0: 52 24 AA 42 52 24 00 D9 24 98 12 99 20 A3 48 AA |R$.BR$..$... .H.|
00001CC0: 44 29 3A 81 20 42 52 B2 31 20 A4 20 42 3A 99 20 |D):. BR.1 . B:. |
00001CD0: 42 52 24 3B 3A 82 20 42 52 00 08 25 99 12 99 20 |BR$;:. BR..%... |
00001CE0: 56 32 24 3B 3A 99 20 56 31 24 3B 3A 99 20 4A 24 |V2$;:. V1$;:. J$|
00001CF0: 3B 3A 81 20 42 52 B2 31 20 A4 20 42 3A 99 20 42 |;:. BR.1 . B:. B|
00001D00: 52 24 3B 3A 82 20 42 52 00 14 25 9A 12 99 20 C7 |R$;:. BR..%... .|
00001D10: 28 31 30 29 00 2C 25 A2 12 4C B2 4C AA 31 3A 8B |(10).,%..L.L.1:.|
00001D20: 20 4C B2 32 20 A7 20 4C 24 B2 41 24 00 3E 25 AC | L.2 . L$.A$.>%.|
00001D30: 12 8B 20 4C B2 33 20 A7 20 4C 24 B2 42 24 00 50 |.. L.3 . L$.B$.P|
00001D40: 25 B6 12 8B 20 4C B2 34 20 A7 20 4C 24 B2 43 24 |%... L.4 . L$.C$|
00001D50: 00 60 25 BA 12 99 20 A3 48 AA 44 29 42 52 24 3B |.`%... .H.D)BR$;|
00001D60: 00 76 25 BC 12 48 54 B2 B5 28 28 43 AB C3 28 4C |.v%..HT..((C..(L|
00001D70: 24 29 29 AD 32 29 00 82 25 BE 12 48 41 B2 48 54 |$)).2)..%..HA.HT|
00001D80: AA 31 00 94 25 C0 12 54 B2 48 54 AA C3 28 4C 24 |.1..%..T.HT..(L$|
00001D90: 29 AA 48 41 00 A6 25 C1 12 8B 20 54 B1 43 20 A7 |).HA..%... T.C .|
00001DA0: 20 48 41 B2 48 54 00 C0 25 C3 12 99 20 A6 48 54 | HA.HT..%... .HT|
00001DB0: 29 4C 24 A6 48 41 29 42 52 24 20 C7 28 31 30 29 |)L$.HA)BR$ .(10)|
00001DC0: 00 D1 25 C8 12 8B 20 4C B3 34 20 A7 20 34 37 37 |..%... L.4 . 477|
00001DD0: 30 00 0C 26 CA 12 8B 20 41 34 24 B2 22 30 22 20 |0..&... A4$."0" |
00001DE0: A7 20 5A 24 B2 42 52 24 AA 42 52 24 AA 42 52 24 |. Z$.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 AA 42 52 24 AA 42 52 24 00 2F 26 D4 |.BR$.BR$.BR$./&.|
00001E10: 12 99 20 A6 48 AA 44 29 3B 3A 81 20 42 52 B2 31 |.. .H.D);:. BR.1|
00001E20: A4 20 42 3A 99 20 42 52 24 3B 3A 82 20 42 52 00 |. B:. BR$;:. BR.|
00001E30: 5D 26 DE 12 99 20 5A 24 3B 3A 81 20 42 52 B2 31 |]&... Z$;:. BR.1|
00001E40: A4 20 42 3A 99 20 42 52 24 3B 3A 82 20 42 52 3A |. B:. BR$;:. BR:|
00001E50: 99 20 C7 28 31 30 29 20 C7 28 31 30 29 00 7D 26 |. .(10) .(10).}&|
00001E60: ED 12 4C B2 31 3A 8F 20 52 45 53 45 54 20 4C 49 |..L.1:. RESET LI|
00001E70: 4E 45 20 43 4F 55 4E 54 20 46 4C 41 47 00 83 26 |NE COUNT FLAG..&|
00001E80: F2 12 8E 00 89 26 70 17 8F 00 A6 26 75 17 8F 20 |.....&p....&u.. |
00001E90: 20 3A 3A 3A 3A 3A 49 4E 50 55 54 20 4C 49 4E 45 | :::::INPUT LINE|
00001EA0: 53 3A 3A 3A 3A 3A 00 AC 26 7A 17 8F 00 B9 26 84 |S:::::..&z....&.|
00001EB0: 17 99 20 C7 28 31 34 37 29 00 D3 26 8E 17 81 20 |.. .(147)..&... |
00001EC0: 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A |I.1 . 4:. .(17):|
00001ED0: 82 20 49 00 EB 26 98 17 99 20 22 20 49 4E 50 55 |. I..&... " INPU|
00001EE0: 54 20 4C 49 4E 45 20 23 31 20 22 00 18 27 A2 17 |T LINE #1 "..'..|
00001EF0: 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 |. .(19):. I.1 . |
00001F00: 34 3A 99 20 C7 28 31 37 29 3A 82 49 3A 99 20 A3 |4:. .(17):.I:. .|
00001F10: 53 31 AA 31 29 22 5D 22 00 2C 27 AC 17 99 3A 99 |S1.1)"]".,'...:.|
00001F20: 20 A6 35 29 3A 85 20 22 22 3B 41 24 00 4E 27 B6 | .5):. "";A$.N'.|
00001F30: 17 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 |.. .(19):. I.1 .|
00001F40: 20 34 3A 99 20 C7 28 31 37 29 3A 82 20 49 00 66 | 4:. .(17):. I.f|
00001F50: 27 C0 17 99 20 22 20 49 4E 50 55 54 20 4C 49 4E |'... " INPUT LIN|
00001F60: 45 20 23 32 20 22 00 93 27 CA 17 99 20 C7 28 31 |E #2 "..'... .(1|
00001F70: 39 29 3A 81 20 49 B2 31 20 A4 20 34 3A 99 20 C7 |9):. I.1 . 4:. .|
00001F80: 28 31 37 29 3A 82 49 3A 99 20 A3 53 31 AA 31 29 |(17):.I:. .S1.1)|
00001F90: 22 5D 22 00 B5 27 CF 17 99 20 C7 28 31 39 29 3A |"]"..'... .(19):|
00001FA0: 81 20 49 B2 31 20 A4 20 36 3A 99 20 C7 28 31 37 |. I.1 . 6:. .(17|
00001FB0: 29 3A 82 20 49 00 C7 27 D4 17 99 20 A6 35 29 3A |):. I..'... .5):|
00001FC0: 85 20 22 22 3B 42 24 00 E9 27 DE 17 99 20 C7 28 |. "";B$..'... .(|
00001FD0: 31 39 29 3A 81 20 49 B2 31 20 A4 20 34 3A 99 20 |19):. I.1 . 4:. |
00001FE0: C7 28 31 37 29 3A 82 20 49 00 01 28 E8 17 99 20 |.(17):. I..(... |
00001FF0: 22 20 49 4E 50 55 54 20 4C 49 4E 45 20 23 33 20 |" INPUT LINE #3 |
00002000: 22 00 2E 28 F2 17 99 20 C7 28 31 39 29 3A 81 20 |"..(... .(19):. |
00002010: 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A |I.1 . 4:. .(17):|
00002020: 82 49 3A 99 20 A3 53 31 AA 31 29 22 5D 22 00 50 |.I:. .S1.1)"]".P|
00002030: 28 F7 17 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 |(... .(19):. I.1|
00002040: 20 A4 20 37 3A 99 20 C7 28 31 37 29 3A 82 20 49 | . 7:. .(17):. I|
00002050: 00 62 28 FC 17 99 20 A6 35 29 3A 85 20 22 22 3B |.b(... .5):. "";|
00002060: 43 24 00 84 28 06 18 99 20 C7 28 31 39 29 3A 81 |C$..(... .(19):.|
00002070: 20 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 | I.1 . 4:. .(17)|
00002080: 3A 82 20 49 00 9C 28 10 18 99 20 22 20 49 4E 50 |:. I..(... " INP|
00002090: 55 54 20 4C 49 4E 45 20 23 34 20 22 00 C9 28 1A |UT LINE #4 "..(.|
000020A0: 18 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 |.. .(19):. I.1 .|
000020B0: 20 34 3A 99 20 C7 28 31 37 29 3A 82 49 3A 99 20 | 4:. .(17):.I:. |
000020C0: A3 53 31 AA 31 29 22 5D 22 00 EB 28 1F 18 99 20 |.S1.1)"]"..(... |
000020D0: C7 28 31 39 29 3A 81 20 49 B2 31 20 A4 20 38 3A |.(19):. I.1 . 8:|
000020E0: 99 20 C7 28 31 37 29 3A 82 20 49 00 FD 28 24 18 |. .(17):. I..($.|
000020F0: 99 20 A6 35 29 3A 85 20 22 22 3B 45 24 00 1F 29 |. .5):. "";E$..)|
00002100: 2E 18 99 20 C7 28 31 39 29 3A 81 20 49 B2 31 20 |... .(19):. I.1 |
00002110: A4 20 34 3A 99 20 C7 28 31 37 29 3A 82 20 49 00 |. 4:. .(17):. I.|
00002120: 37 29 38 18 99 20 22 20 49 4E 50 55 54 20 4C 49 |7)8.. " INPUT LI|
00002130: 4E 45 20 23 35 20 22 00 64 29 42 18 99 20 C7 28 |NE #5 ".d)B.. .(|
00002140: 31 39 29 3A 81 20 49 B2 31 20 A4 20 34 3A 99 20 |19):. I.1 . 4:. |
00002150: C7 28 31 37 29 3A 82 49 3A 99 20 A3 53 31 AA 31 |.(17):.I:. .S1.1|
00002160: 29 22 5D 22 00 86 29 47 18 99 20 C7 28 31 39 29 |)"]"..)G.. .(19)|
00002170: 3A 81 20 49 B2 31 20 A4 20 39 3A 99 20 C7 28 31 |:. I.1 . 9:. .(1|
00002180: 37 29 3A 82 20 49 00 98 29 4C 18 99 20 A6 35 29 |7):. I..)L.. .5)|
00002190: 3A 85 20 22 22 3B 46 24 00 9E 29 56 18 8E 00 A4 |:. "";F$..)V....|
000021A0: 29 9C 18 8F 00 C8 29 A6 18 8F 20 20 3A 3A 3A 52 |).....)... :::R|
000021B0: 45 53 45 54 20 4C 49 4E 45 20 50 52 49 4E 54 20 |ESET LINE PRINT |
000021C0: 56 41 4C 55 45 53 3A 3A 00 CE 29 B0 18 8F 00 D8 |VALUES::..).....|
000021D0: 29 BA 18 41 24 B2 22 22 00 E2 29 C4 18 42 24 B2 |)..A$.""..)..B$.|
000021E0: 22 22 00 EC 29 CE 18 43 24 B2 22 22 00 F6 29 D8 |""..)..C$.""..).|
000021F0: 18 45 24 B2 22 22 00 00 2A E2 18 46 24 B2 22 22 |.E$.""..*..F$.""|
00002200: 00 06 2A EC 18 8E 00 0C 2A 58 1B 8F 00 27 2A 5D |..*.....*X...'*]|
00002210: 1B 8F 20 20 3A 3A 3A 3A 3A 48 4F 57 20 4D 41 4E |.. :::::HOW MAN|
00002220: 59 3F 3A 3A 3A 3A 3A 00 2D 2A 62 1B 8F 00 53 2A |Y?:::::.-*b...S*|
00002230: 6C 1B 99 3A 99 3A 99 20 22 20 20 20 20 20 20 20 |l..:.:. " |
00002240: 20 48 4F 57 20 4D 41 4E 59 20 4C 41 42 45 4C 53 | HOW MANY LABELS|
00002250: 20 22 3B 00 5B 2A 80 1B 85 20 58 00 83 2A 8A 1B | ";.[*... X..*..|
00002260: 8B 20 58 B2 30 20 A7 20 89 20 32 34 30 3A 8F 20 |. X.0 . . 240:. |
00002270: 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D |RETURN TO MAIN M|
00002280: 45 4E 55 00 89 2A 94 1B 8E 00 8F 2A 40 1F 8F 00 |ENU..*.....*@...|
00002290: AF 2A 45 1F 8F 20 20 3A 3A 3A 3A 3A 53 54 41 4E |.*E.. :::::STAN|
000022A0: 44 41 52 44 20 50 52 49 4E 54 3A 3A 3A 3A 3A 00 |DARD PRINT:::::.|
000022B0: B5 2A 4A 1F 8F 00 C9 2A 54 1F 8B 20 4C B3 B1 31 |.*J....*T.. L..1|
000022C0: 20 A7 20 89 20 38 30 34 30 00 00 2B 55 1F 8F 20 | . . 8040..+U.. |
000022D0: 4C 3D 31 20 49 4E 44 49 43 41 54 45 53 20 54 48 |L=1 INDICATES TH|
000022E0: 41 54 20 44 49 53 4B 20 4C 41 42 45 4C 53 20 41 |AT DISK LABELS A|
000022F0: 52 45 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 |RE TO BE PRINTED|
00002300: 00 2D 2B 5E 1F 81 20 49 B2 31 20 A4 20 58 3A 8D |.-+^.. I.1 . X:.|
00002310: 20 34 37 32 30 3A 82 20 49 3A 8F 20 50 52 49 4E | 4720:. I:. PRIN|
00002320: 54 20 44 49 53 4B 20 4C 41 42 45 4C 53 00 33 2B |T DISK LABELS.3+|
00002330: 63 1F 8E 00 41 2B 68 1F 81 20 49 B2 31 20 A4 20 |c...A+h.. I.1 . |
00002340: 58 00 6D 2B 72 1F 99 20 A6 48 29 20 41 24 20 C7 |X.m+r.. .H) A$ .|
00002350: 28 31 30 29 3A 8F 20 20 43 48 52 24 28 31 30 29 |(10):. CHR$(10)|
00002360: 20 49 53 20 4C 49 4E 45 20 46 45 45 44 00 80 2B | IS LINE FEED..+|
00002370: 7C 1F 99 20 A6 48 29 20 42 24 20 C7 28 31 30 29 ||.. .H) B$ .(10)|
00002380: 00 93 2B 86 1F 99 20 A6 48 29 20 43 24 20 C7 28 |..+... .H) C$ .(|
00002390: 31 30 29 00 A6 2B 90 1F 99 20 A6 48 29 20 45 24 |10)..+... .H) E$|
000023A0: 20 C7 28 31 30 29 00 B9 2B 9A 1F 99 20 A6 48 29 | .(10)..+... .H)|
000023B0: 20 46 24 20 C7 28 31 30 29 00 C5 2B A4 1F 99 20 | F$ .(10)..+... |
000023C0: C7 28 31 30 29 00 CD 2B AE 1F 82 20 49 00 D3 2B |.(10)..+... I..+|
000023D0: B8 1F 8E 00 D9 2B 28 23 8F 00 F6 2B 2D 23 8F 20 |.....+(#...+-#. |
000023E0: 20 3A 3A 3A 3A 3A 44 4F 55 42 4C 45 20 57 49 44 | :::::DOUBLE WID|
000023F0: 45 3A 3A 3A 3A 3A 00 FC 2B 32 23 8F 00 3F 2C 37 |E:::::..+2#..?,7|
00002400: 23 8F 20 20 43 48 52 24 28 31 34 29 20 52 45 51 |#. CHR$(14) REQ|
00002410: 55 49 52 45 44 20 4F 4E 20 45 41 43 48 20 4C 49 |UIRED ON EACH LI|
00002420: 4E 45 20 54 4F 20 54 55 52 4E 20 4F 4E 20 44 4F |NE TO TURN ON DO|
00002430: 55 42 4C 45 20 57 49 44 45 20 50 52 49 4E 54 00 |UBLE WIDE PRINT.|
00002440: 4D 2C 3C 23 81 20 49 B2 31 20 A4 20 58 00 5A 2C |M,<#. I.1 . X.Z,|
00002450: 46 23 99 20 C7 28 31 34 29 3B 00 6D 2C 50 23 99 |F#. .(14);.m,P#.|
00002460: 20 A6 48 29 20 41 24 20 C7 28 31 30 29 00 7A 2C | .H) A$ .(10).z,|
00002470: 5A 23 99 20 C7 28 31 34 29 3B 00 8D 2C 64 23 99 |Z#. .(14);..,d#.|
00002480: 20 A6 48 29 20 42 24 20 C7 28 31 30 29 00 9A 2C | .H) B$ .(10)..,|
00002490: 6E 23 99 20 C7 28 31 34 29 3B 00 AD 2C 78 23 99 |n#. .(14);..,x#.|
000024A0: 20 A6 48 29 20 43 24 20 C7 28 31 30 29 00 BA 2C | .H) C$ .(10)..,|
000024B0: 82 23 99 20 C7 28 31 34 29 3B 00 CD 2C 8C 23 99 |.#. .(14);..,.#.|
000024C0: 20 A6 48 29 20 45 24 20 C7 28 31 30 29 00 DA 2C | .H) E$ .(10)..,|
000024D0: 96 23 99 20 C7 28 31 34 29 3B 00 ED 2C A0 23 99 |.#. .(14);..,.#.|
000024E0: 20 A6 48 29 20 46 24 20 C7 28 31 30 29 00 F9 2C | .H) F$ .(10)..,|
000024F0: AA 23 99 20 C7 28 31 30 29 00 01 2D B4 23 82 20 |.#. .(10)..-.#. |
00002500: 49 00 0B 2D BE 23 98 34 3A A0 34 00 11 2D C8 23 |I..-.#.4:.4..-.#|
00002510: 8E 00 17 2D 10 27 8F 00 36 2D 1A 27 8F 20 3A 3A |...-.'..6-.'. ::|
00002520: 3A 3A 53 45 54 20 55 50 20 45 4D 50 48 41 53 49 |::SET UP EMPHASI|
00002530: 5A 45 3A 3A 3A 3A 00 3C 2D 1F 27 8F 00 50 2D 24 |ZE::::.<-.'..P-$|
00002540: 27 8B 20 45 B2 30 20 A7 20 89 20 31 30 30 35 30 |'. E.0 . . 10050|
00002550: 00 64 2D 2E 27 8B 20 45 B2 31 20 A7 20 89 20 31 |.d-.'. E.1 . . 1|
00002560: 30 30 39 30 00 6A 2D 38 27 8E 00 86 2D 42 27 9F |0090.j-8'...-B'.|
00002570: 34 2C 34 2C 31 3A 9D 34 3A 8F 20 20 50 52 49 4E |4,4,1:.4:. PRIN|
00002580: 54 45 52 20 4F 4E 00 95 2D 47 27 99 20 C7 28 32 |TER ON..-G'. .(2|
00002590: 37 29 22 45 22 00 9F 2D 4C 27 98 34 3A A0 34 00 |7)"E"..-L'.4:.4.|
000025A0: CB 2D 51 27 8F 20 43 48 52 24 28 32 37 29 22 45 |.-Q'. CHR$(27)"E|
000025B0: 22 20 54 55 52 4E 53 20 4F 4E 20 45 4D 50 48 41 |" TURNS ON EMPHA|
000025C0: 53 49 5A 45 44 20 50 52 49 4E 54 00 D5 2D 60 27 |SIZED PRINT..-`'|
000025D0: 45 B2 31 3A 8E 00 F4 2D 6A 27 9F 34 2C 34 2C 31 |E.1:...-j'.4,4,1|
000025E0: 3A 9D 34 3A 99 20 C7 28 32 37 29 22 46 22 3A 98 |:.4:. .(27)"F":.|
000025F0: 34 3A A0 34 00 21 2E 6B 27 8F 20 43 48 52 24 28 |4:.4.!.k'. CHR$(|
00002600: 32 37 29 22 46 22 20 54 55 52 4E 53 20 4F 46 46 |27)"F" TURNS OFF|
00002610: 20 45 4D 50 48 41 53 49 5A 45 44 20 50 52 49 4E | EMPHASIZED PRIN|
00002620: 54 00 2B 2E 88 27 45 B2 30 3A 8E 00 31 2E F8 2A |T.+..'E.0:..1..*|
00002630: 8F 00 56 2E FD 2A 8F 20 3A 53 43 52 45 45 4E 20 |..V..*. :SCREEN |
00002640: 50 52 49 4E 54 20 4F 46 20 4C 41 42 45 4C 20 56 |PRINT OF LABEL V|
00002650: 41 4C 55 45 53 3A 00 5C 2E 02 2B 8F 00 8B 2E 0C |ALUES:.\..+.....|
00002660: 2B 99 20 C7 28 31 34 37 29 C7 28 31 37 29 C7 28 |+. .(147).(17).(|
00002670: 31 37 29 3A 8F 20 43 48 52 24 28 31 34 37 29 20 |17):. CHR$(147) |
00002680: 49 53 20 43 4C 52 2F 48 4F 4D 45 00 97 2E 16 2B |IS CLR/HOME....+|
00002690: 99 20 A6 36 29 41 24 00 A3 2E 20 2B 99 20 A6 36 |. .6)A$... +. .6|
000026A0: 29 42 24 00 AF 2E 2A 2B 99 20 A6 36 29 43 24 00 |)B$...*+. .6)C$.|
000026B0: BB 2E 34 2B 99 20 A6 36 29 45 24 00 C7 2E 3E 2B |..4+. .6)E$...>+|
000026C0: 99 20 A6 36 29 46 24 00 CD 2E 48 2B 8E 00 D3 2E |. .6)F$...H+....|
000026D0: E0 2E 8F 00 F3 2E E5 2E 8F 20 20 3A 3A 3A 3A 3A |......... :::::|
000026E0: 20 38 30 20 43 50 4C 20 53 45 54 55 50 20 3A 3A | 80 CPL SETUP ::|
000026F0: 3A 3A 3A 00 F9 2E EA 2E 8F 00 14 2F FE 2E 8D 20 |:::......../... |
00002700: 32 30 30 30 3A 8F 20 20 49 4E 53 54 52 55 43 54 |2000:. INSTRUCT|
00002710: 49 4F 4E 53 00 2C 2F 08 2F 8D 20 36 30 32 30 3A |IONS.,/./. 6020:|
00002720: 8F 20 20 47 45 54 20 49 4E 50 55 54 00 55 2F 0D |. GET INPUT.U/.|
00002730: 2F 8B 20 4C B2 31 20 A7 20 8D 20 34 37 30 35 3A |/. L.1 . . 4705:|
00002740: 8F 20 20 44 49 53 50 4C 41 59 20 44 49 53 4B 20 |. DISPLAY DISK |
00002750: 4C 41 42 45 4C 00 83 2F 0F 2F 8B 20 4C B3 B1 31 |LABEL.././. L..1|
00002760: 20 A7 20 8D 20 31 31 30 32 30 3A 8F 20 44 49 53 | . . 11020:. DIS|
00002770: 50 4C 41 59 20 52 45 47 55 4C 41 52 20 4C 41 42 |PLAY REGULAR LAB|
00002780: 45 4C 53 00 9B 2F 12 2F 8D 20 37 30 32 30 3A 8F |ELS.././. 7020:.|
00002790: 20 20 48 4F 57 20 4D 41 4E 59 3F 00 A9 2F 1C 2F | HOW MANY?.././|
000027A0: 9F 34 2C 34 2C 31 3A 9D 34 00 BB 2F 20 2F 8F 20 |.4,4,1:.4../ /. |
000027B0: 20 50 52 49 4E 54 45 52 20 4F 4E 00 D6 2F 26 2F | PRINTER ON../&/|
000027C0: 8D 20 38 30 32 30 3A 8F 20 20 50 52 49 4E 54 20 |. 8020:. PRINT |
000027D0: 4C 41 42 45 4C 53 00 0A 30 2F 2F 99 20 C7 28 51 |LABELS..0//. .(Q|
000027E0: 29 3A 8F 20 20 51 20 4D 41 59 20 54 55 52 4E 20 |):. Q MAY TURN |
000027F0: 43 4F 4D 50 52 45 53 53 45 44 20 50 52 49 4E 54 |COMPRESSED PRINT|
00002800: 20 4F 4E 20 4F 52 20 4F 46 46 00 14 30 30 2F 98 | ON OR OFF..00/.|
00002810: 34 3A A0 34 00 27 30 31 2F 8F 20 20 50 52 49 4E |4:.4.'01/. PRIN|
00002820: 54 45 52 20 4F 46 46 00 53 30 35 2F 99 20 C7 28 |TER OFF.S05/. .(|
00002830: 31 34 37 29 3A 8B 20 4C B2 31 20 A7 20 8D 20 34 |147):. L.1 . . 4|
00002840: 37 30 35 3A 8B 20 4C B2 31 20 A7 20 89 20 31 32 |705:. L.1 . . 12|
00002850: 30 39 30 00 5F 30 38 2F 8D 20 31 31 30 33 30 00 |090._08/. 11030.|
00002860: 8E 30 3A 2F 99 3A 99 3A 99 20 22 20 20 20 20 20 |.0:/.:.:. " |
00002870: 4D 4F 52 45 20 4F 46 20 54 48 45 20 53 41 4D 45 |MORE OF THE SAME|
00002880: 20 4C 41 42 45 4C 20 22 3B 3A 85 20 58 24 00 B3 | LABEL ";:. X$..|
00002890: 30 3E 2F 8B 20 C8 28 58 24 2C 31 29 B2 22 59 22 |0>/. .(X$,1)."Y"|
000028A0: 20 A7 20 99 20 C7 28 31 34 37 29 3A 89 20 31 32 | . . .(147):. 12|
000028B0: 30 34 37 00 FB 30 40 2F 8F 20 20 50 45 52 46 4F |047..0@/. PERFO|
000028C0: 52 4D 20 44 49 53 50 4C 41 59 20 4C 41 42 45 4C |RM DISPLAY LABEL|
000028D0: 53 20 4F 4E 20 53 43 52 45 45 4E 2D 2D 43 48 52 |S ON SCREEN--CHR|
000028E0: 24 28 31 34 37 29 20 49 53 20 43 55 52 53 4F 52 |$(147) IS CURSOR|
000028F0: 20 43 4C 45 41 52 2F 48 4F 4D 45 00 17 31 44 2F | CLEAR/HOME..1D/|
00002900: 8B 20 C8 28 58 24 2C 31 29 B2 22 4E 22 20 A7 20 |. .(X$,1)."N" . |
00002910: 89 20 31 32 31 32 30 00 23 31 4E 2F 89 20 31 32 |. 12120.#1N/. 12|
00002920: 30 38 35 00 4F 31 58 2F 51 B2 31 38 3A 4C B2 30 |085.O1X/Q.18:L.0|
00002930: 3A 8D 20 36 33 30 30 3A 89 20 32 34 30 3A 8F 20 |:. 6300:. 240:. |
00002940: 20 47 4F 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 | GOTO MAIN MENU.|
00002950: 55 31 C8 32 8F 00 76 31 CD 32 8F 20 20 3A 3A 3A |U1.2..v1.2. :::|
00002960: 3A 3A 20 31 33 32 20 43 50 4C 20 53 45 54 55 50 |:: 132 CPL SETUP|
00002970: 20 3A 3A 3A 3A 3A 00 7C 31 D2 32 8F 00 8A 31 DC | :::::.|1.2...1.|
00002980: 32 9F 34 2C 34 2C 31 3A 9D 34 00 96 31 DD 32 99 |2.4,4,1:.4..1.2.|
00002990: 20 C7 28 32 30 29 00 A0 31 E1 32 98 34 3A A0 34 | .(20)..1.2.4:.4|
000029A0: 00 CA 31 E5 32 8F 20 20 43 48 52 24 28 32 30 29 |..1.2. CHR$(20)|
000029B0: 20 54 55 52 4E 53 20 4F 4E 20 43 4F 4D 50 52 45 | TURNS ON COMPRE|
000029C0: 53 53 45 44 20 50 52 49 4E 54 00 EA 31 E6 32 89 |SSED PRINT..1.2.|
000029D0: 20 31 32 30 33 30 3A 8F 20 20 47 4F 54 4F 20 50 | 12030:. GOTO P|
000029E0: 52 49 4E 54 20 53 45 54 55 50 00 F0 31 B0 36 8F |RINT SETUP..1.6.|
000029F0: 00 10 32 B5 36 8F 20 20 3A 3A 3A 3A 3A 20 34 30 |..2.6. ::::: 40|
00002A00: 20 43 50 4C 20 53 45 54 55 50 20 3A 3A 3A 3A 3A | CPL SETUP :::::|
00002A10: 00 16 32 BA 36 8F 00 30 32 CE 36 8D 20 32 30 32 |..2.6..02.6. 202|
00002A20: 30 3A 8F 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |0:. INSTRUCTIONS|
00002A30: 00 48 32 D8 36 8D 20 36 30 32 30 3A 8F 20 20 47 |.H2.6. 6020:. G|
00002A40: 45 54 20 49 4E 50 55 54 00 60 32 E2 36 8D 20 37 |ET INPUT.`2.6. 7|
00002A50: 30 32 30 3A 8F 20 20 48 4F 57 20 4D 41 4E 59 3F |020:. HOW MANY?|
00002A60: 00 6E 32 EC 36 9F 34 2C 34 2C 31 3A 9D 34 00 88 |.n2.6.4,4,1:.4..|
00002A70: 32 F6 36 8D 20 39 30 32 30 3A 8F 20 20 50 52 49 |2.6. 9020:. PRI|
00002A80: 4E 54 20 4C 41 52 47 45 00 9D 32 0A 37 99 20 C7 |NT LARGE..2.7. .|
00002A90: 28 31 34 37 29 3A 8D 20 31 31 30 32 30 00 CA 32 |(147):. 11020..2|
00002AA0: 0E 37 99 3A 99 20 22 20 20 20 20 20 4D 4F 52 45 |.7.:. " MORE|
00002AB0: 20 4F 46 20 54 48 45 20 53 41 4D 45 20 4C 41 42 | OF THE SAME LAB|
00002AC0: 45 4C 20 22 3B 3A 85 20 58 24 00 F7 32 10 37 8B |EL ";:. X$..2.7.|
00002AD0: 20 C8 28 58 24 2C 31 29 B2 22 59 22 20 A7 20 99 | .(X$,1)."Y" . .|
00002AE0: 20 C7 28 31 34 37 29 3A 8D 20 31 31 30 32 30 3A | .(147):. 11020:|
00002AF0: 89 20 31 34 30 35 30 00 16 33 12 37 8F 20 20 44 |. 14050..3.7. D|
00002B00: 49 53 50 4C 41 59 20 4C 41 42 45 4C 20 4F 4E 20 |ISPLAY LABEL ON |
00002B10: 53 43 52 45 45 4E 00 24 33 14 37 9F 34 2C 34 2C |SCREEN.$3.7.4,4,|
00002B20: 31 3A 9D 34 00 30 33 1E 37 99 20 C7 28 31 38 29 |1:.4.03.7. .(18)|
00002B30: 00 3A 33 28 37 98 34 3A A0 34 00 5D 33 78 37 8D |.:3(7.4:.4.]3x7.|
00002B40: 20 36 33 30 30 3A 89 20 32 34 30 3A 8F 20 20 47 | 6300:. 240:. G|
00002B50: 4F 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 63 33 |OTO MAIN MENU.c3|
00002B60: 98 3A 8F 00 83 33 9D 3A 8F 20 20 3A 3A 3A 3A 3A |.:...3.:. :::::|
00002B70: 20 36 36 20 43 50 4C 20 53 45 54 55 50 20 3A 3A | 66 CPL SETUP ::|
00002B80: 3A 3A 3A 00 89 33 A2 3A 8F 00 97 33 AC 3A 9F 34 |:::..3.:...3.:.4|
00002B90: 2C 34 2C 31 3A 9D 34 00 A5 33 B6 3A 99 20 C7 28 |,4,1:.4..3.:. .(|
00002BA0: 32 30 29 3B 3A 00 CF 33 B7 3A 8F 20 20 43 48 52 |20);:..3.:. CHR|
00002BB0: 24 28 32 30 29 20 54 55 52 4E 53 20 4F 4E 20 43 |$(20) TURNS ON C|
00002BC0: 4F 4D 50 52 45 53 53 45 44 20 50 52 49 4E 54 00 |OMPRESSED PRINT.|
00002BD0: D9 33 C0 3A 98 34 3A A0 34 00 F9 33 E8 3A 89 20 |.3.:.4:.4..3.:. |
00002BE0: 31 34 30 33 30 3A 8F 20 20 47 4F 54 4F 20 50 52 |14030:. GOTO PR|
00002BF0: 49 4E 54 20 53 45 54 55 50 00 FF 33 80 3E 8F 00 |INT SETUP..3.>..|
00002C00: 23 34 85 3E 8F 20 20 3A 3A 3A 3A 3A 54 52 49 50 |#4.>. :::::TRIP|
00002C10: 4C 45 20 57 49 44 45 20 4C 41 42 45 4C 20 3A 3A |LE WIDE LABEL ::|
00002C20: 3A 3A 3A 00 29 34 8A 3E 8F 00 46 34 94 3E 8D 20 |:::.)4.>..F4.>. |
00002C30: 31 31 30 32 30 3A 8F 20 20 44 49 53 50 4C 41 59 |11020:. DISPLAY|
00002C40: 20 4C 41 42 45 4C 00 78 34 A3 3E 99 3A 99 3A 99 | LABEL.x4.>.:.:.|
00002C50: 20 A6 35 29 22 53 50 45 43 49 46 59 20 4E 55 4D | .5)"SPECIFY NUM|
00002C60: 42 45 52 20 4F 46 20 52 4F 57 53 20 4F 46 20 33 |BER OF ROWS OF 3|
00002C70: 20 4C 41 42 45 4C 53 22 00 9B 34 A8 3E 8D 20 37 | LABELS"..4.>. 7|
00002C80: 30 32 30 3A 8F 20 20 48 4F 57 20 4D 41 4E 59 20 |020:. HOW MANY |
00002C90: 4C 41 42 45 4C 20 52 4F 57 53 3F 00 A7 34 AD 3E |LABEL ROWS?..4.>|
00002CA0: 89 20 31 36 35 30 30 00 AD 34 AE 3E 8F 00 CD 34 |. 16500..4.>...4|
00002CB0: AF 3E 8F 20 20 3A 3A 3A 20 43 45 4E 54 45 52 20 |.>. ::: CENTER |
00002CC0: 4A 55 53 54 49 46 49 45 44 20 3A 3A 3A 00 D3 34 |JUSTIFIED :::..4|
00002CD0: B0 3E 8F 00 DF 34 B2 3E 9F 34 2C 34 3A 9D 34 00 |.>...4.>.4,4:.4.|
00002CE0: E8 34 B7 3E 52 B2 31 37 00 F6 34 D0 3E 81 20 49 |.4.>R.17..4.>. I|
00002CF0: B2 31 20 A4 20 58 00 FE 34 D3 3E 55 B2 31 00 16 |.1 . X..4.>U.1..|
00002D00: 35 E4 3E 55 B2 55 AA 31 3A 8B 20 55 B2 32 20 A7 |5.>U.U.1:. U.2 .|
00002D10: 20 59 24 B2 41 24 00 28 35 E9 3E 8B 20 55 B2 33 | Y$.A$.(5.>. U.3|
00002D20: 20 A7 20 59 24 B2 42 24 00 3A 35 EE 3E 8B 20 55 | . Y$.B$.:5.>. U|
00002D30: B2 34 20 A7 20 59 24 B2 43 24 00 4C 35 F3 3E 8B |.4 . Y$.C$.L5.>.|
00002D40: 20 55 B2 35 20 A7 20 59 24 B2 45 24 00 5E 35 F8 | U.5 . Y$.E$.^5.|
00002D50: 3E 8B 20 55 B2 36 20 A7 20 59 24 B2 46 24 00 6A |>. U.6 . Y$.F$.j|
00002D60: 35 FD 3E 51 B2 C3 28 59 24 29 00 7B 35 02 3F 50 |5.>Q..(Y$).{5.?P|
00002D70: B2 B5 28 28 52 AB 51 29 AD 32 29 00 94 35 07 3F |..((R.Q).2)..5.?|
00002D80: 8F 20 20 50 3D 53 50 41 43 45 53 20 56 41 52 49 |. P=SPACES VARI|
00002D90: 41 42 4C 45 00 9F 35 0C 3F 50 41 B2 50 AA 31 00 |ABLE..5.?PA.P.1.|
00002DA0: AD 35 11 3F 50 54 B2 50 AA 51 AA 50 41 00 BF 35 |.5.?PT.P.Q.PA..5|
00002DB0: 16 3F 8B 20 50 54 B1 52 20 A7 20 50 41 B2 50 00 |.?. PT.R . PA.P.|
00002DC0: F2 35 1B 3F 42 54 B2 33 3A 8F 20 20 42 54 3D 53 |.5.?BT.3:. BT=S|
00002DD0: 50 41 43 45 53 20 42 45 54 57 45 45 4E 20 54 52 |PACES BETWEEN TR|
00002DE0: 49 50 4C 45 20 43 4F 4C 55 4D 4E 20 4C 41 42 45 |IPLE COLUMN LABE|
00002DF0: 4C 53 00 1B 36 20 3F 99 20 A6 48 AA 50 29 20 59 |LS..6 ?. .H.P) Y|
00002E00: 24 3B A6 50 41 AA 42 54 AA 50 29 3B 59 24 3B A6 |$;.PA.BT.P);Y$;.|
00002E10: 50 41 AA 42 54 AA 50 29 3B 59 24 00 2D 36 25 3F |PA.BT.P);Y$.-6%?|
00002E20: 8B 20 55 B3 36 20 A7 20 31 36 31 30 30 00 4D 36 |. U.6 . 16100.M6|
00002E30: 2A 3F 55 B2 31 3A 8F 20 52 45 53 45 54 20 4C 49 |*?U.1:. RESET LI|
00002E40: 4E 45 20 43 4F 55 4E 54 20 46 4C 41 47 00 53 36 |NE COUNT FLAG.S6|
00002E50: 2F 3F 99 00 59 36 34 3F 82 00 63 36 E8 3F 98 34 |/?..Y64?..c6.?.4|
00002E60: 3A A0 34 00 89 36 F2 3F 99 20 C7 28 31 34 37 29 |:.4..6.?. .(147)|
00002E70: 3A 8D 20 31 31 30 32 30 3A 8F 20 20 44 49 53 50 |:. 11020:. DISP|
00002E80: 4C 41 59 20 4C 41 42 45 4C 00 B8 36 FC 3F 99 3A |LAY LABEL..6.?.:|
00002E90: 99 3A 99 20 22 20 20 20 20 20 4D 4F 52 45 20 4F |.:. " MORE O|
00002EA0: 46 20 54 48 45 20 53 41 4D 45 20 4C 41 42 45 4C |F THE SAME LABEL|
00002EB0: 20 22 3B 3A 85 20 58 24 00 D4 36 01 40 8B 20 C8 | ";:. X$..6.@. .|
00002EC0: 28 58 24 2C 31 29 B2 22 59 22 20 A7 20 89 20 31 |(X$,1)."Y" . . 1|
00002ED0: 36 30 32 30 00 08 37 06 40 99 20 C7 28 31 38 29 |6020..7.@. .(18)|
00002EE0: 20 C7 28 32 37 29 22 40 22 3A 8D 20 36 33 30 30 | .(27)"@":. 6300|
00002EF0: 3A 89 20 32 34 30 3A 8F 20 20 47 4F 54 4F 20 4D |:. 240:. GOTO M|
00002F00: 41 49 4E 20 4D 45 4E 55 00 1B 37 74 40 99 20 C7 |AIN MENU..7t@. .|
00002F10: 28 31 34 37 29 3A 99 3A 99 3A 99 00 47 37 7E 40 |(147):.:.:..G7~@|
00002F20: 99 20 22 20 20 20 20 20 20 20 20 44 4F 20 59 4F |. " DO YO|
00002F30: 55 20 57 41 4E 54 20 54 48 45 20 4C 41 42 45 4C |U WANT THE LABEL|
00002F40: 53 3A 22 3A 99 3A 99 00 6E 37 88 40 99 20 22 20 |S:":.:..n7.@. " |
00002F50: 20 20 20 20 20 20 20 43 20 2D 20 43 45 4E 54 45 | C - CENTE|
00002F60: 52 20 4A 55 53 54 49 46 49 45 44 22 3A 99 00 93 |R JUSTIFIED":...|
00002F70: 37 92 40 99 20 22 20 20 20 20 20 20 20 20 4C 20 |7.@. " L |
00002F80: 2D 20 4C 45 46 54 20 4A 55 53 54 49 46 49 45 44 |- LEFT JUSTIFIED|
00002F90: 22 3A 99 00 BB 37 9C 40 99 20 22 20 20 20 20 20 |":...7.@. " |
00002FA0: 20 20 20 4D 20 2D 20 52 45 54 55 52 4E 20 54 4F | M - RETURN TO|
00002FB0: 20 4D 41 49 4E 20 4D 45 4E 55 22 00 D6 37 A6 40 | MAIN MENU"..7.@|
00002FC0: A1 20 41 37 24 3A 8B 20 41 37 24 B2 22 22 20 A7 |. A7$:. A7$."" .|
00002FD0: 20 31 36 35 35 30 00 EC 37 B0 40 8B 20 41 37 24 | 16550..7.@. A7$|
00002FE0: B2 22 43 22 20 A7 20 31 36 30 35 30 00 02 38 BA |."C" . 16050..8.|
00002FF0: 40 8B 20 41 37 24 B2 22 4C 22 20 A7 20 31 36 37 |@. A7$."L" . 167|
00003000: 30 30 00 24 38 C4 40 8B 20 41 37 24 B3 B1 22 43 |00.$8.@. A7$.."C|
00003010: 22 20 AF 20 41 37 24 B3 B1 22 4C 22 20 A7 20 89 |" . A7$.."L" . .|
00003020: 20 32 34 30 00 2A 38 3C 41 8F 00 4D 38 46 41 8F | 240.*8<A..M8FA.|
00003030: 20 20 3A 3A 3A 3A 20 4C 45 46 54 20 4A 55 53 54 | :::: LEFT JUST|
00003040: 49 46 49 43 41 54 49 4F 4E 20 3A 3A 3A 00 53 38 |IFICATION :::.S8|
00003050: 50 41 8F 00 5F 38 5A 41 9F 34 2C 34 3A 9D 34 00 |PA.._8ZA.4,4:.4.|
00003060: 9D 38 64 41 52 B2 31 37 3A 81 20 49 B2 31 20 A4 |.8dAR.17:. I.1 .|
00003070: 20 58 3A 55 B2 31 3A 8F 20 20 52 20 49 53 20 54 | X:U.1:. R IS T|
00003080: 48 45 20 4C 49 4E 45 20 4C 49 4D 49 54 45 52 20 |HE LINE LIMITER |
00003090: 46 4F 52 20 4F 4E 45 20 4C 41 42 45 4C 00 B5 38 |FOR ONE LABEL..8|
000030A0: 6E 41 55 B2 55 AA 31 3A 8B 20 55 B2 32 20 A7 20 |nAU.U.1:. U.2 . |
000030B0: 59 24 B2 41 24 00 C7 38 78 41 8B 20 55 B2 33 20 |Y$.A$..8xA. U.3 |
000030C0: A7 20 59 24 B2 42 24 00 D9 38 82 41 8B 20 55 B2 |. Y$.B$..8.A. U.|
000030D0: 34 20 A7 20 59 24 B2 43 24 00 EB 38 8C 41 8B 20 |4 . Y$.C$..8.A. |
000030E0: 55 B2 35 20 A7 20 59 24 B2 45 24 00 FD 38 96 41 |U.5 . Y$.E$..8.A|
000030F0: 8B 20 55 B2 36 20 A7 20 59 24 B2 46 24 00 30 39 |. U.6 . Y$.F$.09|
00003100: A0 41 51 B2 C3 28 59 24 29 3A 42 54 B2 33 3A 8F |.AQ..(Y$):BT.3:.|
00003110: 20 20 42 54 20 3D 20 53 50 41 43 45 53 20 42 45 | BT = SPACES BE|
00003120: 54 57 45 45 4E 20 54 48 45 20 4C 41 42 45 4C 53 |TWEEN THE LABELS|
00003130: 00 3D 39 AA 41 50 B2 B5 28 52 AB 51 29 00 56 39 |.=9.AP..(R.Q).V9|
00003140: B4 41 8F 20 20 50 3D 53 50 41 43 45 53 20 56 41 |.A. P=SPACES VA|
00003150: 52 49 41 42 4C 45 00 77 39 BE 41 99 20 A6 48 29 |RIABLE.w9.A. .H)|
00003160: 20 59 24 3B A6 50 AA 42 54 29 3B 59 24 3B A6 50 | Y$;.P.BT);Y$;.P|
00003170: AA 42 54 29 3B 59 24 00 89 39 C8 41 8B 20 55 B3 |.BT);Y$..9.A. U.|
00003180: 36 20 A7 20 31 36 37 35 30 00 AA 39 D2 41 55 B2 |6 . 16750..9.AU.|
00003190: 31 3A 8F 20 20 52 45 53 45 54 20 4C 49 4E 45 20 |1:. RESET LINE |
000031A0: 43 4F 55 4E 54 20 46 4C 41 47 00 B0 39 DC 41 99 |COUNT FLAG..9.A.|
000031B0: 00 B6 39 E6 41 82 00 C2 39 F0 41 89 20 31 36 33 |..9.A...9.A. 163|
000031C0: 36 30 00 C8 39 68 42 8F 00 E6 39 6D 42 8F 20 20 |60..9hB...9mB. |
000031D0: 3A 3A 3A 3A 3A 20 59 4F 55 52 20 4C 41 42 45 4C |::::: YOUR LABEL|
000031E0: 20 3A 3A 3A 3A 3A 00 EC 39 72 42 8F 00 07 3A 7C | :::::..9rB...:||
000031F0: 42 41 24 B2 22 41 4C 46 52 45 44 20 44 4F 42 45 |BA$."ALFRED DOBE|
00003200: 52 53 54 45 49 4E 22 00 20 3A 86 42 42 24 B2 22 |RSTEIN". :.BB$."|
00003210: 41 4D 20 4D 45 53 53 45 48 41 55 53 20 31 36 22 |AM MESSEHAUS 16"|
00003220: 00 3B 3A 90 42 43 24 B2 22 38 35 30 30 20 4E 55 |.;:.BC$."8500 NU|
00003230: 45 52 4E 42 45 52 47 20 32 30 22 00 45 3A 9A 42 |ERNBERG 20".E:.B|
00003240: 45 24 B2 22 22 00 5F 3A A4 42 46 24 B2 22 54 45 |E$.""._:.BF$."TE|
00003250: 4C 2E 20 30 39 31 31 2F 35 35 36 31 32 36 22 00 |L. 0911/556126".|
00003260: 65 3A AE 42 8E 00 6B 3A 50 46 8F 00 8B 3A 55 46 |e:.B..k:PF...:UF|
00003270: 8F 20 20 3A 3A 3A 3A 3A 20 31 30 20 4D 4F 53 54 |. ::::: 10 MOST|
00003280: 20 55 53 45 44 20 3A 3A 3A 3A 3A 00 91 3A 58 46 | USED :::::..:XF|
00003290: 8F 00 B1 3A 5A 46 81 20 49 B2 31 20 A4 20 32 3A |...:ZF. I.1 . 2:|
000032A0: 99 20 C7 28 31 37 29 3A 82 20 49 3A 99 20 A6 33 |. .(17):. I:. .3|
000032B0: 29 00 D8 3A 5F 46 99 20 22 20 20 20 20 20 12 20 |)..:_F. " . |
000032C0: 31 30 20 4D 4F 53 54 20 55 53 45 44 20 4C 41 42 |10 MOST USED LAB|
000032D0: 45 4C 53 20 92 22 3A 99 00 F9 3A 64 46 99 22 20 |ELS .":...:dF." |
000032E0: 20 20 20 20 20 20 20 20 20 20 20 20 53 45 4C 45 | SELE|
000032F0: 43 54 20 46 52 4F 4D 3A 22 00 01 3B 6E 46 99 3A |CT FROM:"..;nF.:|
00003300: 99 00 2E 3B 78 46 99 20 22 20 20 20 20 5B 20 31 |...;xF. " [ 1|
00003310: 20 5D 20 2D 20 2D 20 2D 20 43 4F 4D 50 55 54 45 | ] - - - COMPUTE|
00003320: 20 50 55 42 4C 49 43 41 54 49 4F 4E 53 22 00 59 | PUBLICATIONS".Y|
00003330: 3B 82 46 99 20 22 20 20 20 20 5B 20 32 20 5D 20 |;.F. " [ 2 ] |
00003340: 2D 20 2D 20 2D 20 4C 41 42 45 4C 20 41 54 20 4C |- - - LABEL AT L|
00003350: 49 4E 45 31 38 33 37 30 22 00 84 3B 8C 46 99 20 |INE18370"..;.F. |
00003360: 22 20 20 20 20 5B 20 33 20 5D 20 2D 20 2D 20 2D |" [ 3 ] - - -|
00003370: 20 4C 41 42 45 4C 20 41 54 20 4C 49 4E 45 31 38 | LABEL AT LINE18|
00003380: 34 34 30 22 00 AF 3B 96 46 99 20 22 20 20 20 20 |440"..;.F. " |
00003390: 5B 20 34 20 5D 20 2D 20 2D 20 2D 20 4C 41 42 45 |[ 4 ] - - - LABE|
000033A0: 4C 20 41 54 20 4C 49 4E 45 31 38 35 31 30 22 00 |L AT LINE18510".|
000033B0: DA 3B A0 46 99 20 22 20 20 20 20 5B 20 35 20 5D |.;.F. " [ 5 ]|
000033C0: 20 2D 20 2D 20 2D 20 4C 41 42 45 4C 20 41 54 20 | - - - LABEL AT |
000033D0: 4C 49 4E 45 31 38 35 38 30 22 00 05 3C AA 46 99 |LINE18580"..<.F.|
000033E0: 20 22 20 20 20 20 5B 20 36 20 5D 20 2D 20 2D 20 | " [ 6 ] - - |
000033F0: 2D 20 4C 41 42 45 4C 20 41 54 20 4C 49 4E 45 31 |- LABEL AT LINE1|
00003400: 38 36 35 30 22 00 30 3C B4 46 99 20 22 20 20 20 |8650".0<.F. " |
00003410: 20 5B 20 37 20 5D 20 2D 20 2D 20 2D 20 4C 41 42 | [ 7 ] - - - LAB|
00003420: 45 4C 20 41 54 20 4C 49 4E 45 31 38 37 32 30 22 |EL AT LINE18720"|
00003430: 00 5B 3C BE 46 99 20 22 20 20 20 20 5B 20 38 20 |.[<.F. " [ 8 |
00003440: 5D 20 2D 20 2D 20 2D 20 4C 41 42 45 4C 20 41 54 |] - - - LABEL AT|
00003450: 20 4C 49 4E 45 31 38 37 39 30 22 00 86 3C C8 46 | LINE18790"..<.F|
00003460: 99 20 22 20 20 20 20 5B 20 39 20 5D 20 2D 20 2D |. " [ 9 ] - -|
00003470: 20 2D 20 4C 41 42 45 4C 20 41 54 20 4C 49 4E 45 | - LABEL AT LINE|
00003480: 31 38 38 36 30 22 00 B1 3C D2 46 99 20 22 20 20 |18860"..<.F. " |
00003490: 20 20 5B 20 30 20 5D 20 2D 20 2D 20 2D 20 4C 41 | [ 0 ] - - - LA|
000034A0: 42 45 4C 20 41 54 20 4C 49 4E 45 31 38 39 33 30 |BEL AT LINE18930|
000034B0: 22 00 DF 3C DC 46 99 20 22 20 20 20 20 5B 20 52 |"..<.F. " [ R|
000034C0: 20 5D 20 2D 20 2D 20 2D 20 3C 52 45 54 55 52 4E | ] - - - <RETURN|
000034D0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 3E 22 00 | TO MAIN MENU>".|
000034E0: 07 3D E6 46 99 3A 99 3A 99 20 22 20 20 20 20 5B |.=.F.:.:. " [|
000034F0: 20 20 20 5D 20 2E 2E 2E 2E 2E 20 59 4F 55 52 20 | ] ..... YOUR |
00003500: 43 48 4F 49 43 45 22 00 22 3D F5 46 A1 20 41 33 |CHOICE"."=.F. A3|
00003510: 24 3A 8B 20 41 33 24 B2 22 22 20 A7 20 31 38 31 |$:. A3$."" . 181|
00003520: 36 35 00 4A 3D FA 46 8B 20 41 33 24 B2 22 31 22 |65.J=.F. A3$."1"|
00003530: 20 A7 20 8D 20 31 38 33 30 30 3A 99 20 C7 28 31 | . . 18300:. .(1|
00003540: 34 37 29 3A 89 20 31 30 32 30 00 78 3D FB 46 8F |47):. 1020.x=.F.|
00003550: 20 20 50 45 52 46 4F 52 4D 20 4C 41 42 45 4C 20 | PERFORM LABEL |
00003560: 50 49 43 4B 55 50 20 2D 20 47 4F 54 4F 20 50 52 |PICKUP - GOTO PR|
00003570: 49 4E 54 20 4D 45 4E 55 00 A0 3D 04 47 8B 20 41 |INT MENU..=.G. A|
00003580: 33 24 B2 22 32 22 20 A7 20 8D 20 31 38 33 37 30 |3$."2" . . 18370|
00003590: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
000035A0: 00 C8 3D 0E 47 8B 20 41 33 24 B2 22 33 22 20 A7 |..=.G. A3$."3" .|
000035B0: 20 8D 20 31 38 34 34 30 3A 99 20 C7 28 31 34 37 | . 18440:. .(147|
000035C0: 29 3A 89 20 31 30 32 30 00 F0 3D 18 47 8B 20 41 |):. 1020..=.G. A|
000035D0: 33 24 B2 22 34 22 20 A7 20 8D 20 31 38 35 31 30 |3$."4" . . 18510|
000035E0: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
000035F0: 00 18 3E 22 47 8B 20 41 33 24 B2 22 35 22 20 A7 |..>"G. A3$."5" .|
00003600: 20 8D 20 31 38 35 38 30 3A 99 20 C7 28 31 34 37 | . 18580:. .(147|
00003610: 29 3A 89 20 31 30 32 30 00 40 3E 2C 47 8B 20 41 |):. 1020.@>,G. A|
00003620: 33 24 B2 22 36 22 20 A7 20 8D 20 31 38 36 35 30 |3$."6" . . 18650|
00003630: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
00003640: 00 68 3E 36 47 8B 20 41 33 24 B2 22 37 22 20 A7 |.h>6G. A3$."7" .|
00003650: 20 8D 20 31 38 37 32 30 3A 99 20 C7 28 31 34 37 | . 18720:. .(147|
00003660: 29 3A 89 20 31 30 32 30 00 90 3E 40 47 8B 20 41 |):. 1020..>@G. A|
00003670: 33 24 B2 22 38 22 20 A7 20 8D 20 31 38 37 39 30 |3$."8" . . 18790|
00003680: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
00003690: 00 B8 3E 4A 47 8B 20 41 33 24 B2 22 39 22 20 A7 |..>JG. A3$."9" .|
000036A0: 20 8D 20 31 38 38 36 30 3A 99 20 C7 28 31 34 37 | . 18860:. .(147|
000036B0: 29 3A 89 20 31 30 32 30 00 E0 3E 54 47 8B 20 41 |):. 1020..>TG. A|
000036C0: 33 24 B2 22 30 22 20 A7 20 8D 20 31 38 39 33 30 |3$."0" . . 18930|
000036D0: 3A 99 20 C7 28 31 34 37 29 3A 89 20 31 30 32 30 |:. .(147):. 1020|
000036E0: 00 08 3F 5E 47 8B 20 41 33 24 B2 22 52 22 20 A7 |..?^G. A3$."R" .|
000036F0: 20 89 20 32 34 30 3A 8F 20 20 47 4F 54 4F 20 4D | . 240:. GOTO M|
00003700: 41 49 4E 20 4D 45 4E 55 00 24 3F 72 47 8F 20 20 |AIN MENU.$?rG. |
00003710: 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 31 20 3A |::::: LABEL #1 :|
00003720: 3A 3A 3A 3A 00 48 3F 7C 47 41 24 B2 22 43 4F 4D |::::.H?|GA$."COM|
00003730: 50 55 54 45 20 50 55 42 4C 49 43 41 54 49 4F 4E |PUTE PUBLICATION|
00003740: 53 2C 20 49 4E 43 2E 22 00 60 3F 86 47 42 24 B2 |S, INC.".`?.GB$.|
00003750: 22 50 2E 20 4F 2E 20 42 4F 58 20 35 34 30 36 22 |"P. O. BOX 5406"|
00003760: 00 7F 3F 90 47 43 24 B2 22 47 52 45 45 4E 53 42 |..?.GC$."GREENSB|
00003770: 4F 52 4F 2C 20 4E 43 20 20 32 37 34 30 33 22 00 |ORO, NC 27403".|
00003780: 8F 3F 9A 47 45 24 B2 22 55 2E 53 2E 41 2E 22 00 |.?.GE$."U.S.A.".|
00003790: 99 3F A4 47 46 24 B2 22 22 00 9F 3F AE 47 8E 00 |.?.GF$.""..?.G..|
000037A0: BB 3F B8 47 8F 20 20 3A 3A 3A 3A 3A 20 4C 41 42 |.?.G. ::::: LAB|
000037B0: 45 4C 20 23 32 20 3A 3A 3A 3A 3A 00 DA 3F C2 47 |EL #2 :::::..?.G|
000037C0: 41 24 B2 22 55 4E 41 53 53 49 47 4E 45 44 20 4C |A$."UNASSIGNED L|
000037D0: 49 4E 45 20 31 38 33 37 30 22 00 E4 3F CC 47 42 |INE 18370"..?.GB|
000037E0: 24 B2 22 22 00 EE 3F D6 47 43 24 B2 22 22 00 F8 |$.""..?.GC$.""..|
000037F0: 3F E0 47 45 24 B2 22 22 00 02 40 EA 47 46 24 B2 |?.GE$.""..@.GF$.|
00003800: 22 22 00 08 40 F4 47 8E 00 24 40 FE 47 8F 20 20 |""..@.G..$@.G. |
00003810: 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 33 20 3A |::::: LABEL #3 :|
00003820: 3A 3A 3A 3A 00 43 40 08 48 41 24 B2 22 55 4E 41 |::::.C@.HA$."UNA|
00003830: 53 53 49 47 4E 45 44 20 4C 49 4E 45 20 31 38 34 |SSIGNED LINE 184|
00003840: 34 30 22 00 4D 40 12 48 42 24 B2 22 22 00 57 40 |40".M@.HB$."".W@|
00003850: 1C 48 43 24 B2 22 22 00 61 40 26 48 45 24 B2 22 |.HC$."".a@&HE$."|
00003860: 22 00 6B 40 30 48 46 24 B2 22 22 00 71 40 3A 48 |".k@0HF$."".q@:H|
00003870: 8E 00 8D 40 44 48 8F 20 20 3A 3A 3A 3A 3A 20 4C |...@DH. ::::: L|
00003880: 41 42 45 4C 20 23 34 20 3A 3A 3A 3A 3A 00 AC 40 |ABEL #4 :::::..@|
00003890: 4E 48 41 24 B2 22 55 4E 41 53 53 49 47 4E 45 44 |NHA$."UNASSIGNED|
000038A0: 20 4C 49 4E 45 20 31 38 35 31 30 22 00 B6 40 58 | LINE 18510"..@X|
000038B0: 48 42 24 B2 22 22 00 C0 40 62 48 43 24 B2 22 22 |HB$.""..@bHC$.""|
000038C0: 00 CA 40 6C 48 45 24 B2 22 22 00 D4 40 76 48 46 |..@lHE$.""..@vHF|
000038D0: 24 B2 22 22 00 DA 40 80 48 8E 00 F6 40 8A 48 8F |$.""..@.H...@.H.|
000038E0: 20 20 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 35 | ::::: LABEL #5|
000038F0: 20 3A 3A 3A 3A 3A 00 15 41 94 48 41 24 B2 22 55 | :::::..A.HA$."U|
00003900: 4E 41 53 53 49 47 4E 45 44 20 4C 49 4E 45 20 31 |NASSIGNED LINE 1|
00003910: 38 35 31 30 22 00 1F 41 9E 48 42 24 B2 22 22 00 |8510"..A.HB$."".|
00003920: 29 41 A8 48 43 24 B2 22 22 00 33 41 B2 48 45 24 |)A.HC$."".3A.HE$|
00003930: B2 22 22 00 3D 41 BC 48 46 24 B2 22 22 00 43 41 |."".=A.HF$."".CA|
00003940: C6 48 8E 00 5F 41 D0 48 8F 20 20 3A 3A 3A 3A 3A |.H.._A.H. :::::|
00003950: 20 4C 41 42 45 4C 20 23 36 20 3A 3A 3A 3A 3A 00 | LABEL #6 :::::.|
00003960: 7E 41 DA 48 41 24 B2 22 55 4E 41 53 53 49 47 4E |~A.HA$."UNASSIGN|
00003970: 45 44 20 4C 49 4E 45 20 31 38 36 35 30 22 00 88 |ED LINE 18650"..|
00003980: 41 E4 48 42 24 B2 22 22 00 92 41 EE 48 43 24 B2 |A.HB$.""..A.HC$.|
00003990: 22 22 00 9C 41 F8 48 45 24 B2 22 22 00 A6 41 02 |""..A.HE$.""..A.|
000039A0: 49 46 24 B2 22 22 00 AC 41 0C 49 8E 00 C8 41 16 |IF$.""..A.I...A.|
000039B0: 49 8F 20 20 3A 3A 3A 3A 3A 20 4C 41 42 45 4C 20 |I. ::::: LABEL |
000039C0: 23 37 20 3A 3A 3A 3A 3A 00 E7 41 20 49 41 24 B2 |#7 :::::..A IA$.|
000039D0: 22 55 4E 41 53 53 49 47 4E 45 44 20 4C 49 4E 45 |"UNASSIGNED LINE|
000039E0: 20 31 38 37 32 30 22 00 F1 41 2A 49 42 24 B2 22 | 18720"..A*IB$."|
000039F0: 22 00 FB 41 34 49 43 24 B2 22 22 00 05 42 3E 49 |"..A4IC$.""..B>I|
00003A00: 45 24 B2 22 22 00 0F 42 48 49 46 24 B2 22 22 00 |E$.""..BHIF$."".|
00003A10: 15 42 52 49 8E 00 31 42 5C 49 8F 20 20 3A 3A 3A |.BRI..1B\I. :::|
00003A20: 3A 3A 20 4C 41 42 45 4C 20 23 38 20 3A 3A 3A 3A |:: LABEL #8 ::::|
00003A30: 3A 00 50 42 66 49 41 24 B2 22 55 4E 41 53 53 49 |:.PBfIA$."UNASSI|
00003A40: 47 4E 45 44 20 4C 49 4E 45 20 31 38 37 39 30 22 |GNED LINE 18790"|
00003A50: 00 5A 42 70 49 42 24 B2 22 22 00 64 42 7A 49 43 |.ZBpIB$."".dBzIC|
00003A60: 24 B2 22 22 00 6E 42 84 49 45 24 B2 22 22 00 78 |$."".nB.IE$."".x|
00003A70: 42 8E 49 46 24 B2 22 22 00 7E 42 98 49 8E 00 9A |B.IF$."".~B.I...|
00003A80: 42 A2 49 8F 20 20 3A 3A 3A 3A 3A 20 4C 41 42 45 |B.I. ::::: LABE|
00003A90: 4C 20 23 39 20 3A 3A 3A 3A 3A 00 B9 42 AC 49 41 |L #9 :::::..B.IA|
00003AA0: 24 B2 22 55 4E 41 53 53 49 47 4E 45 44 20 4C 49 |$."UNASSIGNED LI|
00003AB0: 4E 45 20 31 38 38 36 30 22 00 C3 42 B6 49 42 24 |NE 18860"..B.IB$|
00003AC0: B2 22 22 00 CD 42 C0 49 43 24 B2 22 22 00 D7 42 |.""..B.IC$.""..B|
00003AD0: CA 49 45 24 B2 22 22 00 E1 42 D4 49 46 24 B2 22 |.IE$.""..B.IF$."|
00003AE0: 22 00 E7 42 DE 49 8E 00 03 43 E8 49 8F 20 20 3A |"..B.I...C.I. :|
00003AF0: 3A 3A 3A 3A 20 4C 41 42 45 4C 20 23 30 20 3A 3A |:::: LABEL #0 ::|
00003B00: 3A 3A 3A 00 22 43 F2 49 41 24 B2 22 55 4E 41 53 |:::."C.IA$."UNAS|
00003B10: 53 49 47 4E 45 44 20 4C 49 4E 45 20 31 38 38 36 |SIGNED LINE 1886|
00003B20: 30 22 00 2C 43 FC 49 42 24 B2 22 22 00 36 43 06 |0".,C.IB$."".6C.|
00003B30: 4A 43 24 B2 22 22 00 40 43 10 4A 45 24 B2 22 22 |JC$."".@C.JE$.""|
00003B40: 00 4A 43 1A 4A 46 24 B2 22 22 00 50 43 24 4A 8E |.JC.JF$."".PC$J.|
00003B50: 00 56 43 A8 61 8F 00 6D 43 B2 61 8F 20 20 3A 3A |.VC.a..mC.a. ::|
00003B60: 3A 3A 3A 20 45 4E 44 20 3A 3A 3A 3A 3A 00 73 43 |::: END :::::.sC|
00003B70: B7 61 8F 00 80 43 BC 61 99 20 C7 28 31 34 37 29 |.a...C.a. .(147)|
00003B80: 00 A3 43 C6 61 99 20 C7 28 31 34 37 29 3A 81 20 |..C.a. .(147):. |
00003B90: 49 B2 31 20 A4 20 34 3A 99 20 C7 28 31 37 29 3A |I.1 . 4:. .(17):|
00003BA0: 82 20 49 00 CA 43 D0 61 99 20 22 20 20 20 20 20 |. I..C.a. " |
00003BB0: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********|
00003BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 EB 43 DA 61 99 |*********"..C.a.|
00003BD0: 20 A6 31 30 29 22 2A 20 20 20 20 20 20 20 20 20 | .10)"* |
00003BE0: 20 20 20 20 20 20 20 20 20 2A 22 00 12 44 E4 61 | *"..D.a|
00003BF0: 99 20 22 20 20 20 20 20 20 20 20 20 20 2A 20 20 |. " * |
00003C00: 20 20 20 47 4F 4F 44 20 42 59 45 20 20 20 20 20 | GOOD BYE |
00003C10: 2A 22 00 33 44 EE 61 99 20 A6 31 30 29 22 2A 20 |*".3D.a. .10)"* |
00003C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003C30: 20 2A 22 00 5A 44 F8 61 99 20 22 20 20 20 20 20 | *".ZD.a. " |
00003C40: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********|
00003C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 6F 44 02 62 81 |*********".oD.b.|
00003C60: 20 49 B2 31 20 A4 20 31 30 30 30 3A 82 20 49 00 | I.1 . 1000:. I.|
00003C70: 84 44 0C 62 81 20 49 B2 31 20 A4 20 32 35 3A 99 |.D.b. I.1 . 25:.|
00003C80: 3A 82 20 49 00 8A 44 16 62 80 00 90 44 18 79 8F |:. I..D.b...D.y.|
00003C90: 00 B3 44 22 79 8F 20 20 3A 3A 3A 3A 3A 20 53 55 |..D"y. ::::: SU|
00003CA0: 42 52 4F 55 54 49 4E 45 20 4C 49 53 54 20 3A 3A |BROUTINE LIST ::|
00003CB0: 3A 3A 3A 00 B9 44 2C 79 8F 00 D5 44 36 79 8F 20 |:::..D,y...D6y. |
00003CC0: 20 20 31 30 30 20 53 45 54 55 50 2F 4D 41 49 4E | 100 SETUP/MAIN|
00003CD0: 20 4D 45 4E 55 00 EC 44 40 79 8F 20 20 31 30 30 | MENU..D@y. 100|
00003CE0: 30 20 50 52 49 4E 54 20 4D 45 4E 55 00 05 45 4A |0 PRINT MENU..EJ|
00003CF0: 79 8F 20 20 32 30 30 30 20 49 4E 53 54 52 55 43 |y. 2000 INSTRUC|
00003D00: 54 49 4F 4E 53 00 1E 45 54 79 8F 20 20 34 30 30 |TIONS..ETy. 400|
00003D10: 30 20 4C 41 42 45 4C 20 42 4F 52 44 45 52 00 45 |0 LABEL BORDER.E|
00003D20: 45 5E 79 8F 20 20 35 30 30 30 20 4C 49 4E 45 20 |E^y. 5000 LINE |
00003D30: 4C 49 4D 49 54 45 52 20 26 20 49 4E 50 55 54 20 |LIMITER & INPUT |
00003D40: 4C 49 4E 45 53 00 62 45 72 79 8F 20 20 37 30 30 |LINES.bEry. 700|
00003D50: 30 20 48 4F 57 20 4D 41 4E 59 20 4C 41 42 45 4C |0 HOW MANY LABEL|
00003D60: 53 3F 00 7D 45 7C 79 8F 20 20 38 30 30 30 20 53 |S?.}E|y. 8000 S|
00003D70: 54 41 4E 44 41 52 44 20 50 52 49 4E 54 00 95 45 |TANDARD PRINT..E|
00003D80: 86 79 8F 20 20 39 30 30 30 20 44 4F 55 42 4C 45 |.y. 9000 DOUBLE|
00003D90: 20 57 49 44 45 00 B2 45 90 79 8F 20 31 30 30 30 | WIDE..E.y. 1000|
00003DA0: 30 20 53 45 54 55 50 20 45 4D 50 48 41 53 49 5A |0 SETUP EMPHASIZ|
00003DB0: 45 44 00 CF 45 9A 79 8F 20 31 31 30 30 30 20 4C |ED..E.y. 11000 L|
00003DC0: 41 42 45 4C 20 46 4F 52 20 53 43 52 45 45 4E 00 |ABEL FOR SCREEN.|
00003DD0: E8 45 A4 79 8F 20 31 32 30 30 30 20 38 30 20 43 |.E.y. 12000 80 C|
00003DE0: 50 4C 20 53 45 54 55 50 00 02 46 AE 79 8F 20 31 |PL SETUP..F.y. 1|
00003DF0: 33 30 30 30 20 31 33 32 20 43 50 4C 20 53 45 54 |3000 132 CPL SET|
00003E00: 55 50 00 1B 46 B8 79 8F 20 31 34 30 30 30 20 34 |UP..F.y. 14000 4|
00003E10: 30 20 43 50 4C 20 53 45 54 55 50 00 34 46 C2 79 |0 CPL SETUP.4F.y|
00003E20: 8F 20 31 35 30 30 30 20 36 36 20 43 50 4C 20 53 |. 15000 66 CPL S|
00003E30: 45 54 55 50 00 4C 46 CC 79 8F 20 31 36 30 30 30 |ETUP.LF.y. 16000|
00003E40: 20 54 52 49 50 4C 45 20 57 49 44 45 00 63 46 D6 | TRIPLE WIDE.cF.|
00003E50: 79 8F 20 31 37 30 30 30 20 59 4F 55 52 20 4C 41 |y. 17000 YOUR LA|
00003E60: 42 45 4C 00 7C 46 E0 79 8F 20 31 38 30 30 30 20 |BEL.|F.y. 18000 |
00003E70: 31 30 20 4D 4F 53 54 20 55 53 45 44 00 8C 46 EA |10 MOST USED..F.|
00003E80: 79 8F 20 32 35 30 30 30 20 45 4E 44 00 A8 46 F4 |y. 25000 END..F.|
00003E90: 79 8F 20 33 31 30 30 30 20 53 55 42 52 4F 55 54 |y. 31000 SUBROUT|
00003EA0: 49 4E 45 20 4C 49 53 54 00 00 00 |INE LIST... |
....... ***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"
...J..:.:. " [ 1 ] - - - EIGENE EING
ABE...T..:. " [ 2 ] - - - MEINE ADRE
SSE.2.^..:. " [ 3 ] - - - 10 MOST US
ED LABELS".B.H..:. " [ 4 ] - - - SHO
RTENED DISK LABEL"...R..:. " [ 5 ] -
- - FULL SIZE DISK LABEL"...|..:. "
[ Q ] - - - < END >"......:.:....... "
[ ] .......YOUR CHOICE"...... A1$:
. A1$."" . 400.3.B.. A1$."1" . . G(147):
S1.30:. 6020:. 11005:. 1025.Y.G.. GET LA
BEL LINES-DISPLAY LABEL ON SCREEN-GOTO P
RINT MENU ROUTINE...L.. A1$."2" . . G(14
7):. 17010:. G(147):. 1020.R.M.. GET LAB
EL-GOTO PRINT MENU ROUTINE...V.. A1$."3"
. . G(147):. 18010...W.. GOTO MOST USED
MENU ROUTINE.H.... A1$."4" . S1.23:L.1:
A.27:B.7:C.22:D.3:. 4008.G.... GOTO LABE
L PRINT ROUTINE...... A1$."5" . S1.29:L.
1:A.33:B.10:C.28:D.0:. 4008...... GOTO L
ABEL PRINT ROUTINE.R.... A1$."Q" . . 250
20...... GOTO END ROUTINE............ ::
::PRINT CHOICE::::.......6.... 11005:. D
ISPLAY LABEL ON SCREEN.T.... CPL=CHARACT
ERS PER LINE.}....:.:. .14) G(18)" PRINT
MENU "G(146).H.... CHR$(18) IS REVERSE
ON -- CHR$(146) IS REVERS
E OFF --...... .15)"SELECTION"...... ".
[ 1 ] - - - STANDARD 80 CPL".0.... "
[ 2 ] - - - COMPRESSED 132 CPL".`.$.. "
[ 3 ] - - - TRIPLE COLUMN LABELS-STD"
...).. " [ 4 ] - - - DOUBLE WIDE/COMPR
66 CPL"...... " [ 5 ] - - - DOUBLE WI
DE 40 CPL"...3.. " [ 6 ] - - - EMPHASI
ZED"...8.. " [ 9 ] - - - RETURN TO MAI
N MENU".,.=.. 10020:. DISPLAY EMPHASIZE
FLAG.Q.B..:. " [ ] ..... YOUR CHOICE
".W.D.....E.. ---- EMPHASIZED PRINT MO
DE DOES NOT COMBINE WITH COMPRESSED MODE
---...F.....G.....L.. G(19):. I.1 . 11:.
G(17):. I:. .2):. Y...Q.. Y . 1110,1120
,1130,1140,1147,1149,1155,1155,1155. .V.
. G(147)...X..4,4,1:.4.:.Z.. G(18).D.\..
4: 4.A.].H.5:Q.18:. 11005:. 12050...^..
DISPLAY LABEL ON SCREEN-GOTO LABEL PRINT
ROUTINE..._.. H=HORIZONTAL SPACING VAR
IABLE.O.`.. G(147):Q.20...A..4,4,1:.4...
B.. G(27)"F"...C.. G(20)...E..4: 4.7.F..
Q=VARIABLE TO TURN ON OR OFF COMPRESSE
D PRINT.O.G.H.9:. 11005:. 12050.|.H.. CH
R$(27)"F" TURNS OFF EMPHASIZED PRINT...I
.. CHR$(20) TURNS ON COMPRESSED PRINT -
DISPLAY LABEL ON SCREEN...J.H.5:. 2200:.
11005:. 16010...K.. DISPLAY LABEL ON SC
REEN-GOTO TRIPLE WIDE LABEL PRINT.A.T..
G(147):.4,4,1:.4:. G(27)"F":.4: 4.^.U..4
,4,1:.4:. G(20);:.4: 4...V.H.4:. 11005:.
14050:. CHR$(27)"F" TURNS OFF EMPHASIZE
D PRINT.H.X.. CHR$(20) TURNS ON COMPRESS
ED PRINT...Y.. DISPLAY LABEL ON SCREEN -
GOTO LABEL PRINT ROUTINE.(.{.H.3:S1.15:
. G(147):. 11005:. 14050.G.|.. GOTO LABE
L PRINT ROUTINE.T.}.. G(147).L.~.H.0:. 1
1005:. G(17)...... " " G(18) "
EMPHASIZE ON " G(146) " "
...... 1025...... 240:. RETURN TO MAIN
MENU...P.....Z.. :::::INSTRUCTIONS:::::.
........... G(147).I....:.:. "
" G(18) " INSTRUCTIONS " G(146).Y....:
.:. " PRINT WIDTH IS SET BY LINE LIMITER
"...... " FOR 3 1/2 INCH LABELS.".H....:
. " 5 LINES NORMAL OR 3 LINES BORDERED."
......:. " DO NOT USE COMMAS OR COLONS."
...4..:. " A RETURN WITH NO ENTRY WILL G
IVE".3.>.. " A BLANK LINE.".;.H..:..Z.J.
. " --PRESS " G(18) "SHIFT" G(146) " K
EY TO CONTINUE.--"...L.. 653,1...N......
........ ::TRIPLE COL. INSTRUCTIONS::..
.....I.... G(147)......:.:. " TRIPLE
COLUMN LABEL INSTRUCTIONS".+....:.:. "
THE LENGTH OF TRIPLE COLUMN LABELS".Y.J.
. " MUST BE LESS THAN THE NORMAL WIDTH
".J.O.. " LABEL."...T.. " THE TRIPLE C
OLUMN LABELS ARE SET TO".F.Y.. " PRINT
A 17 CHARACTER LABEL WITH TWO"...... "
SPACES BETWEEN LABELS."...... " THESE V
ARIABLES MAY BE CHANGED AT ".<.... " PR
OGRAM LINES 16000 TO 17000.".E....:. "
IF YOU ENTERED A LABEL WITH "...... " M
ORE THAN 17 CHARACTERS, YOU MAY "......
" RETURN TO RE-ENTER THE LABEL.".A.`..:
....J.. " DO YOU WANT TO RETURN TO THE
"...O.. " MAIN MENU? (CR='NO')".#.X..
A6$:. A6$."" . 2520.7.... A6$."Y" . 240.
K.... A6$.G(13) . ..O.... A6$.."Y" . A6$
.. G(13) . 2520.U. ........ ::::LABEL B
ORDER::::.......J....4,4,1:.4:. G(18):.
TURN OFF COMPRESSED PRINT......4: 4:.
TURN OFF PRINTER.....BR$."*":. SET DEFAU
LT VALUE FOR LABEL BORDER.P...V1$."001":
. SETS INITIAL DISPLAY VALUE FOR VOLUME
.....V2$." VOL. ":. SET DEFAULT VALUE F
OR TOP LINE.....A4$."6":V$."Y":A$."":B$.
"":C$."".....Z$." COM 64 ":. SETS INI
TIAL DISPLAY VALUE FOR BOTTOM BORDER....
.. 4705:. DISPLAY CURRENT LABEL.A....:.:
. " WHAT CHARACTER DO YOU WANT TO USE
".P.... " FOR THE BORDER? [ ] DEFA
ULT = *".}.M.. "";BR$...R.. C(BR$)..2 .
4010...W.. G(147).P....:.:." WOULD YOU
LIKE A VOLUME NUMBER IN"...... " THE
TOP LINE OF THE BORDER ?":.:..#.... "
[ Y ] - - - YES":..G.... "
[ N ] - - - NO":..R.... "
[ ] ..... YOUR CHOICE"...... V$:. V$
."" . 4091...... G(147)...... V$."N" . 4
191.G.... V$."Y" . . G(147):.:....... "
ENTER YOUR VOLUME NUMBER (###)".$....
"(MUST BE 3 CHARACTERS LONG) [ ]";:.
4140./.".. 4060.<.,.. "";V1$.S.1.. C(V1$
)..3 . 4060...6.. G(147):.:.:. " ENTE
R REPLACEMENT FOR WORD 'VOL.'"...7.. "
IF DESIRED. ( 4 CHARACTERS MAXIMUM)"..
.8.. .8) "DEFAULT IS 'VOL.': [ ]".. ;.
.:.:. "";V2$:. V2$."" . V2$."VOL.".0 =..
C(V2$) . 4 . V2$. " " .V2$. " ".] ?.. C
(V2$) . 3 . V2$ . " " . " " .V2$. " ".~
@.. "4160":. C(V2$) . 3 . 4060.. ^..:.:.
:.. _.. G(147).A `.. " WHAT WOULD YO
U LIKE IMPRINTED".. B.. " AT THE BO
TTOM OF THE BORDER?"..!H..:.:. "
[ 1 ] - - PET 2001":..=!R.. " [
2 ] - - CBM 8032 ":..D!|.. " [
3 ] - - CBM 4032 ":...!... " [ 4
] - - CBM 8096 ":...!... " [ 5
] - - VIC 20":..T!... " [ 6 ] -
- CBM 128":..."... " [ 0 ] - - S
OLID BORDER ":.:..-"... " [ ]
..... YOUR CHOICE";:..G"... A4$:. A4$.""
. 4262.H"... A4$ ."0" . A4$. "8" . 4260
.."... A4$."1" . Z$. " PET 2001 ".."...
A4$."2" . Z$. " CBM 8032 ".K"B.. A4$."3"
. Z$. " CBM 4032 ".."L.. A4$."4" . Z$.
" CBM 8096 "..#V.. A4$."5" . Z$. " VIC
20 "./#... A4$."6" . Z$. " CBM 128 ".
P#... A4$."0" . Z$. "**********".[#... 4
330..#..L.1:. 4705:. DISPLAY CURRENT LAB
EL..#... G(147):. 12030:. GOTO 80 CPL SE
TUP..#\...S#].. :::::DISK LABEL FORMAT::
:::.Y#^....#A.. G(147).#$F.H.4:. SET VAL
UE FOR HORIZONTAL TAB DURING SCREEN DISP
LAY.H$P.. V$."N" . V1$.BR$.BR$.BR$:. FIL
L TOP BORDER WITH REQUIRED CHAR..U$S.. J
$." "..$U.. V$."N" . J$.BR$..$Z.. V$."N"
. V2$.BR$.BR$.BR$.BR$.BR$.BR$.Y$... .H.
D):. BR.1 . B:. BR$;:. BR..%... V2$;:. V
1$;:. J$;:. BR.1 . B:. BR$;:. BR..%... G
(10).,%..L.L.1:. L.2 . L$.A$.>%... L.3 .
L$.B$.P%... L.4 . L$.C$.`%... .H.D)BR$;
.V%..HT..((C.C(L$)).2)..%..HA.HT.1..%..T
.HT.C(L$).HA..%A.. T.C . HA.HT..%C.. .HT
)L$.HA)BR$ G(10).Q%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.]&... Z$;:. BR.1. B:. BR$;:. BR:
. G(10) G(10).}&..L.1:. RESET LINE COUNT
FLAG..&.....&P....&U.. :::::INPUT LINE
S:::::..&Z....&... G(147).S&... I.1 . 4:
. G(17):. I..&... " INPUT LINE #1 "..'..
. G(19):. I.1 . 4:. G(17):.I:. .S1.1)"]"
.,'...:. .5):. "";A$.N'... G(19):. I.1 .
4:. G(17):. I.F'... " INPUT LINE #2 "..
'J.. G(19):. I.1 . 4:. G(17):.I:. .S1.1)
"]"..'O.. G(19):. I.1 . 6:. G(17):. I.G'
T.. .5):. "";B$..'... G(19):. I.1 . 4:.
G(17):. I..(... " INPUT LINE #3 "..(...
G(19):. I.1 . 4:. G(17):.I:. .S1.1)"]".P
(... G(19):. I.1 . 7:. G(17):. I.B(... .
5):. "";C$..(... G(19):. I.1 . 4:. G(17)
:. I..(... " INPUT LINE #4 ".I(... 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.
7)8.. " INPUT LINE #5 ".D)B.. G(19):. I.
1 . 4:. G(17):.I:. .S1.1)"]"..)G.. G(19)
:. I.1 . 9:. G(17):. I..)L.. .5):. "";F$
..)V....)....H)... :::RESET LINE PRINT
VALUES::.N)....X)..A$.""..)D.B$.""..)N.C
$.""..)X.E$.""..*..F$.""..*.....*X...'*]
.. :::::HOW MANY?:::::.-*B...S*L..:.:.
" HOW MANY LABELS ";.[*... X..*..
. X.0 . . 240:. RETURN TO MAIN MENU..*..
...*@....*E.. :::::STANDARD PRINT:::::.
.*J...I*T.. L..1 . . 8040..+U.. L=1 INDI
CATES THAT DISK LABELS ARE TO BE PRINTED
.-+^.. I.1 . X:. 4720:. I:. PRINT DISK L
ABELS.3+C...A+H.. I.1 . X.M+R.. .H) A$ G
(10):. CHR$(10) IS LINE FEED..+|.. .H)
B$ G(10)..+... .H) C$ G(10)..+... .H) E$
G(10)..+... .H) F$ G(10).E+... G(10).M+
... I.S+....Y+(#...+-#. :::::DOUBLE WID
E:::::..+2#..?,7#. CHR$(14) REQUIRED ON
EACH LINE TO TURN ON DOUBLE WIDE PRINT.
M,<#. I.1 . X.Z,F#. G(14);.M,P#. .H) A$
G(10).Z,Z#. G(14);..,D#. .H) B$ G(10)..,
N#. G(14);..,X#. .H) C$ G(10)..,.#. G(14
);.M,.#. .H) E$ G(10).Z,.#. G(14);.., #.
.H) F$ G(10)..,.#. G(10)..-.#. I..-.#.4
: 4..-H#...-.'..6-.'. ::::SET UP EMPHASI
ZE::::.<-.'..P-$'. E.0 . . 10050.D-.'. E
.1 . . 10090.J-8'...-B'.4,4,1:.4:. PRIN
TER ON..-G'. G(27)"E"..-L'.4: 4.K-Q'. CH
R$(27)"E" TURNS ON EMPHASIZED PRINT.U-`'
E.1:...-J'.4,4,1:.4:. G(27)"F":.4: 4.!.K
'. CHR$(27)"F" TURNS OFF EMPHASIZED PRIN
T.+..'E.0:..1..*..V..*. :SCREEN PRINT OF
LABEL VALUES:.\..+.....+. G(147)G(17)G(
17):. CHR$(147) IS CLR/HOME....+. .6)A$.
.. +. .6)B$...*+. .6)C$...4+. .6)E$.G.>+
. .6)F$.M.H+..S.......... ::::: 80 CPL
SETUP :::::......../... 2000:. INSTRUCT
IONS.,/./. 6020:. GET INPUT.U/./. L.1 .
. 4705:. DISPLAY DISK LABEL.././. L..1
. . 11020:. DISPLAY REGULAR LABELS.././
. 7020:. HOW MANY?.././.4,4,1:.4../ /.
PRINTER ON.V/&/. 8020:. PRINT LABELS..
0//. G(Q):. Q MAY TURN COMPRESSED PRINT
ON OR OFF..00/.4: 4.'01/. PRINTER OFF.
S05/. G(147):. L.1 . . 4705:. L.1 . . 12
090._08/. 11030..0:/.:.:. " MORE OF
THE SAME LABEL ";:. X$..0>/. H(X$,1)."Y"
. . G(147):. 12047..0@/. PERFORM DISPL
AY LABELS ON SCREEN--CHR$(147) IS CURSOR
CLEAR/HOME..1D/. H(X$,1)."N" . . 12120.
#1N/. 12085.O1X/Q.18:L.0:. 6300:. 240:.
GOTO MAIN MENU.U1H2..V1M2. ::::: 132 C
PL SETUP :::::.|1R2...1.2.4,4,1:.4..1.2.
G(20). 1.2.4: 4.J1.2. CHR$(20) TURNS O
N COMPRESSED PRINT..1.2. 12030:. GOTO P
RINT SETUP..1.6...2.6. ::::: 40 CPL SET
UP :::::..2.6..02N6. 2020:. INSTRUCTIONS
.H2X6. 6020:. GET INPUT.`2.6. 7020:. H
OW MANY?.N2.6.4,4,1:.4..2.6. 9020:. PRI
NT LARGE..2.7. G(147):. 11020.J2.7.:. "
MORE OF THE SAME LABEL ";:. X$..2.7.
H(X$,1)."Y" . . G(147):. 11020:. 14050.
.3.7. DISPLAY LABEL ON SCREEN.$3.7.4,4,
1:.4.03.7. G(18).:3(7.4: 4.]3X7. 6300:.
240:. GOTO MAIN MENU.C3.:...3.:. :::::
66 CPL SETUP :::::..3.:...3.:.4,4,1:.4.
.3.:. G(20);:.O3.:. CHR$(20) TURNS ON C
OMPRESSED PRINT.Y3.:.4: 4..3.:. 14030:.
GOTO PRINT SETUP..3.>..#4.>. :::::TRIP
LE WIDE LABEL :::::.)4.>..F4.>. 11020:.
DISPLAY LABEL.X4.>.:.:. .5)"SPECIFY NUM
BER OF ROWS OF 3 LABELS"..4.>. 7020:. H
OW MANY LABEL ROWS?..4.>. 16500..4.>..M4
.>. ::: CENTER JUSTIFIED :::.S4.>...4.>
.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$
.:5.>. U.4 . Y$.C$.L5.>. U.5 . Y$.E$.^5.
>. U.6 . Y$.F$.J5.>Q.C(Y$).{5.?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=SPACES BETWEEN TRIPLE COLUMN LABE
LS..6 ?. .H.P) Y$;.PA.BT.P);Y$;.PA.BT.P)
;Y$.-6%?. U.6 . 16100.M6*?U.1:. RESET LI
NE COUNT FLAG.S6/?..Y64?..C6.?.4: 4..6.?
. G(147):. 11020:. DISPLAY LABEL..6.?.:
.:. " MORE OF THE SAME LABEL ";:. X$
.T6.@. H(X$,1)."Y" . . 16020..7.@. G(18)
G(27)"@":. 6300:. 240:. GOTO MAIN MENU
..7T@. G(147):.:.:..G7~@. " DO YO
U WANT THE LABELS:":.:..N7.@. " C
- CENTER JUSTIFIED":...7.@. " L
- LEFT JUSTIFIED":...7.@. " M - R
ETURN TO MAIN MENU".V7.@. A7$:. A7$."" .
16550..7.@. A7$."C" . 16050..8.@. A7$."
L" . 16700.$8D@. A7$.."C" . A7$.."L" . .
240.*8<A..M8FA. :::: LEFT JUSTIFICATIO
N :::.S8PA.._8ZA.4,4:.4..8DAR.17:. I.1 .
X:U.1:. R IS THE LINE LIMITER FOR ONE
LABEL..8NAU.U.1:. U.2 . Y$.A$.G8XA. U.3
. Y$.B$.Y8.A. U.4 . Y$.C$..8.A. U.5 . Y$
.E$..8.A. U.6 . Y$.F$.09 AQ.C(Y$):BT.3:.
BT = SPACES BETWEEN THE LABELS.=9.AP..
(R.Q).V9.A. P=SPACES VARIABLE.W9.A. .H)
Y$;.P.BT);Y$;.P.BT);Y$..9HA. U.6 . 1675
0..9RAU.1:. RESET LINE COUNT FLAG..9.A.
..9.A..B9.A. 16360.H9HB...9MB. ::::: YO
UR LABEL :::::..9RB...:|BA$."ALFRED DOBE
RSTEIN". :.BB$."AM MESSEHAUS 16".;:.BC$.
"8500 NUERNBERG 20".E:.BE$.""._:.BF$."TE
L. 0911/556126".E:.B..K:PF...:UF. :::::
10 MOST USED :::::..:XF...:ZF. I.1 . 2:
. G(17):. I:. .3).X:_F. " . 10 MOST
USED LABELS .":...:DF." SELE
CT FROM:"..;NF.:...;XF. " [ 1 ] - - -
COMPUTE PUBLICATIONS".Y;.F. " [ 2 ]
- - - LABEL AT LINE18370"..;.F. " [ 3
] - - - LABEL AT LINE18440"..;.F. "
[ 4 ] - - - LABEL AT LINE18510".Z; F. "
[ 5 ] - - - LABEL AT LINE18580"..<.F.
" [ 6 ] - - - LABEL AT LINE18650".0<
.F. " [ 7 ] - - - LABEL AT LINE18720"
.[<.F. " [ 8 ] - - - LABEL AT LINE187
90"..<HF. " [ 9 ] - - - LABEL AT LINE
18860"..<RF. " [ 0 ] - - - LABEL AT L
INE18930"..<.F. " [ R ] - - - <RETURN
TO MAIN MENU>"..=.F.:.:. " [ ] ...
.. YOUR CHOICE"."=.F. A3$:. A3$."" . 181
65.J=.F. A3$."1" . . 18300:. G(147):. 10
20.X=.F. PERFORM LABEL PICKUP - GOTO PR
INT MENU. =.G. A3$."2" . . 18370:. G(147
):. 1020.H=.G. A3$."3" . . 18440:. G(147
):. 1020..=.G. A3$."4" . . 18510:. G(147
):. 1020..>"G. A3$."5" . . 18580:. G(147
):. 1020.@>,G. A3$."6" . . 18650:. G(147
):. 1020.H>6G. A3$."7" . . 18720:. G(147
):. 1020..>@G. A3$."8" . . 18790:. G(147
):. 1020..>JG. A3$."9" . . 18860:. G(147
):. 1020..>TG. A3$."0" . . 18930:. G(147
):. 1020..?^G. A3$."R" . . 240:. GOTO M
AIN MENU.$?RG. ::::: LABEL #1 :::::.H?|
GA$."COMPUTE PUBLICATIONS, INC.".`?.GB$.
"P. O. BOX 5406".?.GC$."GREENSBORO, NC
27403"..?.GE$."U.S.A."..?.GF$.""..?.G..
.?.G. ::::: LABEL #2 :::::.Z?BGA$."UNAS
SIGNED LINE 18370"..?LGB$.""..?VGC$.""..
?.GE$.""..@.GF$.""..@.G..$@.G. ::::: LA
BEL #3 :::::.C@.HA$."UNASSIGNED LINE 184
40".M@.HB$."".W@.HC$."".A@&HE$."".K@0HF$
."".Q@:H...@DH. ::::: LABEL #4 :::::..@
NHA$."UNASSIGNED LINE 18510"..@XHB$.""..
@BHC$."".J@LHE$."".T@VHF$."".Z@.H...@.H.
::::: LABEL #5 :::::..A.HA$."UNASSIGNE
D LINE 18510"..A.HB$."".)A.HC$."".3A.HE$
."".=A.HF$."".CAFH.._APH. ::::: LABEL #
6 :::::.~AZHA$."UNASSIGNED LINE 18650"..
A.HB$.""..A.HC$.""..A.HE$.""..A.IF$.""..
A.I..HA.I. ::::: LABEL #7 :::::..A IA$.
"UNASSIGNED LINE 18720"..A*IB$.""..A4IC$
.""..B>IE$.""..BHIF$.""..BRI..1B\I. :::
:: LABEL #8 :::::.PBFIA$."UNASSIGNED LIN
E 18790".ZBPIB$."".DBZIC$."".NB.IE$."".X
B.IF$."".~B.I...B.I. ::::: LABEL #9 :::
::..B.IA$."UNASSIGNED LINE 18860".CB.IB$
."".MB.IC$."".WBJIE$.""..BTIF$.""..B.I..
.C.I. ::::: LABEL #0 :::::."C.IA$."UNAS
SIGNED LINE 18860".,C.IB$."".6C.JC$."".@
C.JE$."".JC.JF$."".PC$J..VC.A..MC.A. ::
::: END :::::.SC.A...C.A. G(147)..CFA. G
(147):. I.1 . 4:. G(17):. I.JCPA. "
********************"..CZA. .10)"*
*"..D.A. " *
GOOD BYE *".3D.A. .10)"*
*".ZD.A. " ***********
*********".OD.B. I.1 . 1000:. I..D.B. I.
1 . 25:.:. I..D.B...D.Y...D"Y. ::::: SU
BROUTINE LIST :::::..D,Y..UD6Y. 100 SE
TUP/MAIN MENU..D@Y. 1000 PRINT MENU..EJ
Y. 2000 INSTRUCTIONS..ETY. 4000 LABEL
BORDER.EE^Y. 5000 LINE LIMITER & INPUT
LINES.BERY. 7000 HOW MANY LABELS?.}E|Y.
8000 STANDARD PRINT..E.Y. 9000 DOUBLE
WIDE..E.Y. 10000 SETUP EMPHASIZED.OE.Y.
11000 LABEL FOR SCREEN..E.Y. 12000 80 C
PL SETUP..F.Y. 13000 132 CPL SETUP..F.Y.
14000 40 CPL SETUP.4FBY. 15000 66 CPL S
ETUP.LFLY. 16000 TRIPLE WIDE.CFVY. 17000
YOUR LABEL.|F.Y. 18000 10 MOST USED..F.
Y. 25000 END..F.Y. 31000 SUBROUTINE LIST
...
> CLICK IMAGE PREVIEW FOR FULL MODAL