MAIL LABELS
FILE INFORMATION
FILENAME(S): MAIL LABELS
FILE TYPE(S): PRG
FILE SIZE: 5.9K
FIRST SEEN: 2025-12-01 02:21:50
APPEARS ON: 1 disk(s)
FILE HASH
324b415bb906fd2c8cac24045b81c758b0ba34ed72b29a314a838f6da40e2708
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE B STA | MAIL LABELS | PRG | hedning, scooby | 3 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 00 00 8F 20 4D 41 49 4C 20 4C 41 42 |.. .... MAIL LAB|
00000010: 45 4C 53 20 36 34 20 20 20 31 32 2F 35 2F 38 33 |ELS 64 12/5/83|
00000020: 00 2A 08 01 00 89 31 31 30 30 00 5C 08 02 00 9F |.*....1100.\....|
00000030: 31 2C 38 2C 31 35 2C 22 53 30 3A 4D 41 49 4C 20 |1,8,15,"S0:MAIL |
00000040: 4C 41 42 45 4C 53 22 3A 94 22 30 3A 4D 41 49 4C |LABELS":."0:MAIL|
00000050: 20 4C 41 42 45 4C 53 22 2C 38 3A 80 00 86 08 05 | LABELS",8:.....|
00000060: 00 A1 47 24 3A 81 56 B2 31 A4 C3 28 47 31 24 29 |..G$:.V.1..(G1$)|
00000070: 3A 8B 47 24 B3 B1 CA 28 47 31 24 2C 56 2C 31 29 |:.G$...(G1$,V,1)|
00000080: A7 82 56 3A 89 35 00 96 08 06 00 8B 47 24 B3 B1 |..V:.5......G$..|
00000090: 22 49 22 A7 20 8E 00 B3 08 07 00 47 31 24 B2 22 |"I". ......G1$."|
000000A0: 30 31 22 3A 8D 35 3A 98 43 43 2C 22 49 22 AA 47 |01":.5:.CC,"I".G|
000000B0: 24 3A 8E 00 CB 08 08 00 84 43 43 2C 45 2C 45 24 |$:.......CC,E,E$|
000000C0: 2C 53 2C 54 3A 8B 45 B3 32 A7 8E 00 F9 08 09 00 |,S,T:.E.2.......|
000000D0: 99 45 3B 45 24 3B 53 3B 54 3B 52 24 22 43 4F 4E |.E;E$;S;T;R$"CON|
000000E0: 54 49 4E 55 45 3F 28 59 2F 4E 29 22 3A 47 31 24 |TINUE?(Y/N)":G1$|
000000F0: B2 22 59 22 3A 8D 35 3A 8E 00 07 09 0B 00 8F 20 |."Y":.5:....... |
00000100: 20 2A 20 4D 41 49 4E 00 17 09 0D 00 8F 20 20 2A | * MAIN...... *|
00000110: 20 53 45 54 20 55 50 00 2E 09 15 00 8F 20 20 2A | SET UP...... *|
00000120: 20 43 48 41 4E 47 45 20 46 4F 52 4D 41 54 00 43 | CHANGE FORMAT.C|
00000130: 09 17 00 8F 20 20 2A 20 53 41 56 45 20 46 4F 52 |.... * SAVE FOR|
00000140: 4D 41 54 00 58 09 19 00 8F 20 20 2A 20 4C 4F 41 |MAT.X.... * LOA|
00000150: 44 20 46 4F 52 4D 41 54 00 6E 09 1F 00 8F 20 20 |D FORMAT.n.... |
00000160: 2A 20 50 52 49 4E 54 20 4C 41 42 45 4C 53 00 86 |* PRINT LABELS..|
00000170: 09 20 00 8F 20 20 2A 20 4B 45 59 42 4F 41 52 44 |. .. * KEYBOARD|
00000180: 20 49 4E 50 55 54 00 A5 09 21 00 8F 20 20 2A 20 | INPUT...!.. * |
00000190: 49 4E 50 55 54 20 53 45 4C 45 43 54 45 44 20 52 |INPUT SELECTED R|
000001A0: 45 43 4F 52 44 00 BD 09 22 00 8F 20 20 2A 20 54 |ECORD...".. * T|
000001B0: 59 50 45 20 4F 46 20 52 45 43 4F 52 44 00 DF 09 |YPE OF RECORD...|
000001C0: 23 00 8F 20 20 2A 20 41 52 52 41 4E 47 45 20 46 |#.. * ARRANGE F|
000001D0: 49 45 4C 44 53 20 4F 4E 20 4C 41 42 45 4C 53 00 |IELDS ON LABELS.|
000001E0: FB 09 25 00 8F 20 20 2A 20 44 45 4C 45 54 45 20 |..%.. * DELETE |
000001F0: 42 4C 41 4E 4B 20 4C 49 4E 45 53 00 18 0A 27 00 |BLANK LINES...'.|
00000200: 8F 20 20 2A 20 50 52 49 4E 54 20 52 4F 57 20 4F |. * PRINT ROW O|
00000210: 46 20 4C 41 42 45 4C 53 00 26 0A 29 00 8F 20 20 |F LABELS.&.).. |
00000220: 2A 20 45 58 49 54 00 3D 0A 2A 00 8F 20 20 2A 20 |* EXIT.=.*.. * |
00000230: 52 45 41 44 20 41 20 52 45 43 4F 52 44 00 5E 0A |READ A RECORD.^.|
00000240: 2B 00 8F 20 20 2A 20 50 4F 53 49 54 49 4F 4E 20 |+.. * POSITION |
00000250: 46 4F 52 20 52 45 41 44 2F 57 52 49 54 45 00 6D |FOR READ/WRITE.m|
00000260: 0A 4C 04 8F 20 2A 20 4D 41 49 4E 20 2A 00 7C 0A |.L.. * MAIN *.|.|
00000270: 4D 04 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 00 90 0A 51 |M.. ========...Q|
00000280: 04 8D 20 31 33 30 30 3A 8F 20 53 45 54 20 55 50 |.. 1300:. SET UP|
00000290: 00 C1 0A 56 04 99 22 93 20 20 20 20 11 11 11 12 |...V..". ....|
000002A0: 20 20 20 20 20 20 20 20 4D 41 49 4C 49 4E 47 20 | MAILING |
000002B0: 4C 41 42 45 4C 53 20 20 20 20 20 20 20 20 20 20 |LABELS |
000002C0: 22 00 DC 0A 65 04 99 22 20 20 20 20 20 12 11 11 |"...e.." ...|
000002D0: 4C 92 4F 41 44 20 46 4F 52 4D 41 54 00 09 0B 67 |L.OAD FORMAT...g|
000002E0: 04 99 22 20 20 20 20 20 11 12 43 92 48 41 4E 47 |.." ..C.HANG|
000002F0: 45 2C 20 43 52 45 41 54 45 2C 20 49 4E 53 50 45 |E, CREATE, INSPE|
00000300: 43 54 20 46 4F 52 4D 41 54 00 24 0B 68 04 99 22 |CT FORMAT.$.h.."|
00000310: 20 20 20 20 20 12 11 53 92 41 56 45 20 46 4F 52 | ..S.AVE FOR|
00000320: 4D 41 54 22 00 3F 0B 6A 04 99 22 20 20 20 20 20 |MAT".?.j.." |
00000330: 12 11 50 92 52 49 4E 54 20 4C 41 42 45 4C 53 00 |..P.RINT LABELS.|
00000340: 63 0B 6C 04 99 22 20 20 20 20 20 11 11 12 52 92 |c.l.." ...R.|
00000350: 45 54 55 52 4E 20 54 4F 20 44 41 54 41 20 42 41 |ETURN TO DATA BA|
00000360: 53 45 22 00 92 0B 6D 04 99 22 20 20 20 20 12 11 |SE"...m.." ..|
00000370: 11 20 50 52 45 53 53 20 49 4E 49 54 49 41 4C 20 |. PRESS INITIAL |
00000380: 4C 45 54 54 45 52 20 54 4F 20 53 45 4C 45 43 54 |LETTER TO SELECT|
00000390: 20 22 00 C3 0B 6F 04 3A 47 31 24 B2 22 43 50 53 | "...o.:G1$."CPS|
000003A0: 4C 52 22 3A 8D 35 3A 91 56 20 8D 32 31 30 30 2C |LR":.5:.V .2100,|
000003B0: 33 31 30 30 2C 32 33 30 30 2C 32 35 30 30 2C 34 |3100,2300,2500,4|
000003C0: 31 30 30 00 DC 0B 74 04 81 58 B2 31 A4 31 30 3A |100...t..X.1.10:|
000003D0: A1 47 24 3A 82 58 3A 89 31 31 31 30 00 ED 0B 14 |.G$:.X:.1110....|
000003E0: 05 8F 20 2A 20 53 45 54 20 55 50 20 2A 00 FE 0B |.. * SET UP *...|
000003F0: 15 05 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 44 |... ==========.D|
00000400: 0C 19 05 52 24 B2 C7 28 31 33 29 3A 51 24 B2 C7 |...R$..(13):Q$..|
00000410: 28 33 34 29 3A 53 50 24 B2 22 20 20 20 20 20 20 |(34):SP$." |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 20 20 20 20 20 20 22 3A 53 50 24 B2 53 50 24 | ":SP$.SP$|
00000440: AA 53 50 24 00 71 0C 1B 05 44 24 B2 52 24 AA 22 |.SP$.q...D$.R$."|
00000450: 91 1D 22 AA C7 28 32 30 29 3A 8F 20 2A 20 52 45 |.."..(20):. * RE|
00000460: 54 55 52 4E 2F 43 55 2F 43 52 2F 44 45 4C 45 54 |TURN/CU/CR/DELET|
00000470: 45 00 8A 0C 1E 05 8B 20 4B 45 B2 30 20 A7 20 4B |E...... KE.0 . K|
00000480: 45 B2 31 3A 9F 20 4B 45 2C 30 00 9C 0C 1F 05 8B |E.1:. KE,0......|
00000490: 20 53 45 B2 30 20 A7 20 53 45 B2 32 00 B9 0C 21 | SE.0 . SE.2...!|
000004A0: 05 8B 20 43 43 B2 30 20 A7 20 43 43 B2 31 35 3A |.. CC.0 . CC.15:|
000004B0: 9F 20 43 43 2C 38 2C 31 35 00 E7 0C 23 05 8B 20 |. CC,8,15...#.. |
000004C0: 41 46 B2 30 20 A7 20 41 46 B2 31 3A 86 20 41 46 |AF.0 . AF.1:. AF|
000004D0: 25 28 33 30 2C 33 29 3A 8F 20 41 52 52 41 4E 47 |%(30,3):. ARRANG|
000004E0: 20 46 49 45 4C 44 53 00 0C 0D 28 05 4E 32 24 B2 | FIELDS...(.N2$.|
000004F0: 4E 41 24 3A 46 37 B2 30 3A 50 52 B2 34 3A 8F 20 |NA$:F7.0:PR.4:. |
00000500: 50 52 49 4E 54 45 52 20 46 49 4C 45 00 12 0D 77 |PRINTER FILE...w|
00000510: 05 8E 00 2B 0D 34 08 8F 20 20 2A 20 43 48 41 4E |...+.4.. * CHAN|
00000520: 47 45 20 46 4F 52 4D 41 54 20 2A 00 44 0D 35 08 |GE FORMAT *.D.5.|
00000530: 8F 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. =============|
00000540: 3D 3D 3D 3D 00 61 0D 37 08 99 22 93 11 11 20 20 |====.a.7.."... |
00000550: 12 20 43 48 41 4E 47 45 20 46 4F 52 4D 41 54 20 |. CHANGE FORMAT |
00000560: 22 00 91 0D 39 08 99 22 11 48 4F 57 20 4D 41 4E |"...9..".HOW MAN|
00000570: 59 20 4C 41 42 45 4C 53 20 41 43 52 4F 53 53 3F |Y LABELS ACROSS?|
00000580: 22 3A 8B 20 48 41 20 A7 20 99 20 48 41 3B 44 24 |":. HA . . HA;D$|
00000590: 3B 00 AF 0D 3E 08 84 4B 45 2C 48 41 3A 99 3A 8B |;...>..KE,HA:.:.|
000005A0: 48 41 B3 31 B0 48 41 B1 31 30 A7 32 31 30 35 00 |HA.1.HA.10.2105.|
000005B0: C0 0D 43 08 81 20 57 41 20 B2 31 20 A4 20 48 41 |..C.. WA .1 . HA|
000005C0: 00 FB 0D 48 08 99 22 11 43 4F 4C 55 4D 4E 20 50 |...H..".COLUMN P|
000005D0: 4F 53 49 54 49 4F 4E 20 4F 46 20 4C 41 42 45 4C |OSITION OF LABEL|
000005E0: 22 57 41 3A 8B 20 43 4F 28 57 41 29 20 A7 20 99 |"WA:. CO(WA) . .|
000005F0: 20 43 4F 28 57 41 29 3B 44 24 3B 00 37 0E 4D 08 | CO(WA);D$;.7.M.|
00000600: 84 4B 45 2C 58 24 3A 43 4F 28 57 41 29 B2 C5 28 |.KE,X$:CO(WA)..(|
00000610: 58 24 29 3A 99 3A 8B 43 4F 28 57 41 29 B1 32 30 |X$):.:.CO(WA).20|
00000620: 30 B0 43 4F 28 57 41 29 B3 B2 43 4F 28 57 41 AB |0.CO(WA)..CO(WA.|
00000630: 31 29 A7 32 31 32 30 00 3F 0E 52 08 82 57 41 00 |1).2120.?.R..WA.|
00000640: 79 0E 5C 08 99 22 11 48 4F 57 20 4D 41 4E 59 20 |y.\..".HOW MANY |
00000650: 50 52 49 4E 54 45 44 20 4C 49 4E 45 53 20 50 45 |PRINTED LINES PE|
00000660: 52 20 4C 41 42 45 4C 3F 22 3A 8B 20 48 4C 20 A7 |R LABEL?":. HL .|
00000670: 20 99 20 48 4C 3B 44 24 3B 00 A0 0E 61 08 84 4B | . HL;D$;...a..K|
00000680: 45 2C 58 24 3A 48 4C B2 C5 28 58 24 29 3A 99 3A |E,X$:HL..(X$):.:|
00000690: 8B 48 4C B3 30 B0 48 4C B1 31 30 A7 32 31 34 30 |.HL.0.HL.10.2140|
000006A0: 00 C8 0E 66 08 4E 24 28 31 29 B2 22 31 53 54 22 |...f.N$(1)."1ST"|
000006B0: 3A 4E 24 28 32 29 B2 22 32 4E 44 22 3A 4E 24 28 |:N$(2)."2ND":N$(|
000006C0: 33 29 B2 22 33 52 44 22 00 F2 0E 68 08 99 22 11 |3)."3RD"...h..".|
000006D0: 46 49 45 4C 44 53 3A 22 3A 81 57 46 B2 31 A4 48 |FIELDS:":.WF.1.H|
000006E0: 46 3A 99 57 46 3B 46 54 24 28 57 46 29 3A 82 20 |F:.WF;FT$(WF):. |
000006F0: 57 46 00 02 0F 6B 08 81 20 57 4C B2 31 20 A4 20 |WF...k.. WL.1 . |
00000700: 48 4C 00 2C 0F 70 08 99 22 11 46 49 45 4C 44 53 |HL.,.p..".FIELDS|
00000710: 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 20 4F | TO BE PRINTED O|
00000720: 4E 20 4C 49 4E 45 22 57 4C 22 3A 22 00 58 0F 75 |N LINE"WL":".X.u|
00000730: 08 99 20 41 46 25 28 57 4C 2C 31 29 22 2C 22 41 |.. AF%(WL,1)","A|
00000740: 46 25 28 57 4C 2C 32 29 22 2C 22 41 46 25 28 57 |F%(WL,2)","AF%(W|
00000750: 4C 2C 33 29 3B 44 24 3B 00 74 0F 76 08 84 4B 45 |L,3);D$;.t.v..KE|
00000760: 2C 58 24 28 31 29 2C 58 24 28 32 29 2C 58 24 28 |,X$(1),X$(2),X$(|
00000770: 33 29 3A 99 00 99 0F 77 08 81 58 B2 31 A4 33 3A |3):....w..X.1.3:|
00000780: 59 B2 C5 28 58 24 28 58 29 29 3A 8B 59 B3 30 B0 |Y..(X$(X)):.Y.0.|
00000790: 59 B1 48 46 A7 32 31 36 30 00 AC 0F 7A 08 41 46 |Y.HF.2160...z.AF|
000007A0: 25 28 57 4C 2C 58 29 B2 59 3A 82 58 00 B5 0F 7F |%(WL,X).Y:.X....|
000007B0: 08 82 20 57 4C 00 CB 0F 84 08 99 22 11 41 52 52 |.. WL......".ARR|
000007C0: 41 4E 47 45 4D 45 4E 54 3A 11 22 00 FD 0F 85 08 |ANGEMENT:.".....|
000007D0: 81 20 57 4C B2 31 A4 48 4C 3A 81 58 B2 31 A4 33 |. WL.1.HL:.X.1.3|
000007E0: 3A 99 46 54 24 28 41 46 25 28 57 4C 2C 58 29 29 |:.FT$(AF%(WL,X))|
000007F0: 22 20 22 3B 3A 82 58 3A 99 3A 82 57 4C 00 3A 10 |" ";:.X:.:.WL.:.|
00000800: 93 08 99 22 11 4E 55 4D 42 45 52 20 4F 46 20 45 |...".NUMBER OF E|
00000810: 4D 50 54 59 20 4C 49 4E 45 53 20 42 45 54 57 45 |MPTY LINES BETWE|
00000820: 45 4E 20 4C 41 42 45 4C 53 22 3A 8B 20 45 4C 20 |EN LABELS":. EL |
00000830: A7 20 99 20 45 4C 3B 44 24 3B 00 51 10 94 08 84 |. . EL;D$;.Q....|
00000840: 20 4B 45 2C 58 24 3A 45 4C B2 C5 28 58 24 29 3A | KE,X$:EL..(X$):|
00000850: 99 00 57 10 97 08 8E 00 6D 10 FC 08 8F 20 2A 20 |..W.....m.... * |
00000860: 53 41 56 45 20 46 4F 52 4D 41 54 20 2A 00 83 10 |SAVE FORMAT *...|
00000870: FD 08 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
00000880: 3D 3D 3D 00 A0 10 FF 08 99 22 93 11 11 20 20 12 |===......"... .|
00000890: 20 53 41 56 49 4E 47 20 46 4F 52 4D 41 54 20 22 | SAVING FORMAT "|
000008A0: 00 BD 10 01 09 99 22 11 4E 41 4D 45 20 4F 46 20 |......".NAME OF |
000008B0: 46 4F 52 4D 41 54 20 46 49 4C 45 3F 22 00 E7 10 |FORMAT FILE?"...|
000008C0: 06 09 99 4E 32 24 22 91 22 3A 84 4B 45 2C 4E 32 |...N2$".":.KE,N2|
000008D0: 24 3A 99 3A 8B 20 C9 28 4E 32 24 2C 31 29 B2 22 |$:.:. .(N2$,1)."|
000008E0: 2A 22 A7 32 33 30 35 00 10 11 0B 09 99 22 11 20 |*".2305......". |
000008F0: 20 50 55 54 20 46 49 4C 45 20 4F 4E 20 44 52 49 | PUT FILE ON DRI|
00000900: 56 45 20 12 31 92 20 4F 52 20 12 30 92 20 3F 22 |VE .1. OR .0. ?"|
00000910: 00 41 11 10 09 99 22 11 20 28 50 52 45 53 53 20 |.A....". (PRESS |
00000920: 12 49 92 20 42 45 46 4F 52 45 20 4E 55 4D 42 45 |.I. BEFORE NUMBE|
00000930: 52 20 54 4F 20 49 4E 49 54 49 41 4C 49 53 45 29 |R TO INITIALISE)|
00000940: 22 00 53 11 15 09 47 31 24 B2 22 30 31 49 22 3A |".S...G1$."01I":|
00000950: 8D 20 35 00 6D 11 33 09 98 43 43 2C 22 53 22 AA |. 5.m.3..CC,"S".|
00000960: 47 24 AA 22 3A 4D 4C A2 22 AA 4E 32 24 00 9E 11 |G$.":ML.".N2$...|
00000970: 38 09 9F 20 53 45 2C 38 2C 53 45 2C 47 24 AA 22 |8.. SE,8,SE,G$."|
00000980: 3A 4D 4C A2 22 AA 4E 32 24 AA 22 2C 53 2C 57 22 |:ML.".N2$.",S,W"|
00000990: 3A 8D 20 38 3A 8B 20 45 B1 31 20 A7 20 8E 00 C0 |:. 8:. E.1 . ...|
000009A0: 11 3D 09 98 53 45 2C 48 41 3B 52 24 3B 48 4C 3B |.=..SE,HA;R$;HL;|
000009B0: 52 24 3B 45 4C 3B 52 24 3B 54 59 24 3B 52 24 3B |R$;EL;R$;TY$;R$;|
000009C0: 00 E3 11 42 09 81 57 41 B2 31 20 A4 20 48 41 3A |...B..WA.1 . HA:|
000009D0: 98 53 45 2C 43 4F 28 57 41 29 3B 52 24 3B 3A 82 |.SE,CO(WA);R$;:.|
000009E0: 20 57 41 00 23 12 47 09 81 57 4C B2 31 20 A4 20 | WA.#.G..WL.1 . |
000009F0: 48 4C 3A 98 53 45 2C 41 46 25 28 57 4C 2C 31 29 |HL:.SE,AF%(WL,1)|
00000A00: 3B 52 24 3B 41 46 25 28 57 4C 2C 32 29 3B 52 24 |;R$;AF%(WL,2);R$|
00000A10: 3B 41 46 25 28 57 4C 2C 33 29 3B 52 24 3B 3A 82 |;AF%(WL,3);R$;:.|
00000A20: 20 57 4C 00 2E 12 4C 09 A0 20 53 45 3A 8E 00 44 | WL...L.. SE:..D|
00000A30: 12 C4 09 8F 20 2A 20 4C 4F 41 44 20 46 4F 52 4D |.... * LOAD FORM|
00000A40: 41 54 20 2A 00 5A 12 C5 09 8F 20 3D 3D 3D 3D 3D |AT *.Z.... =====|
00000A50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 78 12 C7 09 99 |==========.x....|
00000A60: 22 93 11 11 20 20 12 20 4C 4F 41 44 49 4E 47 20 |"... . LOADING |
00000A70: 46 4F 52 4D 41 54 20 22 00 95 12 C9 09 99 22 11 |FORMAT "......".|
00000A80: 4E 41 4D 45 20 4F 46 20 46 4F 52 4D 41 54 20 46 |NAME OF FORMAT F|
00000A90: 49 4C 45 3F 22 00 AB 12 CE 09 99 4E 32 24 22 91 |ILE?"......N2$".|
00000AA0: 22 3A 84 4B 45 2C 4E 32 24 3A 99 00 CE 12 CF 09 |":.KE,N2$:......|
00000AB0: 99 22 11 46 49 4C 45 20 4F 4E 20 44 52 49 56 45 |.".FILE ON DRIVE|
00000AC0: 20 12 31 92 20 4F 52 20 12 30 92 20 3F 22 00 FE | .1. OR .0. ?"..|
00000AD0: 12 D0 09 99 22 11 28 50 52 45 53 53 20 12 49 92 |....".(PRESS .I.|
00000AE0: 20 42 45 46 4F 52 45 20 4E 55 4D 42 45 52 20 54 | BEFORE NUMBER T|
00000AF0: 4F 20 49 4E 49 54 49 41 4C 49 53 45 29 22 00 10 |O INITIALISE)"..|
00000B00: 13 D1 09 47 31 24 B2 22 30 31 49 22 3A 8D 20 35 |...G1$."01I":. 5|
00000B10: 00 47 13 D3 09 9F 20 53 45 2C 38 2C 53 45 2C 47 |.G.... SE,8,SE,G|
00000B20: 24 AA 22 3A 22 AA 22 4D 4C A2 22 AA 4E 32 24 AA |$.":"."ML.".N2$.|
00000B30: 22 2C 53 2C 52 22 3A 8D 20 38 3A 8B 45 B1 31 A7 |",S,R":. 8:.E.1.|
00000B40: 20 A0 20 53 45 3A 8E 00 78 13 D8 09 84 53 45 2C | . SE:..x....SE,|
00000B50: 48 41 2C 48 4C 2C 45 4C 2C 54 59 24 3A 81 20 57 |HA,HL,EL,TY$:. W|
00000B60: 41 B2 31 20 A4 20 48 41 3A 84 53 45 2C 43 4F 28 |A.1 . HA:.SE,CO(|
00000B70: 57 41 29 3A 82 20 57 41 00 AD 13 DD 09 81 20 57 |WA):. WA...... W|
00000B80: 4C B2 31 A4 48 4C 3A 84 53 45 2C 41 46 25 28 57 |L.1.HL:.SE,AF%(W|
00000B90: 4C 2C 31 29 2C 41 46 25 28 57 4C 2C 32 29 2C 41 |L,1),AF%(WL,2),A|
00000BA0: 46 25 28 57 4C 2C 33 29 3A 82 20 57 4C 00 B8 13 |F%(WL,3):. WL...|
00000BB0: E2 09 A0 20 53 45 3A 8E 00 CF 13 1C 0C 8F 20 2A |... SE:....... *|
00000BC0: 20 50 52 49 4E 54 20 4C 41 42 45 4C 53 20 2A 00 | PRINT LABELS *.|
00000BD0: E6 13 1D 0C 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..... ==========|
00000BE0: 3D 3D 3D 3D 3D 3D 00 01 14 26 0C 8D 33 32 30 30 |======...&..3200|
00000BF0: 3A 8F 20 4B 45 59 42 4F 41 52 44 20 49 4E 50 55 |:. KEYBOARD INPU|
00000C00: 54 00 11 14 30 0C 8B 20 41 4C 20 A7 20 52 52 B2 |T...0.. AL . RR.|
00000C10: 30 00 24 14 32 0C 8B 20 46 37 20 A7 20 52 52 B2 |0.$.2.. F7 . RR.|
00000C20: 46 37 AB 31 00 4C 14 35 0C 81 20 57 41 B2 31 A4 |F7.1.L.5.. WA.1.|
00000C30: 20 48 41 3A 20 8F 20 46 4F 52 20 45 41 43 48 20 | HA: . FOR EACH |
00000C40: 4C 41 42 45 4C 20 41 43 52 4F 53 53 00 6F 14 3A |LABEL ACROSS.o.:|
00000C50: 0C 8D 20 33 33 30 30 3A 8F 20 49 4E 50 55 54 20 |.. 3300:. INPUT |
00000C60: 53 45 4C 45 43 54 45 44 20 52 45 43 4F 52 44 00 |SELECTED RECORD.|
00000C70: 94 14 3F 0C 8D 20 33 35 30 30 3A 8F 20 41 52 52 |..?.. 3500:. ARR|
00000C80: 41 4E 47 45 20 46 49 45 4C 44 53 20 4F 4E 20 4C |ANGE FIELDS ON L|
00000C90: 49 4E 45 53 00 B4 14 44 0C 8D 20 33 37 30 30 3A |INES...D.. 3700:|
00000CA0: 8F 20 44 45 4C 45 54 45 20 42 4C 41 4E 4B 20 4C |. DELETE BLANK L|
00000CB0: 49 4E 45 53 00 D5 14 46 0C A1 20 47 24 3A 8B 20 |INES...F.. G$:. |
00000CC0: 47 24 B2 22 50 22 20 A7 20 47 31 24 B2 22 53 43 |G$."P" . G1$."SC|
00000CD0: 22 3A 8D 20 35 00 EB 14 47 0C 8B 20 47 24 B2 22 |":. 5...G.. G$."|
00000CE0: 53 22 20 A7 20 A0 20 53 45 3A 8E 00 13 15 49 0C |S" . . SE:....I.|
00000CF0: 82 20 57 41 3A 8D 20 33 39 30 30 3A 8F 20 50 52 |. WA:. 3900:. PR|
00000D00: 49 4E 54 20 41 20 52 4F 57 20 4F 46 20 4C 41 42 |INT A ROW OF LAB|
00000D10: 45 4C 53 00 2D 15 53 0C 8B 20 52 52 B3 48 52 20 |ELS.-.S.. RR.HR |
00000D20: B0 20 41 4C B2 30 20 A7 20 33 31 32 35 00 33 15 |. AL.0 . 3125.3.|
00000D30: 58 0C 8E 00 4C 15 80 0C 8F 20 2A 20 4B 45 59 42 |X...L.... * KEYB|
00000D40: 4F 41 52 44 20 49 4E 50 55 54 20 2A 00 65 15 81 |OARD INPUT *.e..|
00000D50: 0C 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============|
00000D60: 3D 3D 3D 3D 3D 00 84 15 85 0C 99 22 93 11 11 20 |=====......"... |
00000D70: 20 12 20 50 52 49 4E 54 49 4E 47 20 4C 41 42 45 | . PRINTING LABE|
00000D80: 4C 53 20 22 00 A0 15 94 0C 8D 20 33 34 30 30 3A |LS "...... 3400:|
00000D90: 8F 20 54 59 50 45 20 4F 46 20 52 45 43 4F 52 44 |. TYPE OF RECORD|
00000DA0: 00 C3 15 99 0C 99 22 11 50 52 49 4E 54 45 52 20 |......".PRINTER |
00000DB0: 44 45 56 49 43 45 20 4E 4F 3F 22 52 24 50 44 3B |DEVICE NO?"R$PD;|
00000DC0: 44 24 3B 00 E1 15 9A 0C 84 4B 45 2C 58 24 3A 99 |D$;......KE,X$:.|
00000DD0: 3A 50 44 B2 C5 28 58 24 29 3A 8B 50 44 B2 30 A7 |:PD..(X$):.PD.0.|
00000DE0: 80 00 F1 15 9B 0C 8B 50 44 B3 B1 32 A7 33 32 33 |.......PD..2.323|
00000DF0: 32 00 05 16 9C 0C 8B 52 4F A7 50 52 B2 31 33 3A |2......RO.PR.13:|
00000E00: 89 33 32 33 32 00 2A 16 9D 0C 99 22 93 11 11 11 |.3232.*...."....|
00000E10: 20 20 12 20 52 53 2D 32 33 32 20 4E 4F 54 20 53 | . RS-232 NOT S|
00000E20: 45 4C 45 43 54 45 44 21 20 22 00 57 16 9E 0C 99 |ELECTED! ".W....|
00000E30: 22 11 28 43 41 4E 20 42 45 20 53 45 54 20 55 50 |".(CAN BE SET UP|
00000E40: 20 4F 4E 4C 59 20 4F 4E 20 46 49 52 53 54 20 52 | ONLY ON FIRST R|
00000E50: 55 4E 4E 49 4E 47 22 00 8C 16 9F 0C 99 22 20 50 |UNNING"......" P|
00000E60: 52 4F 47 52 41 4D 2E 20 45 4E 54 45 52 20 5A 45 |ROGRAM. ENTER ZE|
00000E70: 52 4F 20 54 4F 20 45 58 49 54 20 26 20 52 45 2D |RO TO EXIT & RE-|
00000E80: 52 55 4E 29 11 22 3A 89 33 32 32 35 00 A4 16 A0 |RUN).":.3225....|
00000E90: 0C 8B 50 52 B3 B1 31 33 A7 A0 50 52 3A 9F 20 50 |..PR..13..PR:. P|
00000EA0: 52 2C 50 44 00 D2 16 A2 0C 99 22 11 43 4F 4E 54 |R,PD......".CONT|
00000EB0: 52 4F 4C 20 43 48 41 52 41 43 54 45 52 20 54 4F |ROL CHARACTER TO|
00000EC0: 20 53 45 4E 44 20 54 4F 20 50 52 49 4E 54 45 52 | SEND TO PRINTER|
00000ED0: 3F 22 00 F6 16 A3 0C 99 22 11 28 52 45 54 55 52 |?"......".(RETUR|
00000EE0: 4E 20 4F 4E 20 30 20 49 46 20 4E 4F 4E 45 29 22 |N ON 0 IF NONE)"|
00000EF0: 52 24 22 30 91 22 00 1E 17 A4 0C 84 4B 45 2C 58 |R$"0."......KE,X|
00000F00: 24 3A 99 3A 8B C5 28 58 24 29 A7 98 50 52 2C C7 |$:.:..(X$)..PR,.|
00000F10: 28 C5 28 58 24 29 29 3B 3A 89 33 32 33 34 00 57 |(.(X$));:.3234.W|
00000F20: 17 A5 0C 99 22 11 50 52 49 4E 54 45 52 20 52 45 |....".PRINTER RE|
00000F30: 51 55 49 52 45 53 20 4C 49 4E 45 20 46 45 45 44 |QUIRES LINE FEED|
00000F40: 3F 28 12 59 92 2F 12 4E 92 29 22 3A 47 31 24 B2 |?(.Y./.N.)":G1$.|
00000F50: 22 59 4E 22 3A 8D 35 00 75 17 A6 0C 4C 46 24 B2 |"YN":.5.u...LF$.|
00000F60: 22 22 3A 8B 20 47 24 B2 22 59 22 A7 4C 46 24 B2 |"":. G$."Y".LF$.|
00000F70: C7 28 31 30 29 00 9F 17 A8 0C 99 22 93 12 50 92 |.(10)......"..P.|
00000F80: 41 55 53 45 22 52 24 22 11 12 43 92 4F 4E 54 49 |AUSE"R$"..C.ONTI|
00000F90: 4E 55 45 22 52 24 22 11 12 53 92 54 4F 50 22 00 |NUE"R$"..S.TOP".|
00000FA0: A5 17 E3 0C 8E 00 C5 17 E4 0C 8F 20 2A 20 49 4E |........... * IN|
00000FB0: 50 55 54 20 53 45 4C 45 43 54 45 44 20 52 45 43 |PUT SELECTED REC|
00000FC0: 4F 52 44 20 2A 00 E5 17 E5 0C 8F 20 3D 3D 3D 3D |ORD *...... ====|
00000FD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000FE0: 3D 3D 3D 3D 3D 00 13 18 E6 0C 8B 20 41 4C 20 A7 |=====...... AL .|
00000FF0: 8B 20 52 52 B2 48 52 20 A7 20 81 20 58 B2 31 20 |. RR.HR . . X.1 |
00001000: A4 20 48 46 3A 46 24 28 58 29 B2 22 22 3A 82 20 |. HF:F$(X)."":. |
00001010: 58 3A 8E 00 40 18 E9 0C 52 52 B2 52 52 AA 41 4C |X:..@...RR.RR.AL|
00001020: 3A 57 52 B2 50 4F 25 28 52 52 2C 57 4B 29 3A 8D |:WR.PO%(RR,WK):.|
00001030: 20 34 32 30 30 3A 8F 20 52 45 41 44 20 52 45 43 | 4200:. READ REC|
00001040: 00 50 18 EB 0C 8B 20 54 59 24 B2 22 22 A7 20 8E |.P.... TY$."". .|
00001050: 00 77 18 EE 0C 81 20 58 B2 31 A4 20 C3 28 54 59 |.w.... X.1. .(TY|
00001060: 24 29 3A 8F 20 45 41 43 48 20 43 48 52 20 49 4E |$):. EACH CHR IN|
00001070: 20 54 59 50 45 20 24 00 89 18 F3 0C 58 24 B2 CA | TYPE $.....X$..|
00001080: 28 54 59 24 2C 58 2C 31 29 00 B7 18 F8 0C 81 20 |(TY$,X,1)...... |
00001090: 59 B2 31 A4 20 C3 28 46 24 28 54 59 29 29 3A 8F |Y.1. .(F$(TY)):.|
000010A0: 20 45 41 43 48 20 43 48 52 20 49 4E 20 54 59 50 | EACH CHR IN TYP|
000010B0: 45 20 46 49 45 4C 44 00 E0 18 FA 0C 8B 41 4C B2 |E FIELD......AL.|
000010C0: 30 20 A7 8B 20 52 52 B3 31 20 B0 20 52 52 B1 48 |0 .. RR.1 . RR.H|
000010D0: 52 20 A7 20 99 22 3F 3F 22 3A 89 20 33 32 31 35 |R . ."??":. 3215|
000010E0: 00 F9 18 FD 0C 8B 58 24 B2 CA 28 46 24 28 54 59 |......X$..(F$(TY|
000010F0: 29 2C 59 2C 31 29 A7 20 8E 00 02 19 02 0D 3A 82 |),Y,1). ......:.|
00001100: 20 59 00 1F 19 07 0D 82 20 58 3A 89 20 33 33 30 | Y...... X:. 330|
00001110: 30 3A 8F 20 4E 4F 54 20 41 20 4D 41 54 43 48 00 |0:. NOT A MATCH.|
00001120: 38 19 48 0D 8F 20 2A 20 54 59 50 45 20 4F 46 20 |8.H.. * TYPE OF |
00001130: 52 45 43 4F 52 44 20 2A 00 51 19 49 0D 8F 20 3D |RECORD *.Q.I.. =|
00001140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001150: 3D 00 7B 19 52 0D 54 59 B2 30 3A 81 20 58 B2 31 |=.{.R.TY.0:. X.1|
00001160: 20 A4 20 48 46 3A 8B 20 46 54 24 28 58 29 B2 22 | . HF:. FT$(X)."|
00001170: 54 59 50 45 22 A7 20 54 59 B2 58 00 83 19 53 0D |TYPE". TY.X...S.|
00001180: 82 20 58 00 AD 19 54 0D 99 3A 85 22 53 54 41 52 |. X...T..:."STAR|
00001190: 54 20 41 54 20 52 45 43 4F 52 44 20 4E 55 4D 42 |T AT RECORD NUMB|
000011A0: 45 52 20 20 20 31 9D 9D 9D 22 3B 46 37 00 CE 19 |ER 1...";F7...|
000011B0: 56 0D 99 22 11 54 59 50 45 20 4F 46 20 52 45 43 |V..".TYPE OF REC|
000011C0: 4F 52 44 20 54 4F 20 50 52 49 4E 54 3F 22 00 FC |ORD TO PRINT?"..|
000011D0: 19 57 0D 99 22 11 20 28 50 52 45 53 53 20 52 45 |.W..". (PRESS RE|
000011E0: 54 55 52 4E 20 54 4F 20 50 52 49 4E 54 20 41 4C |TURN TO PRINT AL|
000011F0: 4C 2C 20 4F 52 20 45 4E 54 45 52 22 00 25 1A 58 |L, OR ENTER".%.X|
00001200: 0D 99 22 20 20 43 48 41 52 41 43 54 45 52 53 20 |.." CHARACTERS |
00001210: 46 4F 52 20 43 45 52 54 41 49 4E 20 54 59 50 45 |FOR CERTAIN TYPE|
00001220: 53 2C 20 4F 52 00 52 1A 59 0D 99 22 20 20 45 4E |S, OR.R.Y.." EN|
00001230: 54 45 52 20 23 20 54 48 45 4E 20 52 45 43 4F 52 |TER # THEN RECOR|
00001240: 44 20 4E 55 4D 42 45 52 20 54 4F 20 50 52 49 4E |D NUMBER TO PRIN|
00001250: 54 22 00 6B 1A 5A 0D 99 22 20 20 41 20 53 49 4E |T".k.Z.." A SIN|
00001260: 47 4C 45 20 52 45 43 4F 52 44 29 00 82 1A 5C 0D |GLE RECORD)...\.|
00001270: 99 20 54 59 24 22 91 22 3A 84 4B 45 2C 54 59 24 |. TY$".":.KE,TY$|
00001280: 3A 99 00 B5 1A 5D 0D 41 4C B2 31 3A 8B C8 28 54 |:....].AL.1:..(T|
00001290: 59 24 2C 31 29 B2 22 23 22 A7 20 41 4C B2 30 3A |Y$,1)."#". AL.0:|
000012A0: 52 52 B2 C5 28 CA 28 54 59 24 2C 32 29 29 3A 54 |RR..(.(TY$,2)):T|
000012B0: 59 24 B2 22 22 00 D9 1A 5E 0D 8B 20 41 4C B2 30 |Y$.""...^.. AL.0|
000012C0: 20 A7 20 8B 20 52 52 B3 31 20 B0 20 52 52 B1 48 | . . RR.1 . RR.H|
000012D0: 52 20 A7 20 20 33 34 31 35 00 DF 1A AB 0D 8E 00 |R . 3415.......|
000012E0: 02 1B AC 0D 8F 20 2A 20 41 52 52 41 4E 47 45 20 |..... * ARRANGE |
000012F0: 46 49 45 4C 44 53 20 4F 4E 20 4C 41 42 45 4C 53 |FIELDS ON LABELS|
00001300: 20 2A 00 25 1B AD 0D 8F 20 3D 3D 3D 3D 3D 3D 3D | *.%.... =======|
00001310: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001320: 3D 3D 3D 3D 3D 00 35 1B B1 0D 81 20 57 4C B2 31 |=====.5.... WL.1|
00001330: A4 20 48 4C 3A 00 5F 1B B6 0D 58 24 B2 46 24 28 |. HL:._...X$.F$(|
00001340: 41 46 25 28 57 4C 2C 31 29 29 AA 22 20 22 3A 8B |AF%(WL,1))." ":.|
00001350: 20 58 24 B2 22 20 22 20 A7 20 58 24 B2 22 22 00 | X$." " . X$."".|
00001360: 8F 1B BB 0D 8B 41 46 25 28 57 4C 2C 32 29 20 A7 |.....AF%(WL,2) .|
00001370: 20 58 24 B2 58 24 AA 46 24 28 41 46 25 28 57 4C | X$.X$.F$(AF%(WL|
00001380: 2C 32 29 29 AA 22 20 22 3A 8D 20 33 35 33 30 00 |,2))." ":. 3530.|
00001390: A5 1B C0 0D 4C 24 28 57 41 2C 57 4C 29 B2 58 24 |....L$(WA,WL).X$|
000013A0: 3A 82 20 57 4C 00 AB 1B C5 0D 8E 00 BE 1B CA 0D |:. WL...........|
000013B0: 8B 20 58 24 B2 22 20 22 A7 58 24 B2 22 22 00 E3 |. X$." ".X$.""..|
000013C0: 1B CC 0D 8B 41 46 25 28 57 4C 2C 33 29 20 A7 20 |....AF%(WL,3) . |
000013D0: 58 24 B2 58 24 AA 46 24 28 41 46 25 28 57 4C 2C |X$.X$.F$(AF%(WL,|
000013E0: 33 29 29 00 E9 1B CF 0D 8E 00 06 1C 74 0E 8F 20 |3)).........t.. |
000013F0: 2A 20 44 45 4C 45 54 45 20 42 4C 41 4E 4B 20 4C |* DELETE BLANK L|
00001400: 49 4E 45 53 20 2A 00 23 1C 75 0E 8F 20 3D 3D 3D |INES *.#.u.. ===|
00001410: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001420: 3D 3D 3D 00 34 1C 79 0E 81 20 57 4C B2 31 A4 20 |===.4.y.. WL.1. |
00001430: 48 4C AB 31 00 50 1C 7E 0E 8B 20 4C 24 28 57 41 |HL.1.P.~.. L$(WA|
00001440: 2C 57 4C 29 B3 B1 22 22 A7 20 82 20 57 4C 3A 8E |,WL).."". . WL:.|
00001450: 00 62 1C 83 0E 81 20 58 B2 57 4C AA 31 20 A4 20 |.b.... X.WL.1 . |
00001460: 48 4C 00 7A 1C 88 0E 4C 24 28 57 41 2C 58 AB 31 |HL.z...L$(WA,X.1|
00001470: 29 B2 4C 24 28 57 41 2C 58 29 00 82 1C 8D 0E 82 |).L$(WA,X)......|
00001480: 20 58 00 93 1C 92 0E 4C 24 28 57 41 2C 48 4C 29 | X.....L$(WA,HL)|
00001490: B2 22 22 00 9E 1C 97 0E 82 20 57 4C 3A 8E 00 BC |.""...... WL:...|
000014A0: 1C 3C 0F 8F 20 2A 20 50 52 49 4E 54 20 52 4F 57 |.<.. * PRINT ROW|
000014B0: 20 4F 46 20 4C 41 42 45 4C 53 20 2A 00 DA 1C 3D | OF LABELS *...=|
000014C0: 0F 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============|
000014D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 FA 1C 41 0F 81 |==========...A..|
000014E0: 20 57 4C B2 31 20 A4 20 48 4C 3A 8F 20 46 4F 52 | WL.1 . HL:. FOR|
000014F0: 20 45 41 43 48 20 4C 49 4E 45 00 18 1D 46 0F 4C | EACH LINE...F.L|
00001500: 4C 24 B2 22 22 3A 8F 20 4C 4F 4E 47 20 4C 49 4E |L$."":. LONG LIN|
00001510: 45 20 53 54 52 49 4E 47 00 40 1D 4B 0F 81 20 57 |E STRING.@.K.. W|
00001520: 41 B2 31 20 A4 20 48 41 3A 8F 20 46 4F 52 20 45 |A.1 . HA:. FOR E|
00001530: 41 43 48 20 4C 41 42 45 4C 20 41 43 52 4F 53 53 |ACH LABEL ACROSS|
00001540: 00 64 1D 50 0F 4C 4C 24 B2 C8 28 4C 4C 24 AA 53 |.d.P.LL$..(LL$.S|
00001550: 50 24 2C 43 4F 28 57 41 29 29 AA 4C 24 28 57 41 |P$,CO(WA)).L$(WA|
00001560: 2C 57 4C 29 00 6D 1D 55 0F 82 20 57 41 00 7F 1D |,WL).m.U.. WA...|
00001570: 5A 0F 98 50 52 2C 4C 4C 24 52 24 4C 46 24 3B 00 |Z..PR,LL$R$LF$;.|
00001580: 88 1D 5F 0F 82 20 57 4C 00 A6 1D 64 0F 81 20 58 |.._.. WL...d.. X|
00001590: B2 31 20 A4 20 45 4C 3A 98 50 52 2C 52 24 4C 46 |.1 . EL:.PR,R$LF|
000015A0: 24 3B 3A 82 20 58 00 AC 1D 69 0F 8E 00 BB 1D 04 |$;:. X...i......|
000015B0: 10 8F 20 2A 20 45 58 49 54 20 2A 00 CA 1D 05 10 |.. * EXIT *.....|
000015C0: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 00 DB 1D 09 10 8B |. ========......|
000015D0: 50 52 B3 B1 31 33 A7 A0 20 50 52 00 F3 1D 0A 10 |PR..13.. PR.....|
000015E0: 50 52 B2 34 3A 93 22 44 41 54 41 20 42 41 53 45 |PR.4:."DATA BASE|
000015F0: 22 2C 38 00 0B 1E 68 10 8F 20 2A 20 52 45 41 44 |",8...h.. * READ|
00001600: 20 41 20 52 45 43 4F 52 44 20 2A 00 23 1E 69 10 | A RECORD *.#.i.|
00001610: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
00001620: 3D 3D 3D 00 53 1E 6D 10 8B 20 52 33 20 A7 20 8D |===.S.m.. R3 . .|
00001630: 20 34 33 30 30 3A 81 20 57 46 B2 31 20 A4 20 48 | 4300:. WF.1 . H|
00001640: 46 3A 84 52 41 2C 46 24 28 57 46 29 3A 82 20 57 |F:.RA,F$(WF):. W|
00001650: 46 3A 8E 00 8F 1E 72 10 4C B2 31 3A 81 57 46 B2 |F:....r.L.1:.WF.|
00001660: 31 A4 48 46 3A CF 23 28 52 41 29 2C 28 57 52 29 |1.HF:.#(RA),(WR)|
00001670: 2C 28 4C 29 3A 84 52 41 2C 46 24 28 57 46 29 3A |,(L):.RA,F$(WF):|
00001680: 4C B2 4C AA C3 28 46 24 28 57 46 29 29 AA 32 00 |L.L..(F$(WF)).2.|
00001690: 9A 1E CB 10 82 20 57 46 3A 8E 00 BC 1E CC 10 8F |..... WF:.......|
000016A0: 20 2A 20 50 4F 53 49 54 49 4F 4E 20 46 4F 52 20 | * POSITION FOR |
000016B0: 52 45 41 44 2F 57 52 49 54 45 20 2A 00 DE 1E CD |READ/WRITE *....|
000016C0: 10 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============|
000016D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 FA |==============..|
000016E0: 1E D1 10 58 B2 B5 28 28 57 52 AB 31 29 AD 52 42 |...X..((WR.1).RB|
000016F0: AA 2E 30 30 30 30 31 29 AA 31 00 2A 1F D4 10 8B |..00001).1.*....|
00001700: 20 42 4C B3 B1 58 20 A7 20 42 4C B2 58 3A 98 43 | BL..X . BL.X:.C|
00001710: 43 2C 22 55 31 3A 22 52 41 3B 44 52 3B 54 25 28 |C,"U1:"RA;DR;T%(|
00001720: 42 4C 29 3B 53 25 28 42 4C 29 00 6F 1F DB 10 58 |BL);S%(BL).o...X|
00001730: B2 28 57 52 AB 31 29 AB 28 42 4C AB 31 29 AC 52 |.(WR.1).(BL.1).R|
00001740: 42 3A 8F 20 4E 55 4D 42 45 52 20 4F 46 20 52 45 |B:. NUMBER OF RE|
00001750: 43 4F 52 44 53 20 42 45 46 4F 52 45 20 54 48 49 |CORDS BEFORE THI|
00001760: 53 20 49 4E 20 54 48 49 53 20 42 4C 4F 43 4B 00 |S IN THIS BLOCK.|
00001770: 7D 1F DF 10 42 50 B2 31 AA 52 53 AC 58 00 92 1F |}...BP.1.RS.X...|
00001780: E0 10 98 43 43 2C 22 42 2D 50 3A 22 3B 52 41 3B |...CC,"B-P:";RA;|
00001790: 42 50 00 98 1F E5 10 8E 00 00 00 20 DD |BP......... . |
.. .... MAIL LABELS 64 12/5/83.*....11
00.\....1,8,15,"S0:MAIL LABELS":."0:MAIL
LABELS",8:.......G$:.V.1.C(G1$):.G$..J(
G1$,V,1)..V:.5......G$.."I". ......G1$."
01":.5:.CC,"I".G$:..K....CC,E,E$,S,T:.E.
2........E;E$;S;T;R$"CONTINUE?(Y/N)":G1$
."Y":.5:....... * MAIN...... * SET UP.
..... * CHANGE FORMAT.C.... * SAVE FOR
MAT.X.... * LOAD FORMAT.N.... * PRINT
LABELS... .. * KEYBOARD INPUT...!.. *
INPUT SELECTED RECORD...".. * TYPE OF R
ECORD...#.. * ARRANGE FIELDS ON LABELS.
..%.. * DELETE BLANK LINES...'.. * PRI
NT ROW OF LABELS.&.).. * EXIT.=.*.. *
READ A RECORD.^.+.. * POSITION FOR READ
/WRITE.M.L.. * MAIN *.|.M.. ========...Q
.. 1300:. SET UP.A.V..". ....
MAILING LABELS "...E.." ...
L.OAD FORMAT...G.." ..C.HANGE, CREAT
E, INSPECT FORMAT.$.H.." ..S.AVE FOR
MAT".?.J.." ..P.RINT LABELS.C.L.."
...R.ETURN TO DATA BASE"...M.." ..
. PRESS INITIAL LETTER TO SELECT ".C.O.:
G1$."CPSLR":.5:.V .2100,3100,2300,2500,4
100...T..X.1.10:.G$:.X:.1110...... * SET
UP *...... ==========.D...R$.G(13):Q$.G
(34):SP$." "
:SP$.SP$.SP$.Q...D$.R$."..".G(20):. * RE
TURN/CU/CR/DELETE...... KE.0 . KE.1:. KE
,0...... SE.0 . SE.2...!.. CC.0 . CC.15:
. CC,8,15...#.. AF.0 . AF.1:. AF%(30,3):
. ARRANG FIELDS...(.N2$.NA$:F7.0:PR.4:.
PRINTER FILE...W...+.4.. * CHANGE FORMA
T *.D.5.. =================.A.7.."...
. CHANGE FORMAT "...9..".HOW MANY LABELS
ACROSS?":. HA . . HA;D$;...>..KE,HA:.:.
HA.1.HA.10.2105...C.. WA .1 . HA...H..".
COLUMN POSITION OF LABEL"WA:. CO(WA) . .
CO(WA);D$;.7.M..KE,X$:CO(WA).E(X$):.:.C
O(WA).200.CO(WA)..CO(WA.1).2120.?.R..WA.
Y.\..".HOW MANY PRINTED LINES PER LABEL?
":. HL . . HL;D$;. .A..KE,X$:HL.E(X$):.:
.HL.0.HL.10.2140.H.F.N$(1)."1ST":N$(2)."
2ND":N$(3)."3RD"...H..".FIELDS:":.WF.1.H
F:.WF;FT$(WF):. WF...K.. WL.1 . HL.,.P..
".FIELDS TO BE PRINTED ON LINE"WL":".X.U
.. AF%(WL,1)","AF%(WL,2)","AF%(WL,3);D$;
.T.V..KE,X$(1),X$(2),X$(3):....W..X.1.3:
Y.E(X$(X)):.Y.0.Y.HF.2160...Z.AF%(WL,X).
Y:.X..... WL.K....".ARRANGEMENT:.".....
. WL.1.HL:.X.1.3:.FT$(AF%(WL,X))" ";:.X:
.:.WL.:....".NUMBER OF EMPTY LINES BETWE
EN LABELS":. EL . . EL;D$;.Q.... KE,X$:E
L.E(X$):..W.....M.... * SAVE FORMAT *...
... ===============. ...."... . SAVING
FORMAT "......".NAME OF FORMAT FILE?"...
...N2$".":.KE,N2$:.:. I(N2$,1)."*".2305.
.....". PUT FILE ON DRIVE .1. OR .0. ?"
.A....". (PRESS .I. BEFORE NUMBER TO INI
TIALISE)".S...G1$."01I":. 5.M.3..CC,"S".
G$.":ML.".N2$...8.. SE,8,SE,G$.":ML.".N2
$.",S,W":. 8:. E.1 . ....=..SE,HA;R$;HL;
R$;EL;R$;TY$;R$;...B..WA.1 . HA:.SE,CO(W
A);R$;:. WA.#.G..WL.1 . HL:.SE,AF%(WL,1)
;R$;AF%(WL,2);R$;AF%(WL,3);R$;:. WL...L.
SE:..D.D.. * LOAD FORMAT *.Z.E.. =====
==========.X.G.."... . LOADING FORMAT "
...I..".NAME OF FORMAT FILE?"...N..N2$".
":.KE,N2$:..N.O..".FILE ON DRIVE .1. OR
.0. ?"...P..".(PRESS .I. BEFORE NUMBER T
O INITIALISE)"...Q.G1$."01I":. 5.G.S.. S
E,8,SE,G$.":"."ML.".N2$.",S,R":. 8:.E.1.
SE:..X.X..SE,HA,HL,EL,TY$:. WA.1 . HA
:.SE,CO(WA):. WA...... WL.1.HL:.SE,AF%(W
L,1),AF%(WL,2),AF%(WL,3):. WL..... SE:.
.O.... * PRINT LABELS *...... ==========
======...&..3200:. KEYBOARD INPUT...0..
AL . RR.0.$.2.. F7 . RR.F7.1.L.5.. WA.1.
HA: . FOR EACH LABEL ACROSS.O.:.. 3300:
. INPUT SELECTED RECORD...?.. 3500:. ARR
ANGE FIELDS ON LINES...D.. 3700:. DELETE
BLANK LINES.U.F.. G$:. G$."P" . G1$."SC
":. 5...G.. G$."S" . SE:....I.. WA:. 3
900:. PRINT A ROW OF LABELS.-.S.. RR.HR
. AL.0 . 3125.3.X...L.... * KEYBOARD INP
UT *.E.... ==================......"...
. PRINTING LABELS ". .... 3400:. TYPE O
F RECORD.C....".PRINTER DEVICE NO?"R$PD;
D$;......KE,X$:.:PD.E(X$):.PD.0........P
D..2.3232......RO.PR.13:.3232.*...."....
. RS-232 NOT SELECTED! ".W....".(CAN B
E SET UP ONLY ON FIRST RUNNING"......" P
ROGRAM. ENTER ZERO TO EXIT & RE-RUN).":.
3225... ..PR..13. PR:. PR,PD.R....".CONT
ROL CHARACTER TO SEND TO PRINTER?"......
".(RETURN ON 0 IF NONE)"R$"0."......KE,X
$:.:.E(X$)..PR,G(E(X$));:.3234.W....".PR
INTER REQUIRES LINE FEED?(.Y./.N.)":G1$.
"YN":.5.U...LF$."":. G$."Y".LF$.G(10)...
..."..P.AUSE"R$"..C.ONTINUE"R$"..S.TOP".
......E.... * INPUT SELECTED RECORD *...
... =========================...... AL .
. RR.HR . . X.1 . HF:F$(X)."":. X:..@...
RR.RR.AL:WR.PO%(RR,WK):. 4200:. READ REC
.P.... TY$."". ..W.... X.1. C(TY$):. EAC
H CHR IN TYPE $.....X$.J(TY$,X,1)......
Y.1. C(F$(TY)):. EACH CHR IN TYPE FIELD.
.....AL.0 .. RR.1 . RR.HR . ."??":. 3215
......X$.J(F$(TY),Y,1). ......:. Y......
X:. 3300:. NOT A MATCH.8.H.. * TYPE OF
RECORD *.Q.I.. ==================.{.R.TY
.0:. X.1 . HF:. FT$(X)."TYPE". TY.X...S.
. X...T..:."START AT RECORD NUMBER 1..
.";F7.N.V..".TYPE OF RECORD TO PRINT?"..
.W..". (PRESS RETURN TO PRINT ALL, OR EN
TER".%.X.." CHARACTERS FOR CERTAIN TYPE
S, OR.R.Y.." ENTER # THEN RECORD NUMBER
TO PRINT".K.Z.." A SINGLE RECORD)...\.
. TY$".":.KE,TY$:....].AL.1:.H(TY$,1)."#
". AL.0:RR.E(J(TY$,2)):TY$."".Y.^.. AL.0
. . RR.1 . RR.HR . 3415............ *
ARRANGE FIELDS ON LABELS *.%.... =======
=====================.5.... WL.1. HL:._.
..X$.F$(AF%(WL,1))." ":. X$." " . X$."".
.....AF%(WL,2) . X$.X$.F$(AF%(WL,2))." "
:. 3530.....L$(WA,WL).X$:. WL...E.....J.
. X$." ".X$.""...L..AF%(WL,3) . X$.X$.F$
(AF%(WL,3))...O.....T.. * DELETE BLANK L
INES *.#.U.. ======================.4.Y.
. WL.1. HL.1.P.~.. L$(WA,WL).."". . WL:.
.B.... X.WL.1 . HL.Z...L$(WA,X.1).L$(WA,
X)...... X.....L$(WA,HL).""...... WL:...
.<.. * PRINT ROW OF LABELS *.Z.=.. =====
==================...A.. WL.1 . HL:. FOR
EACH LINE...F.LL$."":. LONG LINE STRING
.@.K.. WA.1 . HA:. FOR EACH LABEL ACROSS
.D.P.LL$.H(LL$.SP$,CO(WA)).L$(WA,WL).M.U
.. WA..Z..PR,LL$R$LF$;..._.. WL...D.. X
.1 . EL:.PR,R$LF$;:. X...I........ * EXI
T *.J.... ========......PR..13. PR.....
PR.4:."DATA BASE",8...H.. * READ A RECOR
D *.#.I.. =================.S.M.. R3 . .
4300:. WF.1 . HF:.RA,F$(WF):. WF:....R.
L.1:.WF.1.HF:O#(RA),(WR),(L):.RA,F$(WF):
L.L.C(F$(WF)).2...K.. WF:....L.. * POSIT
ION FOR READ/WRITE *...M.. =============
==============...Q.X..((WR.1).RB..00001)
.1.*.T.. BL..X . BL.X:.CC,"U1:"RA;DR;T%(
BL);S%(BL).O...X.(WR.1).(BL.1).RB:. NUMB
ER OF RECORDS BEFORE THIS IN THIS BLOCK.
}...BP.1.RS.X......CC,"B-P:";RA;BP......
... .
> CLICK IMAGE PREVIEW FOR FULL MODAL