MAIL LABELS
FILE INFORMATION
FILENAME(S): MAIL LABELS
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 20:14:52
APPEARS ON: 1 disk(s)
FILE HASH
18cfbf85eed2d044b1b2f7dc0409bdba22de2269416bf8b6df295e99ebf45f00
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 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 0A 2A 77 FF 22 20 58 00 12 13 27 FF FF |%(X.*w." X...'..|
00000EF0: 9F FB 7F D9 8F DF 8F FF 7F 9D 8F FA 9F F1 F0 79 |...............y|
00000F00: 8F FF 7F 78 12 08 89 0F 6D FF EF F2 04 14 27 9F |...x....m.....'.|
00000F10: 07 91 FF 80 49 44 58 86 58 F6 80 44 44 0F FF FF |....IDX.X..DD...|
00000F20: 31 FF D2 DF EF EE ED FF FF 45 4C 45 43 54 45 44 |1........ELECTED|
00000F30: 20 52 45 42 70 79 FF FF F6 F9 9A FF 9D FE 9F 89 | REBpy..........|
00000F40: 91 FF 0C 05 8F 68 89 CE 8E 89 CB 9A D9 E8 8A 9B |.....h..........|
00000F50: F9 D9 0F FF FF FD 0D DF FF F4 94 E4 55 2F F1 EF |............U/..|
00000F60: 97 FF F9 DF E9 F8 99 B9 F8 F8 DF A9 FF FF F7 F1 |................|
00000F70: 3B B3 2E 88 A8 90 F6 DF 6B 20 40 70 1F 29 FF 0F |;.......k @p.)..|
00000F80: F2 FF CF F2 0F F8 FF 88 FF F2 FF 8F FF 2F 8F 88 |............./..|
00000F90: FF 88 8F C0 8F F1 90 F3 6F FF 3F FA 40 05 8F 68 |........o.?.@..h|
00000FA0: 0C D8 1C 94 CA D8 03 7F FD 5F D7 FF FF FF FF FF |........._......|
00000FB0: 5F FF FF FF FF FF F3 FF FA A7 FD 2F A2 22 05 74 |_........../.".t|
00000FC0: 13 A8 D2 03 33 98 F8 F8 DF A9 FF FF 9F F7 5F 78 |....3........._x|
00000FD0: FF F9 FF 9F 07 B9 FF 07 18 FF F7 F7 8F F7 F7 9F |................|
00000FE0: 23 A2 1C 3A 82 57 43 3A 8D 20 34 38 30 30 3A 81 |#..:.WC:. 4800:.|
00000FF0: 20 57 4D B2 31 20 A4 20 48 4D 3A 8D 36 38 30 30 | WM.1 . HM:.6800|
00001000: 3A 82 20 57 4D 3A 8E 00 F2 23 DC 1E 8F 20 44 4F |:. WM:...#... DO|
00001010: 54 53 00 28 24 E1 1E 58 31 24 B2 22 22 3A 8B 20 |TS.($..X1$."":. |
00001020: 43 50 25 28 30 29 B1 31 20 A7 20 81 20 58 B2 31 |CP%(0).1 . . X.1|
00001030: 20 A4 20 43 50 25 28 30 29 3A 58 31 24 B2 58 31 | . CP%(0):X1$.X1|
00001040: 24 AA 22 20 22 3A 82 58 00 47 24 E6 1E 81 20 57 |$." ":.X.G$... W|
00001050: 43 B2 46 43 25 28 57 4D 29 20 A4 20 46 43 25 28 |C.FC%(WM) . FC%(|
00001060: 57 4D AA 31 29 AB 31 00 71 24 E7 1E 3A 58 24 B2 |WM.1).1.q$..:X$.|
00001070: 44 4C 24 3A 8B 20 58 33 20 A7 20 8B 28 58 33 AF |DL$:. X3 . .(X3.|
00001080: 46 4C 25 28 57 43 29 29 B2 30 A7 58 24 B2 22 20 |FL%(WC)).0.X$." |
00001090: 22 00 A0 24 E8 1E 3A 81 20 58 B2 31 20 A4 20 43 |"..$..:. X.1 . C|
000010A0: 50 25 28 57 43 29 3A 58 31 24 B2 58 31 24 AA 58 |P%(WC):X1$.X1$.X|
000010B0: 24 3A 82 58 3A 58 31 24 B2 58 31 24 AA 22 20 22 |$:.X:X1$.X1$." "|
000010C0: 00 C1 24 EB 1E 82 20 57 43 3A 98 50 52 2C 58 31 |..$... WC:.PR,X1|
000010D0: 24 52 24 4C 46 24 3B 3A 52 4F B2 52 4F AA 31 3A |$R$LF$;:RO.RO.1:|
000010E0: 8E 00 D4 24 D0 20 8F 20 4F 50 45 4E 20 50 44 20 |...$. . OPEN PD |
000010F0: 46 49 4C 45 00 F1 24 D2 20 8B 20 50 44 B2 31 20 |FILE..$. . PD.1 |
00001100: A7 20 9F 20 50 52 2C 50 44 2C 31 2C 4E 53 24 3A |. . PR,PD,1,NS$:|
00001110: 8E 00 09 25 D5 20 8B 20 50 44 B3 B1 38 20 A7 20 |...%. . PD..8 . |
00001120: 9F 20 50 52 2C 50 44 3A 8E 00 41 25 DA 20 99 22 |. PR,PD:..A%. ."|
00001130: 11 12 49 4E 53 45 52 54 20 53 45 51 55 45 4E 54 |..INSERT SEQUENT|
00001140: 49 41 4C 20 44 49 53 4B 20 49 4E 20 44 52 49 56 |IAL DISK IN DRIV|
00001150: 45 20 30 20 49 46 20 4E 45 43 45 53 53 41 52 59 |E 0 IF NECESSARY|
00001160: 22 00 7B 25 DF 20 99 22 11 53 45 51 20 46 49 4C |".{%. .".SEQ FIL|
00001170: 45 20 44 52 49 56 45 20 4E 4F 3F 28 12 31 92 2F |E DRIVE NO?(.1./|
00001180: 12 30 92 29 22 3A 47 31 24 B2 22 30 31 22 3A 8D |.0.)":G1$."01":.|
00001190: 20 35 3A 51 56 B2 C5 28 47 24 29 00 9E 25 E4 20 | 5:QV..(G$)..%. |
000011A0: 8B 20 51 56 B3 B1 52 56 20 A7 20 98 4B 4B 28 51 |. QV..RV . .KK(Q|
000011B0: 56 29 2C 22 49 22 AA 44 52 24 28 51 56 29 00 BE |V),"I".DR$(QV)..|
000011C0: 25 E9 20 98 4B 4B 28 51 56 29 2C 22 53 22 AA 44 |%. .KK(QV),"S".D|
000011D0: 52 24 28 51 56 29 AA 22 3A 22 AA 4E 53 24 00 FA |R$(QV).":".NS$..|
000011E0: 25 EE 20 9F 20 50 52 2C 44 56 28 51 56 29 2C 53 |%. . PR,DV(QV),S|
000011F0: 45 2C 44 52 24 28 51 56 29 AA 22 3A 22 AA 4E 53 |E,DR$(QV).":".NS|
00001200: 24 AA 22 2C 53 2C 57 22 3A 56 4F B2 51 56 3A 8D |$.",S,W":VO.QV:.|
00001210: 20 38 3A 8B 20 45 20 A7 20 8E 00 09 26 F3 20 8B | 8:. E . ...&. .|
00001220: 20 44 46 B2 30 20 A7 20 8E 00 29 26 F8 20 98 50 | DF.0 . ..)&. .P|
00001230: 52 2C 22 D4 C1 C2 CC C5 22 52 24 22 30 2C 31 22 |R,"....."R$"0,1"|
00001240: 52 24 51 24 51 24 52 24 3B 00 4D 26 FD 20 98 50 |R$Q$Q$R$;.M&. .P|
00001250: 52 2C 22 D6 C5 C3 D4 CF D2 D3 22 52 24 22 30 2C |R,"......."R$"0,|
00001260: 22 48 43 3B 52 24 51 24 51 24 52 24 3B 00 70 26 |"HC;R$Q$Q$R$;.p&|
00001270: 02 21 98 50 52 2C 22 D4 D5 D0 CC C5 D3 22 52 24 |.!.PR,"......"R$|
00001280: 22 30 2C 22 48 52 3B 52 24 51 24 51 24 52 24 3B |"0,"HR;R$Q$Q$R$;|
00001290: 00 8F 26 07 21 98 50 52 2C 22 C4 C1 D4 C1 22 52 |..&.!.PR,"...."R|
000012A0: 24 22 30 2C 30 22 52 24 51 24 51 24 52 24 3B 00 |$"0,0"R$Q$Q$R$;.|
000012B0: A8 26 0C 21 98 50 52 2C 22 2D 31 2C 30 22 52 24 |.&.!.PR,"-1,0"R$|
000012C0: 22 C2 CF D4 22 52 24 3B 00 D0 26 11 21 81 20 58 |"..."R$;..&.!. X|
000012D0: B2 31 20 A4 20 48 43 3A 4C 4C 24 B2 54 31 24 28 |.1 . HC:LL$.T1$(|
000012E0: 58 29 3A 8B 50 44 B1 31 A7 9E 4D 4C AA 31 35 33 |X):.PD.1..ML.153|
000012F0: 00 04 27 16 21 3A 98 50 52 2C 22 20 31 2C 30 22 |..'.!:.PR," 1,0"|
00001300: 52 24 51 24 4C 4C 24 51 24 52 24 3B 3A 82 58 3A |R$Q$LL$Q$R$;:.X:|
00001310: 98 50 52 2C 22 2D 31 2C 30 22 52 24 22 C2 CF D4 |.PR,"-1,0"R$"...|
00001320: 22 52 24 3B 00 2C 27 1B 21 81 20 58 B2 31 20 A4 |"R$;.,'.!. X.1 .|
00001330: 20 48 43 3A 4C 4C 24 B2 54 32 24 28 58 29 3A 8B | HC:LL$.T2$(X):.|
00001340: 50 44 B1 31 A7 9E 4D 4C AA 31 35 33 00 60 27 20 |PD.1..ML.153.`' |
00001350: 21 3A 98 50 52 2C 22 20 31 2C 30 22 52 24 51 24 |!:.PR," 1,0"R$Q$|
00001360: 4C 4C 24 51 24 52 24 3B 3A 82 58 3A 98 50 52 2C |LL$Q$R$;:.X:.PR,|
00001370: 22 2D 31 2C 30 22 52 24 22 C2 CF D4 22 52 24 3B |"-1,0"R$"..."R$;|
00001380: 00 66 27 25 21 8E 00 71 27 8C 23 8F 20 45 58 49 |.f'%!..q'.#. EXI|
00001390: 54 00 8B 27 8D 23 8B 20 50 44 B3 B1 38 20 B0 20 |T..'.#. PD..8 . |
000013A0: 44 54 B2 31 20 A7 20 39 31 31 30 00 C3 27 8E 23 |DT.1 . 9110..'.#|
000013B0: 99 22 07 07 07 07 07 07 07 07 07 11 12 52 45 50 |."...........REP|
000013C0: 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 44 49 53 |LACE PROGRAM DIS|
000013D0: 4B 20 49 46 20 4E 45 43 45 53 53 41 52 59 22 3A |K IF NECESSARY":|
000013E0: 8D 31 30 00 E7 27 96 23 58 24 B2 22 52 45 50 4F |.10..'.#X$."REPO|
000013F0: 52 54 20 57 52 49 54 45 52 22 3A 8D 20 39 32 30 |RT WRITER":. 920|
00001400: 30 3A 89 39 31 30 30 00 F7 27 F0 23 8F 20 4C 4F |0:.9100..'.#. LO|
00001410: 41 44 20 50 52 4F 47 00 2E 28 F1 23 A0 20 52 41 |AD PROG..(.#. RA|
00001420: 3A 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 A7 |:. DT.1 . RV.1 .|
00001430: 20 99 22 11 12 49 4E 53 45 52 54 20 50 52 4F 47 | ."..INSERT PROG|
00001440: 52 41 4D 20 44 49 53 4B 22 3A 8D 20 31 30 00 51 |RAM DISK":. 10.Q|
00001450: 28 F5 23 98 4B 4B 28 30 29 2C 22 49 30 22 3A 99 |(.#.KK(0),"I0":.|
00001460: 22 11 28 4C 4F 41 44 49 4E 47 20 22 58 24 22 29 |".(LOADING "X$")|
00001470: 22 00 84 28 FA 23 9F 20 53 45 2C 38 2C 53 45 2C |"..(.#. SE,8,SE,|
00001480: 22 30 3A 22 AA 58 24 AA 22 2C 50 2C 52 22 3A 56 |"0:".X$.",P,R":V|
00001490: 4F B2 30 3A 8D 20 38 3A A0 20 53 45 3A 8B 20 45 |O.0:. 8:. SE:. E|
000014A0: 20 A7 20 8E 00 9B 28 FF 23 8B 20 4C 49 B3 32 35 | . ...(.#. LI.25|
000014B0: 33 20 A7 20 97 20 49 56 2C 4C 49 00 AD 28 04 24 |3 . . IV,LI..(.$|
000014C0: 93 20 22 30 3A 22 AA 58 24 2C 38 3A 90 00 BB 28 |. "0:".X$,8:...(|
000014D0: 54 24 8F 20 4F 50 45 4E 20 52 41 00 EA 28 59 24 |T$. OPEN RA..(Y$|
000014E0: 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 A7 20 |. DT.1 . RV.1 . |
000014F0: 99 22 11 12 49 4E 53 45 52 54 20 44 41 54 41 20 |."..INSERT DATA |
00001500: 44 49 53 4B 22 3A 8D 20 31 30 00 01 29 5B 24 98 |DISK":. 10..)[$.|
00001510: 4B 4B 28 52 56 29 2C 22 49 22 44 52 24 28 52 56 |KK(RV),"I"DR$(RV|
00001520: 29 00 37 29 5E 24 9F 20 53 45 2C 44 56 28 52 56 |).7)^$. SE,DV(RV|
00001530: 29 2C 53 45 2C 44 52 24 28 52 56 29 AA 22 3A 44 |),SE,DR$(RV).":D|
00001540: 42 22 AA C7 28 33 34 AA 31 32 38 29 AA 4E 41 24 |B"..(34.128).NA$|
00001550: AA 22 2C 53 2C 52 22 00 52 29 60 24 56 4F B2 52 |.",S,R".R)`$VO.R|
00001560: 56 3A 8D 20 38 3A A0 20 53 45 3A 8B 20 45 20 A7 |V:. 8:. SE:. E .|
00001570: 20 8E 00 70 29 63 24 9F 20 52 41 2C 44 56 28 52 | ..p)c$. RA,DV(R|
00001580: 56 29 2C 52 41 2C 22 23 22 3A 42 4C B2 30 3A 8E |V),RA,"#":BL.0:.|
00001590: 00 7F 29 48 26 8F 20 50 52 49 4E 54 20 4D 53 00 |..)H&. PRINT MS.|
000015A0: BB 29 4D 26 99 22 93 12 50 92 41 55 53 45 22 52 |.)M&."..P.AUSE"R|
000015B0: 24 22 11 12 43 92 4F 4E 54 49 4E 55 45 20 50 52 |$"..C.ONTINUE PR|
000015C0: 49 4E 54 49 4E 47 22 52 24 22 11 12 53 92 54 4F |INTING"R$"..S.TO|
000015D0: 50 20 50 52 49 4E 54 49 4E 47 22 00 E1 29 52 26 |P PRINTING"..)R&|
000015E0: 99 22 11 28 50 52 45 53 53 20 4B 45 59 20 4F 4E |.".(PRESS KEY ON|
000015F0: 43 45 2C 20 54 48 45 4E 20 57 41 49 54 29 22 3A |CE, THEN WAIT)":|
00001600: 8E 00 00 00 07 |..... |
.......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.*W." X...'....Y..........Y
..X....M.....'.....IDX.X..DD...1.R.....
.ELECTED REBPY...............H.N..K.Y...
.Y..........U/..................;.......
K @P.)....O........../..........O.?.@..H
.X..JX.._W....._........../.".T..R.3...
......_X................#..:.WC:. 4800:.
WM.1 . HM:.6800:. WM:...#... DOTS.($..X
1$."":. CP%(0).1 . . X.1 . CP%(0):X1$.X1
$." ":.X.G$... WC.FC%(WM) . FC%(WM.1).1.
Q$..:X$.DL$:. X3 . .(X3.FL%(WC)).0.X$."
". $..:. X.1 . CP%(WC):X1$.X1$.X$:.X:X1$
.X1$." ".A$... WC:.PR,X1$R$LF$;:RO.RO.1:
..T$P . OPEN PD FILE..$R . PD.1 . . PR,P
D,1,NS$:...%U . PD..8 . . PR,PD:..A%Z ."
..INSERT SEQUENTIAL DISK IN DRIVE 0 IF N
ECESSARY".{%. .".SEQ FILE DRIVE NO?(.1./
.0.)":G1$."01":. 5:QV.E(G$)..%. . QV..RV
. .KK(QV),"I".DR$(QV)..%. .KK(QV),"S".D
R$(QV).":".NS$..%. . PR,DV(QV),SE,DR$(QV
).":".NS$.",S,W":VO.QV:. 8:. E . ...&. .
DF.0 . ..)&. .PR,"TABLE"R$"0,1"R$Q$Q$R$
;.M&. .PR,"VECTORS"R$"0,"HC;R$Q$Q$R$;.P&
.!.PR,"TUPLES"R$"0,"HR;R$Q$Q$R$;..&.!.PR
,"DATA"R$"0,0"R$Q$Q$R$;..&.!.PR,"-1,0"R$
"BOT"R$;.P&.!. X.1 . HC:LL$.T1$(X):.PD.1
..ML.153..'.!:.PR," 1,0"R$Q$LL$Q$R$;:.X:
.PR,"-1,0"R$"BOT"R$;.,'.!. X.1 . HC:LL$.
T2$(X):.PD.1..ML.153.`' !:.PR," 1,0"R$Q$
LL$Q$R$;:.X:.PR,"-1,0"R$"BOT"R$;.F'%!..Q
'.#. EXIT..'.#. PD..8 . DT.1 . 9110.C'.#
."...........REPLACE PROGRAM DISK IF NEC
ESSARY":.10..'.#X$."REPORT WRITER":. 920
0:.9100..'.#. LOAD PROG..(.# RA:. DT.1
. RV.1 . ."..INSERT PROGRAM DISK":. 10.Q
(.#.KK(0),"I0":.".(LOADING "X$")"..(.#.
SE,8,SE,"0:".X$.",P,R":VO.0:. 8: SE:. E
. ...(.#. LI.253 . . IV,LI..(.$. "0:".X
$,8:...(T$. OPEN RA..(Y$. DT.1 . RV.1 .
."..INSERT DATA DISK":. 10..)[$.KK(RV),"
I"DR$(RV).7)^$. SE,DV(RV),SE,DR$(RV).":D
B".G(34.128).NA$.",S,R".R)`$VO.RV:. 8:
SE:. E . ..P)C$. RA,DV(RV),RA,"#":BL.0:.
.)H&. PRINT MS..)M&."..P.AUSE"R$"..C.ON
TINUE PRINTING"R$"..S.TOP PRINTING"..)R&
.".(PRESS KEY ONCE, THEN WAIT)":.....
> CLICK IMAGE PREVIEW FOR FULL MODAL