Multiple names: MAIL LIST, MAIL.C, MAIL
FILE INFORMATION
FILENAME(S):
• MAIL LIST<br>• MAIL.C<br>• MAIL
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 5 disk(s)
FILE HASH
1b1bdc2ec7ea00596e6f0f78376d541e23768d476bd64f98a7bdb502a38fe32c
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | MAIL LIST | PRG | Bugjam - Argentina | 21 | 8 | DOWNLOAD FILE |
| TPUG NOV 83 C | MAIL.C | PRG | DuncanTwain | 28 | 5 | DOWNLOAD FILE |
| REGISTERPROGRAM | PRG | hedning, Kaevlinge | 21 | 2 | DOWNLOAD FILE | |
| CCS64 1 2 | PRG | hedning, Mattias H00r | 15 | 0 | DOWNLOAD FILE | |
| CCS 64 1 | PRG | hedning, Mattias H00r | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 08 02 00 8F 20 |*********.7.... |
00000020: 2A 20 4D 41 49 4C 2E 36 34 20 20 53 55 42 4D 49 |* MAIL.64 SUBMI|
00000030: 54 54 45 44 20 42 59 00 59 08 03 00 8F 20 2A 20 |TTED BY.Y.... * |
00000040: 41 4C 20 4A 4F 48 4E 53 4F 4E 20 26 20 44 41 56 |AL JOHNSON & DAV|
00000050: 45 20 4A 4F 48 4E 53 4F 4E 00 73 08 04 00 8F 20 |E JOHNSON.s.... |
00000060: 2A 20 32 34 34 36 20 53 4F 55 54 48 47 41 54 45 |* 2446 SOUTHGATE|
00000070: 20 53 51 00 8D 08 05 00 8F 20 2A 20 52 45 53 54 | SQ...... * REST|
00000080: 4F 4E 2C 20 56 41 20 20 32 32 30 39 31 00 A5 08 |ON, VA 22091...|
00000090: 06 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000000A0: 2A 2A 2A 2A 2A 00 CC 08 07 00 8F 20 2A 20 4C 49 |*****...... * LI|
000000B0: 53 54 20 31 31 30 30 30 2D 20 20 46 4F 52 20 4E |ST 11000- FOR N|
000000C0: 4F 54 45 53 20 4F 4E 20 50 52 4F 47 00 E4 08 08 |OTES ON PROG....|
000000D0: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000000E0: 2A 2A 2A 2A 00 FF 08 09 00 54 4C B2 31 35 30 3A |****.....TL.150:|
000000F0: 52 53 B2 39 3A 53 55 42 B2 31 3A 4C 4C B2 35 00 |RS.9:SUB.1:LL.5.|
00000100: 27 09 0A 00 44 4E 24 B2 22 11 11 11 11 11 11 11 |'...DN$.".......|
00000110: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000120: 11 11 11 11 11 11 22 00 5B 09 0B 00 52 58 24 B2 |......".[...RX$.|
00000130: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000140: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 6C 09 14 00 |..........".l...|
00000160: 86 20 4D 4C 24 28 54 4C 2C 52 53 29 00 8B 09 1E |. ML$(TL,RS)....|
00000170: 00 97 35 33 32 38 31 2C 31 35 3A 4C 4E B2 32 34 |..53281,15:LN.24|
00000180: 3A 52 54 4E 24 B2 C7 28 31 33 29 00 A1 09 28 00 |:RTN$..(13)...(.|
00000190: 8D 31 30 37 30 30 3A 8F 20 48 45 41 44 49 4E 47 |.10700:. HEADING|
000001A0: 53 00 B4 09 78 00 8B 4E 24 B3 B1 22 4E 22 A7 8D |S...x..N$.."N"..|
000001B0: 39 30 30 30 00 C7 09 95 00 8F 23 23 55 4E 44 45 |9000......##UNDE|
000001C0: 52 53 43 4F 52 45 53 00 D1 09 96 00 8D 38 30 30 |RSCORES......800|
000001D0: 30 00 E3 09 9F 00 8F 23 23 50 52 49 4E 54 20 41 |0......##PRINT A|
000001E0: 44 44 52 00 ED 09 A0 00 8D 38 31 30 30 00 FF 09 |DDR......8100...|
000001F0: B3 00 8F 23 23 54 45 53 54 20 49 4E 50 55 54 00 |...##TEST INPUT.|
00000200: 12 0A B4 00 A1 4E 24 3A 8B 4E 24 B2 22 22 A7 31 |.....N$:.N$."".1|
00000210: 38 30 00 23 0A BE 00 8B 4E 24 B3 B1 22 45 22 A7 |80.#....N$.."E".|
00000220: 32 30 30 00 32 0A C0 00 8D 38 32 30 30 3A 89 31 |200.2....8200:.1|
00000230: 34 39 00 43 0A C8 00 8B 4E 24 B3 B1 22 50 22 A7 |49.C....N$.."P".|
00000240: 32 31 30 00 55 0A CD 00 9F 34 2C 34 3A 8D 38 33 |210.U....4,4:.83|
00000250: 30 30 3A A0 34 00 66 0A D2 00 8B 4E 24 B3 B1 22 |00:.4.f....N$.."|
00000260: 48 22 A7 32 31 33 00 75 0A D3 00 53 55 42 B2 31 |H".213.u...SUB.1|
00000270: 3A 89 31 34 39 00 88 0A D5 00 8B 4E 24 B3 B1 22 |:.149......N$.."|
00000280: 4C 22 20 A7 20 32 32 30 00 98 0A D6 00 8D 31 30 |L" . 220......10|
00000290: 33 30 30 3A 89 31 34 39 00 A9 0A DC 00 8B 4E 24 |300:.149......N$|
000002A0: B3 B1 22 4E 22 A7 32 36 30 00 E1 0A DD 00 53 55 |.."N".260.....SU|
000002B0: 42 B2 53 55 42 AA 31 3A 8B 53 55 42 B3 54 4C A7 |B.SUB.1:.SUB.TL.|
000002C0: 32 32 35 3A 53 55 42 B2 4C 4E 3A 4D 53 47 24 B2 |225:SUB.LN:MSG$.|
000002D0: 22 54 41 42 4C 45 20 46 55 4C 4C 2D 53 41 56 45 |"TABLE FULL-SAVE|
000002E0: 22 00 07 0B DE 00 53 55 42 B2 4C 4E 3A 4D 53 47 |".....SUB.LN:MSG|
000002F0: 24 B2 22 54 41 42 4C 45 46 55 4C 4C 2D 53 41 56 |$."TABLEFULL-SAV|
00000300: 45 22 3A 89 31 34 39 00 10 0B E1 00 89 31 34 39 |E":.149......149|
00000310: 00 21 0B 04 01 8B 4E 24 B3 B1 22 42 22 A7 32 37 |.!....N$.."B".27|
00000320: 30 00 3C 0B 09 01 53 55 42 B2 53 55 42 AB 31 3A |0.<...SUB.SUB.1:|
00000330: 8B 53 55 42 B3 31 A7 53 55 42 B2 31 00 45 0B 0A |.SUB.1.SUB.1.E..|
00000340: 01 89 31 34 39 00 59 0B 0E 01 8B 20 4E 24 B3 B1 |..149.Y.... N$..|
00000350: 22 4B 22 20 A7 20 32 38 30 00 68 0B 10 01 8D 39 |"K" . 280.h....9|
00000360: 34 30 30 3A 89 31 34 39 00 79 0B 18 01 8B 4E 24 |400:.149.y....N$|
00000370: B3 B1 22 53 22 A7 32 39 30 00 88 0B 1D 01 8D 38 |.."S".290......8|
00000380: 35 30 30 3A 89 31 34 39 00 9A 0B 22 01 8B 20 4E |500:.149...".. N|
00000390: 24 B3 B1 22 51 22 A7 33 30 30 00 B1 0B 25 01 99 |$.."Q".300...%..|
000003A0: 22 93 51 55 49 54 54 49 4E 47 20 4E 4F 57 22 3A |".QUITTING NOW":|
000003B0: 80 00 C2 0B 2C 01 8B 4E 24 B3 B1 22 55 22 A7 34 |....,..N$.."U".4|
000003C0: 30 30 00 D1 0B 40 01 8D 39 31 30 30 3A 89 31 34 |00...@..9100:.14|
000003D0: 39 00 E2 0B 90 01 8B 4E 24 B3 B1 22 44 22 A7 34 |9......N$.."D".4|
000003E0: 35 30 00 F1 0B A4 01 8D 37 30 30 30 3A 89 31 34 |50......7000:.14|
000003F0: 39 00 02 0C C2 01 8B 4E 24 B3 B1 22 41 22 A7 34 |9......N$.."A".4|
00000400: 37 30 00 0C 0C C7 01 8D 37 35 30 30 00 2F 0C D5 |70......7500./..|
00000410: 01 8F 23 23 54 45 53 54 20 46 4F 52 20 43 4F 4E |..##TEST FOR CON|
00000420: 54 49 4E 55 45 20 4F 46 20 53 45 41 52 43 48 00 |TINUE OF SEARCH.|
00000430: 3E 0C D6 01 8B 53 31 B3 B1 31 A7 35 30 30 00 59 |>....S1..1.500.Y|
00000440: 0C D8 01 8B 4E 24 B2 22 43 22 A7 59 58 B2 53 52 |....N$."C".YX.SR|
00000450: 42 AA 31 3A 8D 39 37 34 33 00 62 0C F4 01 89 31 |B.1:.9743.b....1|
00000460: 34 39 00 78 0C 58 1B 8F 20 23 23 23 44 45 4C 45 |49.x.X.. ###DELE|
00000470: 54 45 20 45 4E 54 52 59 00 98 0C 6C 1B 4D 53 47 |TE ENTRY...l.MSG|
00000480: 24 B2 22 44 45 4C 45 54 45 20 20 59 4F 55 20 53 |$."DELETE YOU S|
00000490: 55 52 45 20 3F 3F 59 22 00 C7 0C 76 1B 8D 38 31 |URE ??Y"...v..81|
000004A0: 30 30 3A 4D 53 47 24 B2 22 44 20 45 20 4C 20 45 |00:MSG$."D E L E|
000004B0: 20 54 20 49 20 4E 20 47 20 20 20 20 20 20 22 3A | T I N G ":|
000004C0: 44 55 42 B2 53 55 42 00 DD 0C 80 1B A1 44 45 24 |DUB.SUB......DE$|
000004D0: 3A 8B 44 45 24 B2 22 22 A7 37 30 34 30 00 F0 0C |:.DE$."".7040...|
000004E0: 85 1B 8B 44 45 24 B3 B1 22 59 22 A7 37 30 39 39 |...DE$.."Y".7099|
000004F0: 00 02 0D 87 1B 8D 38 31 30 30 3A 4D 53 47 24 B2 |......8100:MSG$.|
00000500: 22 22 00 28 0D 8A 1B 81 58 B2 31 A4 52 53 3A 4D |"".(....X.1.RS:M|
00000510: 4C 24 28 44 55 42 2C 58 29 B2 4D 4C 24 28 44 55 |L$(DUB,X).ML$(DU|
00000520: 42 AA 31 2C 58 29 3A 82 00 42 0D 94 1B 8B 44 55 |B.1,X):..B....DU|
00000530: 42 B2 52 43 A7 52 43 B2 52 43 AB 31 3A 89 37 30 |B.RC.RC.RC.1:.70|
00000540: 39 39 00 56 0D 99 1B 44 55 42 B2 44 55 42 AA 31 |99.V...DUB.DUB.1|
00000550: 3A 89 37 30 35 30 00 64 0D BB 1B 4D 53 47 24 B2 |:.7050.d...MSG$.|
00000560: 22 22 3A 8E 00 8F 0D AC 1C 99 22 1D 1D 1D 1D 98 |"":.......".....|
00000570: 45 4E 54 45 52 20 43 4F 4D 4D 41 4E 44 20 53 48 |ENTER COMMAND SH|
00000580: 4F 57 4E 20 4F 4E 20 53 43 52 45 45 4E 97 22 00 |OWN ON SCREEN.".|
00000590: 9C 0D 4C 1D 53 55 42 B2 52 43 AA 31 00 B1 0D 60 |..L.SUB.RC.1...`|
000005A0: 1D 8B 20 53 55 42 B3 20 54 4C 20 A7 20 37 35 35 |.. SUB. TL . 755|
000005B0: 30 00 D7 0D 74 1D 4D 53 47 24 B2 22 4E 4F 20 52 |0...t.MSG$."NO R|
000005C0: 4F 4F 4D 20 46 4F 52 20 41 44 44 20 53 41 56 45 |OOM FOR ADD SAVE|
000005D0: 20 22 3A 89 31 34 39 00 EF 0D 7E 1D 8D 38 30 30 | ":.149...~..800|
000005E0: 30 3A 8D 38 31 30 30 3A 8D 38 32 30 30 3A 8E 00 |0:.8100:.8200:..|
000005F0: 09 0E 40 1F 8F 23 23 23 50 52 49 4E 54 20 55 4E |..@..###PRINT UN|
00000600: 44 45 52 53 43 4F 52 45 53 00 12 0E 45 1F 99 22 |DERSCORES...E.."|
00000610: 93 22 00 1E 0E 4A 1F 81 4C 50 B2 31 A4 35 00 49 |."...J..LP.1.5.I|
00000620: 0E 54 1F 99 22 11 22 4C 50 22 A4 A4 A4 A4 A4 A4 |.T.."."LP"......|
00000630: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000640: A4 A4 A4 A4 A4 A4 A4 A4 22 00 51 0E 5E 1F 82 4C |........".Q.^..L|
00000650: 50 00 7E 0E 68 1F 99 22 11 20 20 20 20 20 50 48 |P.~.h..". PH|
00000660: 4F 4E 45 20 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |ONE ...........|
00000670: A4 20 20 4C 42 4C 20 47 52 50 20 20 A4 22 00 AA |. LBL GRP ."..|
00000680: 0E 72 1F 99 22 11 20 20 20 20 20 58 4D 41 53 20 |.r..". XMAS |
00000690: 4C 49 53 54 20 20 A4 20 20 20 20 20 20 20 58 4D |LIST . XM|
000006A0: 41 53 20 4C 42 4C 20 20 A4 22 00 C0 0E A4 1F 8F |AS LBL ."......|
000006B0: 23 23 23 44 53 50 4C 59 20 41 44 44 52 45 53 53 |###DSPLY ADDRESS|
000006C0: 00 C9 0E B8 1F 99 22 13 22 00 D6 0E C2 1F 81 4C |......"."......L|
000006D0: 50 B2 31 A4 4C 4C 00 ED 0E CC 1F 99 22 11 1D 1D |P.1.LL......"...|
000006E0: 1D 22 4D 4C 24 28 53 55 42 2C 4C 50 29 00 F8 0E |."ML$(SUB,LP)...|
000006F0: CE 1F 97 31 39 38 2C 30 00 00 0F CF 1F 82 4C 50 |...198,0......LP|
00000700: 00 0C 0F D0 1F 4C 50 B2 4C 50 AB 31 00 37 0F D6 |.....LP.LP.1.7..|
00000710: 1F 99 22 13 22 3B C8 28 44 4E 24 2C 31 32 29 3B |..".";.(DN$,12);|
00000720: C8 28 52 58 24 2C 31 32 29 3B 4D 4C 24 28 53 55 |.(RX$,12);ML$(SU|
00000730: 42 2C 4C 50 AA 31 29 00 58 0F DB 1F 99 22 91 22 |B,LP.1).X...."."|
00000740: 3B C8 28 52 58 24 2C 33 35 29 3B 4D 4C 24 28 53 |;.(RX$,35);ML$(S|
00000750: 55 42 2C 4C 50 AA 32 29 00 79 0F E0 1F 99 22 11 |UB,LP.2).y....".|
00000760: 22 3B C8 28 52 58 24 2C 31 36 29 3B 4D 4C 24 28 |";.(RX$,16);ML$(|
00000770: 53 55 42 2C 4C 50 AA 33 29 00 9A 0F E5 1F 99 22 |SUB,LP.3)......"|
00000780: 91 22 3B C8 28 52 58 24 2C 33 34 29 3B 4D 4C 24 |.";.(RX$,34);ML$|
00000790: 28 53 55 42 2C 4C 50 AA 34 29 00 A5 0F 01 20 8D |(SUB,LP.4).... .|
000007A0: 31 30 30 30 30 00 AB 0F 02 20 8E 00 C4 0F 08 20 |10000.... ..... |
000007B0: 8F 23 23 23 52 45 41 44 20 46 52 4F 4D 20 53 43 |.###READ FROM SC|
000007C0: 52 45 45 4E 00 CD 0F 12 20 99 22 13 22 00 D9 0F |REEN.... ."."...|
000007D0: 1C 20 81 4C 50 B2 31 A4 35 00 E4 0F 21 20 57 31 |. .LP.1.5...! W1|
000007E0: 24 B2 22 22 00 EA 0F 26 20 99 00 F8 0F 27 20 85 |$.""...& ....' .|
000007F0: 22 1D 22 3B 4C 49 4E 24 00 04 10 2B 20 81 58 B2 |".";LIN$...+ .X.|
00000800: 31 A4 33 30 00 30 10 2D 20 8B 20 CA 28 4C 49 4E |1.30.0.- . .(LIN|
00000810: 24 2C 58 2C 31 29 B3 B1 22 A4 22 A7 20 57 31 24 |$,X,1)..".". W1$|
00000820: B2 57 31 24 AA CA 28 4C 49 4E 24 2C 58 2C 31 29 |.W1$..(LIN$,X,1)|
00000830: 00 4D 10 2E 20 8B 20 CA 28 4C 49 4E 24 2C 58 2C |.M.. . .(LIN$,X,|
00000840: 32 29 B2 22 A4 A4 22 20 A7 38 32 35 30 00 54 10 |2).".." .8250.T.|
00000850: 30 20 82 58 00 68 10 3A 20 4D 4C 24 28 53 55 42 |0 .X.h.: ML$(SUB|
00000860: 2C 4C 50 29 B2 57 31 24 00 75 10 3F 20 4C 49 4E |,LP).W1$.u.? LIN|
00000870: 24 B2 57 31 24 00 7D 10 44 20 82 4C 50 00 95 10 |$.W1$.}.D .LP...|
00000880: 46 20 8B 20 4E 24 B3 B1 22 45 22 20 A7 20 52 43 |F . N$.."E" . RC|
00000890: B2 52 43 AA 31 00 9F 10 48 20 53 4C B2 31 32 00 |.RC.1...H SL.12.|
000008A0: CC 10 49 20 85 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |..I ."..........|
000008B0: 1D 22 3B 46 58 24 3A 8D 31 30 31 30 30 3A 4D 4C |.";FX$:.10100:ML|
000008C0: 24 28 53 55 42 2C 36 29 B2 46 52 24 00 D5 10 4B |$(SUB,6).FR$...K|
000008D0: 20 53 4C B2 31 00 04 11 4C 20 99 22 91 22 3B C8 | SL.1...L .".";.|
000008E0: 28 52 58 24 2C 33 33 29 3B 3A 85 46 58 24 3A 8D |(RX$,33);:.FX$:.|
000008F0: 31 30 31 30 30 3A 4D 4C 24 28 53 55 42 2C 37 29 |10100:ML$(SUB,7)|
00000900: B2 46 52 24 00 34 11 50 20 99 22 11 22 3B C8 28 |.FR$.4.P .".";.(|
00000910: 52 58 24 2C 31 34 29 3B 3A 85 46 58 24 3A 8D 31 |RX$,14);:.FX$:.1|
00000920: 30 31 30 30 3A 20 4D 4C 24 28 53 55 42 2C 38 29 |0100: ML$(SUB,8)|
00000930: B2 46 52 24 00 63 11 56 20 99 22 91 22 3B C8 28 |.FR$.c.V .".";.(|
00000940: 52 58 24 2C 33 32 29 3B 3A 85 46 58 24 3A 8D 31 |RX$,32);:.FX$:.1|
00000950: 30 31 30 30 3A 4D 4C 24 28 53 55 42 2C 39 29 B2 |0100:ML$(SUB,9).|
00000960: 46 52 24 00 69 11 67 20 8E 00 7C 11 6C 20 8F 23 |FR$.i.g ..|.l .#|
00000970: 23 23 50 52 49 4E 54 45 4E 54 52 59 00 89 11 8A |##PRINTENTRY....|
00000980: 20 81 4C 50 B2 31 A4 4C 4C 00 B1 11 8F 20 8B 20 | .LP.1.LL.... . |
00000990: C8 28 4D 4C 24 28 53 55 42 2C 4C 50 29 2C 31 29 |.(ML$(SUB,LP),1)|
000009A0: B2 22 5F 22 A7 98 34 2C 22 A0 22 3A 89 38 33 34 |."_"..4,".":.834|
000009B0: 35 00 C4 11 94 20 98 34 2C 4D 4C 24 28 53 55 42 |5.... .4,ML$(SUB|
000009C0: 2C 4C 50 29 00 CC 11 99 20 82 4C 50 00 D6 11 9E |,LP).... .LP....|
000009D0: 20 98 34 2C 22 22 00 DC 11 A8 20 8E 00 EF 11 34 | .4,"".... ....4|
000009E0: 21 8F 23 23 50 55 54 20 54 4F 20 44 49 53 4B 00 |!.##PUT TO DISK.|
000009F0: FC 11 3C 21 9F 31 35 2C 38 2C 31 35 00 1F 12 3E |..<!.15,8,15...>|
00000A00: 21 9F 32 2C 38 2C 32 2C 22 40 30 3A 4D 41 49 4C |!.2,8,2,"@0:MAIL|
00000A10: 4C 49 53 54 2C 53 2C 57 22 3A 8D 39 36 30 30 00 |LIST,S,W":.9600.|
00000A20: 29 12 43 21 98 32 2C 52 43 00 36 12 48 21 81 50 |).C!.2,RC.6.H!.P|
00000A30: 54 B2 31 A4 52 43 00 42 12 4D 21 81 58 B2 31 A4 |T.1.RC.B.M!.X.1.|
00000A40: 52 53 00 63 12 4F 21 8B 4D 4C 24 28 50 54 2C 58 |RS.c.O!.ML$(PT,X|
00000A50: 29 B2 22 22 20 A7 20 98 32 2C 22 5C 22 3A 89 38 |)."" . .2,"\":.8|
00000A60: 35 33 35 00 74 12 52 21 98 32 2C 4D 4C 24 28 50 |535.t.R!.2,ML$(P|
00000A70: 54 2C 58 29 00 7B 12 57 21 82 58 00 83 12 5C 21 |T,X).{.W!.X...\!|
00000A80: 82 50 54 00 96 12 66 21 A0 32 3A 8D 39 36 30 30 |.PT...f!.2:.9600|
00000A90: 3A A0 31 35 3A 8E 00 AB 12 28 23 8F 23 23 47 45 |:.15:....(#.##GE|
00000AA0: 54 20 46 52 4F 4D 20 44 49 53 4B 00 B8 12 2D 23 |T FROM DISK...-#|
00000AB0: 9F 31 35 2C 38 2C 31 35 00 EB 12 2E 23 8B 20 4E |.15,8,15....#. N|
00000AC0: 24 B2 22 42 22 A7 9F 33 2C 38 2C 33 2C 22 4D 41 |$."B"..3,8,3,"MA|
00000AD0: 49 4C 2E 46 49 4C 45 2E 42 4B 2C 53 2C 52 22 3A |IL.FILE.BK,S,R":|
00000AE0: 8D 39 36 30 30 3A 89 39 30 31 33 00 0B 13 32 23 |.9600:.9013...2#|
00000AF0: 9F 33 2C 38 2C 33 2C 22 4D 41 49 4C 4C 49 53 54 |.3,8,3,"MAILLIST|
00000B00: 2C 53 2C 52 22 3A 8D 39 36 30 30 00 15 13 35 23 |,S,R":.9600...5#|
00000B10: 84 33 2C 52 43 00 22 13 3C 23 81 50 54 B2 31 A4 |.3,RC.".<#.PT.1.|
00000B20: 52 43 00 2E 13 40 23 81 58 B2 31 A4 52 53 00 45 |RC...@#.X.1.RS.E|
00000B30: 13 46 23 84 33 2C 4D 4C 24 28 50 54 2C 58 29 3A |.F#.3,ML$(PT,X):|
00000B40: 8D 39 36 30 30 00 6D 13 49 23 8B 20 C8 28 4D 4C |.9600.m.I#. .(ML|
00000B50: 24 28 50 54 2C 58 29 2C 31 29 B2 22 5C 22 20 A7 |$(PT,X),1)."\" .|
00000B60: 20 4D 4C 24 28 50 54 2C 58 29 B2 22 22 00 74 13 | ML$(PT,X)."".t.|
00000B70: 4C 23 82 58 00 7C 13 50 23 82 50 54 00 89 13 5A |L#.X.|.P#.PT...Z|
00000B80: 23 A0 33 3A A0 31 35 3A 8E 00 A5 13 8C 23 8F 23 |#.3:.15:.....#.#|
00000B90: 23 50 45 52 46 4F 52 4D 20 4C 49 53 54 41 4E 44 |#PERFORM LISTAND|
00000BA0: 20 46 49 4E 44 00 B1 13 96 23 4C 53 42 B2 53 55 | FIND....#LSB.SU|
00000BB0: 42 00 CC 13 A0 23 99 22 93 11 1D 1D 50 52 49 4E |B....#."....PRIN|
00000BC0: 54 45 52 20 4F 50 54 49 4F 4E 53 22 00 0E 14 A3 |TER OPTIONS"....|
00000BD0: 23 99 22 1D 1D 1D 54 4F 20 43 52 45 41 54 45 20 |#."...TO CREATE |
00000BE0: 41 20 44 49 52 45 43 54 4F 52 59 22 3A 99 22 11 |A DIRECTORY":.".|
00000BF0: 1D 1D 1D 1D 1D 1D 12 1C 50 46 35 92 97 20 4C 49 |........PF5.. LI|
00000C00: 53 54 20 41 4C 4C 20 45 4E 54 52 49 45 53 00 38 |ST ALL ENTRIES.8|
00000C10: 14 A4 23 99 22 1D 1D 1D 1D 1D 1D 1C 12 50 46 33 |..#."........PF3|
00000C20: 92 97 20 4C 49 53 54 20 46 52 4F 4D 20 54 48 49 |.. LIST FROM THI|
00000C30: 53 20 50 4F 49 4E 54 22 00 5E 14 A5 23 99 22 11 |S POINT".^..#.".|
00000C40: 11 1D 1D 45 4E 54 45 52 20 1C 12 50 46 31 92 97 |...ENTER ..PF1..|
00000C50: 20 54 4F 20 44 4F 20 53 45 41 52 43 48 22 00 8B | TO DO SEARCH"..|
00000C60: 14 A8 23 99 22 11 11 1D 1D 45 4E 54 45 52 20 12 |..#."....ENTER .|
00000C70: 1C 50 46 32 97 92 20 46 4F 52 20 58 4D 41 53 20 |.PF2.. FOR XMAS |
00000C80: 43 41 52 44 20 43 4F 55 4E 54 22 00 CF 14 AA 23 |CARD COUNT"....#|
00000C90: 99 22 11 11 1D 1D 45 4E 54 45 52 20 12 1C 50 46 |."....ENTER ..PF|
00000CA0: 34 92 97 20 54 4F 20 52 45 53 45 54 20 58 4D 41 |4.. TO RESET XMA|
00000CB0: 53 20 43 41 52 44 53 22 3A 99 22 1D 1D 1D 1D 53 |S CARDS":."....S|
00000CC0: 45 4E 54 20 49 4E 44 49 43 41 54 4F 52 53 22 00 |ENT INDICATORS".|
00000CD0: F2 14 AF 23 99 22 11 11 1D 1D 45 4E 54 45 52 20 |...#."....ENTER |
00000CE0: 1C 12 50 46 37 92 97 20 54 4F 20 52 45 54 55 52 |..PF7.. TO RETUR|
00000CF0: 4E 22 00 08 15 B4 23 A1 4C 49 24 3A 8B 4C 49 24 |N"....#.LI$:.LI$|
00000D00: B2 22 22 A7 39 31 34 30 00 20 15 B9 23 8B 20 4C |."".9140. ..#. L|
00000D10: 49 24 B2 C7 28 31 33 37 29 20 A7 20 39 32 30 30 |I$..(137) . 9200|
00000D20: 00 38 15 BB 23 8B 20 4C 49 24 B2 C7 28 31 33 38 |.8..#. LI$..(138|
00000D30: 29 20 A7 20 39 33 30 30 00 4D 15 BE 23 8B 4C 49 |) . 9300.M..#.LI|
00000D40: 24 B2 C7 28 31 33 36 29 A7 39 31 39 39 00 69 15 |$..(136).9199.i.|
00000D50: C0 23 8B 4C 49 24 B2 C7 28 31 33 35 29 A7 4C 53 |.#.LI$..(135).LS|
00000D60: 42 B2 31 3A 89 39 31 36 30 00 85 15 C1 23 8B 4C |B.1:.9160....#.L|
00000D70: 49 24 B2 C7 28 31 33 33 29 A7 8D 39 37 30 30 3A |I$..(133)..9700:|
00000D80: 89 39 31 39 39 00 9A 15 C2 23 8B 4C 49 24 B2 C7 |.9199....#.LI$..|
00000D90: 28 31 33 34 29 A7 39 31 36 30 00 A4 15 C4 23 89 |(134).9160....#.|
00000DA0: 39 31 34 30 00 AD 15 C8 23 9F 34 2C 34 00 C0 15 |9140....#.4,4...|
00000DB0: CB 23 8B 4C 53 42 B1 28 52 43 29 A7 39 31 39 38 |.#.LSB.(RC).9198|
00000DC0: 00 D8 15 CC 23 8B 4D 4C 24 28 4C 53 42 2C 31 29 |....#.ML$(LSB,1)|
00000DD0: B2 22 22 A7 39 31 38 33 00 F1 15 CD 23 98 34 2C |."".9183....#.4,|
00000DE0: C7 28 31 35 29 C7 28 31 34 35 29 3A 98 34 2C 22 |.(15).(145):.4,"|
00000DF0: 22 00 0C 16 D0 23 98 34 2C C7 28 31 36 29 22 31 |"....#.4,.(16)"1|
00000E00: 30 22 4D 4C 24 28 4C 53 42 2C 31 29 00 18 16 D4 |0"ML$(LSB,1)....|
00000E10: 23 81 4C 50 B2 32 A4 36 00 34 16 D5 23 8B 20 4D |#.LP.2.6.4..#. M|
00000E20: 4C 24 28 4C 53 42 2C 4C 50 29 B2 22 22 20 A7 20 |L$(LSB,LP)."" . |
00000E30: 39 31 37 38 00 50 16 D8 23 98 34 2C C7 28 31 36 |9178.P..#.4,.(16|
00000E40: 29 22 31 35 22 4D 4C 24 28 4C 53 42 2C 4C 50 29 |)"15"ML$(LSB,LP)|
00000E50: 00 58 16 DA 23 82 4C 50 00 97 16 DC 23 98 34 2C |.X..#.LP....#.4,|
00000E60: C7 28 31 36 29 22 31 35 58 4D 41 53 20 20 22 3B |.(16)"15XMAS ";|
00000E70: 4D 4C 24 28 4C 53 42 2C 38 29 C7 28 31 36 29 22 |ML$(LSB,8).(16)"|
00000E80: 32 38 4D 49 53 43 20 4C 42 20 20 22 3B 4D 4C 24 |28MISC LB ";ML$|
00000E90: 28 4C 53 42 2C 37 29 00 AF 16 DD 23 A1 4B 24 3A |(LSB,7)....#.K$:|
00000EA0: 8B 4B 24 B2 22 43 22 A7 98 34 3A A0 34 3A 8E 00 |.K$."C"..4:.4:..|
00000EB0: BD 16 DF 23 4C 53 42 B2 4C 53 42 AA 31 00 CE 16 |...#LSB.LSB.1...|
00000EC0: E1 23 8B 4C 53 42 B3 52 43 A7 39 31 36 34 00 E5 |.#.LSB.RC.9164..|
00000ED0: 16 EE 23 98 34 2C C7 28 31 35 29 C7 28 31 30 29 |..#.4,.(15).(10)|
00000EE0: 3A A0 34 2C 34 00 EB 16 EF 23 8E 00 F4 16 F0 23 |:.4,4....#.....#|
00000EF0: 43 43 B2 30 00 01 17 F2 23 81 20 58 B2 31 A4 52 |CC.0....#. X.1.R|
00000F00: 43 00 1E 17 FA 23 8B 20 4D 4C 24 28 58 2C 38 29 |C....#. ML$(X,8)|
00000F10: B2 22 59 22 20 A7 20 43 43 B2 43 43 AA 31 00 25 |."Y" . CC.CC.1.%|
00000F20: 17 04 24 82 58 00 58 17 0E 24 99 22 13 22 3B C8 |..$.X.X..$.".";.|
00000F30: 28 44 4E 24 2C 32 32 29 3B 22 12 1C 43 48 52 49 |(DN$,22);"..CHRI|
00000F40: 53 54 4D 41 53 20 43 41 52 44 53 20 46 4F 55 4E |STMAS CARDS FOUN|
00000F50: 44 97 92 20 22 3B 43 43 00 85 17 18 24 99 22 1D |D.. ";CC....$.".|
00000F60: 1D 1D 1D 98 45 4E 54 45 52 20 41 20 43 4F 4D 4D |....ENTER A COMM|
00000F70: 41 4E 44 20 53 48 4F 57 4E 20 4F 4E 20 53 43 52 |AND SHOWN ON SCR|
00000F80: 45 45 4E 97 22 00 8F 17 22 24 89 39 31 34 30 00 |EEN."..."$.9140.|
00000F90: 9B 17 54 24 81 58 B2 31 A4 52 43 00 BB 17 5E 24 |..T$.X.1.RC...^$|
00000FA0: 8B 20 4D 4C 24 28 58 2C 38 29 B2 22 59 22 A7 4D |. ML$(X,8)."Y".M|
00000FB0: 4C 24 28 58 2C 39 29 B2 22 4E 22 00 C2 17 68 24 |L$(X,9)."N"...h$|
00000FC0: 82 58 00 FA 17 72 24 99 22 13 22 3B C8 28 44 4E |.X...r$.".";.(DN|
00000FD0: 24 2C 32 32 29 3B 22 12 1C 43 48 52 49 53 54 4D |$,22);"..CHRISTM|
00000FE0: 41 53 20 4C 41 42 45 4C 53 20 52 45 53 45 54 97 |AS LABELS RESET.|
00000FF0: 92 20 20 20 20 20 20 20 20 22 00 25 18 7C 24 99 |. ".%.|$.|
00001000: 22 1D 1D 1D 1D 98 45 4E 54 45 52 20 43 4F 4D 4D |".....ENTER COMM|
00001010: 41 4E 44 20 53 48 4F 57 4E 20 4F 4E 20 53 43 52 |AND SHOWN ON SCR|
00001020: 45 45 4E 97 22 00 2F 18 86 24 89 39 31 34 30 00 |EEN."./..$.9140.|
00001030: 6F 18 B8 24 99 22 93 11 11 1D 1D 42 41 43 4B 20 |o..$.".....BACK |
00001040: 55 50 20 4D 41 49 4C 20 4C 49 53 54 20 46 49 4C |UP MAIL LIST FIL|
00001050: 45 20 54 4F 20 53 45 50 41 52 41 54 45 22 3A 99 |E TO SEPARATE":.|
00001060: 22 1D 1D 1D 1D 44 49 53 4B 20 46 49 4C 45 22 00 |"....DISK FILE".|
00001070: 9A 18 C2 24 99 22 11 1D 1D 42 41 43 4B 49 4E 47 |...$."...BACKING|
00001080: 20 55 50 20 57 49 4C 4C 20 43 41 55 53 45 20 50 | UP WILL CAUSE P|
00001090: 52 4F 47 52 41 4D 20 54 4F 22 00 BE 18 CC 24 99 |ROGRAM TO"....$.|
000010A0: 22 1D 1D 51 55 49 54 20 41 46 54 45 52 20 49 54 |"..QUIT AFTER IT|
000010B0: 20 49 53 20 43 4F 4D 50 4C 45 54 45 44 22 00 DF | IS COMPLETED"..|
000010C0: 18 D6 24 99 22 11 11 1D 1D 49 53 20 54 48 49 53 |..$."....IS THIS|
000010D0: 20 57 48 41 54 20 59 4F 55 20 57 41 4E 54 22 00 | WHAT YOU WANT".|
000010E0: FF 18 E0 24 A1 58 24 3A 8B 20 58 24 B3 B1 22 59 |...$.X$:. X$.."Y|
000010F0: 22 AF 58 24 B3 B1 22 4E 22 20 A7 39 34 34 30 00 |".X$.."N" .9440.|
00001100: 10 19 EA 24 8B 20 58 24 B2 22 4E 22 20 A7 20 8E |...$. X$."N" . .|
00001110: 00 3C 19 F4 24 99 22 11 11 1D 1D 4C 4F 41 44 20 |.<..$."....LOAD |
00001120: 42 41 43 4B 55 50 20 44 49 53 4B 20 41 4E 44 20 |BACKUP DISK AND |
00001130: 48 49 54 20 41 4E 59 20 4B 45 59 22 00 54 19 F9 |HIT ANY KEY".T..|
00001140: 24 A1 20 58 24 3A 8B 20 58 24 B2 22 22 20 A7 20 |$. X$:. X$."" . |
00001150: 39 34 36 35 00 70 19 FE 24 9F 20 31 35 2C 38 2C |9465.p..$. 15,8,|
00001160: 31 35 2C 22 49 22 3A 8D 39 36 30 30 3A A0 31 35 |15,"I":.9600:.15|
00001170: 00 84 19 03 25 9F 20 31 35 2C 38 2C 31 35 3A 8D |....%. 15,8,15:.|
00001180: 39 36 30 30 00 A6 19 08 25 9F 20 36 2C 38 2C 36 |9600....%. 6,8,6|
00001190: 2C 22 40 30 3A 4D 41 49 4C 2E 46 49 4C 45 2E 42 |,"@0:MAIL.FILE.B|
000011A0: 4B 2C 53 2C 57 22 00 B0 19 0D 25 98 36 2C 52 43 |K,S,W"....%.6,RC|
000011B0: 00 BD 19 12 25 81 20 58 B2 31 A4 52 43 00 C9 19 |....%. X.1.RC...|
000011C0: 17 25 81 59 B2 31 A4 52 53 00 E9 19 18 25 8B 4D |.%.Y.1.RS....%.M|
000011D0: 4C 24 28 58 2C 59 29 B2 22 22 20 A7 20 98 36 2C |L$(X,Y)."" . .6,|
000011E0: 22 5C 22 3A 89 39 35 30 30 00 FF 19 1A 25 98 36 |"\":.9500....%.6|
000011F0: 2C 4D 4C 24 28 58 2C 59 29 3A 8D 39 36 30 30 00 |,ML$(X,Y):.9600.|
00001200: 09 1A 1C 25 82 59 3A 82 58 00 14 1A 26 25 A0 36 |...%.Y:.X...&%.6|
00001210: 3A A0 31 35 00 2C 1A 30 25 99 22 42 41 43 4B 55 |:.15.,.0%."BACKU|
00001220: 50 20 43 4F 4D 50 4C 45 54 45 44 22 00 6A 1A 35 |P COMPLETED".j.5|
00001230: 25 99 22 59 4F 55 52 20 42 41 43 4B 55 50 20 44 |%."YOUR BACKUP D|
00001240: 49 53 4B 20 49 53 20 53 54 49 4C 4C 20 49 53 20 |ISK IS STILL IS |
00001250: 49 4E 20 54 48 45 20 22 3A 99 22 20 20 20 20 20 |IN THE ":." |
00001260: 20 20 20 20 44 52 49 56 45 22 00 7C 1A 3A 25 99 | DRIVE".|.:%.|
00001270: 22 4A 4F 42 20 45 4E 44 53 22 3A 80 00 8B 1A 80 |"JOB ENDS":.....|
00001280: 25 84 31 35 2C 45 4E 2C 45 4D 24 00 9A 1A 8A 25 |%.15,EN,EM$....%|
00001290: 8B 20 45 4E B2 30 20 A7 20 8E 00 B7 1A 94 25 99 |. EN.0 . .....%.|
000012A0: 22 12 44 49 53 4B 20 45 52 52 4F 52 22 3A 99 45 |".DISK ERROR":.E|
000012B0: 4E 2C 45 4D 24 3A 80 00 D0 1A E4 25 8F 23 23 53 |N,EM$:.....%.##S|
000012C0: 45 41 52 43 48 20 46 4F 52 20 53 54 52 49 4E 47 |EARCH FOR STRING|
000012D0: 00 E0 1A E9 25 53 31 B2 30 3A 53 52 24 B2 22 22 |....%S1.0:SR$.""|
000012E0: 00 03 1B EE 25 99 22 93 11 11 11 11 11 54 59 50 |....%."......TYP|
000012F0: 45 20 49 4E 20 53 45 41 52 43 48 20 53 54 52 49 |E IN SEARCH STRI|
00001300: 4E 47 22 00 0C 1B F1 25 85 53 52 24 00 1D 1B F3 |NG"....%.SR$....|
00001310: 25 8B 53 52 24 B2 22 22 A7 39 31 39 39 00 4F 1B |%.SR$."".9199.O.|
00001320: F5 25 99 22 11 11 11 1D 98 53 45 41 52 43 48 20 |.%.".....SEARCH |
00001330: 97 4E 98 41 4D 45 20 4F 4E 4C 59 20 4F 52 20 97 |.N.AME ONLY OR .|
00001340: 41 98 4C 4C 20 41 44 44 52 22 3A 85 57 33 24 00 |A.LL ADDR":.W3$.|
00001350: 68 1B F6 25 8B 20 57 33 24 B2 22 4E 22 A7 4C 37 |h..%. W3$."N".L7|
00001360: B2 31 3A 89 39 37 32 30 00 71 1B F7 25 4C 37 B2 |.1:.9720.q..%L7.|
00001370: 36 00 9B 1B F8 25 99 52 54 4E 24 22 11 53 45 41 |6....%.RTN$".SEA|
00001380: 52 43 48 49 4E 47 20 46 4F 52 22 52 54 4E 24 22 |RCHING FOR"RTN$"|
00001390: 11 12 1F 22 53 52 24 22 92 90 22 00 D0 1B FD 25 |..."SR$".."....%|
000013A0: 99 52 54 4E 24 22 11 11 54 59 50 45 20 49 4E 20 |.RTN$"..TYPE IN |
000013B0: 12 1F 43 92 90 20 54 4F 20 43 41 4E 43 45 4C 20 |..C.. TO CANCEL |
000013C0: 20 20 44 55 52 49 4E 47 20 53 45 41 52 43 48 22 | DURING SEARCH"|
000013D0: 00 DF 1B 02 26 53 52 42 B2 31 3A 59 58 B2 31 00 |....&SRB.1:YX.1.|
000013E0: EC 1B 0D 26 4C B2 C3 28 53 52 24 29 00 FB 1B 0F |...&L..(SR$)....|
000013F0: 26 81 53 52 42 B2 59 58 A4 52 43 00 2A 1C 10 26 |&.SRB.YX.RC.*..&|
00001400: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001410: 11 11 11 11 11 11 45 4E 54 52 49 45 53 20 53 45 |......ENTRIES SE|
00001420: 41 52 43 48 45 44 22 53 52 42 00 36 1C 12 26 81 |ARCHED"SRB.6..&.|
00001430: 58 B2 31 A4 4C 37 00 4B 1C 14 26 4C 54 B2 C3 28 |X.1.L7.K..<..(|
00001440: 4D 4C 24 28 53 52 42 2C 58 29 29 00 59 1C 15 26 |ML$(SRB,X)).Y..&|
00001450: 4C 35 B2 4C 54 AB 4C AA 31 00 66 1C 16 26 81 43 |L5.LT.L.1.f..&.C|
00001460: 4E B2 31 A4 4C 35 00 87 1C 1B 26 8B CA 28 4D 4C |N.1.L5....&..(ML|
00001470: 24 28 53 52 42 2C 58 29 2C 43 4E 2C 4C 29 B2 53 |$(SRB,X),CN,L).S|
00001480: 52 24 A7 39 37 39 30 00 9F 1C 1C 26 A1 43 4E 24 |R$.9790....&.CN$|
00001490: 3A 8B 43 4E 24 B3 B1 22 43 22 A7 39 37 35 38 00 |:.CN$.."C".9758.|
000014A0: BD 1C 1D 26 4D 53 47 24 B2 22 53 45 41 52 43 48 |...&MSG$."SEARCH|
000014B0: 20 43 41 4E 43 45 4C 4C 45 44 22 3A 8E 00 CD 1C | CANCELLED":....|
000014C0: 1E 26 82 43 4E 3A 82 58 3A 82 53 52 42 00 EB 1C |.&.CN:.X:.SRB...|
000014D0: 25 26 4D 53 47 24 B2 22 53 54 52 49 4E 47 20 4E |%&MSG$."STRING N|
000014E0: 4F 54 20 46 4F 55 4E 44 22 3A 8E 00 1B 1D 3E 26 |OT FOUND":....>&|
000014F0: 53 55 42 B2 53 52 42 3A 53 31 B2 31 3A 4D 53 47 |SUB.SRB:S1.1:MSG|
00001500: 24 B2 22 43 20 20 54 4F 20 43 4F 4E 54 49 4E 55 |$."C TO CONTINU|
00001510: 45 20 53 45 41 52 43 48 22 3A 8E 00 2E 1D 10 27 |E SEARCH":.....'|
00001520: 99 22 13 22 3B C8 28 44 4E 24 2C 31 37 29 00 50 |.".";.(DN$,17).P|
00001530: 1D 1A 27 99 22 20 20 20 20 12 98 45 4E 54 52 59 |..'." ..ENTRY|
00001540: 20 4E 55 4D 42 45 52 92 97 22 53 55 42 22 90 22 | NUMBER.."SUB"."|
00001550: 00 8D 1D 24 27 99 22 11 20 97 45 98 44 49 54 20 |...$'.". .E.DIT |
00001560: 97 50 98 52 49 4E 54 20 97 4E 98 45 58 54 20 97 |.P.RINT .N.EXT .|
00001570: 42 98 41 43 4B 20 97 48 98 4F 4D 45 20 98 42 97 |B.ACK .H.OME .B.|
00001580: 4B 98 55 50 22 20 20 20 20 20 20 20 22 00 C7 1D |K.UP" "...|
00001590: 2E 27 99 22 11 20 97 53 98 41 56 45 20 97 55 98 |.'.". .S.AVE .U.|
000015A0: 54 49 4C 49 54 59 20 97 44 98 45 4C 20 97 41 98 |TILITY .D.EL .A.|
000015B0: 44 44 90 22 3B 22 20 97 4C 98 41 42 45 4C 20 97 |DD.";" .L.ABEL .|
000015C0: 51 98 55 49 54 97 22 00 D7 1D 38 27 8B 46 52 B2 |Q.UIT."...8'.FR.|
000015D0: 30 A7 31 30 30 36 30 00 F8 1D 42 27 99 22 12 1C |0.10060...B'."..|
000015E0: 22 C8 28 4D 53 47 24 2C 31 34 29 46 52 22 92 90 |".(MSG$,14)FR"..|
000015F0: 22 3A 89 31 30 30 37 30 00 0A 1E 4C 27 99 22 12 |":.10070...L'.".|
00001600: 1C 22 4D 53 47 24 22 92 90 22 00 1D 1E 56 27 4D |."MSG$".."...V'M|
00001610: 53 47 24 B2 22 22 3A 46 52 B2 30 3A 8E 00 28 1E |SG$."":FR.0:..(.|
00001620: 74 27 46 52 24 B2 22 22 00 34 1E 79 27 81 58 B2 |t'FR$."".4.y'.X.|
00001630: 31 A4 53 4C 00 5D 1E 7E 27 8B 20 CA 28 46 58 24 |1.SL.].~'. .(FX$|
00001640: 2C 58 2C 31 29 B3 B1 22 A4 22 A7 46 52 24 B2 46 |,X,1)..".".FR$.F|
00001650: 52 24 AA CA 28 46 58 24 2C 58 2C 31 29 00 63 1E |R$..(FX$,X,1).c.|
00001660: 88 27 82 00 6E 1E 92 27 46 58 24 B2 22 22 00 74 |.'..n..'FX$."".t|
00001670: 1E 9C 27 8E 00 97 1E 3C 28 99 22 93 11 11 1D 1D |..'....<(.".....|
00001680: 1D 1D 1D 1D 1D 1D 4C 41 42 45 4C 20 50 52 4F 43 |......LABEL PROC|
00001690: 45 53 53 49 4E 47 22 00 B5 1E 46 28 99 22 11 11 |ESSING"...F(."..|
000016A0: 1D 1D 97 43 98 48 52 49 53 54 4D 41 53 20 4C 41 |...C.HRISTMAS LA|
000016B0: 42 45 4C 53 22 00 D1 1E 50 28 99 22 11 1D 1D 97 |BELS"...P(."....|
000016C0: 42 98 55 53 49 4E 45 53 53 20 4C 41 42 45 4C 53 |B.USINESS LABELS|
000016D0: 22 00 F5 1E 55 28 99 22 11 1D 1D 97 4D 98 55 4C |"...U(."....M.UL|
000016E0: 54 49 50 4C 45 20 43 4F 50 49 45 53 20 31 20 4C |TIPLE COPIES 1 L|
000016F0: 41 42 45 4C 22 00 0C 1F 5A 28 99 22 11 1D 1D 97 |ABEL"...Z(."....|
00001700: 4E 98 4F 20 4C 41 42 45 4C 53 90 22 00 3A 1F 5F |N.O LABELS.".:._|
00001710: 28 99 22 11 11 11 1D 1D 12 1C 45 4E 54 45 52 20 |(.".......ENTER |
00001720: 43 20 54 4F 20 53 54 4F 50 20 4C 41 42 45 4C 20 |C TO STOP LABEL |
00001730: 50 52 49 4E 54 49 4E 47 90 22 00 69 1F 64 28 A1 |PRINTING.".i.d(.|
00001740: 4C 24 3A 8B 4C 24 B3 B1 22 43 22 AF 4C 24 B3 B1 |L$:.L$.."C".L$..|
00001750: 22 42 22 AF 4C 24 B3 B1 22 4E 22 AF 4C 24 B3 B1 |"B".L$.."N".L$..|
00001760: 22 4D 22 A7 31 30 33 34 30 00 7A 1F 6E 28 8B 20 |"M".10340.z.n(. |
00001770: 4C 24 B2 22 4E 22 20 A7 20 8E 00 8A 1F 73 28 9F |L$."N" . ....s(.|
00001780: 34 2C 34 3A 53 58 B2 53 55 42 00 9E 1F 75 28 8B |4,4:SX.SUB...u(.|
00001790: 4C 24 B2 22 4D 22 20 A7 20 31 30 35 30 30 00 B3 |L$."M" . 10500..|
000017A0: 1F 78 28 8B 20 4C 24 B2 22 43 22 20 A7 20 31 30 |.x(. L$."C" . 10|
000017B0: 34 36 30 00 D8 1F 82 28 85 22 93 11 11 1D 1D 42 |460....(.".....B|
000017C0: 55 53 49 4E 45 53 53 20 4C 41 42 45 4C 20 47 52 |USINESS LABEL GR|
000017D0: 4F 55 50 22 3B 42 47 24 00 FF 1F 8C 28 99 22 48 |OUP";BG$....(."H|
000017E0: 49 54 20 41 4E 59 20 4B 45 59 20 57 48 45 4E 20 |IT ANY KEY WHEN |
000017F0: 4C 41 42 45 4C 53 20 41 4C 49 47 4E 45 44 22 00 |LABELS ALIGNED".|
00001800: 16 20 96 28 A1 4B 24 3A 8B 4B 24 B2 22 22 20 A7 |. .(.K$:.K$."" .|
00001810: 20 31 30 33 39 30 00 24 20 A0 28 81 53 55 42 B2 | 10390.$ .(.SUB.|
00001820: 31 A4 54 4C 00 49 20 A5 28 99 22 13 11 11 11 11 |1.TL.I .(.".....|
00001830: 11 11 11 11 11 11 1D 1D 1D 1D 1D 53 45 41 52 43 |...........SEARC|
00001840: 48 49 4E 47 22 3B 53 55 42 00 66 20 AA 28 8B 20 |HING";SUB.f .(. |
00001850: 4D 4C 24 28 53 55 42 2C 37 29 B2 42 47 24 20 A7 |ML$(SUB,7).BG$ .|
00001860: 20 8D 38 33 30 30 00 7E 20 AF 28 A1 4B 24 3A 8B | .8300.~ .(.K$:.|
00001870: 4B 24 B2 22 43 22 A7 98 34 3A A0 34 3A 8E 00 93 |K$."C"..4:.4:...|
00001880: 20 B4 28 82 53 55 42 3A A0 34 3A 53 55 42 B2 53 | .(.SUB:.4:SUB.S|
00001890: 58 3A 8E 00 B0 20 DC 28 99 22 93 11 11 1D 1D 43 |X:... .(.".....C|
000018A0: 48 52 49 53 54 4D 41 53 20 4C 41 42 45 4C 53 22 |HRISTMAS LABELS"|
000018B0: 00 BE 20 E6 28 81 53 55 42 B2 31 A4 54 4C 00 DD |.. .(.SUB.1.TL..|
000018C0: 20 EB 28 A1 4B 24 3A 8B 4B 24 B2 22 43 22 A7 98 | .(.K$:.K$."C"..|
000018D0: 34 3A A0 34 3A 53 55 42 B2 53 58 3A 8E 00 17 21 |4:.4:SUB.SX:...!|
000018E0: F0 28 8B 20 4D 4C 24 28 53 55 42 2C 38 29 B2 22 |.(. ML$(SUB,8)."|
000018F0: 59 22 AF 4D 4C 24 28 53 55 42 2C 39 29 B3 B1 22 |Y".ML$(SUB,9).."|
00001900: 59 22 A7 8D 38 33 30 30 3A 4D 4C 24 28 53 55 42 |Y"..8300:ML$(SUB|
00001910: 2C 39 29 B2 22 59 22 00 2C 21 FA 28 82 53 55 42 |,9)."Y".,!.(.SUB|
00001920: 3A A0 34 3A 53 55 42 B2 53 58 3A 8E 00 5C 21 04 |:.4:SUB.SX:..\!.|
00001930: 29 99 22 93 11 1D 41 52 45 20 59 4F 55 20 50 4F |)."...ARE YOU PO|
00001940: 53 49 54 49 4F 4E 45 44 20 41 54 20 44 45 53 49 |SITIONED AT DESI|
00001950: 52 45 44 20 41 44 44 52 45 53 53 22 00 74 21 0E |RED ADDRESS".t!.|
00001960: 29 A1 20 4B 24 3A 8B 4B 24 B2 22 22 20 A7 20 31 |). K$:.K$."" . 1|
00001970: 30 35 31 30 00 85 21 18 29 8B 20 4B 24 B2 22 4E |0510..!.). K$."N|
00001980: 22 20 A7 20 8E 00 A2 21 22 29 85 22 11 11 1D 48 |" . ...!")."...H|
00001990: 4F 57 20 4D 41 4E 59 20 4C 41 42 45 4C 53 22 3B |OW MANY LABELS";|
000019A0: 4E 4C 00 B6 21 2C 29 53 5A B2 53 55 42 3A 81 58 |NL..!,)SZ.SUB:.X|
000019B0: 36 B2 31 A4 4E 4C 00 D5 21 36 29 A1 4B 24 3A 8B |6.1.NL..!6).K$:.|
000019C0: 4B 24 B2 22 43 22 A7 98 34 3A A0 34 3A 53 55 42 |K$."C"..4:.4:SUB|
000019D0: B2 53 58 3A 8E 00 DF 21 40 29 8D 38 33 30 30 00 |.SX:...!@).8300.|
000019E0: F3 21 4A 29 82 58 36 3A 53 55 42 B2 53 58 3A A0 |.!J).X6:SUB.SX:.|
000019F0: 34 3A 8E 00 23 22 CC 29 99 22 93 11 11 22 3B C8 |4:..#".)."...";.|
00001A00: 28 52 58 24 2C 39 29 3B 22 1F 4D 20 41 20 49 20 |(RX$,9);".M A I |
00001A10: 4C 20 20 4C 20 49 20 53 20 54 20 20 36 20 34 11 |L L I S T 6 4.|
00001A20: 11 90 22 00 39 22 D6 29 99 C8 28 52 58 24 2C 31 |..".9".)..(RX$,1|
00001A30: 36 29 3B 22 1C 42 20 59 22 00 5C 22 E0 29 99 22 |6);".B Y".\".)."|
00001A40: 90 22 3B A6 31 30 29 3B 22 11 44 41 56 45 20 26 |.";.10);".DAVE &|
00001A50: 20 41 4C 20 4A 4F 48 4E 53 4F 4E 22 00 85 22 EA | AL JOHNSON"..".|
00001A60: 29 99 22 11 11 1D 1D 54 48 49 53 20 49 53 20 41 |)."....THIS IS A|
00001A70: 20 56 45 52 53 41 54 49 4C 45 20 4D 41 49 4C 20 | VERSATILE MAIL |
00001A80: 4C 49 53 54 22 00 B0 22 F4 29 99 22 1D 1D 50 52 |LIST"..".)."..PR|
00001A90: 4F 47 52 41 4D 2E 20 20 49 54 20 57 4F 52 4B 53 |OGRAM. IT WORKS|
00001AA0: 20 4F 4E 4C 59 20 57 49 54 48 20 44 49 53 4B 22 | ONLY WITH DISK"|
00001AB0: 00 DA 22 FE 29 99 22 1D 1D 49 54 20 50 52 49 4E |..".)."..IT PRIN|
00001AC0: 54 53 20 42 55 53 49 4E 45 53 53 20 41 4E 44 20 |TS BUSINESS AND |
00001AD0: 43 48 52 49 53 54 4D 41 53 22 00 EA 22 08 2A 99 |CHRISTMAS"..".*.|
00001AE0: 22 1D 1D 4C 41 42 45 4C 53 22 00 14 23 12 2A 99 |"..LABELS"..#.*.|
00001AF0: 22 11 11 1D 1D 45 4E 54 45 52 20 12 4E 92 20 49 |"....ENTER .N. I|
00001B00: 46 20 54 48 49 53 20 49 53 20 46 4F 52 20 41 20 |F THIS IS FOR A |
00001B10: 4E 45 57 22 00 42 23 1C 2A 99 22 1D 1D 46 49 4C |NEW".B#.*."..FIL|
00001B20: 45 2E 20 20 45 4E 54 45 52 20 27 42 27 20 54 4F |E. ENTER 'B' TO|
00001B30: 20 4C 4F 41 44 20 42 41 43 4B 55 50 20 46 49 4C | LOAD BACKUP FIL|
00001B40: 45 22 00 70 23 21 2A 99 22 1D 1D 45 4E 54 45 52 |E".p#!*."..ENTER|
00001B50: 20 41 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 49 | ANY OTHER KEY I|
00001B60: 46 20 54 48 45 20 4D 41 49 4E 20 46 49 4C 45 22 |F THE MAIN FILE"|
00001B70: 00 88 23 26 2A 99 22 1D 1D 41 4C 52 45 41 44 59 |..#&*."..ALREADY|
00001B80: 20 45 58 49 53 54 53 22 00 9D 23 30 2A A1 4E 24 | EXISTS"..#0*.N$|
00001B90: 3A 8B 4E 24 B2 22 22 A7 31 30 38 30 30 00 A3 23 |:.N$."".10800..#|
00001BA0: 3A 2A 8E 00 C5 23 F8 2A 8F 20 2A 2A 2A 2A 2A 2A |:*...#.*. ******|
00001BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BC0: 2A 2A 2A 2A 2A 00 E3 23 02 2B 8F 20 2A 20 55 53 |*****..#.+. * US|
00001BD0: 45 52 20 4E 4F 54 45 53 20 4F 4E 20 4D 41 49 4C |ER NOTES ON MAIL|
00001BE0: 2E 36 34 00 07 24 0C 2B 8F 20 2A 20 54 48 49 53 |.64..$.+. * THIS|
00001BF0: 20 50 52 4F 47 52 41 4D 20 57 41 53 20 4F 52 49 | PROGRAM WAS ORI|
00001C00: 47 49 4E 41 4C 4C 59 00 29 24 16 2B 8F 20 2A 20 |GINALLY.)$.+. * |
00001C10: 57 52 49 54 54 45 4E 20 46 4F 52 20 41 20 56 49 |WRITTEN FOR A VI|
00001C20: 43 32 30 20 42 59 20 44 2E 00 4D 24 20 2B 8F 20 |C20 BY D..M$ +. |
00001C30: 2A 20 4A 4F 48 4E 53 4F 4E 2E 20 20 57 45 20 55 |* JOHNSON. WE U|
00001C40: 50 47 52 41 44 45 44 20 49 54 20 54 4F 00 6C 24 |PGRADED IT TO.l$|
00001C50: 2A 2B 8F 20 2A 20 42 45 54 54 45 52 20 52 55 4E |*+. * BETTER RUN|
00001C60: 20 4F 4E 20 54 48 45 20 43 36 34 2E 00 74 24 34 | ON THE C64..t$4|
00001C70: 2B 8F 20 2A 00 98 24 3E 2B 8F 20 2A 20 54 48 45 |+. *..$>+. * THE|
00001C80: 20 4D 45 4E 55 20 49 53 20 52 45 4C 41 54 49 56 | MENU IS RELATIV|
00001C90: 45 4C 59 20 45 41 53 59 00 B9 24 48 2B 8F 20 2A |ELY EASY..$H+. *|
00001CA0: 20 54 4F 20 46 4F 4C 4C 4F 57 2E 20 20 59 4F 55 | TO FOLLOW. YOU|
00001CB0: 20 48 41 56 45 20 41 20 35 00 DB 24 52 2B 8F 20 | HAVE A 5..$R+. |
00001CC0: 2A 20 4C 49 4E 45 20 41 44 44 52 45 53 53 20 54 |* LINE ADDRESS T|
00001CD0: 4F 20 45 4E 54 45 52 2E 20 54 4F 00 FE 24 5C 2B |O ENTER. TO..$\+|
00001CE0: 8F 20 2A 20 49 4E 44 45 4E 54 20 49 4E 46 4F 20 |. * INDENT INFO |
00001CF0: 28 5A 49 50 20 43 4F 44 45 29 20 55 53 45 00 1F |(ZIP CODE) USE..|
00001D00: 25 66 2B 8F 20 2A 20 53 48 49 46 54 45 44 20 53 |%f+. * SHIFTED S|
00001D10: 50 41 43 45 53 2E 20 20 54 4F 20 4B 45 45 50 00 |PACES. TO KEEP.|
00001D20: 42 25 70 2B 8F 20 2A 20 41 44 44 52 45 53 53 20 |B%p+. * ADDRESS |
00001D30: 49 4E 46 4F 20 46 52 4F 4D 20 50 52 49 4E 54 49 |INFO FROM PRINTI|
00001D40: 4E 47 00 66 25 7A 2B 8F 20 2A 20 4F 4E 20 4C 41 |NG.f%z+. * ON LA|
00001D50: 42 45 4C 53 2C 20 50 55 54 20 41 20 4C 45 46 54 |BELS, PUT A LEFT|
00001D60: 20 41 52 52 4F 57 00 85 25 84 2B 8F 20 2A 20 49 | ARROW..%.+. * I|
00001D70: 4E 20 54 48 45 20 46 49 52 53 54 20 50 4F 53 49 |N THE FIRST POSI|
00001D80: 54 49 4F 4E 2E 00 A9 25 8E 2B 8F 20 2A 20 54 48 |TION...%.+. * TH|
00001D90: 45 52 45 20 41 52 45 20 54 57 4F 20 4C 41 42 45 |ERE ARE TWO LABE|
00001DA0: 4C 20 46 49 45 4C 44 53 2E 00 CD 25 98 2B 8F 20 |L FIELDS...%.+. |
00001DB0: 2A 20 54 48 45 20 46 49 52 53 54 20 49 53 20 49 |* THE FIRST IS I|
00001DC0: 4E 54 45 4E 44 45 44 20 54 4F 20 42 45 00 F0 25 |NTENDED TO BE..%|
00001DD0: A2 2B 8F 20 2A 20 42 45 20 55 53 45 44 20 46 4F |.+. * BE USED FO|
00001DE0: 52 20 43 48 52 49 53 54 4D 41 53 20 43 41 52 44 |R CHRISTMAS CARD|
00001DF0: 00 11 26 AC 2B 8F 20 2A 20 4C 41 42 45 4C 53 2E |..&.+. * LABELS.|
00001E00: 20 20 50 55 54 20 49 4E 20 41 20 27 59 27 20 54 | PUT IN A 'Y' T|
00001E10: 4F 00 32 26 B6 2B 8F 20 2A 20 48 41 56 45 20 54 |O.2&.+. * HAVE T|
00001E20: 48 45 20 41 44 44 52 45 53 53 20 50 52 49 4E 54 |HE ADDRESS PRINT|
00001E30: 45 44 00 55 26 C0 2B 8F 20 2A 20 44 55 52 49 4E |ED.U&.+. * DURIN|
00001E40: 47 20 54 48 45 20 43 48 52 49 53 54 4D 41 53 20 |G THE CHRISTMAS |
00001E50: 4C 41 42 45 4C 00 76 26 CA 2B 8F 20 2A 20 52 55 |LABEL.v&.+. * RU|
00001E60: 4E 2E 20 20 54 48 45 20 4F 54 48 45 52 20 46 49 |N. THE OTHER FI|
00001E70: 45 4C 44 20 49 53 00 99 26 D4 2B 8F 20 2A 20 46 |ELD IS..&.+. * F|
00001E80: 4F 52 20 4D 49 53 43 2E 20 4C 41 42 45 4C 53 2E |OR MISC. LABELS.|
00001E90: 20 20 59 4F 55 20 43 41 4E 00 BB 26 DE 2B 8F 20 | YOU CAN..&.+. |
00001EA0: 2A 20 50 55 54 20 41 4E 20 27 41 27 20 49 4E 20 |* PUT AN 'A' IN |
00001EB0: 49 54 20 41 4E 44 20 54 48 45 4E 00 D8 26 E8 2B |IT AND THEN..&.+|
00001EC0: 8F 20 2A 20 50 52 49 4E 54 20 4C 41 42 45 4C 53 |. * PRINT LABELS|
00001ED0: 20 46 4F 52 20 41 4C 4C 00 F7 26 F2 2B 8F 20 2A | FOR ALL..&.+. *|
00001EE0: 20 41 44 44 52 45 53 53 45 53 20 57 49 54 48 20 | ADDRESSES WITH |
00001EF0: 41 4E 20 27 41 27 2E 00 FF 26 FC 2B 8F 20 2A 00 |AN 'A'...&.+. *.|
00001F00: 22 27 06 2C 8F 20 2A 20 50 4C 41 59 20 41 52 4F |"'.,. * PLAY ARO|
00001F10: 55 4E 44 20 57 49 54 48 20 54 48 45 20 4F 54 48 |UND WITH THE OTH|
00001F20: 45 52 00 43 27 10 2C 8F 20 2A 20 4F 50 54 49 4F |ER.C'.,. * OPTIO|
00001F30: 4E 53 2E 20 20 54 48 45 59 27 52 45 20 50 52 45 |NS. THEY'RE PRE|
00001F40: 54 54 59 00 5B 27 1A 2C 8F 20 2A 20 45 41 53 59 |TTY.['.,. * EASY|
00001F50: 20 54 4F 20 46 4F 4C 4C 4F 57 2E 00 63 27 24 2C | TO FOLLOW..c'$,|
00001F60: 8F 20 2A 00 86 27 2E 2C 8F 20 2A 20 49 46 20 59 |. *..'.,. * IF Y|
00001F70: 4F 55 20 4C 49 4B 45 20 54 48 45 20 50 52 4F 47 |OU LIKE THE PROG|
00001F80: 52 41 4D 20 4F 52 00 A8 27 38 2C 8F 20 2A 20 4D |RAM OR..'8,. * M|
00001F90: 41 4B 45 20 41 20 47 4F 4F 44 20 4D 4F 44 49 46 |AKE A GOOD MODIF|
00001FA0: 49 43 41 54 49 4F 4E 2C 00 CA 27 42 2C 8F 20 2A |ICATION,..'B,. *|
00001FB0: 20 49 20 57 4F 55 4C 44 20 4C 49 4B 45 20 54 4F | I WOULD LIKE TO|
00001FC0: 20 48 45 41 52 20 46 52 4F 4D 00 EE 27 4C 2C 8F | HEAR FROM..'L,.|
00001FD0: 20 2A 20 59 4F 55 2E 20 20 50 4C 45 41 53 45 20 | * YOU. PLEASE |
00001FE0: 44 52 4F 50 20 4D 45 20 41 20 43 41 52 44 00 12 |DROP ME A CARD..|
00001FF0: 28 56 2C 8F 20 2A 20 41 54 20 54 48 45 20 41 44 |(V,. * AT THE AD|
00002000: 44 52 45 53 53 20 41 54 20 54 48 45 20 46 49 52 |DRESS AT THE FIR|
00002010: 53 54 00 2F 28 60 2C 8F 20 2A 20 50 41 52 54 20 |ST./(`,. * PART |
00002020: 4F 46 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 00 |OF THE PROGRAM..|
00002030: 37 28 6A 2C 8F 20 2A 00 5B 28 74 2C 8F 20 2A 20 |7(j,. *.[(t,. * |
00002040: 2D 2D 20 44 45 4C 45 54 45 20 54 48 45 53 45 20 |-- DELETE THESE |
00002050: 4E 4F 54 45 53 20 41 46 54 45 52 00 7F 28 7E 2C |NOTES AFTER..(~,|
00002060: 8F 20 2A 20 20 20 20 52 45 41 44 49 4E 47 20 4F |. * READING O|
00002070: 52 20 4C 49 53 54 49 4E 47 20 54 48 45 4D 2E 00 |R LISTING THEM..|
00002080: 9F 28 83 2C 8F 20 2A 20 20 20 20 20 20 20 20 20 |.(.,. * |
00002090: 20 20 20 20 20 41 4C 20 4A 4F 48 4E 53 4F 4E 00 | AL JOHNSON.|
000020A0: C2 28 88 2C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(.,. **********|
000020B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020C0: 2A 2A 00 00 00 |**... |
....... *****************.7.... * MAIL.6
4 SUBMITTED BY.Y.... * AL JOHNSON & DAV
E JOHNSON.S.... * 2446 SOUTHGATE SQ.....
. * RESTON, VA 22091...... ************
*****.L.... * LIST 11000- FOR NOTES ON
PROG...... *****************.....TL.150:
RS.9:SUB.1:LL.5.'...DN$."...............
..............".[...RX$."...............
..........................".L.... ML$(TL
,RS)......53281,15:LN.24:RTN$.G(13)...(.
.10700:. HEADINGS...X..N$.."N"..9000.G..
..##UNDERSCORES.Q....8000......##PRINT A
DDR... ..8100......##TEST INPUT......N$:
.N$."".180.#....N$.."E".200.2....8200:.1
49.C.H..N$.."P".210.U.M..4,4:.8300: 4.F.
R..N$.."H".213.U.S.SUB.1:.149...U..N$.."
L" . 220...V..10300:.149......N$.."N".26
0.....SUB.SUB.1:.SUB.TL.225:SUB.LN:MSG$.
"TABLE FULL-SAVE".....SUB.LN:MSG$."TABLE
FULL-SAVE":.149......149.!....N$.."B".27
0.<...SUB.SUB.1:.SUB.1.SUB.1.E....149.Y.
... N$.."K" . 280.H....9400:.149.Y....N$
.."S".290......8500:.149...".. N$.."Q".3
00...%..".QUITTING NOW":..B.,..N$.."U".4
00.Q.@..9100:.149......N$.."D".450......
7000:.149...B..N$.."A".470...G..7500./.U
..##TEST FOR CONTINUE OF SEARCH.>.V..S1.
.1.500.Y.X..N$."C".YX.SRB.1:.9743.B....1
49.X.X.. ###DELETE ENTRY...L.MSG$."DELET
E YOU SURE ??Y".G.V..8100:MSG$."D E L E
T I N G ":DUB.SUB......DE$:.DE$.""
.7040......DE$.."Y".7099......8100:MSG$.
"".(....X.1.RS:ML$(DUB,X).ML$(DUB.1,X):.
.B....DUB.RC.RC.RC.1:.7099.V...DUB.DUB.1
:.7050.D...MSG$."":.......".....ENTER CO
MMAND SHOWN ON SCREEN."...L.SUB.RC.1...`
.. SUB. TL . 7550.W.T.MSG$."NO ROOM FOR
ADD SAVE ":.149...~..8000:.8100:.8200:..
..@..###PRINT UNDERSCORES...E.."."...J..
LP.1.5.I.T.."."LP"......................
........".Q.^..LP.~.H..". PHONE ...
......... LBL GRP ."...R..". XMAS
LIST . XMAS LBL ."......###DSPLY
ADDRESS.I....".".V.B..LP.1.LL...L.."...
."ML$(SUB,LP)...N..198,0...O..LP...P.LP.
LP.1.7.V..".";H(DN$,12);H(RX$,12);ML$(SU
B,LP.1).X....".";H(RX$,35);ML$(SUB,LP.2)
.Y....".";H(RX$,16);ML$(SUB,LP.3)......"
.";H(RX$,34);ML$(SUB,LP.4).... .10000...
. ..D.. .###READ FROM SCREEN.M.. .".".Y.
. .LP.1.5...! W1$.""...& ....' .".";LIN$
...+ .X.1.30.0.- . J(LIN$,X,1)..".". W1$
.W1$.J(LIN$,X,1).M.. . J(LIN$,X,2).".."
.8250.T.0 .X.H.: ML$(SUB,LP).W1$.U.? LIN
$.W1$.}.D .LP...F . N$.."E" . RC.RC.1...
H SL.12.L.I ."...........";FX$:.10100:ML
$(SUB,6).FR$.U.K SL.1...L .".";H(RX$,33)
;:.FX$:.10100:ML$(SUB,7).FR$.4.P .".";H(
RX$,14);:.FX$:.10100: ML$(SUB,8).FR$.C.V
.".";H(RX$,32);:.FX$:.10100:ML$(SUB,9).
FR$.I.G ..|.L .###PRINTENTRY.... .LP.1.L
L.... . H(ML$(SUB,LP),1)."_"..4," ":.834
5.D.. .4,ML$(SUB,LP).L.. .LP.V.. .4,""..
.. ....4!.##PUT TO DISK...<!.15,8,15...>
!.2,8,2,"@0:MAILLIST,S,W":.9600.).C!.2,R
C.6.H!.PT.1.RC.B.M!.X.1.RS.C.O!.ML$(PT,X
)."" . .2,"\":.8535.T.R!.2,ML$(PT,X).{.W
!.X...\!.PT...F! 2:.9600: 15:....(#.##GE
T FROM DISK...-#.15,8,15....#. N$."B"..3
,8,3,"MAIL.FILE.BK,S,R":.9600:.9013...2#
.3,8,3,"MAILLIST,S,R":.9600...5#.3,RC.".
<#.PT.1.RC...@#.X.1.RS.E.F#.3,ML$(PT,X):
.9600.M.I#. H(ML$(PT,X),1)."\" . ML$(PT,
X)."".T.L#.X.|.P#.PT...Z# 3: 15:.....#.#
#PERFORM LISTAND FIND....#LSB.SUB.L. #."
....PRINTER OPTIONS"....#."...TO CREATE
A DIRECTORY":.".........PF5.. LIST ALL E
NTRIES.8..#."........PF3.. LIST FROM THI
S POINT".^..#."....ENTER ..PF1.. TO DO S
EARCH"....#."....ENTER ..PF2.. FOR XMAS
CARD COUNT".O..#."....ENTER ..PF4.. TO R
ESET XMAS CARDS":."....SENT INDICATORS".
...#."....ENTER ..PF7.. TO RETURN"....#.
LI$:.LI$."".9140. ..#. LI$.G(137) . 9200
.8..#. LI$.G(138) . 9300.M..#.LI$.G(136)
.9199.I..#.LI$.G(135).LSB.1:.9160...A#.L
I$.G(133)..9700:.9199...B#.LI$.G(134).91
60...D#.9140...H#.4,4...K#.LSB.(RC).9198
.X.L#.ML$(LSB,1)."".9183...M#.4,G(15)G(1
45):.4,""...P#.4,G(16)"10"ML$(LSB,1)...T
#.LP.2.6.4.U#. ML$(LSB,LP)."" . 9178.P.X
#.4,G(16)"15"ML$(LSB,LP).X.Z#.LP....#.4,
G(16)"15XMAS ";ML$(LSB,8)G(16)"28MISC L
B ";ML$(LSB,7)....#.K$:.K$."C"..4: 4:..
...#LSB.LSB.1.N..#.LSB.RC.9164....#.4,G(
15)G(10): 4,4....#.....#CC.0....#. X.1.R
C....#. ML$(X,8)."Y" . CC.CC.1.%..$.X.X.
.$.".";H(DN$,22);"..CHRISTMAS CARDS FOUN
D.. ";CC....$.".....ENTER A COMMAND SHOW
N ON SCREEN."..."$.9140...T$.X.1.RC...^$
. ML$(X,8)."Y".ML$(X,9)."N".B.H$.X...R$.
".";H(DN$,22);"..CHRISTMAS LABELS RESET.
. ".%.|$.".....ENTER COMMAND SHOW
N ON SCREEN."./..$.9140.O..$.".....BACK
UP MAIL LIST FILE TO SEPARATE":."....DIS
K FILE"...B$."...BACKING UP WILL CAUSE P
ROGRAM TO"...L$."..QUIT AFTER IT IS COMP
LETED"...V$."....IS THIS WHAT YOU WANT".
...$.X$:. X$.."Y".X$.."N" .9440....$. X$
."N" . ..<..$."....LOAD BACKUP DISK AND
HIT ANY KEY".T..$. X$:. X$."" . 9465.P..
$. 15,8,15,"I":.9600: 15....%. 15,8,15:.
9600....%. 6,8,6,"@0:MAIL.FILE.BK,S,W"..
..%.6,RC....%. X.1.RC.I..%.Y.1.RS....%.M
L$(X,Y)."" . .6,"\":.9500....%.6,ML$(X,Y
):.9600....%.Y:.X...&% 6: 15.,.0%."BACKU
P COMPLETED".J.5%."YOUR BACKUP DISK IS S
TILL IS IN THE ":." DRIVE".|.:%.
"JOB ENDS":.....%.15,EN,EM$....%. EN.0 .
.....%.".DISK ERROR":.EN,EM$:..P..%.##S
EARCH FOR STRING....%S1.0:SR$.""....%.".
.....TYPE IN SEARCH STRING"....%.SR$....
%.SR$."".9199.O..%.".....SEARCH .N.AME O
NLY OR .A.LL ADDR":.W3$.H..%. W3$."N".L7
.1:.9720.Q..%L7.6....%.RTN$".SEARCHING F
OR"RTN$"..."SR$"..".P..%.RTN$"..TYPE IN
..C.. TO CANCEL DURING SEARCH"....&SRB
.1:YX.1....&L.C(SR$)....&.SRB.YX.RC.*..&
."....................ENTRIES SEARCHED"S
RB.6..&.X.1.L7.K..<.C(ML$(SRB,X)).Y..&
L5.LT.L.1.F..&.CN.1.L5....&.J(ML$(SRB,X)
,CN,L).SR$.9790....&.CN$:.CN$.."C".9758.
...&MSG$."SEARCH CANCELLED":..M..&.CN:.X
:.SRB...%&MSG$."STRING NOT FOUND":....>&
SUB.SRB:S1.1:MSG$."C TO CONTINUE SEARCH
":.....'.".";H(DN$,17).P..'." ..ENTRY
NUMBER.."SUB"."...$'.". .E.DIT .P.RINT
.N.EXT .B.ACK .H.OME .B.K.UP" ".G.
.'.". .S.AVE .U.TILITY .D.EL .A.DD.";" .
L.ABEL .Q.UIT.".W.8'.FR.0.10060...B'."..
"H(MSG$,14)FR"..":.10070...L'.".."MSG$".
."...V'MSG$."":FR.0:..(.T'FR$."".4.Y'.X.
1.SL.].~'. J(FX$,X,1)..".".FR$.FR$.J(FX$
,X,1).C..'..N..'FX$."".T..'....<(.".....
......LABEL PROCESSING"...F(.".....C.HRI
STMAS LABELS".Q.P(."....B.USINESS LABELS
"...U(."....M.ULTIPLE COPIES 1 LABEL"...
Z(."....N.O LABELS.".:._(.".......ENTER
C TO STOP LABEL PRINTING.".I.D(.L$:.L$..
"C".L$.."B".L$.."N".L$.."M".10340.Z.N(.
L$."N" . ....S(.4,4:SX.SUB...U(.L$."M" .
10500...X(. L$."C" . 10460.X..(.".....B
USINESS LABEL GROUP";BG$....(."HIT ANY K
EY WHEN LABELS ALIGNED".. .(.K$:.K$."" .
10390.$ (.SUB.1.TL.I .(.".............
...SEARCHING";SUB.F .(. ML$(SUB,7).BG$ .
.8300.~ .(.K$:.K$."C"..4: 4:... .(.SUB:
4:SUB.SX:... .(.".....CHRISTMAS LABELS"
.. .(.SUB.1.TL.. .(.K$:.K$."C"..4: 4:SUB
.SX:...!.(. ML$(SUB,8)."Y".ML$(SUB,9).."
Y"..8300:ML$(SUB,9)."Y".,!.(.SUB: 4:SUB.
SX:..\!.)."...ARE YOU POSITIONED AT DESI
RED ADDRESS".T!.). K$:.K$."" . 10510..!.
). K$."N" . ...!")."...HOW MANY LABELS";
NL..!,)SZ.SUB:.X6.1.NL.U!6).K$:.K$."C"..
4: 4:SUB.SX:...!@).8300..!J).X6:SUB.SX:
4:..#"L)."...";H(RX$,9);".M A I L L I S
T 6 4...".9"V).H(RX$,16);".B Y".\".)."
.";.10);".DAVE & AL JOHNSON"..".)."....T
HIS IS A VERSATILE MAIL LIST"..".)."..PR
OGRAM. IT WORKS ONLY WITH DISK".Z".).".
.IT PRINTS BUSINESS AND CHRISTMAS"..".*.
"..LABELS"..#.*."....ENTER .N. IF THIS I
S FOR A NEW".B#.*."..FILE. ENTER 'B' TO
LOAD BACKUP FILE".P#!*."..ENTER ANY OTH
ER KEY IF THE MAIN FILE"..#&*."..ALREADY
EXISTS"..#0*.N$:.N$."".10800..#:*..E#.*
. ***************************..#.+. * US
ER NOTES ON MAIL.64..$.+. * THIS PROGRAM
WAS ORIGINALLY.)$.+. * WRITTEN FOR A VI
C20 BY D..M$ +. * JOHNSON. WE UPGRADED
IT TO.L$*+. * BETTER RUN ON THE C64..T$4
+. *..$>+. * THE MENU IS RELATIVELY EASY
..$H+. * TO FOLLOW. YOU HAVE A 5..$R+.
* LINE ADDRESS TO ENTER. TO..$\+. * INDE
NT INFO (ZIP CODE) USE..%F+. * SHIFTED S
PACES. TO KEEP.B%P+. * ADDRESS INFO FRO
M PRINTING.F%Z+. * ON LABELS, PUT A LEFT
ARROW..%.+. * IN THE FIRST POSITION...%
.+. * THERE ARE TWO LABEL FIELDS..M%.+.
* THE FIRST IS INTENDED TO BE..%.+. * BE
USED FOR CHRISTMAS CARD..&.+. * LABELS.
PUT IN A 'Y' TO.2&.+. * HAVE THE ADDRE
SS PRINTED.U&.+. * DURING THE CHRISTMAS
LABEL.V&J+. * RUN. THE OTHER FIELD IS..
&T+. * FOR MISC. LABELS. YOU CAN..&.+.
* PUT AN 'A' IN IT AND THEN.X&.+. * PRIN
T LABELS FOR ALL..&.+. * ADDRESSES WITH
AN 'A'...&.+. *."'.,. * PLAY AROUND WITH
THE OTHER.C'.,. * OPTIONS. THEY'RE PRE
TTY.['.,. * EASY TO FOLLOW..C'$,. *..'.,
. * IF YOU LIKE THE PROGRAM OR..'8,. * M
AKE A GOOD MODIFICATION,.J'B,. * I WOULD
LIKE TO HEAR FROM..'L,. * YOU. PLEASE
DROP ME A CARD..(V,. * AT THE ADDRESS AT
THE FIRST./(`,. * PART OF THE PROGRAM..
7(J,. *.[(T,. * -- DELETE THESE NOTES AF
TER.(~,. * READING OR LISTING THEM..
.(.,. * AL JOHNSON.B(.,. **
**************************...
> CLICK IMAGE PREVIEW FOR FULL MODAL