MAIL LABELS
FILE INFORMATION
FILENAME(S): MAIL LABELS
FILE TYPE(S): PRG
FILE SIZE: 9.8K
FIRST SEEN: 2025-11-30 20:14:48
APPEARS ON: 2 disk(s)
FILE HASH
f4a6ea8582fccf391256d56e0d510097ca9b162bdc1807d333d79f08c9c18cf4
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PER CEDERHOLM | MAIL LABELS | PRG | Curtcool, LPN | 21 | 1 | DOWNLOAD FILE |
| PRACTIFILE | MAIL LABELS | PRG | Curtcool, LPN | 21 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0B 04 01 00 89 31 31 30 30 00 45 04 02 00 |.......1100.E...|
00000010: 9F 31 2C 38 2C 31 35 2C 22 49 30 22 3A 98 31 2C |.1,8,15,"I0":.1,|
00000020: 22 53 30 3A 4D 41 49 4C 20 4C 41 42 45 4C 53 22 |"S0:MAIL LABELS"|
00000030: 3A 94 22 30 3A 4D 41 49 4C 20 4C 41 42 45 4C 53 |:."0:MAIL LABELS|
00000040: 22 2C 38 3A 80 00 72 04 03 00 99 22 11 43 4F 52 |",8:..r....".COR|
00000050: 52 45 43 54 49 4F 4E 53 3F 28 12 59 92 2F 12 4E |RECTIONS?(.Y./.N|
00000060: 92 29 22 3A 47 31 24 B2 22 59 4E 22 3A 8D 20 35 |.)":G1$."YN":. 5|
00000070: 3A 8E 00 8C 04 04 00 9F 34 2C 34 3A 9D 34 3A 98 |:.......4,4:.4:.|
00000080: 34 2C C7 28 31 35 29 3A 9D 34 3A 9B 00 B6 04 05 |4,.(15):.4:.....|
00000090: 00 A1 47 24 3A 81 56 B2 31 A4 C3 28 47 31 24 29 |..G$:.V.1..(G1$)|
000000A0: 3A 8B 47 24 B3 B1 CA 28 47 31 24 2C 56 2C 31 29 |:.G$...(G1$,V,1)|
000000B0: A7 82 56 3A 89 35 00 BC 04 06 00 8E 00 D8 04 08 |..V:.5..........|
000000C0: 00 84 4B 4B 28 56 4F 29 2C 45 2C 45 24 2C 53 2C |..KK(VO),E,E$,S,|
000000D0: 54 3A 8B 45 B3 32 A7 8E 00 F3 04 09 00 99 22 44 |T:.E.2........"D|
000000E0: 49 53 4B 20 45 52 52 4F 52 3A 22 45 3B 45 24 3B |ISK ERROR:"E;E$;|
000000F0: 53 3B 54 00 11 05 0A 00 99 22 11 12 52 92 45 41 |S;T......"..R.EA|
00000100: 44 59 3F 22 3A 47 31 24 B2 22 52 22 3A 8D 35 3A |DY?":G1$."R":.5:|
00000110: 8E 00 1C 05 0B 00 8F 20 4D 41 49 4E 00 29 05 0D |....... MAIN.)..|
00000120: 00 8F 20 53 45 54 20 55 50 00 3F 05 11 00 8F 20 |.. SET UP.?.... |
00000130: 53 45 4C 20 54 45 53 54 20 45 41 20 52 45 43 00 |SEL TEST EA REC.|
00000140: 5B 05 12 00 8F 20 53 45 4C 20 54 45 53 54 20 45 |[.... SEL TEST E|
00000150: 41 20 43 4F 4E 44 49 54 49 4F 4E 00 69 05 15 00 |A CONDITION.i...|
00000160: 8F 20 53 45 4C 45 43 54 3F 00 76 05 16 00 8F 20 |. SELECT?.v.... |
00000170: 28 43 4F 4E 54 29 00 8B 05 19 00 8F 20 44 49 53 |(CONT)...... DIS|
00000180: 50 4C 41 59 20 53 45 4C 45 43 54 00 97 05 1B 00 |PLAY SELECT.....|
00000190: 8F 20 4D 49 53 43 31 00 AA 05 1F 00 8F 20 50 52 |. MISC1...... PR|
000001A0: 49 4E 54 20 4C 41 42 45 4C 53 00 BA 05 20 00 8F |INT LABELS... ..|
000001B0: 20 50 52 49 4E 54 20 41 53 4B 00 D3 05 21 00 8F | PRINT ASK...!..|
000001C0: 20 47 45 54 20 53 45 4C 43 54 45 44 20 52 45 43 | GET SELCTED REC|
000001D0: 4F 52 44 00 F2 05 23 00 8F 20 41 52 52 41 4E 47 |ORD...#.. ARRANG|
000001E0: 45 20 46 49 45 4C 44 53 20 4F 4E 20 4C 41 42 45 |E FIELDS ON LABE|
000001F0: 4C 53 00 0B 06 25 00 8F 20 44 45 4C 45 54 45 20 |LS...%.. DELETE |
00000200: 42 4C 41 4E 4B 20 4C 49 4E 45 53 00 22 06 27 00 |BLANK LINES.".'.|
00000210: 8F 20 50 52 49 4E 54 20 52 4F 57 20 4C 41 42 45 |. PRINT ROW LABE|
00000220: 4C 53 00 2D 06 29 00 8F 20 45 58 49 54 00 41 06 |LS.-.).. EXIT.A.|
00000230: 2A 00 8F 20 52 45 41 44 20 41 20 52 45 43 4F 52 |*.. READ A RECOR|
00000240: 44 00 61 06 2B 00 8F 20 50 4F 53 49 54 49 4F 4E |D.a.+.. POSITION|
00000250: 20 54 4F 20 52 45 41 44 20 4F 52 20 57 52 49 54 | TO READ OR WRIT|
00000260: 45 00 6C 06 2C 00 8F 20 59 45 53 3F 00 7D 06 30 |E.l.,.. YES?.}.0|
00000270: 00 8F 20 41 53 4B 20 4E 55 4D 42 45 52 00 8D 06 |.. ASK NUMBER...|
00000280: 35 00 8F 20 4F 50 45 4E 20 46 4F 52 4D 00 99 06 |5.. OPEN FORM...|
00000290: 3A 00 8F 20 43 41 53 45 3F 00 AD 06 3D 00 8F 20 |:.. CASE?...=.. |
000002A0: 43 48 41 4E 47 45 20 46 4F 52 4D 41 54 00 BD 06 |CHANGE FORMAT...|
000002B0: 3E 00 8F 20 41 53 4B 20 41 52 41 4E 47 00 C8 06 |>.. ASK ARANG...|
000002C0: 3F 00 8F 20 53 41 56 45 00 D3 06 41 00 8F 20 4C |?.. SAVE...A.. L|
000002D0: 4F 41 44 00 DE 06 4C 04 8F 20 4D 41 49 4E 00 F7 |OAD...L.. MAIN..|
000002E0: 06 4D 04 8B 20 4C 49 B3 32 35 33 20 A7 20 97 20 |.M.. LI.253 . . |
000002F0: 49 56 2C 4C 49 AA 33 00 1A 07 51 04 8D 20 39 33 |IV,LI.3...Q.. 93|
00000300: 30 30 3A 8D 20 31 33 30 30 3A 8F 20 4F 50 45 4E |00:. 1300:. OPEN|
00000310: 20 52 41 2C 53 45 54 20 55 50 00 3D 07 56 04 99 | RA,SET UP.=.V..|
00000320: 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 4D |"..............M|
00000330: 41 49 4C 49 4E 47 20 4C 41 42 45 4C 53 00 52 07 |AILING LABELS.R.|
00000340: 65 04 99 22 12 11 4C 92 4F 41 44 20 46 4F 52 4D |e.."..L.OAD FORM|
00000350: 41 54 00 7A 07 67 04 99 22 11 12 43 92 52 45 41 |AT.z.g.."..C.REA|
00000360: 54 45 2C 20 43 48 41 4E 47 45 2C 20 49 4E 53 50 |TE, CHANGE, INSP|
00000370: 45 43 54 20 46 4F 52 4D 41 54 00 90 07 68 04 99 |ECT FORMAT...h..|
00000380: 22 12 11 53 92 41 56 45 20 46 4F 52 4D 41 54 22 |"..S.AVE FORMAT"|
00000390: 00 A6 07 6A 04 99 22 12 11 50 92 52 49 4E 54 20 |...j.."..P.RINT |
000003A0: 4C 41 42 45 4C 53 00 C6 07 6C 04 99 22 11 12 5E |LABELS...l.."..^|
000003B0: 92 20 52 45 54 55 52 4E 20 54 4F 20 46 49 4C 45 |. RETURN TO FILE|
000003C0: 20 4D 45 4E 55 22 00 F7 07 6F 04 3A 47 31 24 B2 | MENU"...o.:G1$.|
000003D0: 22 4C 43 53 50 5E 22 3A 8D 35 3A 91 56 20 8D 36 |"LCSP^":.5:.V .6|
000003E0: 35 30 30 2C 36 31 30 30 2C 36 33 30 30 2C 33 31 |500,6100,6300,31|
000003F0: 30 30 2C 39 31 30 30 00 10 08 74 04 81 58 B2 31 |00,9100...t..X.1|
00000400: A4 31 30 3A A1 47 24 3A 82 58 3A 89 31 31 31 30 |.10:.G$:.X:.1110|
00000410: 00 1D 08 14 05 8F 20 53 45 54 20 55 50 00 63 08 |...... SET UP.c.|
00000420: 28 05 4E 32 24 B2 4E 41 24 3A 52 31 B2 31 3A 52 |(.N2$.NA$:R1.1:R|
00000430: 32 B2 48 52 3A 46 24 28 30 29 B2 22 22 3A 48 4C |2.HR:F$(0)."":HL|
00000440: B2 30 3A 8E 3A 8F 20 48 4C 20 55 53 45 44 20 41 |.0:.:. HL USED A|
00000450: 4C 53 4F 20 46 4F 52 20 48 4D 20 4C 4F 4F 4B 20 |LSO FOR HM LOOK |
00000460: 55 50 53 00 79 08 A4 06 8F 20 53 45 4C 20 54 45 |UPS.y.... SEL TE|
00000470: 53 54 20 45 41 20 52 45 43 00 8D 08 A9 06 47 53 |ST EA REC.....GS|
00000480: B2 31 3A 81 20 57 53 B2 31 A4 48 53 3A 00 D1 08 |.1:. WS.1.HS:...|
00000490: AE 06 8B 20 47 53 20 A7 20 91 20 53 45 25 28 57 |... GS . . SE%(W|
000004A0: 53 29 20 8D 20 31 38 30 35 2C 31 38 31 30 2C 31 |S) . 1805,1810,1|
000004B0: 38 31 35 2C 31 38 32 30 2C 31 38 32 35 2C 31 38 |815,1820,1825,18|
000004C0: 33 30 2C 31 38 33 35 2C 31 38 36 35 2C 31 38 38 |30,1835,1865,188|
000004D0: 30 00 06 09 B3 06 8B 20 53 4C 25 28 57 53 29 B3 |0...... SL%(WS).|
000004E0: B1 32 20 A7 20 82 20 57 53 3A 8E 3A 8F 20 49 46 |.2 . . WS:.:. IF|
000004F0: 20 27 41 4E 44 27 20 54 48 45 4E 20 54 45 53 54 | 'AND' THEN TEST|
00000500: 20 41 47 41 49 4E 00 19 09 B8 06 8F 20 4D 55 53 | AGAIN...... MUS|
00000510: 54 20 42 45 20 27 4F 52 27 00 26 09 BD 06 8B 20 |T BE 'OR'.&.... |
00000520: 47 53 20 A7 20 8E 00 36 09 C2 06 47 53 B2 31 3A |GS . ..6...GS.1:|
00000530: 82 20 57 53 3A 90 00 52 09 08 07 8F 20 53 45 4C |. WS:..R.... SEL|
00000540: 20 54 45 53 54 20 45 41 20 43 4F 4E 44 49 54 49 | TEST EA CONDITI|
00000550: 4F 4E 00 71 09 0D 07 47 53 B2 28 46 24 28 53 41 |ON.q...GS.(F$(SA|
00000560: 25 28 57 53 29 29 B2 53 42 24 28 57 53 29 29 3A |%(WS)).SB$(WS)):|
00000570: 8E 00 96 09 12 07 47 53 B2 28 C5 28 46 24 28 53 |......GS.(.(F$(S|
00000580: 41 25 28 57 53 29 29 29 B3 C5 28 53 42 24 28 57 |A%(WS)))..(SB$(W|
00000590: 53 29 29 29 3A 8E 00 BB 09 17 07 47 53 B2 28 C5 |S))):......GS.(.|
000005A0: 28 46 24 28 53 41 25 28 57 53 29 29 29 B1 C5 28 |(F$(SA%(WS)))..(|
000005B0: 53 42 24 28 57 53 29 29 29 3A 8E 00 DA 09 1C 07 |SB$(WS))):......|
000005C0: 47 53 B2 28 46 24 28 53 41 25 28 57 53 29 29 B3 |GS.(F$(SA%(WS)).|
000005D0: 53 42 24 28 57 53 29 29 3A 8E 00 F9 09 21 07 47 |SB$(WS)):....!.G|
000005E0: 53 B2 28 46 24 28 53 41 25 28 57 53 29 29 B1 53 |S.(F$(SA%(WS)).S|
000005F0: 42 24 28 57 53 29 29 3A 8E 00 19 0A 26 07 47 53 |B$(WS)):....&.GS|
00000600: B2 28 46 24 28 53 41 25 28 57 53 29 29 B3 B1 53 |.(F$(SA%(WS))..S|
00000610: 42 24 28 57 53 29 29 3A 8E 00 39 0A 2B 07 41 31 |B$(WS)):..9.+.A1|
00000620: 24 B2 46 24 28 53 41 25 28 57 53 29 29 3A 41 32 |$.F$(SA%(WS)):A2|
00000630: 24 B2 53 42 24 28 57 53 29 00 67 0A 30 07 3A 8B |$.SB$(WS).g.0.:.|
00000640: 20 C9 28 41 32 24 2C 31 29 B2 22 2A 22 20 A7 20 | .(A2$,1)."*" . |
00000650: 41 31 24 B2 C8 28 41 31 24 2C C3 28 41 32 24 29 |A1$..(A1$,.(A2$)|
00000660: AB 31 29 AA 22 2A 22 00 85 0A 35 07 3A 8B 20 C3 |.1)."*"...5.:. .|
00000670: 28 41 31 24 29 B3 B1 C3 28 41 32 24 29 A7 20 47 |(A1$)...(A2$). G|
00000680: 53 B2 30 3A 8E 00 99 0A 3A 07 3A 81 20 58 B2 31 |S.0:....:.:. X.1|
00000690: 20 A4 20 C3 28 41 32 24 29 00 D1 0A 3F 07 3A 8B | . .(A2$)...?.:.|
000006A0: 20 CA 28 41 32 24 2C 58 2C 31 29 B3 B1 22 3F 22 | .(A2$,X,1).."?"|
000006B0: 20 AF 20 CA 28 41 32 24 2C 58 2C 31 29 B3 B1 CA | . .(A2$,X,1)...|
000006C0: 28 41 31 24 2C 58 2C 31 29 A7 20 47 53 B2 30 3A |(A1$,X,1). GS.0:|
000006D0: 8E 00 DB 0A 44 07 3A 82 58 3A 8E 00 16 0B 49 07 |....D.:.X:....I.|
000006E0: 58 24 B2 46 24 28 53 41 25 28 57 53 29 29 3A 59 |X$.F$(SA%(WS)):Y|
000006F0: 24 B2 53 42 24 28 57 53 29 3A 81 58 B2 31 A4 C3 |$.SB$(WS):.X.1..|
00000700: 28 58 24 29 A9 48 54 3A 58 31 24 B2 CA 28 58 24 |(X$).HT:X1$..(X$|
00000710: 2C 58 2C 48 54 29 00 40 0B 4E 07 3A 81 59 B2 31 |,X,HT).@.N.:.Y.1|
00000720: A4 C3 28 59 24 29 A9 48 54 3A 8B 58 31 24 B2 CA |..(Y$).HT:.X1$..|
00000730: 28 59 24 2C 59 2C 48 54 29 A7 47 53 B2 31 3A 8E |(Y$,Y,HT).GS.1:.|
00000740: 00 51 0B 53 07 3A 82 59 2C 58 3A 47 53 B2 30 3A |.Q.S.:.Y,X:GS.0:|
00000750: 8E 00 7D 0B 58 07 47 53 B2 28 C5 28 46 24 28 53 |..}.X.GS.(.(F$(S|
00000760: 41 25 28 57 53 29 29 29 B1 C5 28 46 24 28 C5 28 |A%(WS)))..(F$(.(|
00000770: 53 42 24 28 57 53 29 29 29 29 29 3A 8E 00 8B 0B |SB$(WS))))):....|
00000780: 34 08 8F 20 53 45 4C 45 43 54 3F 00 BA 0B 3E 08 |4.. SELECT?...>.|
00000790: 99 22 11 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |.".DO YOU WISH T|
000007A0: 4F 20 53 45 4C 45 43 54 20 43 45 52 54 41 49 4E |O SELECT CERTAIN|
000007B0: 20 52 45 43 4F 52 44 53 3F 22 00 DE 0B 43 08 58 | RECORDS?"...C.X|
000007C0: B2 48 53 3A 58 33 B2 AB 31 3A 8D 20 34 34 30 30 |.HS:X3..1:. 4400|
000007D0: 3A 8B 20 58 B2 30 A7 20 48 53 B2 30 3A 8E 00 09 |:. X.0. HS.0:...|
000007E0: 0C 48 08 81 20 57 53 B2 31 20 A4 20 4D 44 3A 8D |.H.. WS.1 . MD:.|
000007F0: 20 32 32 30 30 3A 8B 20 53 4C 25 28 57 53 29 B3 | 2200:. SL%(WS).|
00000800: B1 33 20 A7 20 82 20 57 53 00 3A 0C 84 08 8B 20 |.3 . . WS.:.... |
00000810: 57 53 B1 4D 44 20 A7 20 99 22 12 53 45 4C 45 43 |WS.MD . .".SELEC|
00000820: 54 49 4F 4E 20 54 4F 4F 20 43 4F 4D 50 4C 45 58 |TION TOO COMPLEX|
00000830: 21 21 22 3A 89 20 32 31 30 30 00 60 0C 8E 08 8B |!!":. 2100.`....|
00000840: 20 53 4C 25 28 57 53 29 B3 B1 33 20 A7 20 57 53 | SL%(WS)..3 . WS|
00000850: B2 57 53 AA 31 3A 58 B2 35 3A 89 20 32 31 31 30 |.WS.1:X.5:. 2110|
00000860: 00 86 0C 93 08 48 53 B2 57 53 3A 58 B2 30 3A 8D |.....HS.WS:X.0:.|
00000870: 20 32 35 30 30 3A 8D 33 3A 8B 20 47 24 B2 22 59 | 2500:.3:. G$."Y|
00000880: 22 A7 32 31 30 30 00 8C 0C 97 08 8E 00 99 0C 98 |".2100..........|
00000890: 08 8F 20 28 43 4F 4E 54 29 00 C8 0C B1 08 99 54 |.. (CONT)......T|
000008A0: 24 22 46 49 45 4C 44 53 3A 22 3A 81 20 57 46 B2 |$"FIELDS:":. WF.|
000008B0: 31 20 A4 20 48 46 3A 99 20 57 46 3B 46 54 24 28 |1 . HF:. WF;FT$(|
000008C0: 57 46 29 3A 82 20 57 46 00 F8 0C B6 08 3A 58 B2 |WF):. WF.....:X.|
000008D0: 31 3A 8D 20 32 35 30 30 3A 99 22 11 12 45 4E 54 |1:. 2500:."..ENT|
000008E0: 45 52 20 46 49 45 4C 44 20 4E 4F 3A 22 3A 8F 20 |ER FIELD NO:":. |
000008F0: 44 49 53 50 20 53 45 4C 00 23 0D BB 08 3A 58 B2 |DISP SEL.#...:X.|
00000900: 53 41 25 28 57 53 29 3A 58 31 B2 31 3A 58 32 B2 |SA%(WS):X1.1:X2.|
00000910: 48 46 3A 8D 20 34 38 30 30 3A 53 41 25 28 57 53 |HF:. 4800:SA%(WS|
00000920: 29 B2 58 00 56 0D C0 08 99 54 24 22 11 45 51 55 |).X.V....T$".EQU|
00000930: 41 4C 49 54 59 20 54 59 50 45 53 3A 22 3A 81 20 |ALITY TYPES:":. |
00000940: 58 B2 31 20 A4 20 39 3A 99 20 58 3B 45 51 24 28 |X.1 . 9:. X;EQ$(|
00000950: 58 29 3A 82 20 58 00 83 0D C5 08 3A 58 B2 32 3A |X):. X.....:X.2:|
00000960: 8D 20 32 35 30 30 3A 99 22 11 12 45 4E 54 45 52 |. 2500:."..ENTER|
00000970: 20 45 51 55 41 4C 49 54 59 20 54 59 50 45 20 4E | EQUALITY TYPE N|
00000980: 4F 3A 22 00 AD 0D CA 08 3A 58 B2 53 45 25 28 57 |O:".....:X.SE%(W|
00000990: 53 29 3A 58 31 B2 31 3A 58 32 B2 39 3A 8D 20 34 |S):X1.1:X2.9:. 4|
000009A0: 38 30 30 3A 53 45 25 28 57 53 29 B2 58 00 DB 0D |800:SE%(WS).X...|
000009B0: CF 08 99 54 24 22 41 52 47 55 4D 45 4E 54 20 43 |...T$"ARGUMENT C|
000009C0: 41 4E 20 42 45 20 41 4E 59 20 41 4C 50 48 41 2D |AN BE ANY ALPHA-|
000009D0: 4E 55 4D 20 53 54 52 49 4E 47 22 00 00 0E D4 08 |NUM STRING".....|
000009E0: 3A 58 B2 33 3A 8D 20 32 35 30 30 3A 99 22 11 12 |:X.3:. 2500:."..|
000009F0: 45 4E 54 45 52 20 41 52 47 55 4D 45 4E 54 3A 22 |ENTER ARGUMENT:"|
00000A00: 00 23 0E D9 08 3A 58 24 B2 53 42 24 28 57 53 29 |.#...:X$.SB$(WS)|
00000A10: 3A 8D 34 35 30 30 3A 53 42 24 28 57 53 29 B2 28 |:.4500:SB$(WS).(|
00000A20: 58 24 29 00 59 0E DE 08 99 54 24 22 4C 4F 47 49 |X$).Y....T$"LOGI|
00000A30: 43 41 4C 20 43 4F 4E 45 43 54 49 4F 4E 53 3A 22 |CAL CONECTIONS:"|
00000A40: 3A 81 20 58 B2 31 20 A4 20 33 3A 99 20 58 3B 4C |:. X.1 . 3:. X;L|
00000A50: 4F 24 28 58 29 3A 82 20 58 00 83 0E E3 08 3A 58 |O$(X):. X.....:X|
00000A60: B2 34 3A 8D 20 32 35 30 30 3A 99 22 11 12 45 4E |.4:. 2500:."..EN|
00000A70: 54 45 52 20 43 4F 4E 4E 45 43 54 49 4F 4E 20 4E |TER CONNECTION N|
00000A80: 4F 3A 22 00 9F 0E E8 08 3A 8B 57 53 B2 52 57 A7 |O:".....:.WS.RW.|
00000A90: 53 4C 25 28 57 53 29 B2 33 3A 89 32 32 31 35 00 |SL%(WS).3:.2215.|
00000AA0: C8 0E ED 08 3A 58 B2 53 4C 25 28 57 53 29 3A 58 |....:X.SL%(WS):X|
00000AB0: 31 B2 31 3A 58 32 B2 33 3A 8D 34 38 30 30 3A 53 |1.1:X2.3:.4800:S|
00000AC0: 4C 25 28 57 53 29 B2 58 00 CE 0E FB 08 8E 00 D8 |L%(WS).X........|
00000AD0: 0E 4A 09 82 20 58 3A 8E 00 F5 0E 4C 09 99 22 53 |.J.. X:....L.."S|
00000AE0: 45 4C 45 43 54 20 53 59 4E 54 45 58 20 45 52 52 |ELECT SYNTEX ERR|
00000AF0: 4F 52 22 3A 8E 00 0A 0F C4 09 8F 20 44 49 53 50 |OR":....... DISP|
00000B00: 4C 41 59 20 53 45 4C 45 43 54 00 2C 0F C6 09 99 |LAY SELECT.,....|
00000B10: 22 11 12 59 4F 55 52 20 53 45 4C 45 43 54 49 4F |"..YOUR SELECTIO|
00000B20: 4E 20 53 54 41 54 45 4D 45 4E 54 3A 00 49 0F C9 |N STATEMENT:.I..|
00000B30: 09 99 22 49 46 20 28 22 3B 3A 8B 20 48 53 B3 57 |.."IF (";:. HS.W|
00000B40: 53 20 A7 20 48 53 B2 57 53 00 77 0F CE 09 81 20 |S . HS.WS.w.... |
00000B50: 59 B2 31 20 A4 20 48 53 3A 8B 20 59 B2 57 53 20 |Y.1 . HS:. Y.WS |
00000B60: A7 20 8B 20 58 B2 31 20 A7 20 99 22 2E 2E 2E 22 |. . X.1 . ."..."|
00000B70: 3B 3A 89 32 35 32 30 00 8A 0F D3 09 99 20 46 54 |;:.2520...... FT|
00000B80: 24 28 53 41 25 28 59 29 29 3B 00 AD 0F D8 09 8B |$(SA%(Y));......|
00000B90: 20 59 B2 57 53 20 A7 20 8B 20 58 B2 32 20 A7 20 | Y.WS . . X.2 . |
00000BA0: 99 22 2E 2E 2E 22 3B 3A 89 32 35 33 30 00 C6 0F |."...";:.2530...|
00000BB0: DD 09 99 20 22 20 22 45 51 24 28 53 45 25 28 59 |... " "EQ$(SE%(Y|
00000BC0: 29 29 22 20 22 3B 00 E9 0F E2 09 8B 20 59 B2 57 |))" ";...... Y.W|
00000BD0: 53 20 A7 20 8B 20 58 B2 33 20 A7 20 99 22 2E 2E |S . . X.3 . ."..|
00000BE0: 2E 22 3B 3A 89 32 35 34 30 00 F7 0F E7 09 99 20 |.";:.2540...... |
00000BF0: 53 42 24 28 59 29 3B 00 1A 10 EC 09 8B 20 59 B2 |SB$(Y);...... Y.|
00000C00: 57 53 20 A7 20 8B 20 58 B2 34 20 A7 20 99 22 2E |WS . . X.4 . .".|
00000C10: 2E 2E 22 3B 3A 89 32 35 35 30 00 2D 10 F1 09 99 |..";:.2550.-....|
00000C20: 20 4C 4F 24 28 53 4C 25 28 59 29 29 3B 00 39 10 | LO$(SL%(Y));.9.|
00000C30: F6 09 82 20 59 3A 99 3A 8E 00 45 10 8C 0A 8F 20 |... Y:.:..E.... |
00000C40: 4D 49 53 43 31 00 69 10 91 0A 99 22 11 4B 45 59 |MISC1.i....".KEY|
00000C50: 53 3A 22 3A 81 58 B2 30 A4 48 4B 3A 99 22 12 22 |S:":.X.0.HK:."."|
00000C60: 58 AA 31 22 9D 92 20 22 3B 00 9C 10 96 0A 3A 81 |X.1".. ";.....:.|
00000C70: 20 44 B2 31 A4 53 46 25 28 58 2C 30 29 3A 99 46 | D.1.SF%(X,0):.F|
00000C80: 54 24 28 53 46 25 28 58 2C 44 29 29 22 3A 22 3B |T$(SF%(X,D))":";|
00000C90: 3A 82 44 3A 99 22 9D 20 22 3A 82 58 00 D1 10 9B |:.D:.". ":.X....|
00000CA0: 0A 3A 99 22 11 57 48 49 43 48 20 4B 45 59 3F 22 |.:.".WHICH KEY?"|
00000CB0: 3A 58 31 B2 31 3A 58 32 B2 48 4B AA 31 3A 58 B2 |:X1.1:X2.HK.1:X.|
00000CC0: 57 4B AA 31 3A 8D 34 38 30 30 3A 57 4B B2 58 AB |WK.1:.4800:WK.X.|
00000CD0: 31 00 14 11 A0 0A 99 22 11 43 48 41 52 41 43 54 |1......".CHARACT|
00000CE0: 45 52 53 20 50 45 52 20 53 45 4C 45 43 54 49 4F |ERS PER SELECTIO|
00000CF0: 4E 20 43 4F 44 45 3F 22 3A 58 31 B2 31 3A 58 32 |N CODE?":X1.1:X2|
00000D00: B2 31 30 3A 58 B2 48 54 3A 8D 20 34 38 30 30 3A |.10:X.HT:. 4800:|
00000D10: 48 54 B2 58 00 47 11 A5 0A 99 22 11 44 45 56 49 |HT.X.G....".DEVI|
00000D20: 43 45 20 4E 55 4D 42 45 52 3F 20 28 34 3D 4D 4F |CE NUMBER? (4=MO|
00000D30: 53 54 20 50 52 49 4E 54 45 52 53 2C 20 33 3D 53 |ST PRINTERS, 3=S|
00000D40: 43 52 45 45 4E 29 22 00 69 11 AA 0A 3A 58 31 B2 |CREEN)".i...:X1.|
00000D50: 31 3A 58 32 B2 32 35 35 3A 58 B2 50 44 3A 8D 20 |1:X2.255:X.PD:. |
00000D60: 34 38 30 30 3A 50 44 B2 58 00 9E 11 B9 0A 99 22 |4800:PD.X......"|
00000D70: 11 4E 4F 20 4F 46 20 43 48 41 52 41 43 54 45 52 |.NO OF CHARACTER|
00000D80: 53 20 53 45 4E 54 20 54 4F 20 50 52 49 4E 54 45 |S SENT TO PRINTE|
00000D90: 52 3F 22 3A 58 31 B2 30 3A 58 32 B2 31 30 00 CE |R?":X1.0:X2.10..|
00000DA0: 11 BE 0A 3A 58 B2 43 48 25 28 30 29 3A 8D 20 34 |...:X.CH%(0):. 4|
00000DB0: 38 30 30 3A 43 48 25 28 30 29 B2 58 3A 8B 20 58 |800:CH%(0).X:. X|
00000DC0: B2 30 20 A7 20 32 37 36 35 3A 8F 2D 2D 2D 00 04 |.0 . 2765:.---..|
00000DD0: 12 C3 0A 3A 81 59 B2 31 A4 58 3A 99 22 41 53 43 |...:.Y.1.X:."ASC|
00000DE0: 49 49 20 56 41 4C 55 45 20 23 22 59 22 3F 22 3A |II VALUE #"Y"?":|
00000DF0: 58 B2 43 48 25 28 59 29 3A 58 31 B2 30 3A 58 32 |X.CH%(Y):X1.0:X2|
00000E00: B2 32 35 35 00 1E 12 C8 0A 3A 20 8D 20 34 38 30 |.255.....: . 480|
00000E10: 30 3A 43 48 25 28 59 29 B2 58 3A 82 20 59 00 2F |0:CH%(Y).X:. Y./|
00000E20: 12 CD 0A 8D 35 37 30 30 3A 8F 20 43 41 53 45 00 |....5700:. CASE.|
00000E30: 35 12 D2 0A 8E 00 48 12 1C 0C 8F 20 50 52 49 4E |5.....H.... PRIN|
00000E40: 54 20 4C 41 42 45 4C 53 00 68 12 1E 0C 8B 20 48 |T LABELS.h.... H|
00000E50: 4C B2 30 A7 20 99 22 12 4E 4F 20 46 4F 52 4D 41 |L.0. .".NO FORMA|
00000E60: 54 22 3A 8D 31 30 3A 8E 00 89 12 1F 0C 8B 20 48 |T":.10:....... H|
00000E70: 52 B2 30 A7 20 99 22 12 46 49 4C 45 20 45 4D 50 |R.0. .".FILE EMP|
00000E80: 54 59 22 3A 8D 31 30 3A 8E 00 A4 12 20 0C 8D 20 |TY":.10:.... .. |
00000E90: 33 32 30 30 3A 52 52 B2 52 31 3A 8F 20 4B 42 44 |3200:RR.R1:. KBD|
00000EA0: 20 49 4D 50 00 BB 12 26 0C 8D 20 35 38 30 30 3A | IMP...&.. 5800:|
00000EB0: 8F 20 50 4F 4B 45 20 43 41 53 45 00 EA 12 28 0C |. POKE CASE...(.|
00000EC0: 8B 20 43 48 25 28 30 29 A7 20 81 20 58 B2 31 A4 |. CH%(0). . X.1.|
00000ED0: 20 43 48 25 28 30 29 3A 98 50 52 2C C7 28 43 48 | CH%(0):.PR,.(CH|
00000EE0: 25 28 58 29 29 3B 3A 82 20 58 00 12 13 35 0C 81 |%(X));:. X...5..|
00000EF0: 20 57 41 B2 31 A4 20 48 41 3A 20 8F 20 46 4F 52 | WA.1. HA: . FOR|
00000F00: 20 45 41 43 48 20 4C 41 42 45 4C 20 41 43 52 4F | EACH LABEL ACRO|
00000F10: 53 53 00 36 13 3A 0C 3A 8D 20 33 33 30 30 3A 8F |SS.6.:.:. 3300:.|
00000F20: 20 49 4E 50 55 54 20 53 45 4C 45 43 54 45 44 20 | INPUT SELECTED |
00000F30: 52 45 43 4F 52 44 00 5C 13 3F 0C 3A 8D 20 33 35 |RECORD.\.?.:. 35|
00000F40: 30 30 3A 8F 20 41 52 52 41 4E 47 45 20 46 49 45 |00:. ARRANGE FIE|
00000F50: 4C 44 53 20 4F 4E 20 4C 49 4E 45 53 00 7D 13 44 |LDS ON LINES.}.D|
00000F60: 0C 3A 8D 20 33 37 30 30 3A 8F 20 44 45 4C 45 54 |.:. 3700:. DELET|
00000F70: 45 20 42 4C 41 4E 4B 20 4C 49 4E 45 53 00 9E 13 |E BLANK LINES...|
00000F80: 46 0C A1 20 47 24 3A 8B 20 47 24 B2 22 50 22 20 |F.. G$:. G$."P" |
00000F90: A7 20 47 31 24 B2 22 53 43 22 3A 8D 20 35 00 B4 |. G1$."SC":. 5..|
00000FA0: 13 47 0C 8B 20 47 24 B2 22 53 22 20 A7 20 A0 20 |.G.. G$."S" . . |
00000FB0: 53 45 3A 8E 00 DC 13 49 0C 82 20 57 41 3A 8D 20 |SE:....I.. WA:. |
00000FC0: 33 39 30 30 3A 8F 20 50 52 49 4E 54 20 41 20 52 |3900:. PRINT A R|
00000FD0: 4F 57 20 4F 46 20 4C 41 42 45 4C 53 00 EC 13 53 |OW OF LABELS...S|
00000FE0: 0C 8B 20 52 52 B1 52 32 20 A7 20 8E 00 F7 13 58 |.. RR.R2 . ....X|
00000FF0: 0C 89 20 33 31 32 35 00 07 14 80 0C 8F 20 50 52 |.. 3125...... PR|
00001000: 49 4E 54 20 41 53 4B 00 2F 14 85 0C 99 22 93 20 |INT ASK./....". |
00001010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 50 | .P|
00001020: 52 49 4E 54 49 4E 47 20 4C 41 42 45 4C 53 22 00 |RINTING LABELS".|
00001030: 5E 14 94 0C 99 22 11 44 4F 20 59 4F 55 20 57 49 |^....".DO YOU WI|
00001040: 53 48 20 54 4F 20 52 45 50 45 41 54 20 54 48 45 |SH TO REPEAT THE|
00001050: 20 53 41 4D 45 20 52 45 43 4F 52 44 3F 22 00 79 | SAME RECORD?".y|
00001060: 14 99 0C 3A 58 B2 52 45 3A 58 33 B2 31 3A 8D 20 |...:X.RE:X3.1:. |
00001070: 34 34 30 30 3A 52 45 B2 58 00 B1 14 9E 0C 8B 20 |4400:RE.X...... |
00001080: 52 45 20 A7 20 99 22 52 45 43 4F 52 44 23 3F 22 |RE . ."RECORD#?"|
00001090: 3A 58 B2 52 31 3A 58 31 B2 31 3A 58 32 B2 48 52 |:X.R1:X1.1:X2.HR|
000010A0: 3A 8D 34 38 30 30 3A 52 31 B2 58 3A 89 33 32 34 |:.4800:R1.X:.324|
000010B0: 35 00 E4 14 A3 0C 3A 99 22 11 46 49 52 53 54 20 |5.....:.".FIRST |
000010C0: 52 45 43 4F 52 44 23 3F 22 3A 58 B2 52 31 3A 58 |RECORD#?":X.R1:X|
000010D0: 31 B2 31 3A 58 32 B2 48 52 3A 8D 34 38 30 30 3A |1.1:X2.HR:.4800:|
000010E0: 52 31 B2 58 00 0B 15 A8 0C 3A 99 22 11 4C 41 53 |R1.X.....:.".LAS|
000010F0: 54 20 52 45 43 4F 52 44 23 3F 22 3A 58 B2 52 32 |T RECORD#?":X.R2|
00001100: 3A 8D 34 38 30 30 3A 52 32 B2 58 00 1F 15 AA 0C |:.4800:R2.X.....|
00001110: 8D 33 3A 8B 47 24 B2 22 59 22 A7 33 32 30 35 00 |.3:.G$."Y".3205.|
00001120: 2F 15 AD 0C A0 50 52 3A 9F 20 50 52 2C 50 44 00 |/....PR:. PR,PD.|
00001130: 59 15 B2 0C 99 22 93 12 50 92 41 55 53 45 22 52 |Y...."..P.AUSE"R|
00001140: 24 22 11 12 43 92 4F 4E 54 49 4E 55 45 22 52 24 |$"..C.ONTINUE"R$|
00001150: 22 11 12 53 92 54 4F 50 22 00 5F 15 B7 0C 8E 00 |"..S.TOP"._.....|
00001160: 78 15 E4 0C 8F 20 47 45 54 20 53 45 4C 43 54 45 |x.... GET SELCTE|
00001170: 44 20 52 45 43 4F 52 44 00 9A 15 E6 0C 8B 20 52 |D RECORD...... R|
00001180: 45 20 A7 20 57 52 B2 50 4F 25 28 52 52 2C 57 4B |E . WR.PO%(RR,WK|
00001190: 29 3A 8D 20 34 32 30 30 3A 8E 00 C2 15 E9 0C 8B |):. 4200:.......|
000011A0: 20 52 52 B1 52 32 20 A7 20 81 20 58 B2 31 20 A4 | RR.R2 . . X.1 .|
000011B0: 20 48 46 3A 46 24 28 58 29 B2 22 22 3A 82 20 58 | HF:F$(X)."":. X|
000011C0: 3A 8E 00 E4 15 EE 0C 3A 57 52 B2 50 4F 25 28 52 |:......:WR.PO%(R|
000011D0: 52 2C 57 4B 29 3A 8D 20 34 32 30 30 3A 52 52 B2 |R,WK):. 4200:RR.|
000011E0: 52 52 AA 31 00 05 16 F3 0C 3A 8B 20 48 53 20 A7 |RR.1.....:. HS .|
000011F0: 20 8D 20 31 37 30 30 3A 8B 20 47 53 B2 30 20 A7 | . 1700:. GS.0 .|
00001200: 20 33 33 30 35 00 0B 16 F8 0C 8E 00 2A 16 AC 0D | 3305.......*...|
00001210: 8F 20 41 52 52 41 4E 47 45 20 46 49 45 4C 44 53 |. ARRANGE FIELDS|
00001220: 20 4F 4E 20 4C 41 42 45 4C 53 00 5B 16 B1 0D 81 | ON LABELS.[....|
00001230: 20 57 4C B2 31 A4 20 48 4C 3A 58 24 B2 22 22 3A | WL.1. HL:X$."":|
00001240: 81 58 B2 31 A4 41 46 25 28 57 4C 2C 30 29 3A 58 |.X.1.AF%(WL,0):X|
00001250: 31 B2 41 46 25 28 57 4C 2C 58 29 00 80 16 B3 0D |1.AF%(WL,X).....|
00001260: 3A 20 8B 58 31 B3 30 A7 58 24 B2 58 24 AA 48 4C |: .X1.0.X$.X$.HL|
00001270: 24 28 AB 58 31 29 AA 22 20 22 3A 89 33 35 32 30 |$(.X1)." ":.3520|
00001280: 00 AF 16 B6 0D 3A 20 58 24 B2 58 24 AA 46 24 28 |.....: X$.X$.F$(|
00001290: 41 46 25 28 57 4C 2C 58 29 29 AA 22 20 22 3A 8B |AF%(WL,X))." ":.|
000012A0: 20 58 24 B2 22 20 22 20 A7 20 58 24 B2 22 22 00 | X$." " . X$."".|
000012B0: CA 16 C0 0D 82 58 3A 4C 24 28 57 41 2C 57 4C 29 |.....X:L$(WA,WL)|
000012C0: B2 58 24 3A 82 20 57 4C 3A 8E 00 E3 16 74 0E 8F |.X$:. WL:....t..|
000012D0: 20 44 45 4C 45 54 45 20 42 4C 41 4E 4B 20 4C 49 | DELETE BLANK LI|
000012E0: 4E 45 53 00 F0 16 79 0E 42 B2 31 3A 54 B2 48 4C |NES...y.B.1:T.HL|
000012F0: 00 FF 16 7E 0E 8B 20 42 B1 B2 54 20 A7 20 8E 00 |...~.. B..T . ..|
00001300: 26 17 83 0E 8B 20 4C 24 28 57 41 2C 42 29 B3 B1 |&.... L$(WA,B)..|
00001310: 22 22 20 A7 20 42 B2 42 AA 31 3A 89 20 33 37 31 |"" . B.B.1:. 371|
00001320: 30 3A 8F 2D 2D 2D 00 52 17 88 0E 81 20 57 4C B2 |0:.---.R.... WL.|
00001330: 42 20 A4 20 54 AB 31 3A 4C 24 28 57 41 2C 57 4C |B . T.1:L$(WA,WL|
00001340: 29 B2 4C 24 28 57 41 2C 57 4C AA 31 29 3A 82 20 |).L$(WA,WL.1):. |
00001350: 57 4C 00 75 17 8D 0E 4C 24 28 57 41 2C 54 29 B2 |WL.u...L$(WA,T).|
00001360: 22 20 22 3A 54 B2 54 AB 31 3A 89 20 33 37 31 30 |" ":T.T.1:. 3710|
00001370: 3A 8F 2D 2D 2D 00 8C 17 3C 0F 8F 20 50 52 49 4E |:.---...<.. PRIN|
00001380: 54 20 52 4F 57 20 4C 41 42 45 4C 53 00 B3 17 41 |T ROW LABELS...A|
00001390: 0F 81 20 57 4C B2 31 20 A4 20 48 4C 3A 4C 4C 24 |.. WL.1 . HL:LL$|
000013A0: B2 22 22 3A 8F 20 46 4F 52 20 45 41 43 48 20 4C |."":. FOR EACH L|
000013B0: 49 4E 45 00 EA 17 4B 0F 3A 81 20 57 41 B2 31 20 |INE...K.:. WA.1 |
000013C0: A4 20 48 41 3A 58 B2 43 50 25 28 57 41 29 AB 31 |. HA:X.CP%(WA).1|
000013D0: AB C3 28 4C 4C 24 29 3A 8F 20 57 48 49 43 48 20 |..(LL$):. WHICH |
000013E0: 41 43 52 4F 53 53 2C 50 4F 53 00 09 18 50 0F 3A |ACROSS,POS...P.:|
000013F0: 20 8B 20 58 B1 30 20 A7 20 4C 4C 24 B2 4C 4C 24 | . X.0 . LL$.LL$|
00001400: AA C8 28 53 50 24 2C 58 29 00 21 18 52 0F 3A 20 |..(SP$,X).!.R.: |
00001410: 4C 4C 24 B2 4C 4C 24 AA 4C 24 28 57 41 2C 57 4C |LL$.LL$.L$(WA,WL|
00001420: 29 00 2B 18 55 0F 3A 82 20 57 41 00 4A 18 5A 0F |).+.U.:. WA.J.Z.|
00001430: 3A 9E 20 4D 4C AA 31 35 33 3A 98 50 52 2C 44 4E |:. ML.153:.PR,DN|
00001440: 24 4C 4C 24 52 24 4C 46 24 3B 00 53 18 5F 0F 82 |$LL$R$LF$;.S._..|
00001450: 20 57 4C 00 7B 18 64 0F 8B 20 45 4C 20 A7 20 81 | WL.{.d.. EL . .|
00001460: 20 58 B2 31 20 A4 20 45 4C 3A 98 50 52 2C 22 20 | X.1 . EL:.PR," |
00001470: 22 52 24 4C 46 24 3B 3A 82 20 58 00 81 18 69 0F |"R$LF$;:. X...i.|
00001480: 8E 00 95 18 68 10 8F 20 52 45 41 44 20 41 20 52 |....h.. READ A R|
00001490: 45 43 4F 52 44 00 C5 18 6D 10 8B 20 52 33 20 A7 |ECORD...m.. R3 .|
000014A0: 20 8D 20 34 33 30 30 3A 81 20 57 46 B2 31 20 A4 | . 4300:. WF.1 .|
000014B0: 20 48 46 3A 84 52 41 2C 46 24 28 57 46 29 3A 82 | HF:.RA,F$(WF):.|
000014C0: 20 57 46 3A 8E 00 01 19 72 10 4C B2 31 3A 81 58 | WF:....r.L.1:.X|
000014D0: B2 31 A4 48 46 3A CF 23 28 52 41 29 2C 28 57 52 |.1.HF:.#(RA),(WR|
000014E0: 29 2C 28 4C 29 3A 84 52 41 2C 46 24 28 58 29 3A |),(L):.RA,F$(X):|
000014F0: 4C B2 4C AA C3 28 46 24 28 58 29 29 AA 32 3A 82 |L.L..(F$(X)).2:.|
00001500: 58 00 07 19 77 10 8E 00 1E 19 CC 10 8F 20 50 4F |X...w........ PO|
00001510: 53 49 54 49 4F 4E 20 50 4F 49 4E 54 45 52 00 3B |SITION POINTER.;|
00001520: 19 D1 10 42 4C B2 B5 28 28 57 52 AB 31 29 AD 52 |...BL..((WR.1).R|
00001530: 42 AA 2E 30 30 30 30 31 29 AA 31 00 72 19 D4 10 |B..00001).1.r...|
00001540: 98 4B 4B 28 52 56 29 2C 22 55 31 3A 22 52 41 3B |.KK(RV),"U1:"RA;|
00001550: 44 52 28 52 56 29 3B 54 25 28 42 4C 29 3B 53 25 |DR(RV);T%(BL);S%|
00001560: 28 42 4C 29 3A 56 4F B2 52 56 3A 8D 38 3A 8B 45 |(BL):VO.RV:.8:.E|
00001570: A7 8E 00 AD 19 DB 10 58 B2 28 57 52 AB 31 29 AB |.......X.(WR.1).|
00001580: 28 42 4C AB 31 29 AC 52 42 3A 8F 20 4E 4F 2E 20 |(BL.1).RB:. NO. |
00001590: 52 45 43 53 20 42 45 46 4F 52 20 54 48 49 53 20 |RECS BEFOR THIS |
000015A0: 49 4E 20 54 48 49 53 20 42 4C 4F 43 4B 00 D2 19 |IN THIS BLOCK...|
000015B0: DF 10 42 50 B2 31 AA 52 53 AC 58 3A 98 4B 4B 28 |..BP.1.RS.X:.KK(|
000015C0: 52 56 29 2C 22 42 2D 50 3A 22 3B 52 41 3B 42 50 |RV),"B-P:";RA;BP|
000015D0: 3A 8E 00 DD 19 30 11 8F 20 59 45 53 3F 00 01 1A |:....0.. YES?...|
000015E0: 35 11 58 24 B2 CA 28 22 59 4E 22 2C 31 AB 28 28 |5.X$..("YN",1.((|
000015F0: 58 AF 58 33 29 B2 30 29 2C 31 29 3A 8D 34 35 30 |X.X3).0),1):.450|
00001600: 30 00 39 1A 37 11 8B 20 58 24 B3 B1 22 59 22 AF |0.9.7.. X$.."Y".|
00001610: 58 24 B3 B1 22 4E 22 A7 99 22 12 50 4C 45 41 53 |X$.."N"..".PLEAS|
00001620: 45 20 41 4E 53 57 45 52 20 20 59 20 20 4F 52 20 |E ANSWER Y OR |
00001630: 20 4E 22 3A 89 34 34 30 30 00 67 1A 3A 11 58 24 | N":.4400.g.:.X$|
00001640: B2 C8 28 58 24 2C 31 29 3A 58 B2 28 20 58 AF 28 |..(X$,1):X.( X.(|
00001650: A8 20 58 33 29 20 B0 20 28 58 24 B2 22 59 22 29 |. X3) . (X$."Y")|
00001660: AF 58 33 20 29 3A 8E 00 8C 1A 94 11 99 58 24 C8 |.X3 ):.......X$.|
00001670: 28 4C 45 24 2C C3 28 58 24 29 29 3B 3A 43 58 B2 |(LE$,.(X$));:CX.|
00001680: 31 3A 8F 20 47 41 52 44 20 49 4E 50 00 BF 1A 99 |1:. GARD INP....|
00001690: 11 4D 24 B2 CA 28 58 24 AA 22 20 22 2C 43 58 2C |.M$..(X$." ",CX,|
000016A0: 31 29 3A 99 22 12 22 4D 24 22 92 9D 22 3B 3A A1 |1):."."M$"..";:.|
000016B0: 47 24 3A 8B 47 24 B2 22 22 A7 8D 34 35 36 35 00 |G$:.G$.""..4565.|
000016C0: F2 1A 9E 11 3A 41 B2 C6 28 47 24 29 3A 99 4D 24 |....:A..(G$):.M$|
000016D0: 22 9D 22 3B 3A 8B 28 41 20 AF 20 31 32 37 29 B3 |".";:.(A . 127).|
000016E0: 33 32 B0 43 58 B1 37 37 B0 41 B2 33 34 A7 34 35 |32.CX.77.A.34.45|
000016F0: 32 30 00 27 1B A3 11 3A 20 99 47 24 3B 3A 58 24 |20.'...: .G$;:X$|
00001700: B2 C8 28 58 24 2C 43 58 AB 31 29 AA 47 24 AA CA |..(X$,CX.1).G$..|
00001710: 28 58 24 2C 43 58 AA 31 29 3A 43 58 B2 43 58 AA |(X$,CX.1):CX.CX.|
00001720: 31 3A 89 34 35 30 35 00 51 1B A8 11 3A 8B 41 B2 |1:.4505.Q...:.A.|
00001730: 31 35 37 A7 8B 43 58 B1 31 A7 43 58 B2 43 58 AB |157..CX.1.CX.CX.|
00001740: 31 3A 99 47 24 3B 3A 89 34 35 30 35 3A 8F 20 4C |1:.G$;:.4505:. L|
00001750: 46 00 7C 1B AD 11 3A 8B 41 B2 32 39 AF 43 58 B3 |F.|...:.A.29.CX.|
00001760: B2 C3 28 58 24 29 A7 43 58 B2 43 58 AA 31 3A 99 |..(X$).CX.CX.1:.|
00001770: 47 24 3B 3A 89 34 35 30 35 3A 52 49 00 92 1B B2 |G$;:.4505:RI....|
00001780: 11 3A 8B 41 B2 31 33 A7 34 35 38 30 3A 8F 20 52 |.:.A.13.4580:. R|
00001790: 45 54 00 C7 1B B7 11 3A 8B 41 B2 32 30 A7 8B 43 |ET.....:.A.20..C|
000017A0: 58 B1 31 A7 99 47 24 3B 3A 58 24 B2 C8 28 58 24 |X.1..G$;:X$..(X$|
000017B0: 2C 43 58 AB 32 29 AA CA 28 58 24 2C 43 58 29 3A |,CX.2)..(X$,CX):|
000017C0: 43 58 B2 43 58 AB 31 00 E2 1B BC 11 3A 8B 41 B2 |CX.CX.1.....:.A.|
000017D0: 31 34 38 AF C3 28 58 24 29 B3 37 38 A7 8D 34 35 |148..(X$).78..45|
000017E0: 35 35 00 07 1C C1 11 3A 8B 41 B2 31 34 37 A7 4C |55.....:.A.147.L|
000017F0: B2 C3 28 58 24 29 3A 8D 34 35 36 30 3A 43 58 B2 |..(X$):.4560:CX.|
00001800: 31 3A 58 24 B2 22 22 00 12 1C C6 11 3A 89 34 35 |1:X$."".....:.45|
00001810: 30 35 00 41 1C CB 11 58 24 B2 C8 28 58 24 2C 43 |05.A...X$..(X$,C|
00001820: 58 AB 31 29 AA 22 20 22 AA CA 28 58 24 2C 43 58 |X.1)." "..(X$,CX|
00001830: 29 3A 99 47 24 22 20 9D 22 3B 3A 8E 3A 8F 20 49 |):.G$" .";:.:. I|
00001840: 4E 00 6A 1C D0 11 99 C8 28 4C 45 24 2C 43 58 AB |N.j.....(LE$,CX.|
00001850: 31 29 C8 28 53 50 24 2C 4C 29 C8 28 4C 45 24 2C |1).(SP$,L).(LE$,|
00001860: 4C 29 3B 3A 8E 3A 8F 20 43 4C 00 98 1C D5 11 99 |L);:.:. CL......|
00001870: 22 12 22 4D 24 22 9D 92 22 3B 3A 81 57 B2 31 A4 |"."M$"..";:.W.1.|
00001880: 35 30 3A A1 47 24 3A 8B 47 24 B3 B1 22 22 A7 99 |50:.G$:.G$..""..|
00001890: 4D 24 22 9D 22 3B 3A 8E 00 BE 1C DA 11 3A 82 57 |M$".";:......:.W|
000018A0: 3A 99 4D 24 22 9D 22 3B 3A 81 57 B2 31 A4 35 30 |:.M$".";:.W.1.50|
000018B0: 3A A1 47 24 3A 8B 47 24 B3 B1 22 22 A7 8E 00 CC |:.G$:.G$..""....|
000018C0: 1C DF 11 3A 82 57 3A 89 34 35 36 35 00 EE 1C E4 |...:.W:.4565....|
000018D0: 11 8B C8 28 58 24 2C 31 29 B2 22 20 22 A7 58 24 |...(X$,1)." ".X$|
000018E0: B2 CA 28 58 24 2C 32 29 3A 89 34 35 38 30 00 17 |..(X$,2):.4580..|
000018F0: 1D E9 11 3A 8B C9 28 58 24 2C 31 29 B2 22 20 22 |...:..(X$,1)." "|
00001900: A7 58 24 B2 C8 28 58 24 2C C3 28 58 24 29 AB 31 |.X$..(X$,.(X$).1|
00001910: 29 3A 89 34 35 38 35 00 20 1D EE 11 3A 99 3A 8E |):.4585. ...:.:.|
00001920: 00 31 1D C0 12 8F 20 41 53 4B 20 4E 55 4D 42 45 |.1.... ASK NUMBE|
00001930: 52 00 62 1D CA 12 58 24 B2 CA 28 C4 28 58 29 2C |R.b...X$..(.(X),|
00001940: 32 29 3A 8D 34 35 30 30 3A 58 B2 C5 28 58 24 29 |2):.4500:X..(X$)|
00001950: 3A 8B 58 B2 30 AF 58 24 B3 B1 22 30 22 A7 34 38 |:.X.0.X$.."0".48|
00001960: 31 32 00 75 1D CB 12 8B 58 B2 B1 58 31 AF 58 B2 |12.u....X..X1.X.|
00001970: B3 58 32 A7 8E 00 A3 1D CC 12 99 22 12 49 4C 4C |.X2........".ILL|
00001980: 45 47 41 4C 20 45 4E 54 52 59 20 2D 20 50 4C 45 |EGAL ENTRY - PLE|
00001990: 41 53 45 20 45 4E 54 45 52 20 41 20 4E 55 4D 42 |ASE ENTER A NUMB|
000019A0: 45 52 22 00 CB 1D CF 12 99 22 12 49 4E 20 54 48 |ER"......".IN TH|
000019B0: 45 20 52 41 4E 47 45 20 4F 46 22 58 31 22 9D 20 |E RANGE OF"X1". |
000019C0: 54 4F 22 58 32 3A 89 34 38 30 30 00 D8 1D 24 13 |TO"X2:.4800...$.|
000019D0: 8F 20 54 49 54 4C 45 53 00 E8 1D B4 14 8F 20 4F |. TITLES...... O|
000019E0: 50 45 4E 20 46 4F 52 4D 00 14 1E B9 14 99 22 11 |PEN FORM......".|
000019F0: 4E 41 4D 45 20 4F 46 20 46 4F 52 4D 41 54 3A 22 |NAME OF FORMAT:"|
00001A00: 3A 58 24 B2 4E 32 24 3A 8D 34 35 30 30 3A 4E 32 |:X$.N2$:.4500:N2|
00001A10: 24 B2 58 24 00 46 1E BE 14 45 B2 31 3A 4C B2 C3 |$.X$.F...E.1:L..|
00001A20: 28 4E 32 24 29 3A 8B 20 4C B1 31 32 20 A7 20 99 |(N2$):. L.12 . .|
00001A30: 22 46 49 4C 45 20 4E 41 4D 45 20 54 4F 4F 20 4C |"FILE NAME TOO L|
00001A40: 4F 4E 47 22 3A 8E 00 75 1E C3 14 81 20 58 B2 31 |ONG":..u.... X.1|
00001A50: 20 A4 20 4C 3A 8B 20 CA 28 4E 32 24 2C 31 29 B2 | . L:. .(N2$,1).|
00001A60: 22 2A 22 A7 20 99 22 27 2A 27 20 49 4C 4C 45 47 |"*". ."'*' ILLEG|
00001A70: 41 4C 22 3A 8E 00 88 1E C4 14 3A 82 20 58 3A 8B |AL":......:. X:.|
00001A80: 20 4C B2 30 20 A7 20 8E 00 A2 1E C8 14 8B 20 44 | L.0 . ....... D|
00001A90: 54 B2 31 20 A7 20 51 56 B2 52 56 3A 89 20 35 33 |T.1 . QV.RV:. 53|
00001AA0: 33 30 00 D5 1E CA 14 3A 45 B2 30 3A 99 22 11 44 |30.....:E.0:.".D|
00001AB0: 52 49 56 45 28 12 31 92 2F 12 30 92 29 3F 22 3A |RIVE(.1./.0.)?":|
00001AC0: 47 31 24 B2 22 30 31 22 3A 8D 20 35 3A 51 56 B2 |G1$."01":. 5:QV.|
00001AD0: C5 28 47 24 29 00 F9 1E CD 14 3A 8B 20 51 56 B3 |.(G$).....:. QV.|
00001AE0: B1 52 56 20 A7 20 98 4B 4B 28 51 56 29 2C 22 49 |.RV . .KK(QV),"I|
00001AF0: 22 AA 44 52 24 28 51 56 29 00 2D 1F D2 14 8B 20 |".DR$(QV).-.... |
00001B00: 58 31 24 B2 22 57 22 A7 20 98 4B 4B 28 51 56 29 |X1$."W". .KK(QV)|
00001B10: 2C 22 53 22 AA 44 52 24 28 51 56 29 AA 22 3A 4D |,"S".DR$(QV).":M|
00001B20: 4C 22 AA C7 28 31 36 32 29 AA 4E 32 24 00 5D 1F |L"..(162).N2$.].|
00001B30: DC 14 9F 20 53 45 2C 44 56 28 51 56 29 2C 53 45 |... SE,DV(QV),SE|
00001B40: 2C 44 52 24 28 51 56 29 AA 22 3A 4D 4C A2 22 AA |,DR$(QV).":ML.".|
00001B50: 4E 32 24 AA 22 2C 53 2C 22 AA 58 31 24 00 76 1F |N2$.",S,".X1$.v.|
00001B60: DE 14 56 4F B2 51 56 3A 8D 20 38 3A 8B 20 45 20 |..VO.QV:. 8:. E |
00001B70: A7 20 A0 20 53 45 00 7C 1F E1 14 8E 00 88 1F 44 |. . SE.|.......D|
00001B80: 16 8F 20 43 41 53 45 3F 00 91 1F 49 16 57 50 B2 |.. CASE?...I.WP.|
00001B90: 30 00 A5 1F 53 16 8B 20 4D 43 B2 30 20 A7 20 41 |0...S.. MC.0 . A|
00001BA0: 43 B2 30 3A 8E 00 DA 1F 58 16 3A 99 22 11 43 4F |C.0:....X.:.".CO|
00001BB0: 4E 56 45 52 54 20 54 4F 20 41 4C 4C 20 43 41 50 |NVERT TO ALL CAP|
00001BC0: 53 3F 22 3A 58 B2 41 43 3A 58 33 B2 AB 31 3A 8D |S?":X.AC:X3..1:.|
00001BD0: 20 34 34 30 30 3A 41 43 B2 58 00 E0 1F 6C 16 8E | 4400:AC.X...l..|
00001BE0: 00 F0 1F A8 16 8F 20 50 4F 4B 45 20 43 41 53 45 |...... POKE CASE|
00001BF0: 00 2A 20 AD 16 97 20 42 37 AA 32 2C 30 3A 8B 20 |.* ... B7.2,0:. |
00001C00: 41 43 B3 B1 30 20 A7 20 97 20 42 37 AA 32 2C 31 |AC..0 . . B7.2,1|
00001C10: 32 38 3A 8F 20 41 4C 4C 20 43 41 50 53 20 49 4E |28:. ALL CAPS IN|
00001C20: 20 4D 49 58 20 46 4F 52 4D 54 00 5F 20 B2 16 97 | MIX FORMT._ ...|
00001C30: 42 37 AA 33 2C 30 3A 8B 20 57 50 B3 B1 30 20 AF |B7.3,0:. WP..0 .|
00001C40: 20 4D 43 B2 30 20 A7 20 97 20 42 37 AA 33 2C 31 | MC.0 . . B7.3,1|
00001C50: 32 38 3A 8F 20 57 50 20 4E 4F 54 2D 4D 49 58 00 |28:. WP NOT-MIX.|
00001C60: 6B 20 B7 16 97 42 37 AA 34 2C 30 00 A9 20 B9 16 |k ...B7.4,0.. ..|
00001C70: 3A 8B 20 50 44 B2 50 55 20 AF 20 43 50 B2 30 20 |:. PD.PU . CP.0 |
00001C80: AF 20 4D 43 B3 B1 30 20 A7 20 97 20 42 37 AA 33 |. MC..0 . . B7.3|
00001C90: 2C 31 32 38 3A 97 20 42 37 AA 34 2C 31 36 30 3A |,128:. B7.4,160:|
00001CA0: 8F 20 41 53 43 20 4D 49 58 00 E3 20 BC 16 44 4E |. ASC MIX.. ..DN|
00001CB0: 24 B2 22 22 3A 8B 20 50 44 B2 50 55 20 AF 20 43 |$."":. PD.PU . C|
00001CC0: 50 B3 B1 30 20 AF 20 4D 43 B3 B1 30 20 A7 20 44 |P..0 . MC..0 . D|
00001CD0: 4E 24 B2 22 11 22 AA 22 22 3A 8F 20 43 42 4D 20 |N$."."."":. CBM |
00001CE0: 4D 49 58 00 E9 20 C1 16 8E 00 1D 21 C6 16 8F 20 |MIX.. .....!... |
00001CF0: 4F 52 41 20 42 37 2B 32 2C 45 4F 52 20 42 37 2B |ORA B7+2,EOR B7+|
00001D00: 33 2C 43 4D 50 23 31 32 38 2C 49 46 20 47 45 2C |3,CMP#128,IF GE,|
00001D10: 45 4F 52 20 42 37 2B 34 2C 54 48 45 4E 00 31 21 |EOR B7+4,THEN.1!|
00001D20: D4 17 8F 20 43 48 41 4E 47 45 20 46 4F 52 4D 41 |... CHANGE FORMA|
00001D30: 54 00 57 21 D9 17 99 22 93 20 20 20 20 20 20 20 |T.W!...". |
00001D40: 20 20 20 20 20 20 20 20 12 43 48 41 4E 47 45 20 | .CHANGE |
00001D50: 46 4F 52 4D 41 54 22 00 73 21 DF 17 99 22 11 12 |FORMAT".s!..."..|
00001D60: 46 92 49 45 4C 44 20 41 52 52 41 4E 47 45 4D 45 |F.IELD ARRANGEME|
00001D70: 4E 54 22 00 87 21 E0 17 99 22 11 12 53 92 45 4C |NT"..!..."..S.EL|
00001D80: 45 43 54 49 4F 4E 22 00 96 21 E1 17 99 22 11 12 |ECTION"..!..."..|
00001D90: 4D 92 49 53 43 22 00 B7 21 E2 17 99 22 11 12 5E |M.ISC"..!..."..^|
00001DA0: 92 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4C |. RETURN TO MAIL|
00001DB0: 20 4C 41 42 45 4C 53 00 DD 21 FB 17 47 31 24 B2 | LABELS..!..G1$.|
00001DC0: 22 46 53 4D 5E 22 3A 8D 35 3A 91 20 56 20 8D 36 |"FSM^":.5:. V .6|
00001DD0: 32 30 30 2C 32 31 30 30 2C 32 37 30 30 00 EE 21 |200,2100,2700..!|
00001DE0: 10 18 8B 20 47 24 B2 22 5E 22 20 A7 20 8E 00 F8 |... G$."^" . ...|
00001DF0: 21 15 18 89 36 31 30 30 00 08 22 38 18 8F 20 41 |!...6100.."8.. A|
00001E00: 53 4B 20 41 52 41 4E 47 00 4E 22 3D 18 99 22 11 |SK ARANG.N"=..".|
00001E10: 48 4F 57 20 4D 41 4E 59 20 50 52 49 4E 54 45 44 |HOW MANY PRINTED|
00001E20: 20 4C 49 4E 45 53 20 50 45 52 20 4C 41 42 45 4C | LINES PER LABEL|
00001E30: 3F 22 52 24 22 28 45 4E 54 45 52 20 20 30 20 20 |?"R$"(ENTER 0 |
00001E40: 54 4F 20 52 45 54 55 52 4E 20 54 4F 22 3B 00 81 |TO RETURN TO";..|
00001E50: 22 3F 18 99 22 20 43 48 41 4E 47 45 20 4D 45 4E |"?.." CHANGE MEN|
00001E60: 55 29 22 3A 58 B2 48 4C 3A 58 31 B2 30 3A 58 32 |U)":X.HL:X1.0:X2|
00001E70: B2 31 30 3A 8D 34 38 30 30 3A 8B 20 58 B2 30 A7 |.10:.4800:. X.0.|
00001E80: 8E 00 8A 22 40 18 48 4C B2 58 00 D0 22 42 18 99 |..."@.HL.X.."B..|
00001E90: 22 11 4E 4F 2E 20 4F 46 20 45 4D 50 54 59 20 4C |".NO. OF EMPTY L|
00001EA0: 49 4E 45 53 20 42 45 54 57 45 45 4E 20 4C 41 42 |INES BETWEEN LAB|
00001EB0: 45 4C 53 22 3A 58 B2 45 4C 3A 58 31 B2 30 3A 58 |ELS":X.EL:X1.0:X|
00001EC0: 32 B2 31 30 30 3A 8D 34 38 30 30 3A 45 4C B2 58 |2.100:.4800:EL.X|
00001ED0: 00 E5 22 47 18 48 48 B2 30 3A 81 20 57 4C B2 31 |.."G.HH.0:. WL.1|
00001EE0: 20 A4 20 48 4C 00 1B 23 4C 18 99 22 11 46 49 45 | . HL..#L..".FIE|
00001EF0: 4C 44 53 3A 22 3A 81 57 46 B2 31 A4 48 46 3A 99 |LDS:":.WF.1.HF:.|
00001F00: 22 12 22 57 46 22 92 22 46 54 24 28 57 46 29 22 |"."WF"."FT$(WF)"|
00001F10: 20 20 22 3B 3A 82 20 57 46 3A 99 00 50 23 51 18 | ";:. WF:..P#Q.|
00001F20: 3A 99 22 11 48 4F 57 20 4D 41 4E 59 20 46 49 45 |:.".HOW MANY FIE|
00001F30: 4C 44 53 20 54 4F 20 42 45 20 50 52 49 4E 54 45 |LDS TO BE PRINTE|
00001F40: 44 20 4F 4E 20 4C 49 4E 45 22 57 4C 22 9D 3F 22 |D ON LINE"WL".?"|
00001F50: 00 7D 23 56 18 3A 58 B2 41 46 25 28 57 4C 2C 30 |.}#V.:X.AF%(WL,0|
00001F60: 29 3A 58 31 B2 31 3A 58 32 B2 33 3A 8D 34 38 30 |):X1.1:X2.3:.480|
00001F70: 30 3A 41 46 25 28 57 4C 2C 30 29 B2 58 00 98 23 |0:AF%(WL,0).X..#|
00001F80: 5B 18 3A 81 20 58 B2 31 20 A4 20 41 46 25 28 57 |[.:. X.1 . AF%(W|
00001F90: 4C 2C 30 29 3A 45 B2 31 00 D9 23 60 18 3A 20 99 |L,0):E.1..#`.: .|
00001FA0: 22 11 46 49 45 4C 44 23 20 4F 46 22 58 22 9D 22 |".FIELD# OF"X"."|
00001FB0: CA 28 22 53 54 4E 44 52 44 22 2C 58 AC 32 AB 31 |.("STNDRD",X.2.1|
00001FC0: 2C 32 29 22 20 46 49 45 4C 44 20 49 4E 20 4C 49 |,2)" FIELD IN LI|
00001FD0: 4E 45 23 22 57 4C 22 3F 22 00 16 24 62 18 3A 20 |NE#"WL"?"..$b.: |
00001FE0: 99 22 28 46 4F 52 20 43 4F 4E 53 54 41 4E 54 20 |."(FOR CONSTANT |
00001FF0: 46 49 45 4C 44 20 45 4E 54 45 52 20 27 20 54 48 |FIELD ENTER ' TH|
00002000: 45 4E 20 43 48 41 52 41 43 54 45 52 53 20 54 48 |EN CHARACTERS TH|
00002010: 45 4E 20 27 20 29 00 3A 24 63 18 3A 20 59 B2 41 |EN ' ).:$c.: Y.A|
00002020: 46 25 28 57 4C 2C 58 29 3A 8B 59 B1 30 A7 58 24 |F%(WL,X):.Y.0.X$|
00002030: B2 CA 28 C4 28 59 29 2C 32 29 00 58 24 64 18 3A |..(.(Y),2).X$d.:|
00002040: 20 8B 59 B3 30 A7 58 24 B2 22 27 22 AA 48 4C 24 | .Y.0.X$."'".HL$|
00002050: 28 AB 59 29 AA 22 27 22 00 8A 24 65 18 3A 20 8D |(.Y)."'"..$e.: .|
00002060: 34 35 30 30 3A 59 B2 C5 28 58 24 29 3A 8B 59 B1 |4500:Y..(X$):.Y.|
00002070: 30 AF 59 B3 B2 48 46 A7 20 41 46 25 28 57 4C 2C |0.Y..HF. AF%(WL,|
00002080: 58 29 B2 59 3A 89 36 32 36 35 00 BF 24 6A 18 3A |X).Y:.6265..$j.:|
00002090: 20 8B C3 28 58 24 29 B3 32 B0 C8 28 58 24 2C 31 | ..(X$).2..(X$,1|
000020A0: 29 B3 B1 22 27 22 A7 99 22 12 49 4C 4C 45 47 41 |).."'"..".ILLEGA|
000020B0: 4C 20 45 4E 54 52 59 22 3A 89 20 36 32 34 30 00 |L ENTRY":. 6240.|
000020C0: F8 24 6F 18 3A 20 20 48 48 B2 48 48 AA 31 3A 41 |.$o.: HH.HH.1:A|
000020D0: 46 25 28 57 4C 2C 58 29 B2 AB 48 48 3A 48 4C 24 |F%(WL,X)..HH:HL$|
000020E0: 28 48 48 29 B2 CA 28 58 24 2C 32 2C C3 28 58 24 |(HH)..(X$,2,.(X$|
000020F0: 29 AB 32 29 3A 45 B2 30 00 14 25 79 18 82 58 2C |).2):E.0..%y..X,|
00002100: 57 4C 3A 99 22 11 41 52 52 41 4E 47 45 4D 45 4E |WL:.".ARRANGEMEN|
00002110: 54 3A 11 22 00 32 25 7E 18 3A 81 20 57 4C B2 31 |T:.".2%~.:. WL.1|
00002120: A4 48 4C 3A 81 58 B2 31 A4 41 46 25 28 57 4C 2C |.HL:.X.1.AF%(WL,|
00002130: 30 29 00 5C 25 7F 18 3A 20 58 31 B2 41 46 25 28 |0).\%..: X1.AF%(|
00002140: 57 4C 2C 58 29 3A 8B 20 58 31 B1 30 20 A7 20 99 |WL,X):. X1.0 . .|
00002150: 20 46 54 24 28 58 31 29 22 20 22 3B 00 7A 25 80 | FT$(X1)" ";.z%.|
00002160: 18 3A 20 8B 20 58 31 B3 30 20 A7 20 99 20 48 4C |.: . X1.0 . . HL|
00002170: 24 28 AB 58 31 29 22 20 22 3B 00 8A 25 82 18 3A |$(.X1)" ";..%..:|
00002180: 82 20 58 3A 99 3A 82 20 57 4C 00 C5 25 83 18 99 |. X:.:. WL..%...|
00002190: 22 11 48 4F 57 20 4D 41 4E 59 20 4C 41 42 45 4C |".HOW MANY LABEL|
000021A0: 53 20 41 43 52 4F 53 53 3F 22 3A 58 B2 48 41 3A |S ACROSS?":X.HA:|
000021B0: 58 31 B2 31 3A 58 32 B2 32 30 3A 8D 34 38 30 30 |X1.1:X2.20:.4800|
000021C0: 3A 48 41 B2 58 00 F6 25 88 18 81 20 57 41 20 B2 |:HA.X..%... WA .|
000021D0: 31 20 A4 20 48 41 3A 99 22 11 43 4F 4C 55 4D 4E |1 . HA:.".COLUMN|
000021E0: 20 50 4F 53 49 54 49 4F 4E 20 4C 41 42 45 4C 20 | POSITION LABEL |
000021F0: 4E 4F 2E 22 57 41 00 35 26 8D 18 3A 58 B2 43 50 |NO."WA.5&..:X.CP|
00002200: 25 28 57 41 29 3A 58 31 B2 43 50 25 28 57 41 AB |%(WA):X1.CP%(WA.|
00002210: 31 29 AA 31 3A 58 32 B2 32 33 35 AB 48 41 AA 57 |1).1:X2.235.HA.W|
00002220: 41 3A 8D 34 38 30 30 3A 43 50 25 28 57 41 29 B2 |A:.4800:CP%(WA).|
00002230: 58 3A 82 57 41 00 3B 26 92 18 8E 00 46 26 9C 18 |X:.WA.;&....F&..|
00002240: 8F 20 53 41 56 45 00 68 26 A1 18 99 22 93 20 20 |. SAVE.h&...". |
00002250: 20 20 20 20 20 20 20 20 20 20 20 12 53 41 56 45 | .SAVE|
00002260: 20 46 4F 52 4D 41 54 22 00 83 26 A6 18 58 31 24 | FORMAT"..&..X1$|
00002270: B2 22 57 22 3A 8D 20 35 33 30 30 3A 8B 20 45 20 |."W":. 5300:. E |
00002280: A7 20 8E 00 BA 26 C4 18 98 53 45 2C 48 41 3B 52 |. ...&...SE,HA;R|
00002290: 24 3B 48 4C 3B 52 24 3B 45 4C 3B 52 24 3B 58 24 |$;HL;R$;EL;R$;X$|
000022A0: 3B 52 24 3B 58 3B 52 24 3B 58 3B 52 24 3B 41 43 |;R$;X;R$;X;R$;AC|
000022B0: 3B 52 24 3B 48 53 3B 52 24 3B 00 D5 26 C5 18 98 |;R$;HS;R$;..&...|
000022C0: 53 45 2C 57 4B 3B 52 24 3B 48 54 3B 52 24 3B 58 |SE,WK;R$;HT;R$;X|
000022D0: 24 3B 52 24 3B 00 FA 26 C9 18 3A 81 57 41 B2 31 |$;R$;..&..:.WA.1|
000022E0: 20 A4 20 48 41 3A 98 53 45 2C 43 50 25 28 57 41 | . HA:.SE,CP%(WA|
000022F0: 29 3B 52 24 3B 3A 82 20 57 41 00 3B 27 CE 18 3A |);R$;:. WA.;'..:|
00002300: 81 57 4C B2 31 20 A4 20 48 4C 3A 98 53 45 2C 41 |.WL.1 . HL:.SE,A|
00002310: 46 25 28 57 4C 2C 31 29 3B 52 24 3B 41 46 25 28 |F%(WL,1);R$;AF%(|
00002320: 57 4C 2C 32 29 3B 52 24 3B 41 46 25 28 57 4C 2C |WL,2);R$;AF%(WL,|
00002330: 33 29 3B 52 24 3B 3A 82 20 57 4C 00 7D 27 D1 18 |3);R$;:. WL.}'..|
00002340: 3A 81 20 58 B2 31 A4 20 48 53 3A 98 20 53 45 2C |:. X.1. HS:. SE,|
00002350: 20 53 41 25 28 58 29 3B 52 24 3B 53 45 25 28 58 | SA%(X);R$;SE%(X|
00002360: 29 3B 52 24 3B 53 42 24 28 58 29 3B 52 24 3B 53 |);R$;SB$(X);R$;S|
00002370: 4C 25 28 58 29 3B 52 24 3B 3A 82 20 58 00 A1 27 |L%(X);R$;:. X..'|
00002380: D2 18 3A 81 20 58 B2 30 A4 20 31 30 3A 98 20 53 |..:. X.0. 10:. S|
00002390: 45 2C 20 43 48 25 28 58 29 3B 52 24 3B 3A 82 20 |E, CH%(X);R$;:. |
000023A0: 58 00 C1 27 D3 18 98 53 45 2C 58 3B 52 24 3B 50 |X..'...SE,X;R$;P|
000023B0: 44 3B 52 24 3B 43 53 3B 52 24 3B 48 48 3B 52 24 |D;R$;CS;R$;HH;R$|
000023C0: 3B 00 E5 27 DD 18 3A 81 57 4C B2 31 A4 48 4C 3A |;..'..:.WL.1.HL:|
000023D0: 98 53 45 2C 41 46 25 28 57 4C 2C 30 29 3B 52 24 |.SE,AF%(WL,0);R$|
000023E0: 3B 3A 82 57 4C 00 08 28 E2 18 3A 81 58 B2 31 A4 |;:.WL..(..:.X.1.|
000023F0: 48 48 3A 98 53 45 2C 22 20 22 3B 48 4C 24 28 58 |HH:.SE," ";HL$(X|
00002400: 29 3B 52 24 3B 3A 82 58 00 13 28 E7 18 A0 20 53 |);R$;:.X..(... S|
00002410: 45 3A 8E 00 1E 28 64 19 8F 20 4C 4F 41 44 00 3A |E:...(d.. LOAD.:|
00002420: 28 69 19 99 22 93 20 20 20 20 20 20 20 20 12 4C |(i..". .L|
00002430: 4F 41 44 20 46 4F 52 4D 41 54 00 54 28 6E 19 58 |OAD FORMAT.T(n.X|
00002440: 31 24 B2 22 52 22 3A 8D 35 33 30 30 3A 8B 20 45 |1$."R":.5300:. E|
00002450: 20 A7 20 8E 00 7F 28 87 19 84 53 45 2C 48 41 2C | . ...(...SE,HA,|
00002460: 48 4C 2C 45 4C 2C 20 58 24 2C 58 2C 20 58 2C 41 |HL,EL, X$,X, X,A|
00002470: 43 2C 48 53 2C 20 57 4B 2C 48 54 2C 20 58 24 00 |C,HS, WK,HT, X$.|
00002480: A1 28 8C 19 3A 81 20 57 41 B2 31 20 A4 20 48 41 |.(..:. WA.1 . HA|
00002490: 3A 84 53 45 2C 43 50 25 28 57 41 29 3A 82 20 57 |:.SE,CP%(WA):. W|
000024A0: 41 00 D7 28 91 19 3A 81 20 57 4C B2 31 A4 48 4C |A..(..:. WL.1.HL|
000024B0: 3A 84 53 45 2C 41 46 25 28 57 4C 2C 31 29 2C 41 |:.SE,AF%(WL,1),A|
000024C0: 46 25 28 57 4C 2C 32 29 2C 41 46 25 28 57 4C 2C |F%(WL,2),AF%(WL,|
000024D0: 33 29 3A 82 20 57 4C 00 0E 29 93 19 3A 81 20 58 |3):. WL..)..:. X|
000024E0: B2 31 20 A4 20 48 53 3A 84 20 53 45 2C 53 41 25 |.1 . HS:. SE,SA%|
000024F0: 28 58 29 2C 53 45 25 28 58 29 2C 20 53 42 24 28 |(X),SE%(X), SB$(|
00002500: 58 29 2C 20 53 4C 25 28 58 29 3A 82 20 58 00 2E |X), SL%(X):. X..|
00002510: 29 94 19 3A 81 20 58 B2 30 20 A4 20 31 30 3A 84 |)..:. X.0 . 10:.|
00002520: 20 53 45 2C 43 48 25 28 58 29 3A 82 20 58 00 42 | SE,CH%(X):. X.B|
00002530: 29 96 19 84 53 45 2C 58 20 2C 50 44 2C 43 53 2C |)...SE,X ,PD,CS,|
00002540: 48 48 00 62 29 9B 19 3A 81 57 4C B2 31 A4 48 4C |HH.b)..:.WL.1.HL|
00002550: 3A 84 53 45 2C 41 46 25 28 57 4C 2C 30 29 3A 82 |:.SE,AF%(WL,0):.|
00002560: 57 4C 00 7D 29 A0 19 3A 81 58 B2 31 A4 48 48 3A |WL.})..:.X.1.HH:|
00002570: 84 53 45 2C 48 4C 24 28 58 29 3A 82 58 00 88 29 |.SE,HL$(X):.X..)|
00002580: A5 19 A0 20 53 45 3A 8E 00 93 29 8C 23 8F 20 45 |... SE:...).#. E|
00002590: 58 49 54 00 B8 29 8D 23 A0 20 50 52 3A 58 24 B2 |XIT..).#. PR:X$.|
000025A0: 22 46 49 4C 45 20 4D 45 4E 55 22 3A 8D 20 39 32 |"FILE MENU":. 92|
000025B0: 30 30 3A 89 39 31 30 31 00 C8 29 F0 23 8F 20 4C |00:.9101..).#. L|
000025C0: 4F 41 44 20 50 52 4F 47 00 FF 29 F1 23 A0 20 52 |OAD PROG..).#. R|
000025D0: 41 3A 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 |A:. DT.1 . RV.1 |
000025E0: A7 20 99 22 11 12 49 4E 53 45 52 54 20 50 52 4F |. ."..INSERT PRO|
000025F0: 47 52 41 4D 20 44 49 53 4B 22 3A 8D 20 31 30 00 |GRAM DISK":. 10.|
00002600: 22 2A F5 23 98 4B 4B 28 30 29 2C 22 49 30 22 3A |"*.#.KK(0),"I0":|
00002610: 99 22 11 28 4C 4F 41 44 49 4E 47 20 22 58 24 22 |.".(LOADING "X$"|
00002620: 29 22 00 55 2A FA 23 9F 20 53 45 2C 38 2C 53 45 |)".U*.#. SE,8,SE|
00002630: 2C 22 30 3A 22 AA 58 24 AA 22 2C 50 2C 52 22 3A |,"0:".X$.",P,R":|
00002640: 56 4F B2 30 3A 8D 20 38 3A A0 20 53 45 3A 8B 20 |VO.0:. 8:. SE:. |
00002650: 45 20 A7 20 8E 00 6C 2A FF 23 8B 20 4C 49 B3 32 |E . ..l*.#. LI.2|
00002660: 35 33 20 A7 20 97 20 49 56 2C 4C 49 00 7E 2A 04 |53 . . IV,LI.~*.|
00002670: 24 93 20 22 30 3A 22 AA 58 24 2C 38 3A 90 00 8C |$. "0:".X$,8:...|
00002680: 2A 54 24 8F 20 4F 50 45 4E 20 52 41 00 BB 2A 59 |*T$. OPEN RA..*Y|
00002690: 24 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 A7 |$. DT.1 . RV.1 .|
000026A0: 20 99 22 11 12 49 4E 53 45 52 54 20 44 41 54 41 | ."..INSERT DATA|
000026B0: 20 44 49 53 4B 22 3A 8D 20 31 30 00 D2 2A 5B 24 | DISK":. 10..*[$|
000026C0: 98 4B 4B 28 52 56 29 2C 22 49 22 44 52 24 28 52 |.KK(RV),"I"DR$(R|
000026D0: 56 29 00 08 2B 5E 24 9F 20 53 45 2C 44 56 28 52 |V)..+^$. SE,DV(R|
000026E0: 56 29 2C 53 45 2C 44 52 24 28 52 56 29 AA 22 3A |V),SE,DR$(RV).":|
000026F0: 44 42 22 AA C7 28 33 34 AA 31 32 38 29 AA 4E 41 |DB"..(34.128).NA|
00002700: 24 AA 22 2C 53 2C 52 22 00 26 2B 60 24 56 4F B2 |$.",S,R".&+`$VO.|
00002710: 52 56 3A 8D 20 38 3A A0 20 53 45 3A 8B 20 45 20 |RV:. 8:. SE:. E |
00002720: A7 20 39 33 30 35 00 44 2B 63 24 9F 20 52 41 2C |. 9305.D+c$. RA,|
00002730: 44 56 28 52 56 29 2C 52 41 2C 22 23 22 3A 42 4C |DV(RV),RA,"#":BL|
00002740: B2 30 3A 8E 00 00 00 |.0:.... |
.......1100.E....1,8,15,"I0":.1,"S0:MAIL
LABELS":."0:MAIL LABELS",8:..R....".COR
RECTIONS?(.Y./.N.)":G1$."YN":. 5:.......
4,4:.4:.4,G(15):.4:.......G$:.V.1.C(G1$)
:.G$..J(G1$,V,1)..V:.5.......X....KK(VO)
,E,E$,S,T:.E.2........"DISK ERROR:"E;E$;
S;T......"..R.EADY?":G1$."R":.5:.......
MAIN.).... SET UP.?.... SEL TEST EA REC.
[.... SEL TEST EA CONDITION.I.... SELECT
?.V.... (CONT)...... DISPLAY SELECT.....
. MISC1...... PRINT LABELS... .. PRINT A
SK.S.!.. GET SELCTED RECORD...#.. ARRANG
E FIELDS ON LABELS...%.. DELETE BLANK LI
NES.".'.. PRINT ROW LABELS.-.).. EXIT.A.
*.. READ A RECORD.A.+.. POSITION TO READ
OR WRITE.L.,.. YES?.}.0.. ASK NUMBER...
5.. OPEN FORM...:.. CASE?...=.. CHANGE F
ORMAT...>.. ASK ARANG.H.?.. SAVE.S.A.. L
OAD...L.. MAIN...M.. LI.253 . . IV,LI.3.
..Q.. 9300:. 1300:. OPEN RA,SET UP.=.V..
"..............MAILING LABELS.R.E.."..L.
OAD FORMAT.Z.G.."..C.REATE, CHANGE, INSP
ECT FORMAT...H.."..S.AVE FORMAT"...J..".
.P.RINT LABELS.F.L.."..^. RETURN TO FILE
MENU"...O.:G1$."LCSP^":.5:.V .6500,6100
,6300,3100,9100...T..X.1.10:.G$:.X:.1110
...... SET UP.C.(.N2$.NA$:R1.1:R2.HR:F$(
0)."":HL.0:.:. HL USED ALSO FOR HM LOOK
UPS.Y.... SEL TEST EA REC.....GS.1:. WS.
1.HS:.Q.... GS . . SE%(WS) . 1805,1810,1
815,1820,1825,1830,1835,1865,1880......
SL%(WS)..2 . . WS:.:. IF 'AND' THEN TEST
AGAIN...... MUST BE 'OR'.&.... GS . ..6
.B.GS.1:. WS:..R.... SEL TEST EA CONDITI
ON.Q...GS.(F$(SA%(WS)).SB$(WS)):......GS
.(E(F$(SA%(WS))).E(SB$(WS))):......GS.(E
(F$(SA%(WS))).E(SB$(WS))):..Z...GS.(F$(S
A%(WS)).SB$(WS)):....!.GS.(F$(SA%(WS)).S
B$(WS)):....&.GS.(F$(SA%(WS))..SB$(WS)):
..9.+.A1$.F$(SA%(WS)):A2$.SB$(WS).G.0.:.
I(A2$,1)."*" . A1$.H(A1$,C(A2$).1)."*".
..5.:. C(A1$)..C(A2$). GS.0:....:.:. X.1
. C(A2$).Q.?.:. J(A2$,X,1).."?" . J(A2$
,X,1)..J(A1$,X,1). GS.0:....D.:.X:....I.
X$.F$(SA%(WS)):Y$.SB$(WS):.X.1.C(X$).HT:
X1$.J(X$,X,HT).@.N.:.Y.1.C(Y$).HT:.X1$.J
(Y$,Y,HT).GS.1:..Q.S.:.Y,X:GS.0:..}.X.GS
.(E(F$(SA%(WS))).E(F$(E(SB$(WS))))):....
4.. SELECT?...>..".DO YOU WISH TO SELECT
CERTAIN RECORDS?"...C.X.HS:X3..1:. 4400
:. X.0. HS.0:....H.. WS.1 . MD:. 2200:.
SL%(WS)..3 . . WS.:.... WS.MD . .".SELEC
TION TOO COMPLEX!!":. 2100.`.... SL%(WS)
..3 . WS.WS.1:X.5:. 2110.....HS.WS:X.0:.
2500:.3:. G$."Y".2100............ (CONT
).H....T$"FIELDS:":. WF.1 . HF:. WF;FT$(
WF):. WF.....:X.1:. 2500:."..ENTER FIELD
NO:":. DISP SEL.#...:X.SA%(WS):X1.1:X2.
HF:. 4800:SA%(WS).X.V....T$".EQUALITY TY
PES:":. X.1 . 9:. X;EQ$(X):. X...E.:X.2:
. 2500:."..ENTER EQUALITY TYPE NO:"...J.
:X.SE%(WS):X1.1:X2.9:. 4800:SE%(WS).X...
O..T$"ARGUMENT CAN BE ANY ALPHA-NUM STRI
NG"...T.:X.3:. 2500:."..ENTER ARGUMENT:"
.#.Y.:X$.SB$(WS):.4500:SB$(WS).(X$).Y...
.T$"LOGICAL CONECTIONS:":. X.1 . 3:. X;L
O$(X):. X.....:X.4:. 2500:."..ENTER CONN
ECTION NO:".....:.WS.RW.SL%(WS).3:.2215.
H...:X.SL%(WS):X1.1:X2.3:.4800:SL%(WS).X
.N.....X.J.. X:....L.."SELECT SYNTEX ERR
OR":....D.. DISPLAY SELECT.,.F.."..YOUR
SELECTION STATEMENT:.I.I.."IF (";:. HS.W
S . HS.WS.W.N.. Y.1 . HS:. Y.WS . . X.1
. ."...";:.2520...S.. FT$(SA%(Y));...X..
Y.WS . . X.2 . ."...";:.2530.F.... " "E
Q$(SE%(Y))" ";...... Y.WS . . X.3 . ."..
.";:.2540...... SB$(Y);...... Y.WS . . X
.4 . ."...";:.2550.-.... LO$(SL%(Y));.9.
... Y:.:..E.... MISC1.I....".KEYS:":.X.0
.HK:."."X.1".. ";.....:. D.1.SF%(X,0):.F
T$(SF%(X,D))":";:.D:.". ":.X.Q...:.".WHI
CH KEY?":X1.1:X2.HK.1:X.WK.1:.4800:WK.X.
1... ..".CHARACTERS PER SELECTION CODE?"
:X1.1:X2.10:X.HT:. 4800:HT.X.G....".DEVI
CE NUMBER? (4=MOST PRINTERS, 3=SCREEN)".
I...:X1.1:X2.255:X.PD:. 4800:PD.X......"
.NO OF CHARACTERS SENT TO PRINTER?":X1.0
:X2.10.N...:X.CH%(0):. 4800:CH%(0).X:. X
.0 . 2765:.---...C.:.Y.1.X:."ASCII VALUE
#"Y"?":X.CH%(Y):X1.0:X2.255...H.: . 480
0:CH%(Y).X:. Y./.M..5700:. CASE.5.R...H.
... PRINT LABELS.H.... HL.0. .".NO FORMA
T":.10:....... HR.0. .".FILE EMPTY":.10:
.... .. 3200:RR.R1:. KBD IMP...&.. 5800:
. POKE CASE...(.. CH%(0). . X.1. CH%(0):
.PR,G(CH%(X));:. X...5.. WA.1. HA: . FOR
EACH LABEL ACROSS.6.:.:. 3300:. INPUT S
ELECTED RECORD.\.?.:. 3500:. ARRANGE FIE
LDS ON LINES.}.D.:. 3700:. DELETE BLANK
LINES...F.. G$:. G$."P" . G1$."SC":. 5..
.G.. G$."S" . SE:....I.. WA:. 3900:. P
RINT A ROW OF LABELS...S.. RR.R2 . ....X
.. 3125...... PRINT ASK./....".
.PRINTING LABELS".^....".DO YOU WI
SH TO REPEAT THE SAME RECORD?".Y...:X.RE
:X3.1:. 4400:RE.X...... RE . ."RECORD#?"
:X.R1:X1.1:X2.HR:.4800:R1.X:.3245.....:.
".FIRST RECORD#?":X.R1:X1.1:X2.HR:.4800:
R1.X.....:.".LAST RECORD#?":X.R2:.4800:R
2.X......3:.G$."Y".3205./... PR:. PR,PD.
Y...."..P.AUSE"R$"..C.ONTINUE"R$"..S.TOP
"._.....X.... GET SELCTED RECORD...... R
E . WR.PO%(RR,WK):. 4200:..B.... RR.R2 .
. X.1 . HF:F$(X)."":. X:......:WR.PO%(R
R,WK):. 4200:RR.RR.1.....:. HS . . 1700:
. GS.0 . 3305.......*.... ARRANGE FIELDS
ON LABELS.[.... WL.1. HL:X$."":.X.1.AF%
(WL,0):X1.AF%(WL,X).....: .X1.0.X$.X$.HL
$(.X1)." ":.3520.....: X$.X$.F$(AF%(WL,X
))." ":. X$." " . X$."".J....X:L$(WA,WL)
.X$:. WL:....T.. DELETE BLANK LINES...Y.
B.1:T.HL...~.. B..T . ..&.... L$(WA,B)..
"" . B.B.1:. 3710:.---.R.... WL.B . T.1:
L$(WA,WL).L$(WA,WL.1):. WL.U...L$(WA,T).
" ":T.T.1:. 3710:.---...<.. PRINT ROW LA
BELS...A.. WL.1 . HL:LL$."":. FOR EACH L
INE...K.:. WA.1 . HA:X.CP%(WA).1.C(LL$):
. WHICH ACROSS,POS...P.: . X.0 . LL$.LL$
.H(SP$,X).!.R.: LL$.LL$.L$(WA,WL).+.U.:.
WA.J.Z.:. ML.153:.PR,DN$LL$R$LF$;.S._..
WL.{.D.. EL . . X.1 . EL:.PR," "R$LF$;:
. X...I.....H.. READ A RECORD.E.M.. R3 .
. 4300:. WF.1 . HF:.RA,F$(WF):. WF:....
R.L.1:.X.1.HF:O#(RA),(WR),(L):.RA,F$(X):
L.L.C(F$(X)).2:.X...W.....L.. POSITION P
OINTER.;.Q.BL..((WR.1).RB..00001).1.R.T.
.KK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VO.
RV:.8:.E.......X.(WR.1).(BL.1).RB:. NO.
RECS BEFOR THIS IN THIS BLOCK.R...BP.1.R
S.X:.KK(RV),"B-P:";RA;BP:....0.. YES?...
5.X$.J("YN",1.((X.X3).0),1):.4500.9.7..
X$.."Y".X$.."N"..".PLEASE ANSWER Y OR
N":.4400.G.:.X$.H(X$,1):X.( X.(. X3) .
(X$."Y").X3 ):.......X$H(LE$,C(X$));:CX.
1:. GARD INP.....M$.J(X$." ",CX,1):."."M
$"..";:.G$:.G$.""..4565.....:A.F(G$):.M$
".";:.(A . 127).32.CX.77.A.34.4520.'...:
.G$;:X$.H(X$,CX.1).G$.J(X$,CX.1):CX.CX.
1:.4505.Q...:.A.157..CX.1.CX.CX.1:.G$;:.
4505:. LF.|...:.A.29.CX..C(X$).CX.CX.1:.
G$;:.4505:RI.....:.A.13.4580:. RET.G...:
.A.20..CX.1..G$;:X$.H(X$,CX.2).J(X$,CX):
CX.CX.1.....:.A.148.C(X$).78..4555...A.:
.A.147.L.C(X$):.4560:CX.1:X$.""...F.:.45
05.A.K.X$.H(X$,CX.1)." ".J(X$,CX):.G$" .
";:.:. IN.J.P..H(LE$,CX.1)H(SP$,L)H(LE$,
L);:.:. CL...U.."."M$"..";:.W.1.50:.G$:.
G$..""..M$".";:....Z.:.W:.M$".";:.W.1.50
:.G$:.G$..""...L...:.W:.4565......H(X$,1
)." ".X$.J(X$,2):.4580.....:.I(X$,1)." "
.X$.H(X$,C(X$).1):.4585. ...:.:..1.... A
SK NUMBER.B.J.X$.J(D(X),2):.4500:X.E(X$)
:.X.0.X$.."0".4812.U.K..X..X1.X..X2.....
L..".ILLEGAL ENTRY - PLEASE ENTER A NUMB
ER".K.O..".IN THE RANGE OF"X1". TO"X2:.4
800.X.$.. TITLES...... OPEN FORM......".
NAME OF FORMAT:":X$.N2$:.4500:N2$.X$.F..
.E.1:L.C(N2$):. L.12 . ."FILE NAME TOO L
ONG":..U.C.. X.1 . L:. J(N2$,1)."*". ."'
*' ILLEGAL":....D.:. X:. L.0 . ....H.. D
T.1 . QV.RV:. 5330.U.J.:E.0:.".DRIVE(.1.
/.0.)?":G1$."01":. 5:QV.E(G$)...M.:. QV.
.RV . .KK(QV),"I".DR$(QV).-.R.. X1$."W".
.KK(QV),"S".DR$(QV).":ML".G(162).N2$.].
... SE,DV(QV),SE,DR$(QV).":ML.".N2$.",S,
".X1$.V...VO.QV:. 8:. E . SE.|.......D
.. CASE?...I.WP.0...S.. MC.0 . AC.0:..Z.
X.:.".CONVERT TO ALL CAPS?":X.AC:X3..1:.
4400:AC.X...L........ POKE CASE.* ... B
7.2,0:. AC..0 . . B7.2,128:. ALL CAPS IN
MIX FORMT._ ...B7.3,0:. WP..0 . MC.0 .
. B7.3,128:. WP NOT-MIX.K ...B7.4,0.. ..
:. PD.PU . CP.0 . MC..0 . . B7.3,128:. B
7.4,160:. ASC MIX.. ..DN$."":. PD.PU . C
P..0 . MC..0 . DN$."."."":. CBM MIX.. A.
...!F.. ORA B7+2,EOR B7+3,CMP#128,IF GE,
EOR B7+4,THEN.1!T.. CHANGE FORMAT.W!Y.."
. .CHANGE FORMAT".S!..."..
F.IELD ARRANGEMENT"..!..."..S.ELECTION".
.!..."..M.ISC"..!..."..^. RETURN TO MAIL
LABELS..!..G1$."FSM^":.5:. V .6200,2100
,2700..!... G$."^" . ...!...6100.."8.. A
SK ARANG.N"=..".HOW MANY PRINTED LINES P
ER LABEL?"R$"(ENTER 0 TO RETURN TO";..
"?.." CHANGE MENU)":X.HL:X1.0:X2.10:.480
0:. X.0...."@.HL.X.P"B..".NO. OF EMPTY L
INES BETWEEN LABELS":X.EL:X1.0:X2.100:.4
800:EL.X.."G.HH.0:. WL.1 . HL..#L..".FIE
LDS:":.WF.1.HF:."."WF"."FT$(WF)" ";:. W
F:..P#Q.:.".HOW MANY FIELDS TO BE PRINTE
D ON LINE"WL".?".}#V.:X.AF%(WL,0):X1.1:X
2.3:.4800:AF%(WL,0).X..#[.:. X.1 . AF%(W
L,0):E.1.Y#`.: .".FIELD# OF"X"."J("STNDR
D",X.2.1,2)" FIELD IN LINE#"WL"?"..$B.:
."(FOR CONSTANT FIELD ENTER ' THEN CHARA
CTERS THEN ' ).:$C.: Y.AF%(WL,X):.Y.0.X$
.J(D(Y),2).X$D.: .Y.0.X$."'".HL$(.Y)."'"
..$E.: .4500:Y.E(X$):.Y.0.Y..HF. AF%(WL,
X).Y:.6265..$J.: .C(X$).2.H(X$,1).."'"..
".ILLEGAL ENTRY":. 6240..$O.: HH.HH.1:A
F%(WL,X)..HH:HL$(HH).J(X$,2,C(X$).2):E.0
..%Y..X,WL:.".ARRANGEMENT:.".2%~.:. WL.1
.HL:.X.1.AF%(WL,0).\%.: X1.AF%(WL,X):.
X1.0 . . FT$(X1)" ";.Z%..: . X1.0 . . HL
$(.X1)" ";..%..:. X:.:. WL.E%...".HOW MA
NY LABELS ACROSS?":X.HA:X1.1:X2.20:.4800
:HA.X..%... WA .1 . HA:.".COLUMN POSITIO
N LABEL NO."WA.5&..:X.CP%(WA):X1.CP%(WA.
1).1:X2.235.HA.WA:.4800:CP%(WA).X:.WA.;&
....F&... SAVE.H&...". .SAVE
FORMAT"..&..X1$."W":. 5300:. E . ...&D.
.SE,HA;R$;HL;R$;EL;R$;X$;R$;X;R$;X;R$;AC
;R$;HS;R$;.U&E..SE,WK;R$;HT;R$;X$;R$;..&
I.:.WA.1 . HA:.SE,CP%(WA);R$;:. WA.;'N.:
.WL.1 . HL:.SE,AF%(WL,1);R$;AF%(WL,2);R$
;AF%(WL,3);R$;:. WL.}'Q.:. X.1. HS:. SE,
SA%(X);R$;SE%(X);R$;SB$(X);R$;SL%(X);R$
;:. X..'R.:. X.0. 10:. SE, CH%(X);R$;:.
X.A'S..SE,X;R$;PD;R$;CS;R$;HH;R$;..'..:.
WL.1.HL:.SE,AF%(WL,0);R$;:.WL..(..:.X.1.
HH:.SE," ";HL$(X);R$;:.X..(.. SE:...(D.
. LOAD.:(I..". .LOAD FORMAT.T(N.X
1$."R":.5300:. E . ..(...SE,HA,HL,EL, X
$,X, X,AC,HS, WK,HT, X$..(..:. WA.1 . HA
:.SE,CP%(WA):. WA.W(..:. WL.1.HL:.SE,AF%
(WL,1),AF%(WL,2),AF%(WL,3):. WL..)..:. X
.1 . HS:. SE,SA%(X),SE%(X), SB$(X), SL%(
X):. X..)..:. X.0 . 10:. SE,CH%(X):. X.B
)...SE,X ,PD,CS,HH.B)..:.WL.1.HL:.SE,AF%
(WL,0):.WL.}) .:.X.1.HH:.SE,HL$(X):.X..)
.. SE:...).#. EXIT..).# PR:X$."FILE ME
NU":. 9200:.9101.H).#. LOAD PROG..).# R
A:. DT.1 . RV.1 . ."..INSERT PROGRAM DIS
K":. 10."*.#.KK(0),"I0":.".(LOADING "X$"
)".U*.#. SE,8,SE,"0:".X$.",P,R":VO.0:. 8
: SE:. E . ..L*.#. LI.253 . . IV,LI.~*.
$. "0:".X$,8:...*T$. OPEN RA..*Y$. DT.1
. RV.1 . ."..INSERT DATA DISK":. 10.R*[$
.KK(RV),"I"DR$(RV)..+^$. SE,DV(RV),SE,DR
$(RV).":DB".G(34.128).NA$.",S,R".&+`$VO.
RV:. 8: SE:. E . 9305.D+C$. RA,DV(RV),R
A,"#":BL.0:....
> CLICK IMAGE PREVIEW FOR FULL MODAL