MAILBASE
FILE INFORMATION
FILENAME(S): MAILBASE
FILE TYPE(S): PRG
FILE SIZE: 16.2K
FIRST SEEN: 2025-11-30 17:31:27
APPEARS ON: 1 disk(s)
FILE HASH
a4f0350f0d732036449124310759d6efcde68c42104b91fbec6ba20556ea5eaf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARCADIAN | MAILBASE | PRG | UK CD | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 64 00 97 36 35 30 2C 30 3A 97 35 33 |....d..650,0:.53|
00000010: 32 38 31 2C 31 35 3A 99 22 93 1C 22 00 29 08 6E |281,15:."..".).n|
00000020: 00 9F 31 35 2C 38 2C 31 35 00 6E 08 78 00 83 22 |..15,8,15.n.x.."|
00000030: 4C 41 53 54 20 4E 41 4D 45 22 2C 22 46 49 52 53 |LAST NAME","FIRS|
00000040: 54 20 4E 41 4D 45 22 2C 22 41 44 44 52 45 53 53 |T NAME","ADDRESS|
00000050: 20 31 22 2C 22 41 44 44 52 45 53 53 20 32 22 2C | 1","ADDRESS 2",|
00000060: 22 43 49 54 59 22 2C 22 53 54 41 54 45 22 00 8D |"CITY","STATE"..|
00000070: 08 82 00 83 22 5A 49 50 2F 43 4F 55 4E 54 52 59 |...."ZIP/COUNTRY|
00000080: 22 2C 22 54 45 4C 45 50 48 4F 4E 45 22 00 AA 08 |","TELEPHONE"...|
00000090: 8C 00 81 49 B2 31 A4 38 3A 87 44 41 24 3A 46 49 |...I.1.8:.DA$:FI|
000000A0: 24 28 49 29 B2 44 41 24 3A 82 00 CD 08 96 00 52 |$(I).DA$:......R|
000000B0: 43 B2 30 3A 4C 44 B2 30 3A 43 55 B2 30 3A 44 31 |C.0:LD.0:CU.0:D1|
000000C0: B2 31 32 35 30 3A 44 33 B2 32 35 30 30 00 F6 08 |.1250:D3.2500...|
000000D0: A0 00 53 53 24 B2 22 A0 20 20 20 20 20 20 20 20 |..SS$.". |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 A0 22 00 0B 09 AA 00 8B C2 28 34 39 | .".......(49|
00000100: 31 35 32 29 B2 37 36 A7 32 31 30 00 47 09 B4 00 |152).76.210.G...|
00000110: 99 22 93 11 20 50 55 54 20 12 20 53 54 41 52 54 |.".. PUT . START|
00000120: 45 52 20 4B 49 54 20 92 20 44 49 53 4B 20 49 4E |ER KIT . DISK IN|
00000130: 20 44 52 49 56 45 22 3A 99 22 11 20 48 49 54 20 | DRIVE":.". HIT |
00000140: 52 45 54 55 52 4E 22 00 5C 09 BE 00 A1 5A 5A 24 |RETURN".\....ZZ$|
00000150: 3A 8B 5A 5A 24 B2 22 22 A7 31 39 30 00 74 09 C8 |:.ZZ$."".190.t..|
00000160: 00 A0 31 35 3A 93 22 4D 41 49 4C 53 4F 52 54 22 |..15:."MAILSORT"|
00000170: 2C 38 2C 31 00 AB 09 D2 00 99 22 93 11 20 50 55 |,8,1......".. PU|
00000180: 54 20 44 41 54 41 20 44 49 53 4B 20 49 4E 20 44 |T DATA DISK IN D|
00000190: 52 49 56 45 22 3A 99 22 11 20 54 48 45 4E 20 48 |RIVE":.". THEN H|
000001A0: 49 54 20 12 52 45 54 55 52 4E 22 00 FB 09 DC 00 |IT .RETURN".....|
000001B0: 99 22 11 11 11 11 11 20 54 48 45 20 4D 41 49 4C |."..... THE MAIL|
000001C0: 49 4E 47 20 4C 49 53 54 22 3A 99 22 11 20 28 43 |ING LIST":.". (C|
000001D0: 29 20 43 4F 50 59 52 49 47 48 54 20 31 39 38 34 |) COPYRIGHT 1984|
000001E0: 22 3A 99 22 20 42 59 20 4E 4F 52 54 48 57 45 53 |":." BY NORTHWES|
000001F0: 54 20 53 4F 46 54 57 41 52 45 22 00 10 0A E6 00 |T SOFTWARE".....|
00000200: A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 32 33 30 |.ZZ$:.ZZ$."".230|
00000210: 00 24 0A F0 00 8D 37 32 30 3A 8B 45 31 B3 B1 30 |.$....720:.E1..0|
00000220: A7 33 34 30 00 3A 0A FA 00 9F 37 2C 38 2C 37 2C |.340.:....7,8,7,|
00000230: 22 4D 41 49 4C 4C 49 53 54 22 00 4F 0A 04 01 8D |"MAILLIST".O....|
00000240: 36 30 31 30 3A 8B 45 31 B3 B1 30 A7 33 34 30 00 |6010:.E1..0.340.|
00000250: 73 0A 0E 01 98 31 35 2C 22 50 22 AA C7 28 39 36 |s....15,"P"..(96|
00000260: AA 37 29 AA C7 28 38 39 29 AA C7 28 32 29 AA C7 |.7)..(89)..(2)..|
00000270: 28 31 29 00 88 0A 18 01 8D 36 30 31 30 3A 8B 45 |(1)......6010:.E|
00000280: 31 B3 B1 30 A7 33 34 30 00 93 0A 22 01 84 37 2C |1..0.340..."..7,|
00000290: 54 50 24 00 B1 0A 2C 01 8B C8 28 54 50 24 2C 39 |TP$...,...(TP$,9|
000002A0: 29 B2 22 4E 4F 20 46 49 45 4C 44 53 22 A7 33 32 |)."NO FIELDS".32|
000002B0: 30 00 D3 0A 36 01 46 49 24 28 31 29 B2 54 50 24 |0...6.FI$(1).TP$|
000002C0: 3A 81 4A B2 32 A4 38 3A 84 37 2C 46 49 24 28 4A |:.J.2.8:.7,FI$(J|
000002D0: 29 3A 82 00 F1 0A 40 01 99 22 11 20 22 52 43 22 |):....@..". "RC"|
000002E0: 20 52 45 43 4F 52 44 53 20 4F 4E 20 44 49 53 4B | RECORDS ON DISK|
000002F0: 22 00 2D 0B 4A 01 8B 4E 41 24 B3 B1 22 52 43 2B |".-.J..NA$.."RC+|
00000300: 31 22 A7 99 22 11 20 41 54 20 4C 45 41 53 54 20 |1"..". AT LEAST |
00000310: 4F 4E 45 20 12 44 45 4C 45 54 45 44 92 20 52 45 |ONE .DELETED. RE|
00000320: 43 4F 52 44 20 4F 4E 20 44 49 53 4B 22 00 46 0B |CORD ON DISK".F.|
00000330: 54 01 99 22 11 20 48 49 54 20 12 52 45 54 55 52 |T..". HIT .RETUR|
00000340: 4E 92 22 3A A0 37 00 5B 0B 5E 01 A1 5A 5A 24 3A |N.":.7.[.^..ZZ$:|
00000350: 8B 5A 5A 24 B2 22 22 A7 33 35 30 00 6B 0B 68 01 |.ZZ$."".350.k.h.|
00000360: 8F 20 4D 41 49 4E 20 4D 45 4E 55 00 9B 0B 72 01 |. MAIN MENU...r.|
00000370: 99 22 93 11 20 20 20 12 1F 20 4D 41 49 4C 49 4E |.".. .. MAILIN|
00000380: 47 20 4C 49 53 54 20 42 59 20 4E 4F 52 54 48 57 |G LIST BY NORTHW|
00000390: 45 53 54 20 55 53 45 52 53 20 22 00 B5 0B 7C 01 |EST USERS "...|.|
000003A0: 97 36 34 36 2C 32 3A A0 37 3A 45 45 24 B2 22 22 |.646,2:.7:EE$.""|
000003B0: 3A 45 31 B2 30 00 D5 0B 86 01 99 22 11 12 20 46 |:E1.0......".. F|
000003C0: 31 20 92 2E 20 12 46 49 4C 45 92 20 48 41 4E 44 |1 .. .FILE. HAND|
000003D0: 4C 49 4E 47 22 00 FE 0B 90 01 99 22 12 20 46 32 |LING"......". F2|
000003E0: 20 92 2E 20 12 50 52 49 4E 54 92 20 4C 41 42 45 | .. .PRINT. LABE|
000003F0: 4C 53 20 4F 52 20 52 45 50 4F 52 54 53 22 00 1F |LS OR REPORTS"..|
00000400: 0C 9A 01 99 22 12 20 46 33 20 92 2E 20 12 43 52 |....". F3 .. .CR|
00000410: 45 41 54 45 92 20 41 20 52 45 43 4F 52 44 22 00 |EATE. A RECORD".|
00000420: 4A 0C A4 01 99 22 12 20 46 34 20 92 2E 20 12 4E |J....". F4 .. .N|
00000430: 55 4D 42 45 52 92 20 4F 46 20 52 45 43 4F 52 44 |UMBER. OF RECORD|
00000440: 53 20 4F 4E 20 44 49 53 4B 22 00 6F 0C AE 01 99 |S ON DISK".o....|
00000450: 22 12 20 46 35 20 92 2E 20 12 53 43 52 45 45 4E |". F5 .. .SCREEN|
00000460: 92 20 56 49 45 57 20 52 45 43 4F 52 44 53 22 00 |. VIEW RECORDS".|
00000470: 94 0C B8 01 99 22 12 20 46 36 20 92 2E 20 12 56 |.....". F6 .. .V|
00000480: 49 45 57 20 4C 49 53 54 92 20 49 4E 20 4D 45 4D |IEW LIST. IN MEM|
00000490: 4F 52 59 22 00 C3 0C C2 01 99 22 12 20 46 37 20 |ORY"......". F7 |
000004A0: 92 2E 20 12 4C 4F 41 44 92 20 26 20 12 41 4C 50 |.. .LOAD. & .ALP|
000004B0: 48 41 42 45 54 49 5A 45 92 20 4B 45 59 20 4C 49 |HABETIZE. KEY LI|
000004C0: 53 54 22 00 EE 0C CC 01 99 22 12 20 46 38 20 92 |ST"......". F8 .|
000004D0: 2E 20 12 45 58 49 54 92 20 4D 41 49 4C 49 4E 47 |. .EXIT. MAILING|
000004E0: 20 4C 49 53 54 20 50 52 4F 47 52 41 4D 22 00 0B | LIST PROGRAM"..|
000004F0: 0D D6 01 99 22 11 11 11 11 12 43 4F 4D 4D 41 4E |....".....COMMAN|
00000500: 44 3A 20 DD 46 31 2D 46 38 DD 22 00 20 0D E0 01 |D: .F1-F8.". ...|
00000510: A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 34 38 30 |.ZZ$:.ZZ$."".480|
00000520: 00 3A 0D EA 01 41 53 B2 C6 28 5A 5A 24 29 3A 8B |.:...AS..(ZZ$):.|
00000530: 41 53 B2 31 34 30 A7 35 37 30 00 51 0D F4 01 8B |AS.140.570.Q....|
00000540: 41 53 B2 31 33 37 A7 8D 33 38 30 30 3A 89 33 37 |AS.137..3800:.37|
00000550: 30 00 61 0D FE 01 8B 41 53 B2 31 33 38 A7 32 34 |0.a....AS.138.24|
00000560: 30 00 78 0D 08 02 8B 41 53 B2 31 33 39 A7 8D 31 |0.x....AS.139..1|
00000570: 32 36 30 3A 89 33 37 30 00 91 0D 12 02 8B 28 41 |260:.370......(A|
00000580: 53 B3 31 33 33 B0 41 53 B1 31 33 36 29 A7 34 38 |S.133.AS.136).48|
00000590: 30 00 9F 0D 1C 02 41 53 B2 41 53 AB 31 33 32 00 |0.....AS.AS.132.|
000005A0: BB 0D 26 02 91 41 53 8D 35 37 33 30 2C 31 34 34 |..&..AS.5730,144|
000005B0: 30 2C 35 38 39 30 2C 31 30 33 30 00 C4 0D 30 02 |0,5890,1030...0.|
000005C0: 89 33 37 30 00 F1 0D 3A 02 99 22 93 20 44 4F 20 |.370...:..". DO |
000005D0: 59 4F 55 20 57 49 53 48 20 54 4F 20 45 58 49 54 |YOU WISH TO EXIT|
000005E0: 20 12 4D 41 49 4C 49 4E 47 20 4C 49 53 54 92 3F | .MAILING LIST.?|
000005F0: 22 00 06 0E 44 02 A1 5A 5A 24 3A 8B 5A 5A 24 B2 |"...D..ZZ$:.ZZ$.|
00000600: 22 22 A7 35 38 30 00 17 0E 4E 02 8B 5A 5A 24 B2 |"".580...N..ZZ$.|
00000610: 22 4E 22 A7 33 37 30 00 29 0E 58 02 8B 5A 5A 24 |"N".370.).X..ZZ$|
00000620: B3 B1 22 59 22 A7 35 38 30 00 5C 0E 62 02 99 22 |.."Y".580.\.b.."|
00000630: 93 12 20 20 52 45 4D 45 4D 42 45 52 20 54 4F 20 |.. REMEMBER TO |
00000640: 54 52 59 20 54 48 45 20 54 52 41 49 4E 49 4E 47 |TRY THE TRAINING|
00000650: 20 4B 49 54 20 42 59 20 20 20 22 3B 00 8F 0E 6C | KIT BY ";...l|
00000660: 02 99 22 12 20 20 20 20 20 20 54 48 45 20 4E 4F |..". THE NO|
00000670: 52 54 48 57 45 53 54 20 55 53 45 52 53 20 47 52 |RTHWEST USERS GR|
00000680: 4F 55 50 21 20 20 20 20 20 20 20 20 92 22 3B 00 |OUP! .";.|
00000690: A2 0E 76 02 A0 37 3A 98 31 35 2C 22 49 22 3A A0 |..v..7:.15,"I":.|
000006A0: 31 35 00 E6 0E 80 02 99 22 11 11 20 48 49 54 20 |15......".. HIT |
000006B0: 12 20 53 50 41 43 45 20 92 20 54 4F 20 4C 4F 41 |. SPACE . TO LOA|
000006C0: 44 20 12 20 4C 4F 41 44 4D 45 22 3A 99 22 20 48 |D . LOADME":." H|
000006D0: 49 54 20 12 20 52 45 54 55 52 4E 20 92 20 54 4F |IT . RETURN . TO|
000006E0: 20 45 58 49 54 22 00 FB 0E 8A 02 A1 5A 5A 24 3A | EXIT"......ZZ$:|
000006F0: 8B 5A 5A 24 B2 22 22 A7 36 35 30 00 0C 0F 94 02 |.ZZ$."".650.....|
00000700: 8B 5A 5A 24 B2 C7 28 31 33 29 A7 80 00 20 0F 9E |.ZZ$..(13)... ..|
00000710: 02 8B 5A 5A 24 B3 B1 C7 28 33 32 29 A7 36 35 30 |..ZZ$...(32).650|
00000720: 00 59 0F A8 02 99 22 93 4C 4F 41 44 22 C7 28 33 |.Y....".LOAD".(3|
00000730: 34 29 22 4C 4F 41 44 4D 45 22 C7 28 33 34 29 22 |4)"LOADME".(34)"|
00000740: 2C 38 22 3A 97 35 33 32 37 32 2C 32 31 3A 97 36 |,8":.53272,21:.6|
00000750: 33 2C 30 3A 97 36 34 2C 30 00 8D 0F B2 02 97 34 |3,0:.64,0......4|
00000760: 38 2C 38 3A 97 35 32 2C 31 36 30 3A 97 35 34 2C |8,8:.52,160:.54,|
00000770: 30 3A 97 35 36 2C 31 36 30 3A 97 35 37 2C 30 3A |0:.56,160:.57,0:|
00000780: 97 35 38 2C 32 35 35 3A 97 36 32 2C 30 00 A3 0F |.58,255:.62,0...|
00000790: BC 02 99 22 11 11 11 11 52 55 4E 22 3A 97 31 39 |..."....RUN":.19|
000007A0: 38 2C 33 00 CD 0F C6 02 97 36 33 31 2C 31 39 3A |8,3......631,19:|
000007B0: 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A |.632,13:.633,13:|
000007C0: 97 35 39 2C 30 3A 97 36 30 2C 30 3A A2 00 E3 0F |.59,0:.60,0:....|
000007D0: D0 02 8F 20 43 48 45 43 4B 20 44 49 53 4B 20 53 |... CHECK DISK S|
000007E0: 55 42 52 00 EC 0F DA 02 99 22 93 22 00 F3 0F E4 |UBR......"."....|
000007F0: 02 A0 37 00 24 10 EE 02 4D 47 24 B2 22 20 50 55 |..7.$...MG$." PU|
00000800: 54 20 12 4D 41 49 4C 49 4E 47 20 4C 49 53 54 92 |T .MAILING LIST.|
00000810: 20 44 41 54 41 20 44 49 53 4B 20 49 4E 20 44 52 | DATA DISK IN DR|
00000820: 49 56 45 22 00 2E 10 F8 02 8D 36 30 31 30 00 43 |IVE"......6010.C|
00000830: 10 02 03 8B 45 31 B3 B1 30 A7 99 4D 47 24 3A 89 |....E1..0..MG$:.|
00000840: 39 30 30 00 59 10 0C 03 9F 37 2C 38 2C 37 2C 22 |900.Y....7,8,7,"|
00000850: 4D 41 49 4C 4C 49 53 54 22 00 63 10 16 03 8D 36 |MAILLIST".c....6|
00000860: 30 31 30 00 78 10 20 03 8B 45 31 B3 B1 30 A7 99 |010.x. ..E1..0..|
00000870: 4D 47 24 3A 89 39 30 30 00 9C 10 2A 03 98 31 35 |MG$:.900...*..15|
00000880: 2C 22 50 22 AA C7 28 39 36 AA 37 29 AA C7 28 39 |,"P"..(96.7)..(9|
00000890: 30 29 AA C7 28 32 29 AA C7 28 31 29 00 B1 10 34 |0)..(2)..(1)...4|
000008A0: 03 8D 36 30 31 30 3A 8B 45 31 B3 B1 30 A7 39 30 |..6010:.E1..0.90|
000008B0: 30 00 BC 10 3E 03 84 37 2C 49 4E 24 00 E5 10 48 |0...>..7,IN$...H|
000008C0: 03 8B C8 28 49 4E 24 2C 31 32 29 B3 B1 22 4D 41 |...(IN$,12).."MA|
000008D0: 49 4C 49 4E 47 20 4C 49 53 54 22 A7 99 4D 47 24 |ILING LIST"..MG$|
000008E0: 3A 89 39 30 30 00 F0 10 52 03 84 37 2C 54 50 24 |:.900...R..7,TP$|
000008F0: 00 FE 10 5C 03 52 43 B2 C5 28 54 50 24 29 00 09 |...\.RC..(TP$)..|
00000900: 11 66 03 84 37 2C 4E 41 24 00 17 11 70 03 4E 42 |.f..7,NA$...p.NB|
00000910: B2 C5 28 4E 41 24 29 00 34 11 7A 03 8B 4E 42 B3 |..(NA$).4.z..NB.|
00000920: 31 A7 4E 41 24 B2 22 52 43 2B 31 22 3A 4E 42 B2 |1.NA$."RC+1":NB.|
00000930: 52 43 AA 31 00 3B 11 84 03 A0 37 00 42 11 8E 03 |RC.1.;....7.B...|
00000940: A0 37 00 48 11 98 03 8E 00 64 11 A2 03 8F 20 56 |.7.H.....d.... V|
00000950: 49 45 57 20 52 45 43 4F 52 44 20 49 4E 20 42 55 |IEW RECORD IN BU|
00000960: 46 46 45 52 00 6D 11 AC 03 44 46 B2 30 00 88 11 |FFER.m...DF.0...|
00000970: B6 03 99 22 93 20 52 45 43 4F 52 44 20 4E 55 4D |...". RECORD NUM|
00000980: 42 45 52 22 43 55 3A 99 00 CA 11 C0 03 8B C8 28 |BER"CU:........(|
00000990: 46 42 55 46 24 28 31 29 2C 31 30 29 B2 22 24 24 |FBUF$(1),10)."$$|
000009A0: 24 24 24 24 24 24 24 24 22 A7 99 22 11 20 57 41 |$$$$$$$$"..". WA|
000009B0: 53 20 12 20 44 45 4C 45 54 45 44 20 92 2E 22 3A |S . DELETED ..":|
000009C0: 44 46 B2 31 3A 89 31 30 30 30 00 D6 11 CA 03 81 |DF.1:.1000......|
000009D0: 58 59 B2 31 A4 38 00 FA 11 D4 03 99 22 20 22 46 |XY.1.8......" "F|
000009E0: 49 24 28 58 59 29 22 20 3A 20 22 3A 99 22 20 12 |I$(XY)" : ":." .|
000009F0: 22 46 42 55 46 24 28 58 59 29 00 00 12 DE 03 82 |"FBUF$(XY)......|
00000A00: 00 22 12 E8 03 99 22 11 11 20 48 49 54 20 12 53 |."....".. HIT .S|
00000A10: 50 41 43 45 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |PACE. TO CONTINU|
00000A20: 45 22 00 38 12 F2 03 A1 5A 5A 24 3A 8B 5A 5A 24 |E".8....ZZ$:.ZZ$|
00000A30: B2 22 22 A7 31 30 31 30 00 3E 12 FC 03 8E 00 56 |."".1010.>.....V|
00000A40: 12 06 04 8F 20 4C 4F 41 44 20 4C 49 53 54 20 4F |.... LOAD LIST O|
00000A50: 46 20 4B 45 59 53 00 96 12 10 04 99 22 93 20 4C |F KEYS......". L|
00000A60: 4F 41 44 20 4C 49 53 54 20 4F 46 20 57 48 49 43 |OAD LIST OF WHIC|
00000A70: 48 20 46 49 45 4C 44 20 54 4F 20 4D 45 4D 4F 52 |H FIELD TO MEMOR|
00000A80: 59 3F 22 3A 99 22 20 20 12 20 52 45 54 55 52 4E |Y?":." . RETURN|
00000A90: 20 3D 20 31 20 22 00 C2 12 1A 04 99 22 11 11 22 | = 1 "......".."|
00000AA0: 3A 81 49 4A B2 31 A4 38 3A 99 22 12 22 49 4A 3B |:.IJ.1.8:."."IJ;|
00000AB0: 22 9D 20 92 20 2D 20 22 3B 46 49 24 28 49 4A 29 |". . - ";FI$(IJ)|
00000AC0: 3A 82 00 EA 12 24 04 99 22 11 11 20 48 49 54 20 |:....$..".. HIT |
00000AD0: 12 53 50 41 43 45 92 20 54 4F 20 52 45 54 55 52 |.SPACE. TO RETUR|
00000AE0: 4E 20 54 4F 20 4D 45 4E 55 22 00 FA 12 2E 04 99 |N TO MENU"......|
00000AF0: 22 11 43 48 4F 49 43 45 3A 22 00 10 13 38 04 A1 |".CHOICE:"...8..|
00000B00: 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 31 30 38 30 |ZZ$:.ZZ$."".1080|
00000B10: 00 2B 13 42 04 8B 5A 5A 24 B2 C7 28 31 33 29 A7 |.+.B..ZZ$..(13).|
00000B20: 41 53 B2 34 39 3A 89 31 31 32 30 00 3C 13 4C 04 |AS.49:.1120.<.L.|
00000B30: 8B 5A 5A 24 B2 C7 28 33 32 29 A7 8E 00 5E 13 56 |.ZZ$..(32)...^.V|
00000B40: 04 41 53 B2 C6 28 5A 5A 24 29 3A 8B 28 41 53 B3 |.AS..(ZZ$):.(AS.|
00000B50: 34 39 B0 41 53 B1 35 36 29 A7 31 30 38 30 00 76 |49.AS.56).1080.v|
00000B60: 13 60 04 41 53 B2 41 53 AB 34 39 3A 46 4C B2 33 |.`.AS.AS.49:FL.3|
00000B70: 31 AC 41 53 AA 31 00 91 13 6A 04 8D 37 32 30 3A |1.AS.1...j..720:|
00000B80: 8B 45 31 B3 B1 30 A7 8E 3A AC AC 20 43 48 45 43 |.E1..0..:.. CHEC|
00000B90: 4B 00 C3 13 74 04 8B 28 52 43 B3 31 29 A7 99 22 |K...t..(RC.1).."|
00000BA0: 20 4E 4F 20 52 45 43 4F 52 44 53 20 4F 4E 20 54 | NO RECORDS ON T|
00000BB0: 48 49 53 20 44 49 53 4B 20 59 45 54 22 3A 89 31 |HIS DISK YET":.1|
00000BC0: 38 35 30 00 D9 13 7E 04 8D 36 30 31 30 3A 8B 45 |850...~..6010:.E|
00000BD0: 31 B3 B1 30 A7 31 38 35 30 00 EF 13 88 04 9F 37 |1..0.1850......7|
00000BE0: 2C 38 2C 37 2C 22 4D 41 49 4C 4C 49 53 54 22 00 |,8,7,"MAILLIST".|
00000BF0: 19 14 92 04 81 49 4A B2 31 A4 52 43 3A 52 48 B2 |.....IJ.1.RC:RH.|
00000C00: B5 28 49 4A AD 32 35 36 29 3A 52 4C B2 B5 28 49 |.(IJ.256):RL..(I|
00000C10: 4A AB 52 48 AC 32 35 36 29 00 3F 14 9C 04 98 31 |J.RH.256).?....1|
00000C20: 35 2C 22 50 22 AA C7 28 39 36 AA 37 29 AA C7 28 |5,"P"..(96.7)..(|
00000C30: 52 4C 29 AA C7 28 52 48 29 AA C7 28 46 4C 29 00 |RL)..(RH)..(FL).|
00000C40: 4C 14 A6 04 84 37 2C 54 45 4D 50 24 00 72 14 B0 |L....7,TEMP$.r..|
00000C50: 04 45 58 24 28 49 4A 29 B2 C8 28 54 45 4D 50 24 |.EX$(IJ)..(TEMP$|
00000C60: 2C 33 30 29 AA 22 30 30 30 30 30 22 AA C4 28 49 |,30)."00000"..(I|
00000C70: 4A 29 00 78 14 BA 04 82 00 A1 14 C4 04 99 22 93 |J).x..........".|
00000C80: 20 4C 49 53 54 20 4F 46 20 22 46 49 24 28 41 53 | LIST OF "FI$(AS|
00000C90: AA 31 29 22 20 4C 4F 41 44 45 44 22 3A 4C 44 B2 |.1)" LOADED":LD.|
00000CA0: 31 00 B0 14 CE 04 81 4B 4C B2 31 A4 44 31 3A 82 |1......KL.1.D1:.|
00000CB0: 00 B7 14 D8 04 A0 37 00 C1 14 E2 04 8D 32 39 34 |......7......294|
00000CC0: 30 00 D1 14 EC 04 8F 20 56 49 45 57 20 4C 49 53 |0...... VIEW LIS|
00000CD0: 54 00 F8 14 F6 04 99 22 93 20 56 49 45 57 20 4C |T......". VIEW L|
00000CE0: 49 53 54 20 4F 46 20 46 49 45 4C 44 53 20 49 4E |IST OF FIELDS IN|
00000CF0: 20 4D 45 4D 4F 52 59 22 00 06 15 00 05 81 49 B2 | MEMORY"......I.|
00000D00: 31 A4 44 31 3A 82 00 3A 15 0A 05 8B 4C 44 B2 30 |1.D1:..:....LD.0|
00000D10: A7 99 22 11 20 12 4C 49 53 54 20 4E 4F 54 20 4C |..". .LIST NOT L|
00000D20: 4F 41 44 45 44 22 3A 81 49 B2 31 A4 44 31 3A 82 |OADED":.I.1.D1:.|
00000D30: 3A 89 31 30 33 30 3A 93 20 9B 00 71 15 14 05 99 |:.1030:. ..q....|
00000D40: 22 11 20 48 4F 4C 44 20 12 53 50 41 43 45 92 20 |". HOLD .SPACE. |
00000D50: 54 4F 20 50 41 55 53 45 22 3A 99 22 20 48 4F 4C |TO PAUSE":." HOL|
00000D60: 44 20 12 20 46 37 20 92 20 54 4F 20 53 54 4F 50 |D . F7 . TO STOP|
00000D70: 22 00 8D 15 1E 05 81 49 B2 31 A4 44 33 3A 82 3A |"......I.1.D3:.:|
00000D80: 99 22 11 20 52 45 43 4F 52 44 20 23 22 00 9A 15 |.". RECORD #"...|
00000D90: 28 05 81 49 4A B2 31 A4 52 43 00 B1 15 32 05 4C |(..IJ.1.RC...2.L|
00000DA0: 4F B2 C5 28 C9 28 45 58 24 28 49 4A 29 2C 35 29 |O..(.(EX$(IJ),5)|
00000DB0: 29 00 E8 15 3C 05 8B CA 28 45 58 24 28 49 4A 29 |)...<...(EX$(IJ)|
00000DC0: 2C 31 30 2C 37 29 B2 22 24 24 24 24 24 24 24 22 |,10,7)."$$$$$$$"|
00000DD0: A7 99 4C 4F 2C 22 57 41 53 20 44 45 4C 45 54 45 |..LO,"WAS DELETE|
00000DE0: 44 22 3A 89 31 33 36 30 00 FF 15 46 05 99 4C 4F |D":.1360...F..LO|
00000DF0: 2C C8 28 45 58 24 28 49 4A 29 2C 33 30 29 3B 00 |,.(EX$(IJ),30);.|
00000E00: 0E 16 50 05 81 49 B2 31 A4 32 35 30 3A 82 00 27 |..P..I.1.250:..'|
00000E10: 16 5A 05 A1 5A 5A 24 3A 8B 5A 5A 24 B2 C7 28 33 |.Z..ZZ$:.ZZ$..(3|
00000E20: 32 29 A7 31 33 36 30 00 36 16 64 05 8B 5A 5A 24 |2).1360.6.d..ZZ$|
00000E30: B2 22 88 22 A7 8E 00 3C 16 6E 05 82 00 77 16 78 |."."...<.n...w.x|
00000E40: 05 99 22 20 12 20 45 4E 44 20 4F 46 20 4C 49 53 |.." . END OF LIS|
00000E50: 54 20 22 3A 99 22 20 54 4F 54 41 4C 20 4F 46 20 |T ":." TOTAL OF |
00000E60: 12 22 52 43 22 92 20 52 45 43 4F 52 44 53 20 4F |."RC". RECORDS O|
00000E70: 4E 20 44 49 53 4B 22 00 99 16 82 05 99 22 11 20 |N DISK"......". |
00000E80: 48 49 54 20 12 52 45 54 55 52 4E 92 20 54 4F 20 |HIT .RETURN. TO |
00000E90: 43 4F 4E 54 49 4E 55 45 22 00 B3 16 8C 05 A1 5A |CONTINUE"......Z|
00000EA0: 5A 24 3A 8B 5A 5A 24 B3 B1 C7 28 31 33 29 A7 31 |Z$:.ZZ$...(13).1|
00000EB0: 34 32 30 00 B9 16 96 05 8E 00 D1 16 A0 05 8F 20 |420............ |
00000EC0: 43 52 45 41 54 45 20 4E 45 57 20 52 45 43 4F 52 |CREATE NEW RECOR|
00000ED0: 44 00 0A 17 AA 05 43 55 B2 4E 42 3A 8B 28 44 46 |D.....CU.NB:.(DF|
00000EE0: B2 31 B0 46 42 55 46 24 28 31 29 B2 22 22 29 A7 |.1.FBUF$(1)."").|
00000EF0: 81 4B B2 31 A4 38 3A 46 42 55 46 24 28 4B 29 B2 |.K.1.8:FBUF$(K).|
00000F00: 53 53 24 3A 82 3A 44 46 B2 30 00 16 17 B4 05 81 |SS$:.:DF.0......|
00000F10: 4D 4E B2 30 A4 37 00 3A 17 BE 05 99 22 93 20 20 |MN.0.7.:....". |
00000F20: 20 20 20 20 20 20 20 20 20 12 43 52 45 41 54 45 | .CREATE|
00000F30: 20 41 20 52 45 43 4F 52 44 22 00 66 17 C8 05 99 | A RECORD".f....|
00000F40: 22 20 12 20 33 30 20 92 20 43 48 41 52 41 43 54 |" . 30 . CHARACT|
00000F50: 45 52 53 20 4D 41 58 49 4D 55 4D 20 50 45 52 20 |ERS MAXIMUM PER |
00000F60: 46 49 45 4C 44 22 00 72 17 D2 05 81 58 59 B2 31 |FIELD".r....XY.1|
00000F70: A4 38 00 96 17 DC 05 99 22 20 22 46 49 24 28 58 |.8......" "FI$(X|
00000F80: 59 29 22 20 3A 20 22 3A 99 22 20 12 22 46 42 55 |Y)" : ":." ."FBU|
00000F90: 46 24 28 58 59 29 00 9C 17 E6 05 82 00 DC 17 F0 |F$(XY)..........|
00000FA0: 05 97 35 35 34 34 38 AA 38 30 AC 4D 4E 2C 30 3A |..55448.80.MN,0:|
00000FB0: 97 31 31 37 36 AA 38 30 AC 4D 4E 2C 33 31 3A 97 |.1176.80.MN,31:.|
00000FC0: 35 35 34 34 39 AA 38 30 AC 4D 4E 2C 30 3A 97 31 |55449.80.MN,0:.1|
00000FD0: 31 37 37 AA 38 30 AC 4D 4E 2C 37 33 00 F6 17 FA |177.80.MN,73....|
00000FE0: 05 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00000FF0: 11 11 11 11 11 22 00 3D 18 04 06 99 22 20 45 4E |.....".=...." EN|
00001000: 54 45 52 20 22 46 49 24 28 4D 4E AA 31 29 22 20 |TER "FI$(MN.1)" |
00001010: 4F 52 22 3A 99 22 20 53 45 4C 45 43 54 3A 20 48 |OR":." SELECT: H|
00001020: 49 54 20 27 12 52 45 54 55 52 4E 92 27 20 46 4F |IT '.RETURN.' FO|
00001030: 52 20 4E 45 58 54 20 46 49 45 4C 44 22 00 62 18 |R NEXT FIELD".b.|
00001040: 0E 06 99 22 20 20 20 45 4E 54 45 52 20 27 12 5E |..." ENTER '.^|
00001050: 20 52 45 54 55 52 4E 92 27 20 54 4F 20 53 41 56 | RETURN.' TO SAV|
00001060: 45 22 00 88 18 18 06 99 22 20 20 20 45 4E 54 45 |E"......" ENTE|
00001070: 52 20 27 12 3D 20 52 45 54 55 52 4E 92 27 20 54 |R '.= RETURN.' T|
00001080: 4F 20 43 4C 45 41 52 22 00 AE 18 22 06 99 22 20 |O CLEAR"...".." |
00001090: 20 20 45 4E 54 45 52 20 27 12 40 20 52 45 54 55 | ENTER '.@ RETU|
000010A0: 52 4E 92 27 20 46 4F 52 20 4D 45 4E 55 22 00 B7 |RN.' FOR MENU"..|
000010B0: 18 2C 06 85 45 4E 24 00 CD 18 36 06 8B 45 4E 24 |.,..EN$...6..EN$|
000010C0: B2 22 40 22 A7 45 4E 24 B2 22 22 3A 8E 00 DE 18 |."@".EN$."":....|
000010D0: 40 06 8B 45 4E 24 B2 22 22 A7 31 36 35 30 00 10 |@..EN$."".1650..|
000010E0: 19 4A 06 8B 45 4E 24 B2 22 3D 22 A7 45 4E 24 B2 |.J..EN$."=".EN$.|
000010F0: 22 22 3A 81 4B 4C B2 31 A4 38 3A 46 42 55 46 24 |"":.KL.1.8:FBUF$|
00001100: 28 4B 4C 29 B2 53 53 24 3A 82 3A 89 31 34 34 30 |(KL).SS$:.:.1440|
00001110: 00 29 19 54 06 8B 45 4E 24 B2 22 5E 22 A7 31 36 |.).T..EN$."^".16|
00001120: 37 30 3A 8F 20 53 41 56 45 00 47 19 5E 06 46 42 |70:. SAVE.G.^.FB|
00001130: 55 46 24 28 4D 4E AA 31 29 B2 C8 28 45 4E 24 AA |UF$(MN.1)..(EN$.|
00001140: 53 53 24 2C 33 30 29 00 52 19 68 06 45 4E 24 B2 |SS$,30).R.h.EN$.|
00001150: 22 22 00 58 19 72 06 82 00 62 19 7C 06 89 31 34 |"".X.r...b.|..14|
00001160: 36 30 00 74 19 86 06 8F 20 53 41 56 45 20 52 45 |60.t.... SAVE RE|
00001170: 43 4F 52 44 00 99 19 90 06 45 4E 24 B2 22 22 3A |CORD.....EN$."":|
00001180: 8D 37 32 30 3A 8B 45 31 B3 B1 30 A7 89 31 38 35 |.720:.E1..0..185|
00001190: 30 3A 8F 20 43 48 45 43 4B 00 CF 19 9A 06 8B 4E |0:. CHECK......N|
000011A0: 42 B1 36 30 30 A7 99 22 93 20 12 44 49 53 4B 45 |B.600..". .DISKE|
000011B0: 54 54 45 20 46 55 4C 4C 2E 20 46 4F 52 4D 41 54 |TTE FULL. FORMAT|
000011C0: 20 4E 45 57 20 4F 4E 45 22 3A 89 31 38 35 30 00 | NEW ONE":.1850.|
000011D0: D9 19 A4 06 43 55 B2 4E 42 00 EE 19 AE 06 8B 4E |....CU.NB......N|
000011E0: 42 B2 52 43 AA 31 A7 52 43 B2 52 43 AA 31 00 04 |B.RC.1.RC.RC.1..|
000011F0: 1A B8 06 8D 36 30 31 30 3A 8B 45 31 B3 B1 30 A7 |....6010:.E1..0.|
00001200: 31 38 35 30 00 1A 1A C2 06 9F 37 2C 38 2C 37 2C |1850......7,8,7,|
00001210: 22 4D 41 49 4C 4C 49 53 54 22 00 3B 1A CC 06 52 |"MAILLIST".;...R|
00001220: 48 B2 B5 28 4E 42 AD 32 35 36 29 3A 52 4C B2 B5 |H..(NB.256):RL..|
00001230: 28 4E 42 AB 52 48 AC 32 35 36 29 00 60 1A D6 06 |(NB.RH.256).`...|
00001240: 98 31 35 2C 22 50 22 AA C7 28 39 36 AA 37 29 AA |.15,"P"..(96.7).|
00001250: C7 28 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 |.(RL)..(RH)..(1)|
00001260: 00 75 1A E0 06 8B 4E 41 24 B2 22 52 43 2B 31 22 |.u....NA$."RC+1"|
00001270: A7 31 37 39 30 00 87 1A EA 06 84 37 2C 4E 41 24 |.1790......7,NA$|
00001280: 3A 84 37 2C 4E 41 24 00 AC 1A F4 06 98 31 35 2C |:.7,NA$......15,|
00001290: 22 50 22 AA C7 28 39 36 AA 37 29 AA C7 28 52 4C |"P"..(96.7)..(RL|
000012A0: 29 AA C7 28 52 48 29 AA C7 28 31 29 00 D7 1A FE |)..(RH)..(1)....|
000012B0: 06 54 50 24 B2 22 22 3A 81 4B 4C B2 31 A4 38 3A |.TP$."":.KL.1.8:|
000012C0: 54 50 24 B2 54 50 24 AA 46 42 24 28 4B 4C 29 AA |TP$.TP$.FB$(KL).|
000012D0: C7 28 31 33 29 3A 82 00 E2 1A 08 07 98 37 2C 54 |.(13):.......7,T|
000012E0: 50 24 00 F7 1A 12 07 8B 4E 41 24 B2 22 52 43 2B |P$......NA$."RC+|
000012F0: 31 22 A7 31 38 33 30 00 16 1B 1C 07 4E 42 B2 C5 |1".1830.....NB..|
00001300: 28 4E 41 24 29 3A 4E 41 24 B2 CA 28 C4 28 4E 42 |(NA$):NA$..(.(NB|
00001310: 29 2C 32 2C 33 29 00 2E 1B 26 07 8D 31 38 38 30 |),2,3)...&..1880|
00001320: 3A 8F 20 4B 45 45 50 20 4E 45 57 20 52 43 00 49 |:. KEEP NEW RC.I|
00001330: 1B 30 07 99 22 93 20 52 45 43 4F 52 44 20 23 22 |.0..". RECORD #"|
00001340: 43 55 22 53 41 56 45 44 22 00 57 1B 3A 07 81 49 |CU"SAVED".W.:..I|
00001350: B2 31 A4 44 33 3A 82 00 5E 1B 44 07 A0 37 00 68 |.1.D3:..^.D..7.h|
00001360: 1B 4E 07 89 31 34 34 30 00 9C 1B 58 07 8F 20 4B |.N..1440...X.. K|
00001370: 45 45 50 20 4E 45 57 20 52 43 20 2D 20 43 41 4C |EEP NEW RC - CAL|
00001380: 4C 20 4F 4E 4C 59 20 41 46 54 45 52 20 31 35 20 |L ONLY AFTER 15 |
00001390: 41 4E 44 20 37 20 4F 50 45 4E 45 44 00 C0 1B 62 |AND 7 OPENED...b|
000013A0: 07 98 31 35 2C 22 50 22 AA C7 28 39 36 AA 37 29 |..15,"P"..(96.7)|
000013B0: AA C7 28 39 30 29 AA C7 28 32 29 AA C7 28 31 29 |..(90)..(2)..(1)|
000013C0: 00 ED 1B 6C 07 8D 36 30 31 30 3A 8B 45 31 B2 35 |...l..6010:.E1.5|
000013D0: 30 B0 45 31 B3 32 30 A7 99 22 93 11 20 57 41 49 |0.E1.20..".. WAI|
000013E0: 54 22 3A 45 31 B2 30 3A 89 31 39 32 30 00 0E 1C |T":E1.0:.1920...|
000013F0: 76 07 99 22 20 43 41 4E 4E 4F 54 20 4B 45 45 50 |v.." CANNOT KEEP|
00001400: 20 52 43 20 4E 55 4D 22 3A 89 31 39 33 30 00 53 | RC NUM":.1930.S|
00001410: 1C 80 07 98 37 2C 22 4D 41 49 4C 49 4E 47 20 4C |....7,"MAILING L|
00001420: 49 53 54 20 42 59 20 4D 49 43 48 41 45 4C 20 4B |IST BY MICHAEL K|
00001430: 2E 20 46 4F 4E 47 22 AA C7 28 31 33 29 AA C4 28 |. FONG"..(13)..(|
00001440: 52 43 29 AA C7 28 31 33 29 AA 4E 41 24 AA C7 28 |RC)..(13).NA$..(|
00001450: 31 33 29 00 5C 1C 8A 07 4C 44 B2 30 00 62 1C 94 |13).\...LD.0.b..|
00001460: 07 8E 00 85 1C 9E 07 8F 20 4C 4F 41 44 20 41 4E |........ LOAD AN|
00001470: 44 20 4F 55 54 50 55 54 20 53 45 51 55 45 4E 54 |D OUTPUT SEQUENT|
00001480: 49 41 4C 4C 59 00 CB 1C A8 07 99 22 93 20 4F 55 |IALLY......". OU|
00001490: 54 50 55 54 20 52 45 43 4F 52 44 53 20 4F 4E 20 |TPUT RECORDS ON |
000014A0: 44 49 53 4B 20 49 4E 20 4F 52 44 45 52 20 4F 46 |DISK IN ORDER OF|
000014B0: 22 3A 99 22 20 12 20 43 92 52 45 41 54 49 4F 4E |":." . C.REATION|
000014C0: 22 3A 81 49 B2 31 A4 44 31 3A 82 00 DA 1C B2 07 |":.I.1.D1:......|
000014D0: 8B 4C 44 B2 30 A7 32 30 32 30 00 20 1D BC 07 99 |.LD.0.2020. ....|
000014E0: 22 20 4F 52 20 49 4E 20 12 20 53 92 45 51 55 45 |" OR IN . S.EQUE|
000014F0: 4E 43 45 20 4F 46 20 4B 45 59 20 4C 49 53 54 3F |NCE OF KEY LIST?|
00001500: 20 12 43 2F 53 22 3A 99 22 11 20 4F 52 20 12 52 | .C/S":.". OR .R|
00001510: 45 54 55 52 4E 92 20 46 4F 52 20 4D 45 4E 55 22 |ETURN. FOR MENU"|
00001520: 00 36 1D C6 07 A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 |.6....ZZ$:.ZZ$."|
00001530: 22 A7 31 39 39 30 00 4A 1D D0 07 8B 5A 5A 24 B2 |".1990.J....ZZ$.|
00001540: C7 28 31 33 29 A7 32 32 36 30 00 66 1D DA 07 8B |.(13).2260.f....|
00001550: 5A 5A 24 B3 B1 22 43 22 AF 5A 5A 24 B3 B1 22 53 |ZZ$.."C".ZZ$.."S|
00001560: 22 A7 31 39 39 30 00 83 1D E4 07 8D 37 32 30 3A |".1990......720:|
00001570: 8B 45 31 B3 B1 30 A7 32 32 36 30 3A 8F 20 43 48 |.E1..0.2260:. CH|
00001580: 45 43 4B 00 9B 1D EE 07 46 41 B2 39 39 3A 8B 5A |ECK.....FA.99:.Z|
00001590: 5A 24 B2 22 53 22 A7 46 41 B2 30 00 CD 1D F8 07 |Z$."S".FA.0.....|
000015A0: 8B 28 52 43 B3 31 29 A7 99 22 20 4E 4F 20 52 45 |.(RC.1).." NO RE|
000015B0: 43 4F 52 44 53 20 4F 4E 20 54 48 49 53 20 44 49 |CORDS ON THIS DI|
000015C0: 53 4B 20 59 45 54 22 3A 89 32 32 36 30 00 E3 1D |SK YET":.2260...|
000015D0: 02 08 8D 36 30 31 30 3A 8B 45 31 B3 B1 30 A7 32 |...6010:.E1..0.2|
000015E0: 32 36 30 00 F9 1D 0C 08 9F 37 2C 38 2C 37 2C 22 |260......7,8,7,"|
000015F0: 4D 41 49 4C 4C 49 53 54 22 00 06 1E 16 08 81 49 |MAILLIST"......I|
00001600: 4A B2 31 A4 52 43 00 34 1E 20 08 8B 46 41 B3 B1 |J.1.RC.4. ..FA..|
00001610: 30 A7 52 48 B2 B5 28 49 4A AD 32 35 36 29 3A 52 |0.RH..(IJ.256):R|
00001620: 4C B2 B5 28 49 4A AB 52 48 AC 32 35 36 29 3A 89 |L..(IJ.RH.256):.|
00001630: 32 31 31 30 00 4B 1E 2A 08 54 4D B2 C5 28 C9 28 |2110.K.*.TM..(.(|
00001640: 45 58 24 28 49 4A 29 2C 34 29 29 00 6C 1E 34 08 |EX$(IJ),4)).l.4.|
00001650: 52 48 B2 B5 28 54 4D AD 32 35 36 29 3A 52 4C B2 |RH..(TM.256):RL.|
00001660: B5 28 54 4D AB 52 48 AC 32 35 36 29 00 91 1E 3E |.(TM.RH.256)...>|
00001670: 08 98 31 35 2C 22 50 22 AA C7 28 39 36 AA 37 29 |..15,"P"..(96.7)|
00001680: AA C7 28 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 |..(RL)..(RH)..(1|
00001690: 29 00 9D 1E 48 08 81 4B 4C B2 30 A4 37 00 AA 1E |)...H..KL.0.7...|
000016A0: 52 08 84 37 2C 54 45 4D 50 24 00 C6 1E 5C 08 46 |R..7,TEMP$...\.F|
000016B0: 42 55 46 24 28 4B 4C AA 31 29 B2 C8 28 54 45 4D |BUF$(KL.1)..(TEM|
000016C0: 50 24 2C 33 30 29 00 CE 1E 66 08 82 4B 4C 00 E5 |P$,30)...f..KL..|
000016D0: 1E 70 08 43 55 B2 54 4D 3A 8B 46 41 B3 B1 30 A7 |.p.CU.TM:.FA..0.|
000016E0: 43 55 B2 49 4A 00 FC 1E 7A 08 8B 46 31 B3 B1 30 |CU.IJ...z..F1..0|
000016F0: A7 8D 34 38 30 30 3A 89 32 32 33 30 00 13 1F 84 |..4800:.2230....|
00001700: 08 8B 46 32 B3 B1 30 A7 8D 35 34 37 30 3A 89 32 |..F2..0..5470:.2|
00001710: 32 33 30 00 23 1F 8E 08 8D 39 33 30 3A 8F 20 56 |230.#....930:. V|
00001720: 49 45 57 00 70 1F 98 08 99 22 91 20 48 49 54 20 |IEW.p....". HIT |
00001730: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
00001740: 4E 55 45 20 53 45 51 55 45 4E 54 49 41 4C 22 3A |NUE SEQUENTIAL":|
00001750: 99 22 20 56 49 45 57 49 4E 47 20 4F 52 20 12 52 |." VIEWING OR .R|
00001760: 45 54 55 52 4E 92 20 46 4F 52 20 4D 45 4E 55 22 |ETURN. FOR MENU"|
00001770: 00 86 1F A2 08 A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 |......ZZ$:.ZZ$."|
00001780: 22 A7 32 32 31 30 00 9A 1F AC 08 8B 5A 5A 24 B2 |".2210......ZZ$.|
00001790: C7 28 31 33 29 A7 32 32 37 30 00 BC 1F B6 08 8B |.(13).2270......|
000017A0: 51 55 B3 B1 30 A7 99 22 11 20 12 48 41 4C 54 92 |QU..0..". .HALT.|
000017B0: 22 3A 51 55 B2 30 3A 89 32 32 36 30 00 C2 1F C0 |":QU.0:.2260....|
000017C0: 08 82 00 D8 1F CA 08 99 22 11 12 20 45 4E 44 20 |........".. END |
000017D0: 4F 46 20 46 49 4C 45 22 00 E7 1F D4 08 81 4B 4C |OF FILE"......KL|
000017E0: B2 31 A4 44 31 3A 82 00 EE 1F DE 08 A0 37 00 F4 |.1.D1:.......7..|
000017F0: 1F E8 08 8E 00 0A 20 F2 08 8F 20 44 45 4C 45 54 |...... ... DELET|
00001800: 45 20 41 20 52 45 43 4F 52 44 00 46 20 FC 08 99 |E A RECORD.F ...|
00001810: 22 93 11 20 44 45 4C 45 54 45 20 41 20 52 45 43 |".. DELETE A REC|
00001820: 4F 52 44 22 3A 99 22 11 11 20 4C 4F 41 44 20 52 |ORD":.".. LOAD R|
00001830: 45 43 4F 52 44 20 46 49 52 53 54 22 3A 81 49 B2 |ECORD FIRST":.I.|
00001840: 31 A4 44 31 3A 82 00 63 20 06 09 46 33 B2 30 3A |1.D1:..c ..F3.0:|
00001850: 8D 34 31 37 30 3A 8F 20 4C 4F 41 44 20 52 45 43 |.4170:. LOAD REC|
00001860: 4F 52 44 00 75 20 10 09 8B 46 33 B3 B1 30 A7 46 |ORD.u ...F3..0.F|
00001870: 33 B2 30 3A 8E 00 AD 20 1A 09 8B 28 45 31 B3 B1 |3.0:... ...(E1..|
00001880: 30 B0 45 45 24 B3 B1 22 4F 4B 22 29 A7 99 22 11 |0.EE$.."OK")..".|
00001890: 11 20 43 41 4E 4E 4F 54 20 44 45 4C 45 54 45 20 |. CANNOT DELETE |
000018A0: 52 45 43 4F 52 44 22 3A 89 32 35 33 30 00 C3 20 |RECORD":.2530.. |
000018B0: 24 09 8B 28 52 43 B3 31 B0 44 46 B2 31 29 A7 32 |$..(RC.1.DF.1).2|
000018C0: 35 33 30 00 08 21 2E 09 99 22 11 20 48 49 54 20 |530..!...". HIT |
000018D0: 12 52 45 54 55 52 4E 92 20 54 4F 20 44 45 4C 45 |.RETURN. TO DELE|
000018E0: 54 45 20 54 48 49 53 20 52 45 43 4F 52 44 22 3A |TE THIS RECORD":|
000018F0: 99 22 20 48 49 54 20 12 53 50 41 43 45 92 20 54 |." HIT .SPACE. T|
00001900: 4F 20 41 42 4F 52 54 22 00 1E 21 38 09 A1 5A 5A |O ABORT"..!8..ZZ|
00001910: 24 3A 8B 5A 5A 24 B2 22 22 A7 32 33 36 30 00 32 |$:.ZZ$."".2360.2|
00001920: 21 42 09 8B 5A 5A 24 B2 C7 28 33 32 29 A7 32 35 |!B..ZZ$..(32).25|
00001930: 34 30 00 47 21 4C 09 8B 5A 5A 24 B3 B1 C7 28 31 |40.G!L..ZZ$...(1|
00001940: 33 29 A7 32 33 36 30 00 50 21 56 09 99 22 93 22 |3).2360.P!V.."."|
00001950: 00 66 21 60 09 8D 36 30 31 30 3A 8B 45 31 B3 B1 |.f!`..6010:.E1..|
00001960: 30 A7 32 35 33 30 00 7C 21 6A 09 9F 37 2C 38 2C |0.2530.|!j..7,8,|
00001970: 37 2C 22 4D 41 49 4C 4C 49 53 54 22 00 AE 21 74 |7,"MAILLIST"..!t|
00001980: 09 54 45 4D 50 24 B2 22 24 24 24 24 24 24 24 24 |.TEMP$."$$$$$$$$|
00001990: 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 |$$$$$$$$$$$$$$$$|
000019A0: 24 24 24 24 24 24 22 3A 54 50 24 B2 22 22 00 BA |$$$$$$":TP$.""..|
000019B0: 21 7E 09 81 49 4A B2 31 A4 38 00 CE 21 88 09 46 |!~..IJ.1.8..!..F|
000019C0: 42 55 46 24 28 49 4A 29 B2 54 45 4D 50 24 00 F2 |BUF$(IJ).TEMP$..|
000019D0: 21 92 09 8B 49 4A B2 32 A7 46 42 55 46 24 28 49 |!...IJ.2.FBUF$(I|
000019E0: 4A 29 B2 C8 28 4E 41 24 AA 54 45 4D 50 24 2C 33 |J)..(NA$.TEMP$,3|
000019F0: 30 29 00 0C 22 9C 09 54 50 24 B2 54 50 24 AA 46 |0).."..TP$.TP$.F|
00001A00: 42 24 28 49 4A 29 AA C7 28 31 33 29 00 12 22 A6 |B$(IJ)..(13)..".|
00001A10: 09 82 00 37 22 B0 09 98 31 35 2C 22 50 22 AA C7 |...7"...15,"P"..|
00001A20: 28 39 36 AA 37 29 AA C7 28 52 4C 29 AA C7 28 52 |(96.7)..(RL)..(R|
00001A30: 48 29 AA C7 28 31 29 00 42 22 BA 09 98 37 2C 54 |H)..(1).B"...7,T|
00001A40: 50 24 00 56 22 C4 09 4E 41 24 B2 C4 28 43 55 29 |P$.V"..NA$..(CU)|
00001A50: 3A 4E 42 B2 43 55 00 60 22 CE 09 8D 31 38 38 30 |:NB.CU.`"...1880|
00001A60: 00 7E 22 D8 09 99 22 93 11 20 52 45 43 4F 52 44 |.~"...".. RECORD|
00001A70: 20 44 45 4C 45 54 45 44 22 3A 44 46 B2 31 00 8C | DELETED":DF.1..|
00001A80: 22 E2 09 81 49 B2 31 A4 44 31 3A 82 00 93 22 EC |"...I.1.D1:...".|
00001A90: 09 A0 37 00 99 22 F6 09 8E 00 B7 22 00 0A 8F 20 |..7.."....."... |
00001AA0: 45 44 49 54 20 41 4E 20 45 58 49 53 54 49 4E 47 |EDIT AN EXISTING|
00001AB0: 20 52 45 43 4F 52 44 00 FA 22 0A 0A 99 22 93 11 | RECORD.."..."..|
00001AC0: 20 45 44 49 54 20 41 4E 20 45 58 49 53 54 49 4E | EDIT AN EXISTIN|
00001AD0: 47 20 52 45 43 4F 52 44 22 3A 99 22 11 20 4C 4F |G RECORD":.". LO|
00001AE0: 41 44 20 52 45 43 4F 52 44 20 46 49 52 53 54 22 |AD RECORD FIRST"|
00001AF0: 3A 81 49 B2 31 A4 44 31 3A 82 00 17 23 14 0A 46 |:.I.1.D1:...#..F|
00001B00: 33 B2 30 3A 8D 34 31 37 30 3A 8F 20 4C 4F 41 44 |3.0:.4170:. LOAD|
00001B10: 20 52 45 43 4F 52 44 00 4C 23 1E 0A 8B 28 45 45 | RECORD.L#...(EE|
00001B20: 24 B3 B1 22 4F 4B 22 B0 45 31 B3 B1 30 29 A7 99 |$.."OK".E1..0)..|
00001B30: 22 11 20 43 41 4E 4E 4F 54 20 45 44 49 54 20 52 |". CANNOT EDIT R|
00001B40: 45 43 4F 52 44 22 3A 89 32 39 31 30 00 5E 23 28 |ECORD":.2910.^#(|
00001B50: 0A 8B 46 33 B3 B1 30 A7 46 33 B2 30 3A 8E 00 8B |..F3..0.F3.0:...|
00001B60: 23 32 0A 8B 28 52 43 B3 31 B0 44 46 B2 31 29 A7 |#2..(RC.1.DF.1).|
00001B70: 99 22 43 41 4E 4E 4F 54 20 45 44 49 54 20 52 45 |."CANNOT EDIT RE|
00001B80: 43 4F 52 44 22 3A 89 32 39 31 30 00 97 23 3C 0A |CORD":.2910..#<.|
00001B90: 81 4D 4E B2 30 A4 37 00 BA 23 46 0A 99 22 93 20 |.MN.0.7..#F..". |
00001BA0: 20 20 20 20 20 20 20 20 20 20 20 12 45 44 49 54 | .EDIT|
00001BB0: 20 41 20 52 45 43 4F 52 44 22 00 E6 23 50 0A 99 | A RECORD"..#P..|
00001BC0: 22 20 12 20 33 30 20 92 20 43 48 41 52 41 43 54 |" . 30 . CHARACT|
00001BD0: 45 52 53 20 4D 41 58 49 4D 55 4D 20 50 45 52 20 |ERS MAXIMUM PER |
00001BE0: 46 49 45 4C 44 22 00 FE 23 5A 0A 99 22 20 52 45 |FIELD"..#Z.." RE|
00001BF0: 43 4F 52 44 20 4E 55 4D 42 45 52 22 43 55 00 0A |CORD NUMBER"CU..|
00001C00: 24 64 0A 81 58 59 B2 31 A4 38 00 2E 24 6E 0A 99 |$d..XY.1.8..$n..|
00001C10: 22 20 22 46 49 24 28 58 59 29 22 20 3A 20 22 3A |" "FI$(XY)" : ":|
00001C20: 99 22 20 12 22 46 42 55 46 24 28 58 59 29 00 34 |." ."FBUF$(XY).4|
00001C30: 24 78 0A 82 00 74 24 82 0A 97 35 35 34 38 38 AA |$x...t$...55488.|
00001C40: 38 30 AC 4D 4E 2C 30 3A 97 31 32 31 36 AA 38 30 |80.MN,0:.1216.80|
00001C50: AC 4D 4E 2C 33 31 3A 97 35 35 34 38 39 AA 38 30 |.MN,31:.55489.80|
00001C60: AC 4D 4E 2C 30 3A 97 31 32 31 37 AA 38 30 AC 4D |.MN,0:.1217.80.M|
00001C70: 4E 2C 37 33 00 8F 24 8C 0A 99 22 13 11 11 11 11 |N,73..$...".....|
00001C80: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00001C90: D6 24 96 0A 99 22 20 45 4E 54 45 52 20 22 46 49 |.$..." ENTER "FI|
00001CA0: 24 28 4D 4E AA 31 29 22 20 4F 52 22 3A 99 22 20 |$(MN.1)" OR":." |
00001CB0: 53 45 4C 45 43 54 3A 20 48 49 54 20 27 12 52 45 |SELECT: HIT '.RE|
00001CC0: 54 55 52 4E 92 27 20 46 4F 52 20 4E 45 58 54 20 |TURN.' FOR NEXT |
00001CD0: 46 49 45 4C 44 22 00 FB 24 A0 0A 99 22 20 20 20 |FIELD"..$..." |
00001CE0: 45 4E 54 45 52 20 27 12 5E 20 52 45 54 55 52 4E |ENTER '.^ RETURN|
00001CF0: 92 27 20 54 4F 20 53 41 56 45 22 00 21 25 AA 0A |.' TO SAVE".!%..|
00001D00: 99 22 20 20 20 45 4E 54 45 52 20 27 12 3D 20 52 |." ENTER '.= R|
00001D10: 45 54 55 52 4E 92 27 20 46 4F 52 20 4D 45 4E 55 |ETURN.' FOR MENU|
00001D20: 22 00 2A 25 B4 0A 85 45 4E 24 00 40 25 BE 0A 8B |".*%...EN$.@%...|
00001D30: 45 4E 24 B2 22 3D 22 A7 45 4E 24 B2 22 22 3A 8E |EN$."=".EN$."":.|
00001D40: 00 51 25 C8 0A 8B 45 4E 24 B2 22 22 A7 32 38 30 |.Q%...EN$."".280|
00001D50: 30 00 6C 25 D2 0A 8B 45 4E 24 B2 22 5E 22 A7 32 |0.l%...EN$."^".2|
00001D60: 38 32 30 3A 8F 20 52 45 53 41 56 45 00 8A 25 DC |820:. RESAVE..%.|
00001D70: 0A 46 42 55 46 24 28 4D 4E AA 31 29 B2 C8 28 45 |.FBUF$(MN.1)..(E|
00001D80: 4E 24 AA 53 53 24 2C 33 30 29 00 95 25 E6 0A 45 |N$.SS$,30)..%..E|
00001D90: 4E 24 B2 22 22 00 9B 25 F0 0A 82 00 A5 25 FA 0A |N$.""..%.....%..|
00001DA0: 89 32 36 32 30 00 CD 25 04 0B 45 4E 24 B2 22 22 |.2620..%..EN$.""|
00001DB0: 3A 52 48 B2 B5 28 43 55 AD 32 35 36 29 3A 52 4C |:RH..(CU.256):RL|
00001DC0: B2 B5 28 43 55 AB 52 48 AC 32 35 36 29 00 D6 25 |..(CU.RH.256)..%|
00001DD0: 0E 0B 99 22 93 22 00 EC 25 18 0B 8D 36 30 31 30 |..."."..%...6010|
00001DE0: 3A 8B 45 31 B3 B1 30 A7 32 39 31 30 00 02 26 22 |:.E1..0.2910..&"|
00001DF0: 0B 9F 37 2C 38 2C 37 2C 22 4D 41 49 4C 4C 49 53 |..7,8,7,"MAILLIS|
00001E00: 54 22 00 27 26 2C 0B 98 31 35 2C 22 50 22 AA C7 |T".'&,..15,"P"..|
00001E10: 28 39 36 AA 37 29 AA C7 28 52 4C 29 AA C7 28 52 |(96.7)..(RL)..(R|
00001E20: 48 29 AA C7 28 31 29 00 52 26 36 0B 54 50 24 B2 |H)..(1).R&6.TP$.|
00001E30: 22 22 3A 81 4B 4C B2 31 A4 38 3A 54 50 24 B2 54 |"":.KL.1.8:TP$.T|
00001E40: 50 24 AA 46 42 24 28 4B 4C 29 AA C7 28 31 33 29 |P$.FB$(KL)..(13)|
00001E50: 3A 82 00 5D 26 40 0B 98 37 2C 54 50 24 00 80 26 |:..]&@..7,TP$..&|
00001E60: 4A 0B 99 22 93 20 45 44 49 54 20 43 4F 4D 50 4C |J..". EDIT COMPL|
00001E70: 45 54 45 44 22 3A 81 49 4A B2 31 A4 44 31 3A 82 |ETED":.IJ.1.D1:.|
00001E80: 00 89 26 54 0B 4C 44 B2 30 00 90 26 5E 0B A0 37 |..&T.LD.0..&^..7|
00001E90: 00 9E 26 68 0B 81 49 B2 31 A4 44 31 3A 82 00 A4 |..&h..I.1.D1:...|
00001EA0: 26 72 0B 8E 00 B6 26 7C 0B 8F 20 41 4C 50 48 41 |&r....&|.. ALPHA|
00001EB0: 42 45 54 49 5A 45 00 C9 26 86 0B 99 22 93 53 4F |BETIZE..&...".SO|
00001EC0: 52 54 49 4E 47 2E 2E 2E 22 00 DE 26 90 0B 9E 34 |RTING..."..&...4|
00001ED0: 39 31 35 32 2C 52 43 2C 45 58 24 28 31 29 00 FA |9152,RC,EX$(1)..|
00001EE0: 26 9A 0B 99 22 93 20 44 4F 4E 45 2E 2E 2E 22 3A |&...". DONE...":|
00001EF0: 81 49 4A B2 31 A4 44 31 3A 82 00 00 27 A4 0B 8E |.IJ.1.D1:...'...|
00001F00: 00 12 27 AE 0B 8F 20 46 4F 52 4D 41 54 20 44 49 |..'... FORMAT DI|
00001F10: 53 4B 00 3B 27 B8 0B 99 22 93 11 20 46 4F 52 4D |SK.;'...".. FORM|
00001F20: 41 54 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 |AT DISK IN DRIVE|
00001F30: 3F 20 12 20 DD 59 DD 4E DD 20 22 00 51 27 C2 0B |? . .Y.N. ".Q'..|
00001F40: A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 33 30 31 |.ZZ$:.ZZ$."".301|
00001F50: 30 00 61 27 CC 0B 8B 5A 5A 24 B3 B1 22 59 22 A7 |0.a'...ZZ$.."Y".|
00001F60: 8E 00 74 27 D6 0B 52 43 B2 30 3A 4C 44 B2 30 3A |..t'..RC.0:LD.0:|
00001F70: 43 55 B2 30 00 7B 27 E0 0B A0 37 00 97 27 EA 0B |CU.0.{'...7..'..|
00001F80: 99 3A 85 22 20 44 49 53 4B 45 54 54 45 20 4E 41 |.:." DISKETTE NA|
00001F90: 4D 45 22 3B 44 4B 24 00 C7 27 F4 0B 99 22 11 11 |ME";DK$..'..."..|
00001FA0: 20 46 4F 52 4D 41 54 54 49 4E 47 2E 20 54 41 4B | FORMATTING. TAK|
00001FB0: 45 20 41 20 31 30 20 4D 49 4E 55 54 45 20 42 52 |E A 10 MINUTE BR|
00001FC0: 45 41 4B 2E 2E 2E 22 00 D9 27 FE 0B 44 4B 24 B2 |EAK..."..'..DK$.|
00001FD0: C8 28 44 4B 24 2C 31 36 29 00 F0 27 08 0C 98 31 |.(DK$,16)..'...1|
00001FE0: 35 2C 22 4E 3A 22 AA 44 4B 24 AA 22 2C 31 41 22 |5,"N:".DK$.",1A"|
00001FF0: 00 1E 28 12 0C 8D 36 30 31 30 3A 8B 45 31 B3 B1 |..(...6010:.E1..|
00002000: 30 A7 99 22 20 43 41 4E 4E 4F 54 20 46 4F 52 4D |0.." CANNOT FORM|
00002010: 41 54 20 44 49 53 4B 22 3A 89 33 31 37 30 00 3E |AT DISK":.3170.>|
00002020: 28 1C 0C 9F 37 2C 38 2C 37 2C 22 4D 41 49 4C 4C |(...7,8,7,"MAILL|
00002030: 49 53 54 2C 4C 2C 22 AA C7 28 32 35 30 29 00 66 |IST,L,"..(250).f|
00002040: 28 26 0C 8D 36 30 31 30 3A 8B 45 31 B2 35 30 B0 |(&..6010:.E1.50.|
00002050: 45 31 B3 32 30 A7 99 22 93 11 20 57 41 49 54 22 |E1.20..".. WAIT"|
00002060: 3A 89 33 31 33 30 00 87 28 30 0C 99 22 20 43 41 |:.3130..(0.." CA|
00002070: 4E 4E 4F 54 20 43 52 45 41 54 45 20 46 49 4C 45 |NNOT CREATE FILE|
00002080: 22 3A 89 33 31 37 30 00 9E 28 3A 0C 4E 41 24 B2 |":.3170..(:.NA$.|
00002090: 22 52 43 2B 31 22 3A 4E 42 B2 52 43 AA 31 00 B4 |"RC+1":NB.RC.1..|
000020A0: 28 44 0C 8D 31 38 38 30 3A 8B 45 31 B3 B1 30 A7 |(D..1880:.E1..0.|
000020B0: 33 31 37 30 00 D8 28 4E 0C 98 31 35 2C 22 50 22 |3170..(N..15,"P"|
000020C0: AA C7 28 39 36 AA 37 29 AA C7 28 38 39 29 AA C7 |..(96.7)..(89)..|
000020D0: 28 32 29 AA C7 28 31 29 00 F5 28 58 0C 98 37 2C |(2)..(1)..(X..7,|
000020E0: 22 4E 4F 20 46 49 45 4C 44 53 20 59 45 54 22 AA |"NO FIELDS YET".|
000020F0: C7 28 31 33 29 00 FC 28 62 0C A0 37 00 0A 29 6C |.(13)..(b..7..)l|
00002100: 0C 81 49 B2 31 A4 44 33 3A 82 00 2B 29 76 0C 8D |..I.1.D3:..+)v..|
00002110: 36 30 31 30 3A 8B 45 31 B3 B1 30 A7 99 22 11 20 |6010:.E1..0..". |
00002120: 48 49 54 20 52 45 54 55 52 4E 22 00 48 29 80 0C |HIT RETURN".H)..|
00002130: 8B 45 31 B3 B1 30 A7 A1 5A 5A 24 3A 8B 5A 5A 24 |.E1..0..ZZ$:.ZZ$|
00002140: B2 22 22 A7 33 32 30 30 00 4E 29 8A 0C 8E 00 67 |."".3200.N)....g|
00002150: 29 94 0C 8F 20 43 48 41 4E 47 45 20 46 49 45 4C |)... CHANGE FIEL|
00002160: 44 20 4E 41 4D 45 53 00 73 29 9E 0C 81 4E 50 B2 |D NAMES.s)...NP.|
00002170: 30 A4 37 00 96 29 A8 0C 99 22 93 20 20 20 20 20 |0.7..)...". |
00002180: 20 20 12 43 48 41 4E 47 45 20 46 49 45 4C 44 20 | .CHANGE FIELD |
00002190: 4E 41 4D 45 53 22 00 C8 29 B2 0C 99 22 20 12 20 |NAMES"..)..." . |
000021A0: 33 30 20 92 20 43 48 41 52 41 43 54 45 52 53 20 |30 . CHARACTERS |
000021B0: 4D 41 58 49 4D 55 4D 20 50 45 52 20 46 49 45 4C |MAXIMUM PER FIEL|
000021C0: 44 22 3A 99 22 11 11 22 00 D4 29 BC 0C 81 59 5A |D":.".."..)...YZ|
000021D0: B2 31 A4 38 00 E4 29 C6 0C 99 22 20 22 46 49 24 |.1.8..)..." "FI$|
000021E0: 28 59 5A 29 00 EA 29 D0 0C 82 00 2A 2A DA 0C 97 |(YZ)..)....**...|
000021F0: 35 35 35 32 38 AA 34 30 AC 4E 50 2C 30 3A 97 31 |55528.40.NP,0:.1|
00002200: 32 35 36 AA 34 30 AC 4E 50 2C 33 31 3A 97 35 35 |256.40.NP,31:.55|
00002210: 35 32 39 AA 34 30 AC 4E 50 2C 30 3A 97 31 32 35 |529.40.NP,0:.125|
00002220: 37 AA 34 30 AC 4E 50 2C 37 33 00 42 2A E4 0C 99 |7.40.NP,73.B*...|
00002230: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00002240: 11 22 00 86 2A EE 0C 99 22 20 45 4E 54 45 52 20 |."..*..." ENTER |
00002250: 4E 45 57 20 46 49 45 4C 44 20 4E 41 4D 45 20 4F |NEW FIELD NAME O|
00002260: 52 22 3A 99 22 20 20 20 48 49 54 20 27 12 52 45 |R":." HIT '.RE|
00002270: 54 55 52 4E 92 27 20 46 4F 52 20 4E 45 58 54 20 |TURN.' FOR NEXT |
00002280: 46 49 45 4C 44 22 00 D5 2A F8 0C 99 22 20 20 27 |FIELD"..*..." '|
00002290: 12 40 20 52 45 54 55 52 4E 92 27 20 54 4F 20 52 |.@ RETURN.' TO R|
000022A0: 45 53 54 4F 52 45 20 4F 52 49 47 2E 20 46 49 45 |ESTORE ORIG. FIE|
000022B0: 4C 44 53 22 3A 99 22 20 20 27 12 5E 20 52 45 54 |LDS":." '.^ RET|
000022C0: 55 52 4E 92 27 20 54 4F 20 53 41 56 45 20 46 49 |URN.' TO SAVE FI|
000022D0: 45 4C 44 53 22 00 1A 2B 02 0D 99 22 20 20 27 12 |ELDS"..+..." '.|
000022E0: 2A 20 52 45 54 55 52 4E 92 27 20 54 4F 20 4C 4F |* RETURN.' TO LO|
000022F0: 41 44 20 46 49 45 4C 44 20 4E 41 4D 45 53 22 3A |AD FIELD NAMES":|
00002300: 99 22 20 20 27 12 3D 20 52 45 54 55 52 4E 92 27 |." '.= RETURN.'|
00002310: 20 46 4F 52 20 4D 45 4E 55 22 00 2A 2B 0C 0D 5A | FOR MENU".*+..Z|
00002320: 4E 24 B2 22 22 3A 85 5A 4E 24 00 3B 2B 16 0D 8B |N$."":.ZN$.;+...|
00002330: 5A 4E 24 B2 22 22 A7 33 34 32 30 00 4D 2B 20 0D |ZN$."".3420.M+ .|
00002340: 8B 5A 4E 24 B2 22 40 22 A7 33 37 37 30 00 66 2B |.ZN$."@".3770.f+|
00002350: 2A 0D 8B 5A 4E 24 B2 22 5E 22 A7 33 34 34 30 3A |*..ZN$."^".3440:|
00002360: 8F 20 53 41 56 45 00 78 2B 34 0D 8B 5A 4E 24 B2 |. SAVE.x+4..ZN$.|
00002370: 22 2A 22 A7 33 35 39 30 00 87 2B 3E 0D 8B 5A 4E |"*".3590..+>..ZN|
00002380: 24 B2 22 3D 22 A7 8E 00 9F 2B 48 0D 46 49 24 28 |$."="....+H.FI$(|
00002390: 4E 50 AA 31 29 B2 C8 28 5A 4E 24 2C 33 30 29 00 |NP.1)..(ZN$,30).|
000023A0: AA 2B 52 0D 5A 4E 24 B2 22 22 00 B0 2B 5C 0D 82 |.+R.ZN$.""..+\..|
000023B0: 00 BA 2B 66 0D 89 33 32 32 30 00 CF 2B 70 0D 8D |..+f..3220..+p..|
000023C0: 37 32 30 3A 8B 45 31 B3 B1 30 A7 33 35 36 30 00 |720:.E1..0.3560.|
000023D0: F2 2B 7A 0D 99 22 93 20 53 41 56 45 20 46 49 45 |.+z..". SAVE FIE|
000023E0: 4C 44 20 4E 41 4D 45 53 20 54 4F 20 44 49 53 4B |LD NAMES TO DISK|
000023F0: 3F 22 00 08 2C 84 0D A1 5A 5A 24 3A 8B 5A 5A 24 |?"..,...ZZ$:.ZZ$|
00002400: B2 22 22 A7 33 34 36 30 00 1A 2C 8E 0D 8B 5A 5A |."".3460..,...ZZ|
00002410: 24 B2 22 4E 22 A7 33 32 34 30 00 2D 2C 98 0D 8B |$."N".3240.-,...|
00002420: 5A 5A 24 B3 B1 22 59 22 A7 33 34 36 30 00 36 2C |ZZ$.."Y".3460.6,|
00002430: A2 0D 99 22 93 22 00 4C 2C AC 0D 8D 36 30 31 30 |...".".L,...6010|
00002440: 3A 8B 45 31 B3 B1 30 A7 33 35 36 30 00 62 2C B6 |:.E1..0.3560.b,.|
00002450: 0D 9F 37 2C 38 2C 37 2C 22 4D 41 49 4C 4C 49 53 |..7,8,7,"MAILLIS|
00002460: 54 22 00 86 2C C0 0D 98 31 35 2C 22 50 22 AA C7 |T"..,...15,"P"..|
00002470: 28 39 36 AA 37 29 AA C7 28 38 39 29 AA C7 28 32 |(96.7)..(89)..(2|
00002480: 29 AA C7 28 31 29 00 B1 2C CA 0D 54 50 24 B2 22 |)..(1)..,..TP$."|
00002490: 22 3A 81 4B 4C B2 31 A4 38 3A 54 50 24 B2 54 50 |":.KL.1.8:TP$.TP|
000024A0: 24 AA 46 49 24 28 4B 4C 29 AA C7 28 31 33 29 3A |$.FI$(KL)..(13):|
000024B0: 82 00 BC 2C D4 0D 98 37 2C 54 50 24 00 D7 2C DE |...,...7,TP$..,.|
000024C0: 0D 99 22 11 20 46 49 45 4C 44 20 4E 41 4D 45 53 |..". FIELD NAMES|
000024D0: 20 53 41 56 45 44 22 00 DE 2C E8 0D A0 37 00 EC | SAVED"..,...7..|
000024E0: 2C F2 0D 81 49 B2 31 A4 44 31 3A 82 00 F6 2C FC |,...I.1.D1:...,.|
000024F0: 0D 89 33 32 34 30 00 08 2D 06 0E 8F 20 4C 4F 41 |..3240..-... LOA|
00002500: 44 20 46 49 45 4C 44 53 00 1D 2D 10 0E 8D 37 32 |D FIELDS..-...72|
00002510: 30 3A 8B 45 31 B3 B1 30 A7 33 37 34 30 00 42 2D |0:.E1..0.3740.B-|
00002520: 1A 0E 99 22 93 20 4C 4F 41 44 20 46 49 45 4C 44 |...". LOAD FIELD|
00002530: 20 4E 41 4D 45 53 20 46 52 4F 4D 20 44 49 53 4B | NAMES FROM DISK|
00002540: 3F 22 00 58 2D 24 0E A1 5A 5A 24 3A 8B 5A 5A 24 |?".X-$..ZZ$:.ZZ$|
00002550: B2 22 22 A7 33 36 32 30 00 6A 2D 2E 0E 8B 5A 5A |."".3620.j-...ZZ|
00002560: 24 B2 22 4E 22 A7 33 32 34 30 00 7D 2D 38 0E 8B |$."N".3240.}-8..|
00002570: 5A 5A 24 B3 B1 22 59 22 A7 33 36 32 30 00 86 2D |ZZ$.."Y".3620..-|
00002580: 42 0E 99 22 93 22 00 9C 2D 4C 0E 8D 36 30 31 30 |B.."."..-L..6010|
00002590: 3A 8B 45 31 B3 B1 30 A7 33 37 34 30 00 B2 2D 56 |:.E1..0.3740..-V|
000025A0: 0E 9F 37 2C 38 2C 37 2C 22 4D 41 49 4C 4C 49 53 |..7,8,7,"MAILLIS|
000025B0: 54 22 00 D6 2D 60 0E 98 31 35 2C 22 50 22 AA C7 |T"..-`..15,"P"..|
000025C0: 28 39 36 AA 37 29 AA C7 28 38 39 29 AA C7 28 32 |(96.7)..(89)..(2|
000025D0: 29 AA C7 28 31 29 00 E1 2D 6A 0E 84 37 2C 54 50 |)..(1)..-j..7,TP|
000025E0: 24 00 1E 2E 74 0E 8B C8 28 54 50 24 2C 39 29 B2 |$...t...(TP$,9).|
000025F0: 22 4E 4F 20 46 49 45 4C 44 53 22 A7 99 22 11 20 |"NO FIELDS"..". |
00002600: 22 54 50 24 22 20 53 41 56 45 44 20 4F 4E 20 44 |"TP$" SAVED ON D|
00002610: 49 53 4B 20 59 45 54 22 3A 89 33 37 34 30 00 2D |ISK YET":.3740.-|
00002620: 2E 7E 0E 46 49 24 28 31 29 B2 54 50 24 00 44 2E |.~.FI$(1).TP$.D.|
00002630: 88 0E 81 4A B2 32 A4 38 3A 84 37 2C 46 49 24 28 |...J.2.8:.7,FI$(|
00002640: 4A 29 3A 82 00 5B 2E 92 0E 99 22 11 20 46 49 45 |J):..[....". FIE|
00002650: 4C 44 53 20 4C 4F 41 44 45 44 22 00 62 2E 9C 0E |LDS LOADED".b...|
00002660: A0 37 00 70 2E A6 0E 81 49 B2 31 A4 44 31 3A 82 |.7.p....I.1.D1:.|
00002670: 00 7A 2E B0 0E 89 33 32 34 30 00 CB 2E BA 0E 46 |.z....3240.....F|
00002680: 49 24 28 31 29 B2 22 4C 41 53 54 20 4E 41 4D 45 |I$(1)."LAST NAME|
00002690: 22 3A 46 49 24 28 32 29 B2 22 46 49 52 53 54 20 |":FI$(2)."FIRST |
000026A0: 4E 41 4D 45 22 3A 46 49 24 28 33 29 B2 22 41 44 |NAME":FI$(3)."AD|
000026B0: 44 52 45 53 53 20 31 22 3A 46 49 24 28 34 29 B2 |DRESS 1":FI$(4).|
000026C0: 22 41 44 44 52 45 53 53 20 32 22 00 14 2F C4 0E |"ADDRESS 2"../..|
000026D0: 46 49 24 28 35 29 B2 22 43 49 54 59 22 3A 46 49 |FI$(5)."CITY":FI|
000026E0: 24 28 36 29 B2 22 53 54 41 54 45 22 3A 46 49 24 |$(6)."STATE":FI$|
000026F0: 28 37 29 B2 22 5A 49 50 2F 43 4F 55 4E 54 52 59 |(7)."ZIP/COUNTRY|
00002700: 22 3A 46 49 24 28 38 29 B2 22 54 45 4C 45 50 48 |":FI$(8)."TELEPH|
00002710: 4F 4E 45 22 00 1E 2F CE 0E 89 33 32 34 30 00 35 |ONE"../...3240.5|
00002720: 2F D8 0E 8F 20 50 52 49 4E 54 45 52 20 52 4F 55 |/... PRINTER ROU|
00002730: 54 49 4E 45 53 00 7E 2F E2 0E 99 22 93 11 20 50 |TINES.~/...".. P|
00002740: 52 49 4E 54 45 52 20 52 4F 55 54 49 4E 45 53 22 |RINTER ROUTINES"|
00002750: 3A 99 22 11 20 53 45 4C 45 43 54 20 12 20 4C 92 |:.". SELECT . L.|
00002760: 41 42 45 4C 53 20 4F 52 20 12 20 52 92 45 50 4F |ABELS OR . R.EPO|
00002770: 52 54 20 20 12 20 DD 52 DD 4C DD 20 92 22 00 9B |RT . .R.L. ."..|
00002780: 2F EC 0E 99 22 20 4F 52 20 12 52 45 54 55 52 4E |/..." OR .RETURN|
00002790: 92 20 46 4F 52 20 4D 45 4E 55 22 00 B1 2F F6 0E |. FOR MENU"../..|
000027A0: A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 33 38 33 |.ZZ$:.ZZ$."".383|
000027B0: 30 00 C2 2F 00 0F 8B 5A 5A 24 B2 C7 28 31 33 29 |0../...ZZ$..(13)|
000027C0: A7 8E 00 D4 2F 0A 0F 8B 5A 5A 24 B2 22 4C 22 A7 |..../...ZZ$."L".|
000027D0: 34 39 37 30 00 E7 2F 14 0F 8B 5A 5A 24 B3 B1 22 |4970../...ZZ$.."|
000027E0: 52 22 A7 33 38 33 30 00 24 30 1E 0F 99 22 93 11 |R".3830.$0..."..|
000027F0: 20 50 52 49 4E 54 20 52 45 50 4F 52 54 53 22 3A | PRINT REPORTS":|
00002800: 99 22 11 20 50 52 49 4E 54 20 12 20 41 92 4C 4C |.". PRINT . A.LL|
00002810: 20 52 45 43 4F 52 44 53 20 4F 4E 20 46 49 4C 45 | RECORDS ON FILE|
00002820: 20 4F 52 22 00 63 30 28 0F 99 22 12 20 53 92 50 | OR".c0(..". S.P|
00002830: 45 43 49 46 49 43 20 52 45 43 4F 52 44 20 20 20 |ECIFIC RECORD |
00002840: 12 20 DD 41 DD 53 DD 20 92 22 3A 99 22 20 4F 52 |. .A.S. .":." OR|
00002850: 20 12 52 45 54 55 52 4E 92 20 46 4F 52 20 4D 45 | .RETURN. FOR ME|
00002860: 4E 55 22 00 79 30 32 0F A1 5A 5A 24 3A 8B 5A 5A |NU".y02..ZZ$:.ZZ|
00002870: 24 B2 22 22 A7 33 38 39 30 00 8A 30 3C 0F 8B 5A |$."".3890..0<..Z|
00002880: 5A 24 B2 C7 28 31 33 29 A7 8E 00 A8 30 46 0F 8B |Z$..(13)....0F..|
00002890: 28 5A 5A 24 B3 B1 22 41 22 AF 5A 5A 24 B3 B1 22 |(ZZ$.."A".ZZ$.."|
000028A0: 53 22 29 A7 33 38 39 30 00 CE 30 50 0F 99 22 11 |S").3890..0P..".|
000028B0: 20 49 53 20 50 52 49 4E 54 45 52 20 52 45 41 44 | IS PRINTER READ|
000028C0: 59 3F 20 20 12 20 DD 59 DD 4E DD 20 92 22 00 E2 |Y? . .Y.N. ."..|
000028D0: 30 5A 0F A1 58 58 24 3A 8B 58 58 24 B2 22 4E 22 |0Z..XX$:.XX$."N"|
000028E0: A7 8E 00 F5 30 64 0F 8B 58 58 24 B3 B1 22 59 22 |....0d..XX$.."Y"|
000028F0: A7 33 39 33 30 00 36 31 6E 0F 99 22 93 11 20 53 |.3930.61n..".. S|
00002900: 45 4C 45 43 54 20 46 49 45 4C 44 53 20 12 20 DD |ELECT FIELDS . .|
00002910: 31 2D 38 DD 20 92 20 54 4F 22 3A 99 22 20 50 52 |1-8. . TO":." PR|
00002920: 49 4E 54 20 54 48 45 4E 20 48 49 54 20 12 52 45 |INT THEN HIT .RE|
00002930: 54 55 52 4E 92 22 00 5D 31 78 0F 99 22 20 4F 52 |TURN.".]1x.." OR|
00002940: 20 48 49 54 20 12 20 45 20 92 20 46 4F 52 20 45 | HIT . E . FOR E|
00002950: 4E 54 49 52 45 20 52 45 43 4F 52 44 22 00 87 31 |NTIRE RECORD"..1|
00002960: 82 0F 46 43 B2 30 3A 81 4B B2 31 A4 38 3A 50 46 |..FC.0:.K.1.8:PF|
00002970: 28 4B 29 B2 30 3A 99 4B 3B 22 20 2D 20 22 3B 46 |(K).0:.K;" - ";F|
00002980: 49 24 28 4B 29 3A 82 00 9D 31 8C 0F A1 59 59 24 |I$(K):...1...YY$|
00002990: 3A 8B 59 59 24 B2 22 22 A7 33 39 38 30 00 D9 31 |:.YY$."".3980..1|
000029A0: 96 0F 8B 59 59 24 B2 22 45 22 A7 81 4A B2 31 A4 |...YY$."E"..J.1.|
000029B0: 38 3A 50 46 28 4A 29 B2 31 3A 82 3A 46 43 B2 38 |8:PF(J).1:.:FC.8|
000029C0: 3A 99 22 11 20 45 4E 54 49 52 45 20 52 45 43 4F |:.". ENTIRE RECO|
000029D0: 52 44 22 3A 89 34 30 36 30 00 F9 31 A0 0F 4A 4B |RD":.4060..1..JK|
000029E0: B2 C5 28 59 59 24 29 3A 8B 28 4A 4B B3 31 AF 46 |..(YY$):.(JK.1.F|
000029F0: 43 B3 31 29 A7 33 39 38 30 00 0D 32 AA 0F 8B 59 |C.1).3980..2...Y|
00002A00: 59 24 B2 C7 28 31 33 29 A7 34 30 36 30 00 23 32 |Y$..(13).4060.#2|
00002A10: B4 0F 8B 28 4A 4B B3 31 B0 4A 4B B1 38 29 A7 33 |...(JK.1.JK.8).3|
00002A20: 39 38 30 00 4D 32 BE 0F 8B 50 46 28 4A 4B 29 B2 |980.M2...PF(JK).|
00002A30: 30 A7 99 22 20 22 4A 4B 22 20 22 3B 3A 50 46 28 |0.." "JK" ";:PF(|
00002A40: 4A 4B 29 B2 31 3A 46 43 B2 46 43 AA 31 00 72 32 |JK).1:FC.FC.1.r2|
00002A50: C8 0F 8B 46 43 B1 37 A7 99 3A 99 22 20 45 4E 54 |...FC.7..:." ENT|
00002A60: 49 52 45 20 52 45 43 4F 52 44 20 22 3A 89 34 30 |IRE RECORD ":.40|
00002A70: 36 30 00 7C 32 D2 0F 89 33 39 38 30 00 8A 32 DC |60.|2...3980..2.|
00002A80: 0F 81 49 B2 31 A4 44 31 3A 82 00 D4 32 E6 0F 4C |..I.1.D1:...2..L|
00002A90: 42 24 B2 22 22 3A 99 22 93 11 20 48 4F 57 20 4D |B$."":.".. HOW M|
00002AA0: 41 4E 59 20 46 49 45 4C 44 53 20 50 45 52 20 4C |ANY FIELDS PER L|
00002AB0: 49 4E 45 3F 22 3A 99 22 20 4D 41 58 49 4D 55 4D |INE?":." MAXIMUM|
00002AC0: 20 3D 20 38 22 3A 99 22 20 52 45 54 55 52 4E 20 | = 8":." RETURN |
00002AD0: 3D 20 34 22 00 DD 32 F0 0F 85 4C 42 24 00 F4 32 |= 4"..2...LB$..2|
00002AE0: FA 0F 8B 4C 42 24 B2 22 22 A7 46 58 B2 34 3A 89 |...LB$."".FX.4:.|
00002AF0: 34 31 31 30 00 1B 33 04 10 46 58 B2 C5 28 4C 42 |4110..3..FX..(LB|
00002B00: 24 29 3A 4C 42 24 B2 22 22 3A 8B 28 46 58 B3 31 |$):LB$."":.(FX.1|
00002B10: B0 46 58 B1 38 29 A7 34 30 37 30 00 5F 33 0E 10 |.FX.8).4070._3..|
00002B20: 4C 42 24 B2 22 22 3A 99 22 93 11 20 53 4B 49 50 |LB$."":.".. SKIP|
00002B30: 20 48 4F 57 20 4D 41 4E 59 20 4C 49 4E 45 53 20 | HOW MANY LINES |
00002B40: 41 46 54 45 52 20 41 20 52 45 43 4F 52 44 3F 22 |AFTER A RECORD?"|
00002B50: 3A 99 22 20 52 45 54 55 52 4E 20 3D 20 30 22 00 |:." RETURN = 0".|
00002B60: 68 33 18 10 85 4C 42 24 00 7F 33 22 10 8B 4C 42 |h3...LB$..3"..LB|
00002B70: 24 B2 22 22 A7 4C 58 B2 30 3A 89 34 31 35 30 00 |$."".LX.0:.4150.|
00002B80: A1 33 2C 10 4C 58 B2 C5 28 4C 42 24 29 3A 4C 42 |.3,.LX..(LB$):LB|
00002B90: 24 B2 22 22 3A 8B 28 4C 58 B3 30 29 A7 34 31 31 |$."":.(LX.0).411|
00002BA0: 30 00 B3 33 36 10 8B 5A 5A 24 B2 22 41 22 A7 34 |0..36..ZZ$."A".4|
00002BB0: 39 33 30 00 C9 33 40 10 8D 34 31 37 30 3A 8D 34 |930..3@..4170:.4|
00002BC0: 38 30 30 3A 89 33 38 37 30 00 E2 33 4A 10 8F 20 |800:.3870..3J.. |
00002BD0: 49 4E 44 49 56 49 44 55 41 4C 20 52 45 50 4F 52 |INDIVIDUAL REPOR|
00002BE0: 54 53 00 06 34 54 10 99 22 93 20 57 49 4C 4C 20 |TS..4T..". WILL |
00002BF0: 46 49 4E 44 20 52 45 43 4F 52 44 20 54 4F 20 4F |FIND RECORD TO O|
00002C00: 55 54 50 55 54 22 00 2A 34 5E 10 99 22 12 22 52 |UTPUT".*4^.."."R|
00002C10: 43 22 92 20 20 52 45 43 4F 52 44 53 20 4F 4E 20 |C". RECORDS ON |
00002C20: 54 48 49 53 20 44 49 53 4B 22 00 56 34 68 10 99 |THIS DISK".V4h..|
00002C30: 22 11 20 45 4E 54 45 52 20 12 20 52 20 92 20 46 |". ENTER . R . F|
00002C40: 4F 52 20 41 43 43 45 53 53 20 42 59 20 52 45 43 |OR ACCESS BY REC|
00002C50: 4F 52 44 20 23 22 00 96 34 72 10 99 22 11 20 4F |ORD #"..4r..". O|
00002C60: 52 20 53 45 41 52 43 48 20 55 53 49 4E 47 20 57 |R SEARCH USING W|
00002C70: 48 49 43 48 20 46 49 45 4C 44 20 41 53 20 4B 45 |HICH FIELD AS KE|
00002C80: 59 3F 22 3A 99 22 20 20 12 20 52 45 54 55 52 4E |Y?":." . RETURN|
00002C90: 20 3D 20 31 20 22 00 C2 34 7C 10 99 22 11 11 22 | = 1 "..4|..".."|
00002CA0: 3A 81 49 4A B2 31 A4 38 3A 99 22 12 22 49 4A 3B |:.IJ.1.8:."."IJ;|
00002CB0: 22 9D 20 92 20 2D 20 22 3B 46 49 24 28 49 4A 29 |". . - ";FI$(IJ)|
00002CC0: 3A 82 00 FB 34 86 10 99 22 11 11 11 20 4F 52 20 |:...4..."... OR |
00002CD0: 48 49 54 20 12 53 50 41 43 45 92 20 54 4F 20 52 |HIT .SPACE. TO R|
00002CE0: 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 22 3A 99 |ETURN TO MENU":.|
00002CF0: 22 11 20 43 48 4F 49 43 45 3A 22 00 11 35 90 10 |". CHOICE:"..5..|
00002D00: A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 34 32 34 |.ZZ$:.ZZ$."".424|
00002D10: 30 00 2B 35 9A 10 8B 5A 5A 24 B2 C7 28 31 33 29 |0.+5...ZZ$..(13)|
00002D20: A7 41 53 B2 30 3A 89 34 33 30 30 00 42 35 A4 10 |.AS.0:.4300.B5..|
00002D30: 8B 5A 5A 24 B2 C7 28 33 32 29 A7 46 33 B2 39 39 |.ZZ$..(32).F3.99|
00002D40: 3A 8E 00 54 35 AE 10 8B 5A 5A 24 B2 22 52 22 A7 |:..T5...ZZ$."R".|
00002D50: 34 36 30 30 00 77 35 B8 10 41 53 B2 C6 28 5A 5A |4600.w5..AS..(ZZ|
00002D60: 24 29 3A 8B 28 41 53 B3 34 39 20 B0 41 53 B1 35 |$):.(AS.49 .AS.5|
00002D70: 36 29 A7 34 32 34 30 00 84 35 C2 10 41 53 B2 41 |6).4240..5..AS.A|
00002D80: 53 AB 34 39 00 93 35 CC 10 46 4C B2 33 31 AC 41 |S.49..5..FL.31.A|
00002D90: 53 AA 31 00 AE 35 D6 10 8D 37 32 30 3A 8B 45 31 |S.1..5...720:.E1|
00002DA0: B3 B1 30 A7 8E 3A AC AC 20 43 48 45 43 4B 00 DB |..0..:.. CHECK..|
00002DB0: 35 E0 10 99 22 93 11 20 53 50 45 43 49 46 59 20 |5...".. SPECIFY |
00002DC0: 4C 45 4E 47 54 48 20 4F 46 20 4D 41 54 43 48 49 |LENGTH OF MATCHI|
00002DD0: 4E 47 20 50 41 54 54 45 52 4E 22 00 03 36 EA 10 |NG PATTERN"..6..|
00002DE0: 99 22 11 20 48 4F 57 20 4D 41 4E 59 20 43 48 41 |.". HOW MANY CHA|
00002DF0: 52 41 43 54 45 52 53 20 49 4E 20 50 41 54 54 45 |RACTERS IN PATTE|
00002E00: 52 4E 22 00 32 36 F4 10 85 22 11 20 12 52 45 54 |RN".26...". .RET|
00002E10: 55 52 4E 92 20 3D 20 31 22 3B 49 4E 24 3A 54 4D |URN. = 1";IN$:TM|
00002E20: B2 C5 28 49 4E 24 29 3A 8B 54 4D B2 30 A7 54 4D |..(IN$):.TM.0.TM|
00002E30: B2 31 00 43 36 FE 10 8B 54 4D B1 33 30 A7 54 4D |.1.C6...TM.30.TM|
00002E40: B2 33 30 00 6A 36 08 11 99 22 11 20 45 4E 54 45 |.30.j6...". ENTE|
00002E50: 52 20 22 46 49 24 28 41 53 AA 31 29 3B 3A 85 46 |R "FI$(AS.1);:.F|
00002E60: 42 55 46 24 28 41 53 AA 31 29 00 90 36 12 11 46 |BUF$(AS.1)..6..F|
00002E70: 42 55 46 24 28 41 53 AA 31 29 B2 C8 28 46 42 55 |BUF$(AS.1)..(FBU|
00002E80: 46 24 28 41 53 AA 31 29 AA 53 53 24 2C 33 30 29 |F$(AS.1).SS$,30)|
00002E90: 00 A7 36 1C 11 99 22 93 11 20 53 45 41 52 43 48 |..6...".. SEARCH|
00002EA0: 49 4E 47 2E 2E 2E 22 00 D9 36 26 11 8B 28 52 43 |ING..."..6&..(RC|
00002EB0: B3 31 29 A7 99 22 20 4E 4F 20 52 45 43 4F 52 44 |.1).." NO RECORD|
00002EC0: 53 20 4F 4E 20 54 48 49 53 20 44 49 53 4B 20 59 |S ON THIS DISK Y|
00002ED0: 45 54 22 3A 89 34 34 38 30 00 F6 36 30 11 8D 36 |ET":.4480..60..6|
00002EE0: 30 31 30 3A 8B 45 31 B3 B1 30 A7 81 49 B2 31 A4 |010:.E1..0..I.1.|
00002EF0: 44 31 3A 82 3A 8E 00 0C 37 3A 11 9F 37 2C 38 2C |D1:.:...7:..7,8,|
00002F00: 37 2C 22 4D 41 49 4C 4C 49 53 54 22 00 36 37 44 |7,"MAILLIST".67D|
00002F10: 11 81 49 4A B2 31 A4 52 43 3A 52 48 B2 B5 28 49 |..IJ.1.RC:RH..(I|
00002F20: 4A AD 32 35 36 29 3A 52 4C B2 B5 28 49 4A AB 52 |J.256):RL..(IJ.R|
00002F30: 48 AC 32 35 36 29 00 5C 37 4E 11 98 31 35 2C 22 |H.256).\7N..15,"|
00002F40: 50 22 AA C7 28 39 36 AA 37 29 AA C7 28 52 4C 29 |P"..(96.7)..(RL)|
00002F50: AA C7 28 52 48 29 AA C7 28 46 4C 29 00 69 37 58 |..(RH)..(FL).i7X|
00002F60: 11 84 37 2C 54 45 4D 50 24 00 7F 37 62 11 54 45 |..7,TEMP$..7b.TE|
00002F70: 4D 50 24 B2 C8 28 54 45 4D 50 24 2C 54 4D 29 00 |MP$..(TEMP$,TM).|
00002F80: A8 37 6C 11 8B 54 45 4D 50 24 B2 C8 28 46 42 55 |.7l..TEMP$..(FBU|
00002F90: 46 24 28 41 53 AA 31 29 2C 54 4D 29 A7 43 55 B2 |F$(AS.1),TM).CU.|
00002FA0: 49 4A 3A 89 34 34 39 30 00 AE 37 76 11 82 00 E8 |IJ:.4490..7v....|
00002FB0: 37 80 11 99 22 11 20 52 45 43 4F 52 44 20 57 41 |7...". RECORD WA|
00002FC0: 53 20 4E 4F 54 20 46 4F 55 4E 44 22 3A 45 45 24 |S NOT FOUND":EE$|
00002FD0: B2 22 4D 4C 45 52 52 22 3A 81 4B 4C B2 31 A4 44 |."MLERR":.KL.1.D|
00002FE0: 31 3A 82 3A A0 37 3A 8E 00 0D 38 8A 11 98 31 35 |1:.:.7:...8...15|
00002FF0: 2C 22 50 22 AA C7 28 39 36 AA 37 29 AA C7 28 52 |,"P"..(96.7)..(R|
00003000: 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 00 3C 38 |L)..(RH)..(1).<8|
00003010: 94 11 81 4B 4C B2 30 A4 37 3A 84 37 2C 54 45 4D |...KL.0.7:.7,TEM|
00003020: 50 24 3A 46 42 55 46 24 28 4B 4C AA 31 29 B2 C8 |P$:FBUF$(KL.1)..|
00003030: 28 54 45 4D 50 24 2C 33 30 29 3A 82 00 45 38 9E |(TEMP$,30):..E8.|
00003040: 11 8D 39 33 30 00 5F 38 A8 11 8F 20 49 53 20 54 |..930._8... IS T|
00003050: 48 49 53 20 54 48 45 20 52 45 43 4F 52 44 3F 00 |HIS THE RECORD?.|
00003060: AF 38 B2 11 99 22 91 20 48 49 54 20 12 52 45 54 |.8...". HIT .RET|
00003070: 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |URN. TO CONTINUE|
00003080: 20 53 45 41 52 43 48 22 3A 99 22 20 4F 52 20 12 | SEARCH":." OR .|
00003090: 53 50 41 43 45 92 20 49 46 20 52 45 43 4F 52 44 |SPACE. IF RECORD|
000030A0: 20 49 53 20 4F 4E 45 20 57 41 4E 54 45 44 22 00 | IS ONE WANTED".|
000030B0: C5 38 BC 11 A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 |.8...ZZ$:.ZZ$.""|
000030C0: A7 34 35 34 30 00 D9 38 C6 11 8B 5A 5A 24 B2 C7 |.4540..8...ZZ$..|
000030D0: 28 31 33 29 A7 34 34 37 30 00 EB 38 D0 11 8B 5A |(13).4470..8...Z|
000030E0: 5A 24 B2 22 20 22 A7 34 35 38 30 00 F5 38 DA 11 |Z$." ".4580..8..|
000030F0: 89 34 35 34 30 00 FC 38 E4 11 A0 37 00 02 39 EE |.4540..8...7..9.|
00003100: 11 8E 00 4A 39 F8 11 99 22 93 20 45 4E 54 45 52 |...J9...". ENTER|
00003110: 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 20 54 | RECORD NUMBER T|
00003120: 4F 20 42 45 20 4F 55 54 50 55 54 54 45 44 22 3A |O BE OUTPUTTED":|
00003130: 99 22 20 4F 52 20 27 5E 20 52 45 54 55 52 4E 27 |." OR '^ RETURN'|
00003140: 20 46 4F 52 20 4D 45 4E 55 22 00 5E 39 02 12 85 | FOR MENU".^9...|
00003150: 5A 5A 24 3A 8B 5A 5A 24 B2 22 5E 22 A7 8E 00 73 |ZZ$:.ZZ$."^"...s|
00003160: 39 0C 12 8D 37 32 30 3A 8B 45 31 B3 B1 30 A7 34 |9...720:.E1..0.4|
00003170: 37 32 30 00 A1 39 16 12 8B 28 52 43 B3 31 29 A7 |720..9...(RC.1).|
00003180: 99 22 11 20 4E 4F 20 52 45 43 4F 52 44 53 20 4F |.". NO RECORDS O|
00003190: 4E 20 44 49 53 4B 20 59 45 54 22 3A 89 34 37 32 |N DISK YET":.472|
000031A0: 30 00 DF 39 20 12 8B 28 C5 28 5A 5A 24 29 B3 31 |0..9 ..(.(ZZ$).1|
000031B0: B0 C5 28 5A 5A 24 29 B1 52 43 29 A7 99 22 11 20 |..(ZZ$).RC)..". |
000031C0: 4E 4F 20 53 55 43 48 20 52 45 43 4F 52 44 22 3A |NO SUCH RECORD":|
000031D0: 81 49 B2 31 A4 44 31 3A 82 3A 89 34 36 30 30 00 |.I.1.D1:.:.4600.|
000031E0: ED 39 2A 12 43 55 B2 C5 28 5A 5A 24 29 00 03 3A |.9*.CU..(ZZ$)..:|
000031F0: 34 12 8D 36 30 31 30 3A 8B 45 31 B3 B1 30 A7 34 |4..6010:.E1..0.4|
00003200: 37 32 30 00 19 3A 3E 12 9F 37 2C 38 2C 37 2C 22 |720..:>..7,8,7,"|
00003210: 4D 41 49 4C 4C 49 53 54 22 00 3A 3A 48 12 52 48 |MAILLIST".::H.RH|
00003220: B2 B5 28 43 55 AD 32 35 36 29 3A 52 4C B2 B5 28 |..(CU.256):RL..(|
00003230: 43 55 AB 52 48 AC 32 35 36 29 00 5F 3A 52 12 98 |CU.RH.256)._:R..|
00003240: 31 35 2C 22 50 22 AA C7 28 39 36 AA 37 29 AA C7 |15,"P"..(96.7)..|
00003250: 28 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 00 |(RL)..(RH)..(1).|
00003260: 8C 3A 5C 12 81 4B B2 30 A4 37 3A 84 37 2C 54 45 |.:\..K.0.7:.7,TE|
00003270: 4D 50 24 3A 46 42 55 46 24 28 4B AA 31 29 B2 C8 |MP$:FBUF$(K.1)..|
00003280: 28 54 45 4D 50 24 2C 33 30 29 3A 82 00 95 3A 66 |(TEMP$,30):...:f|
00003290: 12 8D 39 33 30 00 9C 3A 70 12 A0 37 00 AA 3A 7A |..930..:p..7..:z|
000032A0: 12 81 49 B2 31 A4 44 31 3A 82 00 B0 3A 84 12 8E |..I.1.D1:...:...|
000032B0: 00 CC 3A 8E 12 8F 20 47 45 4E 45 52 41 4C 20 50 |..:... GENERAL P|
000032C0: 52 49 4E 54 20 52 4F 55 54 49 4E 45 00 F9 3A 98 |RINT ROUTINE..:.|
000032D0: 12 8D 37 32 30 3A 9F 31 2C 38 2C 32 2C 22 24 22 |..720:.1,8,2,"$"|
000032E0: 3A 81 49 B2 31 A4 31 34 32 3A A1 23 31 2C 41 24 |:.I.1.142:.#1,A$|
000032F0: 3A 82 3A 44 4B 24 B2 22 22 00 2E 3B A2 12 81 4B |:.:DK$.""..;...K|
00003300: B2 31 A4 31 34 3A A1 23 31 2C 41 24 3A 8B 41 24 |.1.14:.#1,A$:.A$|
00003310: B3 B1 C7 28 39 36 29 A7 8B 41 24 B3 B1 C7 28 31 |...(96)..A$...(1|
00003320: 36 30 29 A7 44 4B 24 B2 44 4B 24 AA 41 24 00 3F |60).DK$.DK$.A$.?|
00003330: 3B AC 12 82 3A A0 31 3A 9F 34 2C 34 3A 9D 34 00 |;...:.1:.4,4:.4.|
00003340: 87 3B B6 12 99 22 20 12 44 49 53 4B 92 20 22 44 |.;..." .DISK. "D|
00003350: 4B 24 22 20 20 20 20 20 12 54 4F 54 41 4C 20 4E |K$" .TOTAL N|
00003360: 55 4D 42 45 52 20 4F 46 20 52 45 43 4F 52 44 53 |UMBER OF RECORDS|
00003370: 20 4F 4E 20 44 49 53 4B 92 20 22 52 43 3A 99 3A | ON DISK. "RC:.:|
00003380: 98 34 3A A0 34 3A 8E 00 9C 3B C0 12 8B 28 45 45 |.4:.4:...;...(EE|
00003390: 24 B2 22 4D 4C 45 52 52 22 29 A7 8E 00 AB 3B CA |$."MLERR")....;.|
000033A0: 12 A0 34 3A 9F 34 2C 34 3A 9D 34 00 BE 3B D4 12 |..4:.4,4:.4..;..|
000033B0: 99 22 20 52 45 43 4F 52 44 20 23 22 43 55 00 FB |." RECORD #"CU..|
000033C0: 3B DE 12 8B C8 28 46 42 55 46 24 28 31 29 2C 31 |;....(FBUF$(1),1|
000033D0: 30 29 B2 22 24 24 24 24 24 24 24 24 24 24 22 A7 |0)."$$$$$$$$$$".|
000033E0: 99 22 11 20 57 41 53 20 12 20 44 45 4C 45 54 45 |.". WAS . DELETE|
000033F0: 44 20 92 2E 22 3A 89 34 38 39 30 00 0B 3C E8 12 |D ..":.4890..<..|
00003400: 43 54 B2 30 3A 81 49 B2 31 A4 38 00 1D 3C F2 12 |CT.0:.I.1.8..<..|
00003410: 8B 50 46 28 49 29 B2 30 A7 34 38 38 30 00 39 3C |.PF(I).0.4880.9<|
00003420: FC 12 99 C8 28 46 42 55 46 24 28 49 29 2C 31 35 |....(FBUF$(I),15|
00003430: 29 22 20 20 20 20 20 22 3B 00 5D 3C 06 13 43 54 |)" ";.]<..CT|
00003440: B2 43 54 AA 31 3A 8B 28 28 43 54 AD 46 58 AB B5 |.CT.1:.((CT.FX..|
00003450: 28 43 54 AD 46 58 29 29 B2 30 29 A7 99 00 63 3C |(CT.FX)).0)...c<|
00003460: 10 13 82 00 75 3C 1A 13 81 4B B2 31 A4 4C 58 AB |....u<...K.1.LX.|
00003470: 31 3A 99 3A 82 00 7F 3C 24 13 98 34 3A A0 34 00 |1:.:...<$..4:.4.|
00003480: B5 3C 2E 13 51 55 B2 30 3A 99 22 11 20 48 4F 4C |.<..QU.0:.". HOL|
00003490: 44 20 12 53 50 41 43 45 92 20 54 4F 20 51 55 49 |D .SPACE. TO QUI|
000034A0: 54 22 3A A1 5A 5A 24 3A 8B 5A 5A 24 B3 B1 22 22 |T":.ZZ$:.ZZ$..""|
000034B0: A7 51 55 B2 31 00 BB 3C 38 13 8E 00 D4 3C 42 13 |.QU.1..<8....<B.|
000034C0: 8F 20 52 45 50 4F 52 54 20 41 4C 4C 20 52 45 43 |. REPORT ALL REC|
000034D0: 4F 52 44 53 00 FA 3C 4C 13 46 32 B2 30 3A 46 31 |ORDS..<L.F2.0:F1|
000034E0: B2 39 39 3A 8D 34 37 35 30 3A 8D 31 39 35 30 3A |.99:.4750:.1950:|
000034F0: 46 31 B2 30 3A 89 34 39 35 30 00 01 3D 56 13 A0 |F1.0:.4950..=V..|
00003500: 37 00 0B 3D 60 13 89 33 38 37 30 00 18 3D 6A 13 |7..=`..3870..=j.|
00003510: 8F 20 4C 41 42 45 4C 53 00 30 3D 74 13 4C 58 B2 |. LABELS.0=t.LX.|
00003520: 30 3A 4E 43 B2 30 3A 52 50 B2 30 3A 46 43 B2 30 |0:NC.0:RP.0:FC.0|
00003530: 00 58 3D 7E 13 5A 5A 24 B2 22 22 3A 99 22 93 11 |.X=~.ZZ$."":."..|
00003540: 20 50 52 49 4E 54 20 4C 41 42 45 4C 53 22 3A 81 | PRINT LABELS":.|
00003550: 49 B2 31 A4 44 31 3A 82 00 7B 3D 88 13 99 22 93 |I.1.D1:..{=...".|
00003560: 11 20 48 4F 57 20 4D 41 4E 59 20 4C 49 4E 45 53 |. HOW MANY LINES|
00003570: 20 54 4F 20 50 52 49 4E 54 3F 22 00 90 3D 92 13 | TO PRINT?"..=..|
00003580: 99 22 20 12 52 45 54 55 52 4E 92 20 3D 20 33 22 |." .RETURN. = 3"|
00003590: 00 AF 3D 9C 13 99 22 20 4F 52 20 27 5E 20 52 45 |..=..." OR '^ RE|
000035A0: 54 55 52 4E 27 20 46 4F 52 20 4D 45 4E 55 22 00 |TURN' FOR MENU".|
000035B0: C3 3D A6 13 85 5A 5A 24 3A 8B 5A 5A 24 B2 22 5E |.=...ZZ$:.ZZ$."^|
000035C0: 22 A7 8E 00 E1 3D B0 13 8B 5A 5A 24 B2 22 22 A7 |"....=...ZZ$."".|
000035D0: 46 43 B2 33 3A 5A 5A 24 B2 22 22 3A 89 35 30 36 |FC.3:ZZ$."":.506|
000035E0: 30 00 01 3E BA 13 46 43 B2 C5 28 5A 5A 24 29 3A |0..>..FC..(ZZ$):|
000035F0: 5A 5A 24 B2 22 22 3A 8B 46 43 B3 31 A7 35 30 30 |ZZ$."":.FC.1.500|
00003600: 30 00 3A 3E C4 13 99 22 93 11 20 48 4F 57 20 4D |0.:>...".. HOW M|
00003610: 41 4E 59 20 4C 49 4E 45 53 20 54 4F 20 53 4B 49 |ANY LINES TO SKI|
00003620: 50 22 3A 99 22 20 42 45 54 57 45 45 4E 20 45 41 |P":." BETWEEN EA|
00003630: 43 48 20 4C 41 42 45 4C 3F 22 00 6C 3E CE 13 99 |CH LABEL?".l>...|
00003640: 22 11 20 12 52 45 54 55 52 4E 92 20 3D 20 33 22 |". .RETURN. = 3"|
00003650: 3A 99 22 11 20 4F 52 20 27 5E 20 52 45 54 55 52 |:.". OR '^ RETUR|
00003660: 4E 27 20 46 4F 52 20 4D 45 4E 55 22 00 80 3E D8 |N' FOR MENU"..>.|
00003670: 13 85 5A 5A 24 3A 8B 5A 5A 24 B2 22 5E 22 A7 8E |..ZZ$:.ZZ$."^"..|
00003680: 00 9E 3E E2 13 8B 5A 5A 24 B2 22 22 A7 4C 58 B2 |..>...ZZ$."".LX.|
00003690: 33 3A 5A 5A 24 B2 22 22 3A 89 35 31 31 30 00 B3 |3:ZZ$."":.5110..|
000036A0: 3E EC 13 4C 58 B2 C5 28 5A 5A 24 29 3A 5A 5A 24 |>..LX..(ZZ$):ZZ$|
000036B0: B2 22 22 00 F6 3E F6 13 99 22 93 11 20 48 4F 57 |.""..>...".. HOW|
000036C0: 20 4D 41 4E 59 20 43 48 41 52 41 43 54 45 52 53 | MANY CHARACTERS|
000036D0: 20 50 45 52 20 4C 49 4E 45 3F 22 3A 99 22 20 5B | PER LINE?":." [|
000036E0: 48 4F 57 20 57 49 44 45 20 41 52 45 20 4C 41 42 |HOW WIDE ARE LAB|
000036F0: 45 4C 53 3F 5D 22 00 0C 3F 00 14 99 22 11 20 44 |ELS?]"..?...". D|
00003700: 45 46 41 55 4C 54 20 3D 20 33 35 22 00 2C 3F 0A |EFAULT = 35".,?.|
00003710: 14 99 22 11 20 4F 52 20 27 5E 20 52 45 54 55 52 |..". OR '^ RETUR|
00003720: 4E 27 20 46 4F 52 20 4D 45 4E 55 22 00 40 3F 14 |N' FOR MENU".@?.|
00003730: 14 85 5A 5A 24 3A 8B 5A 5A 24 B2 22 5E 22 A7 8E |..ZZ$:.ZZ$."^"..|
00003740: 00 61 3F 1E 14 4E 43 B2 C5 28 5A 5A 24 29 3A 5A |.a?..NC..(ZZ$):Z|
00003750: 5A 24 B2 22 22 3A 8B 4E 43 B3 31 A7 4E 43 B2 33 |Z$."":.NC.1.NC.3|
00003760: 35 00 8C 3F 28 14 99 22 93 11 20 48 4F 57 20 4D |5..?(..".. HOW M|
00003770: 41 4E 59 20 4C 41 42 45 4C 53 20 46 4F 52 20 54 |ANY LABELS FOR T|
00003780: 48 49 53 20 52 45 43 4F 52 44 3F 22 00 A2 3F 32 |HIS RECORD?"..?2|
00003790: 14 99 22 11 20 12 52 45 54 55 52 4E 92 20 3D 20 |..". .RETURN. = |
000037A0: 33 22 00 C1 3F 3C 14 99 22 20 4F 52 20 27 5E 20 |3"..?<.." OR '^ |
000037B0: 52 45 54 55 52 4E 27 20 46 4F 52 20 4D 45 4E 55 |RETURN' FOR MENU|
000037C0: 22 00 D5 3F 46 14 85 5A 5A 24 3A 8B 5A 5A 24 B2 |"..?F..ZZ$:.ZZ$.|
000037D0: 22 5E 22 A7 8E 00 F3 3F 50 14 8B 5A 5A 24 B2 22 |"^"....?P..ZZ$."|
000037E0: 22 A7 52 50 B2 33 3A 5A 5A 24 B2 22 22 3A 89 35 |".RP.3:ZZ$."":.5|
000037F0: 32 32 30 00 13 40 5A 14 52 50 B2 C5 28 5A 5A 24 |220..@Z.RP..(ZZ$|
00003800: 29 3A 5A 5A 24 B2 22 22 3A 8B 52 50 B3 31 A7 35 |):ZZ$."":.RP.1.5|
00003810: 31 36 30 00 2A 40 64 14 81 4E B2 31 A4 38 3A 46 |160.*@d..N.1.8:F|
00003820: 46 24 28 4E 29 B2 22 22 3A 82 00 37 40 6E 14 81 |F$(N)."":..7@n..|
00003830: 43 4F B2 31 A4 46 43 00 59 40 78 14 99 22 93 11 |CO.1.FC.Y@x.."..|
00003840: 20 54 4F 54 41 4C 20 4C 49 4E 45 53 20 57 41 4E | TOTAL LINES WAN|
00003850: 54 45 44 3A 20 22 3B 46 43 00 81 40 82 14 99 22 |TED: ";FC..@..."|
00003860: 11 20 45 4E 54 45 52 20 46 49 45 4C 44 53 20 54 |. ENTER FIELDS T|
00003870: 4F 20 42 45 20 4F 4E 20 4C 49 4E 45 20 12 22 43 |O BE ON LINE ."C|
00003880: 4F 00 CB 40 8C 14 99 22 20 49 4E 20 54 48 45 20 |O..@..." IN THE |
00003890: 4F 52 44 45 52 20 4F 46 20 41 50 50 45 41 52 41 |ORDER OF APPEARA|
000038A0: 4E 43 45 20 4F 4E 20 4C 41 42 45 4C 22 3A 99 22 |NCE ON LABEL":."|
000038B0: 20 4F 52 20 12 52 45 54 55 52 4E 92 20 46 4F 52 | OR .RETURN. FOR|
000038C0: 20 4E 45 58 54 20 4C 49 4E 45 22 00 EF 40 96 14 | NEXT LINE"..@..|
000038D0: 99 22 11 20 12 20 5E 20 92 20 54 4F 20 53 54 41 |.". . ^ . TO STA|
000038E0: 52 54 20 4F 56 45 52 20 4C 49 4E 45 22 3A 99 00 |RT OVER LINE":..|
000038F0: 0C 41 A0 14 81 4B B2 31 A4 38 3A 99 4B 3B 22 20 |.A...K.1.8:.K;" |
00003900: 2D 20 22 3B 46 49 24 28 4B 29 3A 82 00 22 41 AA |- ";FI$(K):.."A.|
00003910: 14 A1 59 59 24 3A 8B 59 59 24 B2 22 22 A7 35 32 |..YY$:.YY$."".52|
00003920: 39 30 00 34 41 B4 14 8B 59 59 24 B2 22 5E 22 A7 |90.4A...YY$."^".|
00003930: 35 32 35 30 00 48 41 BE 14 8B 59 59 24 B2 C7 28 |5250.HA...YY$..(|
00003940: 31 33 29 A7 35 33 36 30 00 56 41 C8 14 4A 4B B2 |13).5360.VA..JK.|
00003950: C5 28 59 59 24 29 00 6C 41 D2 14 8B 28 4A 4B B3 |.(YY$).lA...(JK.|
00003960: 30 B0 4A 4B B1 38 29 A7 35 32 39 30 00 84 41 DC |0.JK.8).5290..A.|
00003970: 14 46 46 24 28 43 4F 29 B2 46 46 24 28 43 4F 29 |.FF$(CO).FF$(CO)|
00003980: AA 59 59 24 00 94 41 E6 14 99 59 59 24 2C 3A 89 |.YY$..A...YY$,:.|
00003990: 35 32 39 30 00 9A 41 F0 14 82 00 C4 41 FA 14 99 |5290..A.....A...|
000039A0: 22 93 11 20 50 52 49 4E 54 20 12 20 41 92 4C 4C |".. PRINT . A.LL|
000039B0: 20 52 45 43 4F 52 44 53 20 4F 4E 20 46 49 4C 45 | RECORDS ON FILE|
000039C0: 20 4F 52 22 00 03 42 04 15 99 22 12 20 53 92 50 | OR"..B...". S.P|
000039D0: 45 43 49 46 49 43 20 52 45 43 4F 52 44 20 20 20 |ECIFIC RECORD |
000039E0: 12 20 DD 41 DD 53 DD 20 92 22 3A 99 22 20 4F 52 |. .A.S. .":." OR|
000039F0: 20 12 52 45 54 55 52 4E 92 20 46 4F 52 20 4D 45 | .RETURN. FOR ME|
00003A00: 4E 55 22 00 19 42 0E 15 A1 5A 5A 24 3A 8B 5A 5A |NU"..B...ZZ$:.ZZ|
00003A10: 24 B2 22 22 A7 35 33 39 30 00 2A 42 18 15 8B 5A |$."".5390.*B...Z|
00003A20: 5A 24 B2 C7 28 31 33 29 A7 8E 00 48 42 22 15 8B |Z$..(13)...HB"..|
00003A30: 28 5A 5A 24 B3 B1 22 41 22 AF 5A 5A 24 B3 B1 22 |(ZZ$.."A".ZZ$.."|
00003A40: 53 22 29 A7 35 33 39 30 00 6E 42 2C 15 99 22 11 |S").5390.nB,..".|
00003A50: 20 49 53 20 50 52 49 4E 54 45 52 20 52 45 41 44 | IS PRINTER READ|
00003A60: 59 3F 20 20 12 20 DD 59 DD 4E DD 20 92 22 00 82 |Y? . .Y.N. ."..|
00003A70: 42 36 15 A1 58 58 24 3A 8B 58 58 24 B2 22 4E 22 |B6..XX$:.XX$."N"|
00003A80: A7 8E 00 95 42 40 15 8B 58 58 24 B3 B1 22 59 22 |....B@..XX$.."Y"|
00003A90: A7 35 34 33 30 00 A7 42 4A 15 8B 5A 5A 24 B2 22 |.5430..BJ..ZZ$."|
00003AA0: 41 22 A7 35 37 31 30 00 CB 42 54 15 8D 34 31 37 |A".5710..BT..417|
00003AB0: 30 3A 8B 28 45 45 24 B2 22 4D 4C 45 52 52 22 B0 |0:.(EE$."MLERR".|
00003AC0: 45 31 B3 B1 30 29 A7 35 33 37 30 00 11 43 5E 15 |E1..0).5370..C^.|
00003AD0: 8B C8 28 46 42 55 46 24 28 31 29 2C 31 30 29 B2 |..(FBUF$(1),10).|
00003AE0: 22 24 24 24 24 24 24 24 24 24 24 22 A7 99 22 52 |"$$$$$$$$$$".."R|
00003AF0: 45 43 20 23 22 52 43 22 11 20 57 41 53 20 12 20 |EC #"RC". WAS . |
00003B00: 44 45 4C 45 54 45 44 20 92 2E 22 3A 89 35 36 37 |DELETED ..":.567|
00003B10: 30 00 28 43 68 15 81 4E B2 31 A4 38 3A 4C 54 24 |0.(Ch..N.1.8:LT$|
00003B20: 28 4E 29 B2 22 22 3A 82 00 35 43 72 15 81 43 4F |(N)."":..5Cr..CO|
00003B30: B2 31 A4 46 43 00 58 43 7C 15 8B C3 28 46 46 24 |.1.FC.XC|...(FF$|
00003B40: 28 43 4F 29 29 B2 30 A7 4C 54 24 28 43 4F 29 B2 |(CO)).0.LT$(CO).|
00003B50: 22 22 3A 89 35 36 31 30 00 6C 43 86 15 81 48 B2 |"":.5610.lC...H.|
00003B60: 31 A4 C3 28 46 46 24 28 43 4F 29 29 00 84 43 90 |1..(FF$(CO))..C.|
00003B70: 15 58 B2 C5 28 CA 28 46 46 24 28 43 4F 29 2C 48 |.X..(.(FF$(CO),H|
00003B80: 2C 31 29 29 00 8F 43 9A 15 81 49 B2 30 A4 39 00 |,1))..C...I.0.9.|
00003B90: B5 43 A4 15 8B 28 CA 28 46 42 55 46 24 28 58 29 |.C...(.(FBUF$(X)|
00003BA0: 2C 33 AC 49 AA 31 2C 33 29 B2 22 20 20 20 22 29 |,3.I.1,3)." ")|
00003BB0: A7 35 35 36 30 00 BC 43 AE 15 82 49 00 E0 43 B8 |.5560..C...I..C.|
00003BC0: 15 4C 54 24 28 43 4F 29 B2 4C 54 24 28 43 4F 29 |.LT$(CO).LT$(CO)|
00003BD0: AA C8 28 46 42 55 46 24 28 58 29 2C 33 AC 49 29 |..(FBUF$(X),3.I)|
00003BE0: 00 0D 44 C2 15 8B 28 C9 28 4C 54 24 28 43 4F 29 |..D...(.(LT$(CO)|
00003BF0: 2C 31 29 B3 B1 22 20 22 29 A7 4C 54 24 28 43 4F |,1).." ").LT$(CO|
00003C00: 29 B2 4C 54 24 28 43 4F 29 AA 22 20 22 00 25 44 |).LT$(CO)." ".%D|
00003C10: CC 15 8B C3 28 4C 54 24 28 43 4F 29 29 B1 4E 43 |....(LT$(CO)).NC|
00003C20: A7 35 36 30 30 00 2C 44 D6 15 82 48 00 46 44 E0 |.5600.,D...H.FD.|
00003C30: 15 4C 54 24 28 43 4F 29 B2 C8 28 4C 54 24 28 43 |.LT$(CO)..(LT$(C|
00003C40: 4F 29 2C 4E 43 29 00 4E 44 EA 15 82 43 4F 00 5A |O),NC).ND...CO.Z|
00003C50: 44 F4 15 9F 34 2C 34 3A 9D 34 00 66 44 FE 15 81 |D...4,4:.4.fD...|
00003C60: 4B B2 31 A4 52 50 00 7D 44 08 16 81 4C B2 31 A4 |K.1.RP.}D...L.1.|
00003C70: 46 43 3A 99 4C 54 24 28 4C 29 3A 82 4C 00 90 44 |FC:.LT$(L):.L..D|
00003C80: 12 16 81 4D B2 31 A4 4C 58 AB 31 3A 99 3A 82 4D |...M.1.LX.1:.:.M|
00003C90: 00 9A 44 1C 16 82 4B 3A 98 34 00 A1 44 26 16 A0 |..D...K:.4..D&..|
00003CA0: 34 00 D9 44 30 16 51 55 B2 30 3A 99 22 11 20 48 |4..D0.QU.0:.". H|
00003CB0: 4F 4C 44 20 12 53 50 41 43 45 92 20 54 4F 20 51 |OLD .SPACE. TO Q|
00003CC0: 55 49 54 22 3A A1 5A 5A 24 3A 8B 5A 5A 24 B3 B1 |UIT":.ZZ$:.ZZ$..|
00003CD0: 22 22 A7 51 55 B2 31 3A 8E 00 E6 44 3A 16 8B 46 |"".QU.1:...D:..F|
00003CE0: 32 B3 B1 30 A7 8E 00 F0 44 44 16 89 34 39 37 30 |2..0....DD..4970|
00003CF0: 00 01 45 4E 16 8F 20 41 4C 4C 20 4C 41 42 45 4C |..EN.. ALL LABEL|
00003D00: 53 00 21 45 58 16 46 31 B2 30 3A 46 32 B2 39 39 |S.!EX.F1.0:F2.99|
00003D10: 3A 8D 31 39 35 30 3A 46 32 B2 30 3A 89 34 39 37 |:.1950:F2.0:.497|
00003D20: 30 00 35 45 62 16 8F 20 46 49 4C 45 20 48 41 4E |0.5Eb.. FILE HAN|
00003D30: 44 4C 49 4E 47 00 7D 45 6C 16 99 22 93 20 46 49 |DLING.}El..". FI|
00003D40: 4C 45 20 48 41 4E 44 4C 49 4E 47 20 52 4F 55 54 |LE HANDLING ROUT|
00003D50: 49 4E 45 53 22 3A 99 22 11 20 43 48 4F 4F 53 45 |INES":.". CHOOSE|
00003D60: 20 4E 55 4D 42 45 52 20 4F 52 20 12 52 45 54 55 | NUMBER OR .RETU|
00003D70: 52 4E 92 20 46 4F 52 20 4D 45 4E 55 22 00 AE 45 |RN. FOR MENU"..E|
00003D80: 76 16 99 22 11 11 20 12 20 31 20 92 20 2D 20 46 |v..".. . 1 . - F|
00003D90: 4F 52 4D 41 54 20 41 20 4E 45 57 20 4D 41 49 4C |ORMAT A NEW MAIL|
00003DA0: 49 4E 47 20 4C 49 53 54 20 44 49 53 4B 22 00 E8 |ING LIST DISK"..|
00003DB0: 45 80 16 99 22 20 12 20 32 20 92 20 2D 20 45 44 |E..." . 2 . - ED|
00003DC0: 49 54 20 41 20 52 45 43 4F 52 44 22 3A 99 22 20 |IT A RECORD":." |
00003DD0: 12 20 33 20 92 20 2D 20 44 45 4C 45 54 45 20 41 |. 3 . - DELETE A|
00003DE0: 20 52 45 43 4F 52 44 22 00 28 46 8A 16 99 22 20 | RECORD".(F..." |
00003DF0: 12 20 34 20 92 20 2D 20 43 48 41 4E 47 45 20 46 |. 4 . - CHANGE F|
00003E00: 49 45 4C 44 20 4E 41 4D 45 53 22 3A 99 22 20 12 |IELD NAMES":." .|
00003E10: 20 35 20 92 20 2D 20 49 4E 49 54 49 41 4C 49 5A | 5 . - INITIALIZ|
00003E20: 45 20 44 52 49 56 45 22 00 4A 46 94 16 99 22 20 |E DRIVE".JF..." |
00003E30: 12 20 36 20 92 20 2D 20 4C 4F 41 44 20 49 4E 53 |. 6 . - LOAD INS|
00003E40: 54 52 55 43 54 49 4F 4E 53 22 00 5C 46 9E 16 99 |TRUCTIONS".\F...|
00003E50: 22 11 11 20 43 48 4F 49 43 45 3A 22 00 72 46 A8 |".. CHOICE:".rF.|
00003E60: 16 A1 58 4D 24 3A 8B 58 4D 24 B2 22 22 A7 35 38 |..XM$:.XM$."".58|
00003E70: 30 30 00 83 46 B2 16 8B 58 4D 24 B2 C7 28 31 33 |00..F...XM$..(13|
00003E80: 29 A7 8E 00 A3 46 BC 16 41 31 B2 C5 28 58 4D 24 |)....F..A1..(XM$|
00003E90: 29 3A 8B 28 41 31 B3 31 B0 41 31 B1 36 29 A7 35 |):.(A1.1.A1.6).5|
00003EA0: 38 30 30 00 C4 46 C6 16 91 41 31 89 32 39 39 30 |800..F...A1.2990|
00003EB0: 2C 32 35 36 30 2C 32 32 39 30 2C 33 32 32 30 2C |,2560,2290,3220,|
00003EC0: 36 30 34 30 00 05 47 D0 16 99 22 93 11 20 50 55 |6040..G...".. PU|
00003ED0: 54 20 12 20 53 54 41 52 54 45 52 20 4B 49 54 20 |T . STARTER KIT |
00003EE0: 92 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 22 |. DISK IN DRIVE"|
00003EF0: 3A 99 22 20 41 4E 44 20 48 49 54 20 12 52 45 54 |:." AND HIT .RET|
00003F00: 55 52 4E 92 22 00 25 47 DA 16 99 22 20 4F 52 20 |URN.".%G..." OR |
00003F10: 48 49 54 20 12 53 50 41 43 45 92 20 46 4F 52 20 |HIT .SPACE. FOR |
00003F20: 4D 45 4E 55 22 00 3B 47 E4 16 A1 5A 5A 24 3A 8B |MENU".;G...ZZ$:.|
00003F30: 5A 5A 24 B2 22 22 A7 35 38 36 30 00 62 47 EE 16 |ZZ$."".5860.bG..|
00003F40: 8B 5A 5A 24 B2 C7 28 31 33 29 A7 93 22 4D 41 49 |.ZZ$..(13).."MAI|
00003F50: 4C 49 4E 47 20 4C 49 53 54 20 44 4F 43 22 2C 38 |LING LIST DOC",8|
00003F60: 2C 31 00 68 47 F8 16 8E 00 7A 47 02 17 8F 20 53 |,1.hG....zG... S|
00003F70: 43 52 45 45 4E 20 56 49 45 57 00 97 47 0C 17 99 |CREEN VIEW..G...|
00003F80: 22 93 20 53 43 52 45 45 4E 20 56 49 45 57 20 52 |". SCREEN VIEW R|
00003F90: 45 43 4F 52 44 53 22 00 C3 47 16 17 99 22 11 20 |ECORDS"..G...". |
00003FA0: 43 48 4F 4F 53 45 20 4E 55 4D 42 45 52 20 4F 52 |CHOOSE NUMBER OR|
00003FB0: 20 12 52 45 54 55 52 4E 92 20 46 4F 52 20 4D 45 | .RETURN. FOR ME|
00003FC0: 4E 55 22 00 EC 47 20 17 99 22 11 11 20 12 20 31 |NU"..G ..".. . 1|
00003FD0: 20 92 20 2D 20 56 49 45 57 20 49 4E 44 49 56 49 | . - VIEW INDIVI|
00003FE0: 44 55 41 4C 20 52 45 43 4F 52 44 22 00 0D 48 2A |DUAL RECORD"..H*|
00003FF0: 17 99 22 20 12 20 32 20 92 20 2D 20 56 49 45 57 |.." . 2 . - VIEW|
00004000: 20 45 4E 54 49 52 45 20 46 49 4C 45 22 00 1F 48 | ENTIRE FILE"..H|
00004010: 34 17 99 22 11 11 20 43 48 4F 49 43 45 3A 22 00 |4..".. CHOICE:".|
00004020: 35 48 3E 17 A1 58 4D 24 3A 8B 58 4D 24 B2 22 22 |5H>..XM$:.XM$.""|
00004030: A7 35 39 35 30 00 46 48 48 17 8B 58 4D 24 B2 C7 |.5950.FHH..XM$..|
00004040: 28 31 33 29 A7 8E 00 54 48 52 17 41 31 B2 C5 28 |(13)...THR.A1..(|
00004050: 58 4D 24 29 00 63 48 5C 17 8B 41 31 B2 31 A7 34 |XM$).cH\..A1.1.4|
00004060: 31 37 30 00 72 48 66 17 8B 41 31 B2 32 A7 31 39 |170.rHf..A1.2.19|
00004070: 35 30 00 7C 48 70 17 89 35 39 35 30 00 96 48 7A |50.|Hp..5950..Hz|
00004080: 17 45 31 B2 30 3A 84 31 35 2C 45 31 2C 45 45 24 |.E1.0:.15,E1,EE$|
00004090: 2C 45 32 2C 45 33 00 A6 48 84 17 8B 45 31 B3 B1 |,E2,E3..H...E1..|
000040A0: 30 A7 99 45 45 24 00 AC 48 8E 17 8E 00 BA 48 98 |0..EE$..H.....H.|
000040B0: 17 98 31 35 2C 22 49 22 3A 8E 00 00 00 |..15,"I":.... |
....D..650,0:.53281,15:."..".).N..15,8,1
5.N.X.."LAST NAME","FIRST NAME","ADDRESS
1","ADDRESS 2","CITY","STATE"......"ZIP
/COUNTRY","TELEPHONE"......I.1.8:.DA$:FI
$(I).DA$:..M...RC.0:LD.0:CU.0:D1.1250:D3
.2500... .SS$."
"......B(49152).76.210.G....".. PUT
. STARTER KIT . DISK IN DRIVE":.". HIT
RETURN".\....ZZ$:.ZZ$."".190.T.H. 15:."M
AILSORT",8,1...R..".. PUT DATA DISK IN D
RIVE":.". THEN HIT .RETURN"......".....
THE MAILING LIST":.". (C) COPYRIGHT 1984
":." BY NORTHWEST SOFTWARE"......ZZ$:.ZZ
$."".230.$....720:.E1..0.340.:....7,8,7,
"MAILLIST".O....6010:.E1..0.340.S....15,
"P".G(96.7).G(89).G(2).G(1)......6010:.E
1..0.340..."..7,TP$...,..H(TP$,9)."NO FI
ELDS".320.S.6.FI$(1).TP$:.J.2.8:.7,FI$(J
):....@..". "RC" RECORDS ON DISK".-.J..N
A$.."RC+1"..". AT LEAST ONE .DELETED. RE
CORD ON DISK".F.T..". HIT .RETURN.": 7.[
.^..ZZ$:.ZZ$."".350.K.H.. MAIN MENU...R.
.".. .. MAILING LIST BY NORTHWEST USER
S "...|..646,2: 7:EE$."":E1.0.U....".. F
1 .. .FILE. HANDLING"......". F2 .. .PRI
NT. LABELS OR REPORTS"......". F3 .. .CR
EATE. A RECORD".J....". F4 .. .NUMBER. O
F RECORDS ON DISK".O....". F5 .. .SCREEN
. VIEW RECORDS"......". F6 .. .VIEW LIST
. IN MEMORY".C.B..". F7 .. .LOAD. & .ALP
HABETIZE. KEY LIST"...L..". F8 .. .EXIT.
MAILING LIST PROGRAM"...V..".....COMMAN
D: .F1-F8.". ....ZZ$:.ZZ$."".480.:...AS.
F(ZZ$):.AS.140.570.Q....AS.137..3800:.37
0.A....AS.138.240.X....AS.139..1260:.370
......(AS.133.AS.136).480.....AS.AS.132.
..&..AS.5730,1440,5890,1030.D.0..370...:
..". DO YOU WISH TO EXIT .MAILING LIST.?
"...D..ZZ$:.ZZ$."".580...N..ZZ$."N".370.
).X..ZZ$.."Y".580.\.B..".. REMEMBER TO
TRY THE TRAINING KIT BY ";...L..".
THE NORTHWEST USERS GROUP! .";.
..V. 7:.15,"I": 15......".. HIT . SPACE
. TO LOAD . LOADME":." HIT . RETURN . TO
EXIT"......ZZ$:.ZZ$."".650......ZZ$.G(1
3)... ....ZZ$..G(32).650.Y....".LOAD"G(3
4)"LOADME"G(34)",8":.53272,21:.63,0:.64,
0......48,8:.52,160:.54,0:.56,160:.57,0:
.58,255:.62,0......"....RUN":.198,3.M.F.
.631,19:.632,13:.633,13:.59,0:.60,0:....
P.. CHECK DISK SUBR...Z.."."..... 7.$...
MG$." PUT .MAILING LIST. DATA DISK IN DR
IVE"......6010.C....E1..0..MG$:.900.Y...
.7,8,7,"MAILLIST".C....6010.X. ..E1..0..
MG$:.900...*..15,"P".G(96.7).G(90).G(2).
G(1)...4..6010:.E1..0.900...>..7,IN$...H
..H(IN$,12).."MAILING LIST"..MG$:.900...
R..7,TP$...\.RC.E(TP$)...F..7,NA$...P.NB
.E(NA$).4.Z..NB.1.NA$."RC+1":NB.RC.1.;..
. 7.B... 7.H.....D.... VIEW RECORD IN BU
FFER.M...DF.0......". RECORD NUMBER"CU:.
.J....H(FBUF$(1),10)."$$$$$$$$$$"..". WA
S . DELETED ..":DF.1:.1000.V.J..XY.1.8..
.T.." "FI$(XY)" : ":." ."FBUF$(XY)......
."....".. HIT .SPACE. TO CONTINUE".8....
ZZ$:.ZZ$."".1010.>.....V.... LOAD LIST O
F KEYS......". LOAD LIST OF WHICH FIELD
TO MEMORY?":." . RETURN = 1 ".B....".."
:.IJ.1.8:."."IJ;". . - ";FI$(IJ):....$..
".. HIT .SPACE. TO RETURN TO MENU"......
".CHOICE:"...8..ZZ$:.ZZ$."".1080.+.B..ZZ
$.G(13).AS.49:.1120.<.L..ZZ$.G(32)...^.V
.AS.F(ZZ$):.(AS.49.AS.56).1080.V.`.AS.AS
.49:FL.31.AS.1...J..720:.E1..0..:.. CHEC
K.C.T..(RC.1).." NO RECORDS ON THIS DISK
YET":.1850.Y.~..6010:.E1..0.1850......7
,8,7,"MAILLIST"......IJ.1.RC:RH..(IJ.256
):RL..(IJ.RH.256).?....15,"P".G(96.7).G(
RL).G(RH).G(FL).L....7,TEMP$.R...EX$(IJ)
.H(TEMP$,30)."00000".D(IJ).X.......D..".
LIST OF "FI$(AS.1)" LOADED":LD.1...N..K
L.1.D1:....X. 7.A....2940.Q.... VIEW LIS
T......". VIEW LIST OF FIELDS IN MEMORY"
......I.1.D1:..:....LD.0..". .LIST NOT L
OADED":.I.1.D1:.:.1030:. ..Q....". HOLD
.SPACE. TO PAUSE":." HOLD . F7 . TO STOP
"......I.1.D3:.:.". RECORD #"...(..IJ.1.
RC...2.LO.E(I(EX$(IJ),5))...<..J(EX$(IJ)
,10,7)."$$$$$$$"..LO,"WAS DELETED":.1360
...F..LO,H(EX$(IJ),30);...P..I.1.250:..'
.Z..ZZ$:.ZZ$.G(32).1360.6.D..ZZ$."."...<
.N...W.X.." . END OF LIST ":." TOTAL OF
."RC". RECORDS ON DISK"......". HIT .RET
URN. TO CONTINUE"......ZZ$:.ZZ$..G(13).1
420.......Q. .. CREATE NEW RECORD.....CU
.NB:.(DF.1.FBUF$(1)."")..K.1.8:FBUF$(K).
SS$:.:DF.0......MN.0.7.:....".
.CREATE A RECORD".F.H.." . 30 . CHARACT
ERS MAXIMUM PER FIELD".R.R..XY.1.8......
" "FI$(XY)" : ":." ."FBUF$(XY)..........
..55448.80.MN,0:.1176.80.MN,31:.55449.80
.MN,0:.1177.80.MN,73......".............
.....".=...." ENTER "FI$(MN.1)" OR":." S
ELECT: HIT '.RETURN.' FOR NEXT FIELD".B.
..." ENTER '.^ RETURN.' TO SAVE"......
" ENTER '.= RETURN.' TO CLEAR"...".."
ENTER '.@ RETURN.' FOR MENU"...,..EN$.
M.6..EN$."@".EN$."":....@..EN$."".1650..
.J..EN$."=".EN$."":.KL.1.8:FBUF$(KL).SS$
:.:.1440.).T..EN$."^".1670:. SAVE.G.^.FB
UF$(MN.1).H(EN$.SS$,30).R.H.EN$."".X.R..
.B.|..1460.T.... SAVE RECORD.....EN$."":
.720:.E1..0..1850:. CHECK.O....NB.600.."
. .DISKETTE FULL. FORMAT NEW ONE":.1850.
Y...CU.NB......NB.RC.1.RC.RC.1......6010
:.E1..0.1850...B..7,8,7,"MAILLIST".;.L.R
H..(NB.256):RL..(NB.RH.256).`.V..15,"P".
G(96.7).G(RL).G(RH).G(1).U....NA$."RC+1"
.1790......7,NA$:.7,NA$......15,"P".G(96
.7).G(RL).G(RH).G(1).W...TP$."":.KL.1.8:
TP$.TP$.FB$(KL).G(13):.......7,TP$......
NA$."RC+1".1830.....NB.E(NA$):NA$.J(D(NB
),2,3)...&..1880:. KEEP NEW RC.I.0..". R
ECORD #"CU"SAVED".W.:..I.1.D3:..^.D. 7.H
.N..1440...X.. KEEP NEW RC - CALL ONLY A
FTER 15 AND 7 OPENED...B..15,"P".G(96.7)
.G(90).G(2).G(1)...L..6010:.E1.50.E1.20.
.".. WAIT":E1.0:.1920...V.." CANNOT KEEP
RC NUM":.1930.S....7,"MAILING LIST BY M
ICHAEL K. FONG".G(13).D(RC).G(13).NA$.G(
13).\...LD.0.B.......... LOAD AND OUTPUT
SEQUENTIALLY.K....". OUTPUT RECORDS ON
DISK IN ORDER OF":." . C.REATION":.I.1.D
1:..Z....LD.0.2020. ...." OR IN . S.EQUE
NCE OF KEY LIST? .C/S":.". OR .RETURN. F
OR MENU".6.F..ZZ$:.ZZ$."".1990.J.P..ZZ$.
G(13).2260.F.Z..ZZ$.."C".ZZ$.."S".1990..
....720:.E1..0.2260:. CHECK.....FA.99:.Z
Z$."S".FA.0.M....(RC.1).." NO RECORDS ON
THIS DISK YET":.2260......6010:.E1..0.2
260......7,8,7,"MAILLIST"......IJ.1.RC.4
. ..FA..0.RH..(IJ.256):RL..(IJ.RH.256):.
2110.K.*.TM.E(I(EX$(IJ),4)).L.4.RH..(TM.
256):RL..(TM.RH.256)...>..15,"P".G(96.7)
.G(RL).G(RH).G(1)...H..KL.0.7...R..7,TEM
P$.F.\.FBUF$(KL.1).H(TEMP$,30).N.F..KL..
.P.CU.TM:.FA..0.CU.IJ...Z..F1..0..4800:.
2230......F2..0..5470:.2230.#....930:. V
IEW.P....". HIT ANY KEY TO CONTINUE SEQU
ENTIAL":." VIEWING OR .RETURN. FOR MENU"
......ZZ$:.ZZ$."".2210......ZZ$.G(13).22
70......QU..0..". .HALT.":QU.0:.2260.B..
...X.J..".. END OF FILE"...T..KL.1.D1:..
.... 7........ ... DELETE A RECORD.F ...
".. DELETE A RECORD":.".. LOAD RECORD FI
RST":.I.1.D1:..C ..F3.0:.4170:. LOAD REC
ORD.U ...F3..0.F3.0:... ...(E1..0.EE$.."
OK")..".. CANNOT DELETE RECORD":.2530.C
$..(RC.1.DF.1).2530..!...". HIT .RETURN.
TO DELETE THIS RECORD":." HIT .SPACE. T
O ABORT"..!8..ZZ$:.ZZ$."".2360.2!B..ZZ$.
G(32).2540.G!L..ZZ$..G(13).2360.P!V.."."
.F!`..6010:.E1..0.2530.|!J..7,8,7,"MAILL
IST"..!T.TEMP$."$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$":TP$.""..!~..IJ.1.8.N!..FBUF$(IJ)
.TEMP$..!...IJ.2.FBUF$(IJ).H(NA$.TEMP$,3
0).."..TP$.TP$.FB$(IJ).G(13).."....7"...
15,"P".G(96.7).G(RL).G(RH).G(1).B"...7,T
P$.V"D.NA$.D(CU):NB.CU.`"N..1880.~"X..".
. RECORD DELETED":DF.1.."...I.1.D1:...".
. 7.."....."... EDIT AN EXISTING RECORD.
."...".. EDIT AN EXISTING RECORD":.". LO
AD RECORD FIRST":.I.1.D1:...#..F3.0:.417
0:. LOAD RECORD.L#...(EE$.."OK".E1..0)..
". CANNOT EDIT RECORD":.2910.^#(..F3..0.
F3.0:...#2..(RC.1.DF.1).."CANNOT EDIT RE
CORD":.2910..#<..MN.0.7..#F..".
.EDIT A RECORD"..#P.." . 30 . CHARACT
ERS MAXIMUM PER FIELD"..#Z.." RECORD NUM
BER"CU..$D..XY.1.8..$N.." "FI$(XY)" : ":
." ."FBUF$(XY).4$X...T$...55488.80.MN,0:
.1216.80.MN,31:.55489.80.MN,0:.1217.80.M
N,73..$..."...................".V$..." E
NTER "FI$(MN.1)" OR":." SELECT: HIT '.RE
TURN.' FOR NEXT FIELD"..$ .." ENTER '.
^ RETURN.' TO SAVE".!%..." ENTER '.= R
ETURN.' FOR MENU".*%...EN$.@%...EN$."=".
EN$."":..Q%H..EN$."".2800.L%R..EN$."^".2
820:. RESAVE..%..FBUF$(MN.1).H(EN$.SS$,3
0)..%..EN$.""..%.....%...2620.M%..EN$.""
:RH..(CU.256):RL..(CU.RH.256).V%..."."..
%...6010:.E1..0.2910..&"..7,8,7,"MAILLIS
T".'&,..15,"P".G(96.7).G(RL).G(RH).G(1).
R&6.TP$."":.KL.1.8:TP$.TP$.FB$(KL).G(13)
:..]&@..7,TP$..&J..". EDIT COMPLETED":.I
J.1.D1:...&T.LD.0..&^. 7..&H..I.1.D1:...
&R....&|.. ALPHABETIZE.I&...".SORTING...
"..&...49152,RC,EX$(1)..&...". DONE...":
.IJ.1.D1:...'.....'... FORMAT DISK.;'...
".. FORMAT DISK IN DRIVE? . .Y.N. ".Q'B.
.ZZ$:.ZZ$."".3010.A'L..ZZ$.."Y"...T'V.RC
.0:LD.0:CU.0.{'.. 7..'...:." DISKETTE NA
ME";DK$.G'...".. FORMATTING. TAKE A 10 M
INUTE BREAK...".Y'..DK$.H(DK$,16)..'...1
5,"N:".DK$.",1A"..(...6010:.E1..0.." CAN
NOT FORMAT DISK":.3170.>(...7,8,7,"MAILL
IST,L,".G(250).F(&..6010:.E1.50.E1.20.."
.. WAIT":.3130..(0.." CANNOT CREATE FILE
":.3170..(:.NA$."RC+1":NB.RC.1..(D..1880
:.E1..0.3170.X(N..15,"P".G(96.7).G(89).G
(2).G(1)..(X..7,"NO FIELDS YET".G(13)..(
B. 7..)L..I.1.D3:..+)V..6010:.E1..0..".
HIT RETURN".H)...E1..0..ZZ$:.ZZ$."".3200
.N)....G)... CHANGE FIELD NAMES.S)...NP.
0.7..)...". .CHANGE FIELD NAMES".H
)..." . 30 . CHARACTERS MAXIMUM PER FIEL
D":."..".T)...YZ.1.8..)F.." "FI$(YZ)..)P
...**Z..55528.40.NP,0:.1256.40.NP,31:.55
529.40.NP,0:.1257.40.NP,73.B*...".......
........."..*..." ENTER NEW FIELD NAME O
R":." HIT '.RETURN.' FOR NEXT FIELD".U
*..." '.@ RETURN.' TO RESTORE ORIG. FIE
LDS":." '.^ RETURN.' TO SAVE FIELDS"..+
..." '.* RETURN.' TO LOAD FIELD NAMES":
." '.= RETURN.' FOR MENU".*+..ZN$."":.Z
N$.;+...ZN$."".3420.M+ ..ZN$."@".3770.F+
*..ZN$."^".3440:. SAVE.X+4..ZN$."*".3590
..+>..ZN$."="....+H.FI$(NP.1).H(ZN$,30).
.+R.ZN$.""..+\....+F..3220.O+P..720:.E1.
.0.3560..+Z..". SAVE FIELD NAMES TO DISK
?"..,...ZZ$:.ZZ$."".3460..,...ZZ$."N".32
40.-,...ZZ$.."Y".3460.6,...".".L,...6010
:.E1..0.3560.B,...7,8,7,"MAILLIST"..,...
15,"P".G(96.7).G(89).G(2).G(1)..,J.TP$."
":.KL.1.8:TP$.TP$.FI$(KL).G(13):...,T..7
,TP$.W,...". FIELD NAMES SAVED"..,.. 7..
,...I.1.D1:...,...3240..-... LOAD FIELDS
..-...720:.E1..0.3740.B-...". LOAD FIELD
NAMES FROM DISK?".X-$..ZZ$:.ZZ$."".3620
.J-...ZZ$."N".3240.}-8..ZZ$.."Y".3620..-
B.."."..-L..6010:.E1..0.3740..-V..7,8,7,
"MAILLIST".V-`..15,"P".G(96.7).G(89).G(2
).G(1)..-J..7,TP$...T..H(TP$,9)."NO FIEL
DS"..". "TP$" SAVED ON DISK YET":.3740.-
.~.FI$(1).TP$.D....J.2.8:.7,FI$(J):..[..
..". FIELDS LOADED".B... 7.P....I.1.D1:.
.Z....3240.K...FI$(1)."LAST NAME":FI$(2)
."FIRST NAME":FI$(3)."ADDRESS 1":FI$(4).
"ADDRESS 2"../D.FI$(5)."CITY":FI$(6)."ST
ATE":FI$(7)."ZIP/COUNTRY":FI$(8)."TELEPH
ONE"../N..3240.5/X.. PRINTER ROUTINES.~/
...".. PRINTER ROUTINES":.". SELECT . L.
ABELS OR . R.EPORT . .R.L. ."../..." OR
.RETURN. FOR MENU"../...ZZ$:.ZZ$."".383
0.B/...ZZ$.G(13)...T/...ZZ$."L".4970../.
..ZZ$.."R".3830.$0...".. PRINT REPORTS":
.". PRINT . A.LL RECORDS ON FILE OR".C0(
..". S.PECIFIC RECORD . .A.S. .":." OR
.RETURN. FOR MENU".Y02..ZZ$:.ZZ$."".389
0..0<..ZZ$.G(13)....0F..(ZZ$.."A".ZZ$.."
S").3890.N0P..". IS PRINTER READY? . .Y
.N. ."..0Z..XX$:.XX$."N"....0D..XX$.."Y"
.3930.61N..".. SELECT FIELDS . .1-8. . T
O":." PRINT THEN HIT .RETURN.".]1X.." OR
HIT . E . FOR ENTIRE RECORD"..1..FC.0:.
K.1.8:PF(K).0:.K;" - ";FI$(K):...1...YY$
:.YY$."".3980.Y1...YY$."E"..J.1.8:PF(J).
1:.:FC.8:.". ENTIRE RECORD":.4060..1 .JK
.E(YY$):.(JK.1.FC.1).3980..2...YY$.G(13)
.4060.#2...(JK.1.JK.8).3980.M2...PF(JK).
0.." "JK" ";:PF(JK).1:FC.FC.1.R2H..FC.7.
.:." ENTIRE RECORD ":.4060.|2R..3980..2.
..I.1.D1:..T2..LB$."":.".. HOW MANY FIEL
DS PER LINE?":." MAXIMUM = 8":." RETURN
= 4"..2...LB$..2...LB$."".FX.4:.4110..3.
.FX.E(LB$):LB$."":.(FX.1.FX.8).4070._3..
LB$."":.".. SKIP HOW MANY LINES AFTER A
RECORD?":." RETURN = 0".H3...LB$.3"..LB
$."".LX.0:.4150..3,.LX.E(LB$):LB$."":.(L
X.0).4110..36..ZZ$."A".4930.I3@..4170:.4
800:.3870..3J.. INDIVIDUAL REPORTS..4T..
". WILL FIND RECORD TO OUTPUT".*4^.."."R
C". RECORDS ON THIS DISK".V4H..". ENTER
. R . FOR ACCESS BY RECORD #"..4R..". O
R SEARCH USING WHICH FIELD AS KEY?":."
. RETURN = 1 ".B4|.."..":.IJ.1.8:."."IJ;
". . - ";FI$(IJ):...4..."... OR HIT .SPA
CE. TO RETURN TO MENU":.". CHOICE:"..5..
.ZZ$:.ZZ$."".4240.+5...ZZ$.G(13).AS.0:.4
300.B5...ZZ$.G(32).F3.99:..T5...ZZ$."R".
4600.W5..AS.F(ZZ$):.(AS.49 .AS.56).4240.
.5B.AS.AS.49..5L.FL.31.AS.1..5V..720:.E1
..0..:.. CHECK..5...".. SPECIFY LENGTH O
F MATCHING PATTERN"..6...". HOW MANY CHA
RACTERS IN PATTERN".26...". .RETURN. = 1
";IN$:TM.E(IN$):.TM.0.TM.1.C6...TM.30.TM
.30.J6...". ENTER "FI$(AS.1);:.FBUF$(AS.
1)..6..FBUF$(AS.1).H(FBUF$(AS.1).SS$,30)
..6...".. SEARCHING...".Y6&..(RC.1).." N
O RECORDS ON THIS DISK YET":.4480..60..6
010:.E1..0..I.1.D1:.:...7:..7,8,7,"MAILL
IST".67D..IJ.1.RC:RH..(IJ.256):RL..(IJ.R
H.256).\7N..15,"P".G(96.7).G(RL).G(RH).G
(FL).I7X..7,TEMP$.7B.TEMP$.H(TEMP$,TM).
.7L..TEMP$.H(FBUF$(AS.1),TM).CU.IJ:.4490
..7V....7...". RECORD WAS NOT FOUND":EE$
."MLERR":.KL.1.D1:.: 7:...8...15,"P".G(9
6.7).G(RL).G(RH).G(1).<8...KL.0.7:.7,TEM
P$:FBUF$(KL.1).H(TEMP$,30):..E8...930._8
... IS THIS THE RECORD?..8...". HIT .RET
URN. TO CONTINUE SEARCH":." OR .SPACE. I
F RECORD IS ONE WANTED".E8...ZZ$:.ZZ$.""
.4540.Y8F..ZZ$.G(13).4470..8P..ZZ$." ".4
580..8Z..4540..8.. 7..9....J9...". ENTER
RECORD NUMBER TO BE OUTPUTTED":." OR '^
RETURN' FOR MENU".^9...ZZ$:.ZZ$."^"...S
9...720:.E1..0.4720..9...(RC.1)..". NO R
ECORDS ON DISK YET":.4720..9 ..(E(ZZ$).1
.E(ZZ$).RC)..". NO SUCH RECORD":.I.1.D1:
.:.4600..9*.CU.E(ZZ$)..:4..6010:.E1..0.4
720..:>..7,8,7,"MAILLIST".::H.RH..(CU.25
6):RL..(CU.RH.256)._:R..15,"P".G(96.7).G
(RL).G(RH).G(1)..:\..K.0.7:.7,TEMP$:FBUF
$(K.1).H(TEMP$,30):...:F..930..:P. 7..:Z
..I.1.D1:...:....L:... GENERAL PRINT ROU
TINE..:...720:.1,8,2,"$":.I.1.142:.#1,A$
:.:DK$.""..;...K.1.14:.#1,A$:.A$..G(96).
.A$..G(160).DK$.DK$.A$.?;...: 1:.4,4:.4.
.;..." .DISK. "DK$" .TOTAL NUMBER OF
RECORDS ON DISK. "RC:.:.4: 4:...;...(EE
$."MLERR")....;J. 4:.4,4:.4..;T.." RECOR
D #"CU..;...H(FBUF$(1),10)."$$$$$$$$$$".
.". WAS . DELETED ..":.4890..<..CT.0:.I.
1.8..<...PF(I).0.4880.9<...H(FBUF$(I),15
)" ";.]<..CT.CT.1:.((CT.FX..(CT.FX))
.0)...C<....U<...K.1.LX.1:.:..<$..4: 4.
.<..QU.0:.". HOLD .SPACE. TO QUIT":.ZZ$:
.ZZ$.."".QU.1..<8...T<B.. REPORT ALL REC
ORDS..<L.F2.0:F1.99:.4750:.1950:F1.0:.49
50..=V. 7..=`..3870..=J.. LABELS.0=T.LX.
0:NC.0:RP.0:FC.0.X=~.ZZ$."":.".. PRINT L
ABELS":.I.1.D1:..{=...".. HOW MANY LINES
TO PRINT?"..=..." .RETURN. = 3"..=..."
OR '^ RETURN' FOR MENU".C=...ZZ$:.ZZ$."^
"....=...ZZ$."".FC.3:ZZ$."":.5060..>..FC
.E(ZZ$):ZZ$."":.FC.1.5000.:>D..".. HOW M
ANY LINES TO SKIP":." BETWEEN EACH LABEL
?".L>N..". .RETURN. = 3":.". OR '^ RETUR
N' FOR MENU"..>X..ZZ$:.ZZ$."^"....>...ZZ
$."".LX.3:ZZ$."":.5110..>..LX.E(ZZ$):ZZ$
.""..>...".. HOW MANY CHARACTERS PER LIN
E?":." [HOW WIDE ARE LABELS?]"..?...". D
EFAULT = 35".,?...". OR '^ RETURN' FOR M
ENU".@?...ZZ$:.ZZ$."^"...A?..NC.E(ZZ$):Z
Z$."":.NC.1.NC.35..?(..".. HOW MANY LABE
LS FOR THIS RECORD?"..?2..". .RETURN. =
3".A?<.." OR '^ RETURN' FOR MENU".U?F..Z
Z$:.ZZ$."^"....?P..ZZ$."".RP.3:ZZ$."":.5
220..@Z.RP.E(ZZ$):ZZ$."":.RP.1.5160.*@D.
.N.1.8:FF$(N)."":..7@N..CO.1.FC.Y@X.."..
TOTAL LINES WANTED: ";FC..@...". ENTER
FIELDS TO BE ON LINE ."CO.K@..." IN THE
ORDER OF APPEARANCE ON LABEL":." OR .RET
URN. FOR NEXT LINE"..@...". . ^ . TO STA
RT OVER LINE":...A ..K.1.8:.K;" - ";FI$(
K):.."A...YY$:.YY$."".5290.4A...YY$."^".
5250.HA...YY$.G(13).5360.VAH.JK.E(YY$).L
AR..(JK.0.JK.8).5290..A..FF$(CO).FF$(CO)
.YY$..A...YY$,:.5290..A....DA...".. PRIN
T . A.LL RECORDS ON FILE OR"..B...". S.P
ECIFIC RECORD . .A.S. .":." OR .RETURN
. FOR MENU"..B...ZZ$:.ZZ$."".5390.*B...Z
Z$.G(13)...HB"..(ZZ$.."A".ZZ$.."S").5390
.NB,..". IS PRINTER READY? . .Y.N. ."..
B6..XX$:.XX$."N"....B@..XX$.."Y".5430..B
J..ZZ$."A".5710.KBT..4170:.(EE$."MLERR".
E1..0).5370..C^..H(FBUF$(1),10)."$$$$$$$
$$$".."REC #"RC". WAS . DELETED ..":.567
0.(CH..N.1.8:LT$(N)."":..5CR..CO.1.FC.XC
|..C(FF$(CO)).0.LT$(CO)."":.5610.LC...H.
1.C(FF$(CO))..C..X.E(J(FF$(CO),H,1))..C.
..I.0.9..C...(J(FBUF$(X),3.I.1,3)." ")
.5560..C...I..C..LT$(CO).LT$(CO).H(FBUF$
(X),3.I)..DB..(I(LT$(CO),1).." ").LT$(CO
).LT$(CO)." ".%DL..C(LT$(CO)).NC.5600.,D
V..H.FD..LT$(CO).H(LT$(CO),NC).ND...CO.Z
D...4,4:.4.FD...K.1.RP.}D...L.1.FC:.LT$(
L):.L..D...M.1.LX.1:.:.M..D...K:.4..D&.
4.YD0.QU.0:.". HOLD .SPACE. TO QUIT":.ZZ
$:.ZZ$.."".QU.1:...D:..F2..0....DD..4970
..EN.. ALL LABELS.!EX.F1.0:F2.99:.1950:F
2.0:.4970.5EB.. FILE HANDLING.}EL..". FI
LE HANDLING ROUTINES":.". CHOOSE NUMBER
OR .RETURN. FOR MENU"..EV..".. . 1 . - F
ORMAT A NEW MAILING LIST DISK"..E..." .
2 . - EDIT A RECORD":." . 3 . - DELETE A
RECORD".(F..." . 4 . - CHANGE FIELD NAM
ES":." . 5 . - INITIALIZE DRIVE".JF..."
. 6 . - LOAD INSTRUCTIONS".\F...".. CHOI
CE:".RF...XM$:.XM$."".5800..F...XM$.G(13
)....F..A1.E(XM$):.(A1.1.A1.6).5800.DFF.
.A1.2990,2560,2290,3220,6040..GP..".. PU
T . STARTER KIT . DISK IN DRIVE":." AND
HIT .RETURN.".%GZ.." OR HIT .SPACE. FOR
MENU".;G...ZZ$:.ZZ$."".5860.BG...ZZ$.G(1
3).."MAILING LIST DOC",8,1.HG....ZG... S
CREEN VIEW..G...". SCREEN VIEW RECORDS".
CG...". CHOOSE NUMBER OR .RETURN. FOR ME
NU"..G ..".. . 1 . - VIEW INDIVIDUAL REC
ORD"..H*.." . 2 . - VIEW ENTIRE FILE"..H
4..".. CHOICE:".5H>..XM$:.XM$."".5950.FH
H..XM$.G(13)...THR.A1.E(XM$).CH\..A1.1.4
170.RHF..A1.2.1950.|HP..5950..HZ.E1.0:.1
5,E1,EE$,E2,E3..H...E1..0..EE$..H.....H.
..15,"I":....
> CLICK IMAGE PREVIEW FOR FULL MODAL