CLUB MAIL LIST.C
FILE INFORMATION
FILENAME(S): CLUB MAIL LIST.C
FILE TYPE(S): PRG
FILE SIZE: 9.7K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
045d66c6ace82c7d91fccbce356dcaad61c6c92f3f5c1d04f0b4c026ec2c89a3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MORE MARCH 1 C | CLUB MAIL LIST.C | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 45 08 01 00 97 35 33 32 38 30 2C 30 3A 97 |..E....53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 93 11 11 11 11 11 |53281,0:."......|
00000020: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 44 4F |..............DO|
00000030: 20 59 4F 55 20 57 41 4E 54 20 49 4E 53 54 2E 20 | YOU WANT INST. |
00000040: 20 20 20 3F 22 00 64 08 02 00 99 22 1D 1D 1D 1D | ?".d...."....|
00000050: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 59 45 53 20 4F 52 |..........YES OR|
00000060: 20 4E 4F 3F 00 87 08 03 00 99 22 1D 1D 1D 1D 1D | NO?......".....|
00000070: 1D 1D 1D 1D 1D 1D 1D 1D 12 28 59 3D 59 45 53 20 |.........(Y=YES |
00000080: 4E 3D 4E 4F 29 92 22 00 98 08 04 00 A1 59 24 3A |N=NO)."......Y$:|
00000090: 8B 59 24 B2 22 22 A7 34 00 A6 08 05 00 8B 59 24 |.Y$."".4......Y$|
000000A0: B2 22 59 22 A7 37 00 B5 08 06 00 8B 59 24 B2 22 |."Y".7......Y$."|
000000B0: 4E 22 A7 33 32 00 C2 08 07 00 97 33 36 38 37 39 |N".32......36879|
000000C0: 2C 38 00 F5 08 08 00 99 22 93 12 9E 43 4C 55 42 |,8......"...CLUB|
000000D0: 20 4D 41 49 4C 20 4C 49 53 54 20 28 52 41 4E 44 | MAIL LIST (RAND|
000000E0: 4F 4D 20 46 49 4C 45 20 50 52 4F 47 52 41 4D 29 |OM FILE PROGRAM)|
000000F0: 2E 20 20 20 22 00 1D 09 09 00 99 22 11 11 54 48 |. "......"..TH|
00000100: 49 53 20 49 53 20 41 20 44 49 53 4B 20 4F 50 45 |IS IS A DISK OPE|
00000110: 52 41 54 45 44 20 53 59 53 54 45 4D 22 00 44 09 |RATED SYSTEM".D.|
00000120: 0A 00 99 22 54 48 41 54 20 57 49 4C 4C 20 57 4F |..."THAT WILL WO|
00000130: 52 4B 20 57 49 54 48 20 31 20 31 35 34 31 20 44 |RK WITH 1 1541 D|
00000140: 49 53 4B 22 00 6A 09 0B 00 99 22 44 52 49 56 45 |ISK".j...."DRIVE|
00000150: 20 42 55 54 20 52 45 51 55 49 52 45 53 20 32 20 | BUT REQUIRES 2 |
00000160: 44 52 49 56 45 53 20 23 38 22 00 8F 09 0C 00 99 |DRIVES #8"......|
00000170: 22 41 4E 44 20 23 39 20 54 4F 20 43 4F 50 59 20 |"AND #9 TO COPY |
00000180: 54 48 45 20 44 41 54 41 20 46 49 4C 45 2E 22 00 |THE DATA FILE.".|
00000190: B6 09 0D 00 99 22 54 4F 20 53 54 41 52 54 20 54 |....."TO START T|
000001A0: 48 45 20 46 49 52 53 54 20 54 49 4D 45 20 49 4E |HE FIRST TIME IN|
000001B0: 53 45 52 54 20 41 00 EE 09 0E 00 99 22 42 4C 41 |SERT A......"BLA|
000001C0: 4E 4B 20 44 49 53 4B 20 54 48 41 54 20 48 41 53 |NK DISK THAT HAS|
000001D0: 20 42 45 45 4E 20 46 4F 52 4D 41 54 54 45 44 20 | BEEN FORMATTED |
000001E0: 20 20 20 20 20 49 4E 54 4F 20 23 39 2E 22 00 1A | INTO #9."..|
000001F0: 0A 0F 00 99 22 54 48 45 4E 20 12 52 55 4E 92 20 |...."THEN .RUN. |
00000200: 54 48 45 20 50 52 4F 47 52 41 4D 2E 20 54 48 49 |THE PROGRAM. THI|
00000210: 53 20 50 52 4F 47 52 41 4D 22 00 45 0A 10 00 99 |S PROGRAM".E....|
00000220: 22 49 53 20 44 45 53 49 47 4E 45 44 20 54 4F 20 |"IS DESIGNED TO |
00000230: 42 45 12 27 55 53 45 52 20 46 52 49 45 4E 44 4C |BE.'USER FRIENDL|
00000240: 59 27 2E 92 22 00 4E 0A 11 00 8D 33 36 34 00 76 |Y'..".N....364.v|
00000250: 0A 12 00 99 22 93 11 20 54 4F 20 55 53 45 20 54 |....".. TO USE T|
00000260: 48 49 53 20 50 52 4F 47 52 41 4D 20 52 45 51 55 |HIS PROGRAM REQU|
00000270: 49 52 45 53 3A 22 00 BF 0A 13 00 99 22 11 11 1D |IRES:"......"...|
00000280: 1D 1D 1D 31 2E 43 2D 36 34 20 43 4F 4D 50 55 54 |...1.C-64 COMPUT|
00000290: 45 52 2E 22 3A 99 22 1D 1D 1D 1D 32 2E 31 20 4F |ER.":."....2.1 O|
000002A0: 52 20 32 20 31 35 34 31 20 28 4F 52 20 31 35 34 |R 2 1541 (OR 154|
000002B0: 30 29 20 44 49 53 4B 20 44 52 49 56 45 53 22 00 |0) DISK DRIVES".|
000002C0: D6 0A 14 00 99 22 1D 1D 1D 1D 33 2E 41 20 50 52 |....."....3.A PR|
000002D0: 49 4E 54 45 52 2E 00 07 0B 15 00 99 22 11 12 05 |INTER......."...|
000002E0: 54 4F 20 43 4F 4E 54 49 4E 55 45 20 50 52 45 53 |TO CONTINUE PRES|
000002F0: 53 20 27 47 27 20 54 4F 20 47 45 54 20 53 54 41 |S 'G' TO GET STA|
00000300: 52 54 45 44 92 9E 22 00 33 0B 16 00 99 22 12 1E |RTED..".3...."..|
00000310: 50 52 45 53 53 20 27 4E 27 20 54 4F 20 53 54 4F |PRESS 'N' TO STO|
00000320: 50 20 20 20 20 20 50 52 4F 47 52 41 4D 20 20 20 |P PROGRAM |
00000330: 92 9E 22 00 45 0B 17 00 A1 51 24 3A 8B 51 24 B2 |..".E....Q$:.Q$.|
00000340: 22 22 A7 32 33 00 54 0B 18 00 8B 51 24 B2 22 47 |"".23.T....Q$."G|
00000350: 22 A7 33 32 00 62 0B 19 00 8B 51 24 B2 22 4E 22 |".32.b....Q$."N"|
00000360: A7 90 00 A4 0B 1A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A |........********|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003A0: 2A 2A 2A 2A 00 E6 0B 1B 00 8F 2A 2A 54 48 49 53 |****......**THIS|
000003B0: 20 50 52 4F 47 52 41 4D 20 57 41 53 20 45 58 50 | PROGRAM WAS EXP|
000003C0: 41 4E 44 45 44 20 46 52 4F 4D 20 41 20 52 41 4E |ANDED FROM A RAN|
000003D0: 44 4F 4D 20 46 49 4C 45 20 50 52 4F 47 52 41 4D |DOM FILE PROGRAM|
000003E0: 20 42 59 2A 2A 22 00 27 0C 1C 00 8F 2A 2A 42 59 | BY**".'....**BY|
000003F0: 20 53 54 45 56 45 20 41 4C 46 4F 52 44 20 41 4E | STEVE ALFORD AN|
00000400: 44 20 57 41 59 4E 45 20 4C 4F 57 45 52 59 20 4F |D WAYNE LOWERY O|
00000410: 46 20 4E 45 57 20 4F 52 4C 45 41 4E 53 2C 4C 41 |F NEW ORLEANS,LA|
00000420: 20 20 20 20 20 2A 2A 00 68 0C 1D 00 8F 2A 2A 54 | **.h....**T|
00000430: 4F 20 55 53 45 20 50 52 49 4E 54 45 52 20 4A 55 |O USE PRINTER JU|
00000440: 53 54 20 45 4E 54 45 52 20 4F 50 54 49 4F 4E 20 |ST ENTER OPTION |
00000450: 59 4F 55 20 57 41 4E 54 20 41 4E 44 20 43 48 45 |YOU WANT AND CHE|
00000460: 43 4B 20 20 20 20 2A 2A 00 AA 0C 1E 00 8F 2A 2A |CK **......**|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EB 0C 1F 00 8F |**********......|
000004B0: 4C 41 42 45 4C 20 53 49 5A 45 2E 20 52 45 47 55 |LABEL SIZE. REGU|
000004C0: 4C 41 52 20 4C 41 42 45 4C 20 46 52 4F 4D 20 52 |LAR LABEL FROM R|
000004D0: 41 44 49 4F 20 53 48 41 43 4B 20 32 20 41 43 52 |ADIO SHACK 2 ACR|
000004E0: 4F 53 53 20 57 4F 52 4B 20 2A 2A 00 01 0D 20 00 |OSS WORK **... .|
000004F0: 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C |.53280,0:.53281,|
00000500: 30 00 45 0D 21 00 86 49 24 28 36 36 34 29 3A 46 |0.E.!..I$(664):F|
00000510: 44 B2 30 3A 46 58 B2 37 3A 43 48 B2 32 3A 46 50 |D.0:FX.7:CH.2:FP|
00000520: B2 31 3A 86 41 25 28 36 36 34 29 3A 86 42 25 28 |.1:.A%(664):.B%(|
00000530: 32 35 29 3A 86 42 42 24 28 31 30 29 3A 86 41 33 |25):.BB$(10):.A3|
00000540: 25 28 31 30 29 00 4E 0D 22 00 46 59 B2 37 00 78 |%(10).N.".FY.7.x|
00000550: 0D 23 00 99 22 93 11 11 1D 1D 1D 1D 1D 1D 1D 1D |.#.."...........|
00000560: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000570: C3 C3 C3 C3 C3 C3 22 3A 00 9D 0D 24 00 99 22 1D |......":...$..".|
00000580: 1D 1D 1D 1D 1D 1D 1D 20 20 9E 49 4E 53 45 52 54 |....... .INSERT|
00000590: 20 44 41 54 41 20 53 48 45 45 54 1E 22 00 C4 0D | DATA SHEET."...|
000005A0: 25 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D C5 C5 C5 C5 |%.."............|
000005B0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
000005C0: C5 C5 22 3A 00 EC 0D 26 00 99 22 9E 11 11 1D 1D |..":...&..".....|
000005D0: 1D 1D 1D 1D 1D 1D 20 20 20 20 53 54 41 52 54 20 |...... START |
000005E0: 50 52 45 53 53 20 9C 27 53 27 1E 22 00 00 0E 27 |PRESS .'S'."...'|
000005F0: 00 A1 50 24 3A 8B 50 24 B3 B1 22 53 22 A7 33 39 |..P$:.P$.."S".39|
00000600: 00 1D 0E 28 00 9F 31 35 2C 38 2C 31 35 2C 22 49 |...(..15,8,15,"I|
00000610: 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 46 0E |0":.2,8,2,"#".F.|
00000620: 29 00 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D C3 C3 |).."............|
00000630: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000640: C3 C3 C3 C3 22 3A 00 6A 0E 2A 00 99 22 1D 1D 1D |....":.j.*.."...|
00000650: 1D 1D 1D 1D 1D 49 4E 44 45 58 20 46 49 4C 45 20 |.....INDEX FILE |
00000660: 4F 50 45 52 41 54 49 4F 4E 22 00 90 0E 2B 00 99 |OPERATION"...+..|
00000670: 22 1D 1D 1D 1D 1D 1D 1D 1D C5 C5 C5 C5 C5 C5 C5 |"...............|
00000680: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 |..............."|
00000690: 00 BE 0E 2C 00 85 22 11 1D 1D 1D 1D 1D 1D 1D 1D |...,..".........|
000006A0: 20 20 20 20 20 9E 4E 45 57 20 53 48 45 45 54 3F | .NEW SHEET?|
000006B0: 20 4E 9D 9D 9D 22 3B 4F 24 3A 99 22 1E 22 00 CD | N...";O$:."."..|
000006C0: 0E 2D 00 8B 4F 24 B2 22 4E 22 A7 35 30 00 DD 0E |.-..O$."N".50...|
000006D0: 2E 00 8B 4F 24 B3 B1 22 59 22 A7 34 34 00 0C 0F |...O$.."Y".44...|
000006E0: 2F 00 99 3A 99 22 93 9E 11 11 11 11 11 1D 1D 1D |/..:."..........|
000006F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 57 41 49 |......... WAI|
00000700: 54 21 22 3A 81 49 B2 31 A4 36 36 34 00 45 0F 30 |T!":.I.1.664.E.0|
00000710: 00 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000720: 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 11 11 11 20 |............... |
00000730: 20 20 20 9D 9D 9D 9D 9D 22 49 3B 3A 49 24 28 49 | ....."I;:I$(I|
00000740: 29 B2 22 2F 22 00 56 0F 31 00 99 49 24 28 49 29 |)."/".V.1..I$(I)|
00000750: 3A 82 3A 89 35 34 00 6F 0F 32 00 9F 35 2C 38 2C |:.:.54.o.2..5,8,|
00000760: 35 2C 22 30 3A 49 4E 44 45 58 2C 53 2C 52 22 00 |5,"0:INDEX,S,R".|
00000770: 85 0F 33 00 81 49 B2 31 A4 36 36 34 3A 84 35 2C |..3..I.1.664:.5,|
00000780: 49 24 28 49 29 00 BB 0F 34 00 99 22 13 9E 11 11 |I$(I)...4.."....|
00000790: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000007A0: 1D 1D 1D 1D 57 41 49 54 21 20 20 20 20 20 9D 9D |....WAIT! ..|
000007B0: 9D 9D 9D 22 49 3B 49 24 28 49 29 00 CF 0F 35 00 |..."I;I$(I)...5.|
000007C0: 82 49 3A A0 35 3A 46 58 B2 31 3A 8D 31 33 35 00 |.I:.5:FX.1:.135.|
000007D0: F8 0F 36 00 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D |..6.."..........|
000007E0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000007F0: C6 C6 C6 C6 C6 C6 22 3A 00 1F 10 37 00 99 22 1D |......":...7..".|
00000800: 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 4A 4F 42 20 |....... JOB |
00000810: 4D 45 4E 55 20 20 20 20 20 20 20 20 20 22 3A 00 |MENU ":.|
00000820: 46 10 38 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D C5 C5 |F.8.."..........|
00000830: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................|
00000840: C5 C5 C5 C5 22 3A 00 4C 10 39 00 99 00 72 10 3A |....":.L.9...r.:|
00000850: 00 99 22 9F 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 |.."......... |
00000860: 20 31 3D 45 4E 54 45 52 20 4E 45 57 20 4E 41 4D | 1=ENTER NEW NAM|
00000870: 45 22 00 90 10 3B 00 99 22 05 1D 1D 1D 1D 1D 1D |E"...;..".......|
00000880: 1D 1D 20 20 20 20 20 32 3D 44 45 4C 45 54 45 22 |.. 2=DELETE"|
00000890: 00 B3 10 3C 00 99 22 1F 1D 1D 1D 1D 1D 1D 1D 1D |...<..".........|
000008A0: 20 20 20 20 20 33 3D 50 52 49 4E 54 20 4E 41 4D | 3=PRINT NAM|
000008B0: 45 53 22 00 D8 10 3D 00 99 22 9C 1D 1D 1D 1D 1D |ES"...=.."......|
000008C0: 1D 1D 1D 20 20 20 20 20 34 3D 44 49 53 50 4C 41 |... 4=DISPLA|
000008D0: 59 20 4E 41 4D 45 53 22 00 F6 10 3E 00 99 22 9E |Y NAMES"...>..".|
000008E0: 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 35 3D 53 |........ 5=S|
000008F0: 45 41 52 43 48 22 00 1C 11 3F 00 99 22 1C 1D 1D |EARCH"...?.."...|
00000900: 1D 1D 1D 1D 1D 1D 20 20 20 20 20 36 3D 43 4F 50 |...... 6=COP|
00000910: 59 20 4D 41 49 4C 20 4C 49 53 54 22 00 37 11 40 |Y MAIL LIST".7.@|
00000920: 00 99 22 1E 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 |.."......... |
00000930: 20 30 3D 45 4E 44 22 00 64 11 41 00 85 22 9E 1D | 0=END".d.A.."..|
00000940: 1D 1D 1D 1D 1D 1D 1D 1D 31 20 2C 20 32 20 2C 20 |........1 , 2 , |
00000950: 33 20 2C 20 34 20 2C 20 30 20 20 20 31 9D 9D 9D |3 , 4 , 0 1...|
00000960: 22 3B 4F 24 00 7C 11 42 00 8B 4F 24 B2 22 30 22 |";O$.|.B..O$."0"|
00000970: A7 A0 31 35 3A A0 35 3A A0 32 3A 80 00 8B 11 43 |..15:.5:.2:....C|
00000980: 00 8B 4F 24 B2 22 31 22 A7 37 37 00 9B 11 44 00 |..O$."1".77...D.|
00000990: 8B 4F 24 B2 22 33 22 A7 33 31 32 00 AB 11 45 00 |.O$."3".312...E.|
000009A0: 8B 4F 24 B2 22 34 22 A7 31 35 34 00 BB 11 46 00 |.O$."4".154...F.|
000009B0: 8B 4F 24 B2 22 35 22 A7 31 31 33 00 CB 11 47 00 |.O$."5".113...G.|
000009C0: 8B 4F 24 B2 22 36 22 A7 33 33 39 00 DB 11 48 00 |.O$."6".339...H.|
000009D0: 8B 4F 24 B3 B1 22 32 22 A7 35 34 00 E3 11 49 00 |.O$.."2".54...I.|
000009E0: 89 39 37 00 00 12 4A 00 8F 2A 2A 2A 2A 2A 2A 2A |.97...J..*******|
000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A00: 00 1D 12 4B 00 8F 2A 20 4D 41 53 54 45 52 20 46 |...K..* MASTER F|
00000A10: 49 4C 45 20 43 52 45 41 54 45 20 20 2A 00 3A 12 |ILE CREATE *.:.|
00000A20: 4C 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |L..*************|
00000A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 12 4D 00 99 |**********...M..|
00000A40: 22 11 11 11 11 11 11 11 11 11 11 11 9E 20 50 4C |"............ PL|
00000A50: 45 41 53 45 20 45 4E 54 45 52 20 46 49 52 53 54 |EASE ENTER FIRST|
00000A60: 20 4C 45 54 54 45 52 20 4F 46 20 4C 41 53 54 20 | LETTER OF LAST |
00000A70: 4E 41 4D 45 20 28 45 4E 54 45 52 20 12 30 92 20 |NAME (ENTER .0. |
00000A80: 57 48 45 4E 20 54 48 52 55 29 22 3A 56 B2 30 00 |WHEN THRU)":V.0.|
00000A90: A2 12 4E 00 85 4D 24 3A 8B 4D 24 B2 22 30 22 A7 |..N..M$:.M$."0".|
00000AA0: 39 32 00 B3 12 4F 00 8D 31 37 31 3A 8B 56 B2 31 |92...O..171:.V.1|
00000AB0: A7 37 37 00 D0 12 50 00 81 46 B2 58 58 A4 58 31 |.77...P..F.XX.X1|
00000AC0: 3A 8B 49 24 28 46 29 B3 B1 22 2F 22 A7 20 82 46 |:.I$(F).."/". .F|
00000AD0: 00 E6 12 51 00 99 22 52 45 43 4F 52 44 20 4E 4F |...Q.."RECORD NO|
00000AE0: 2E 20 3D 22 3B 46 00 05 13 52 00 85 22 28 31 29 |. =";F...R.."(1)|
00000AF0: 4E 41 4D 45 20 20 20 20 3D 2E 9D 9D 9D 22 3B 46 |NAME =....";F|
00000B00: 42 24 28 31 29 00 24 13 53 00 85 22 28 32 29 41 |B$(1).$.S.."(2)A|
00000B10: 44 44 52 45 53 53 20 3D 2E 9D 9D 9D 22 3B 46 42 |DDRESS =....";FB|
00000B20: 24 28 32 29 00 43 13 54 00 85 22 28 33 29 43 49 |$(2).C.T.."(3)CI|
00000B30: 54 59 20 20 20 20 3D 2E 9D 9D 9D 22 3B 46 42 24 |TY =....";FB$|
00000B40: 28 33 29 00 62 13 55 00 85 22 28 34 29 5A 49 50 |(3).b.U.."(4)ZIP|
00000B50: 20 20 20 20 20 3D 2E 9D 9D 9D 22 3B 46 42 24 28 | =....";FB$(|
00000B60: 34 29 00 81 13 56 00 85 22 28 35 29 54 45 4C 20 |4)...V.."(5)TEL |
00000B70: 20 20 20 20 3D 2E 9D 9D 9D 22 3B 46 42 24 28 35 | =....";FB$(5|
00000B80: 29 00 A0 13 57 00 85 22 28 36 29 43 4F 4D 4D 45 |)...W.."(6)COMME|
00000B90: 4E 54 20 3D 2E 9D 9D 9D 22 3B 46 42 24 28 36 29 |NT =....";FB$(6)|
00000BA0: 00 BF 13 58 00 85 22 28 37 29 43 4C 55 42 49 4E |...X.."(7)CLUBIN|
00000BB0: 46 4F 3D 2E 9D 9D 9D 22 3B 46 42 24 28 37 29 00 |FO=....";FB$(7).|
00000BC0: C8 13 59 00 8D 32 31 38 00 D6 13 5A 00 49 24 28 |..Y..218...Z.I$(|
00000BD0: 46 29 B2 22 31 22 00 DE 13 5B 00 89 37 37 00 F8 |F)."1"...[..77..|
00000BE0: 13 5C 00 9F 35 2C 38 2C 35 2C 22 40 30 3A 49 4E |.\..5,8,5,"@0:IN|
00000BF0: 44 45 58 2C 53 2C 57 22 00 15 14 5D 00 81 49 B2 |DEX,S,W"...]..I.|
00000C00: 31 A4 36 36 34 3A 98 35 2C 49 24 28 49 29 3B C7 |1.664:.5,I$(I);.|
00000C10: 28 31 33 29 3B 00 4D 14 5E 00 99 22 93 13 11 11 |(13);.M.^.."....|
00000C20: 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |................|
00000C30: 1D 1D 1D 1D 1D 1D 57 41 49 54 21 20 20 20 20 20 |......WAIT! |
00000C40: 9D 9D 9D 9D 9D 22 49 3B 49 24 28 49 29 00 5B 14 |....."I;I$(I).[.|
00000C50: 5F 00 82 3A A0 35 3A 8D 31 33 35 00 63 14 60 00 |_..:.5:.135.c.`.|
00000C60: 89 35 34 00 80 14 61 00 8F 2A 2A 2A 2A 2A 2A 2A |.54...a..*******|
00000C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C80: 00 9D 14 62 00 8F 2A 20 20 4D 41 53 54 45 52 20 |...b..* MASTER |
00000C90: 46 49 4C 45 20 44 45 4C 45 54 45 20 2A 00 BA 14 |FILE DELETE *...|
00000CA0: 63 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |c..*************|
00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E4 14 64 00 99 |**********...d..|
00000CC0: 22 93 11 11 1D 1D 1D 1D 1D 1D 1D 1D D2 D2 D2 D2 |"...............|
00000CD0: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................|
00000CE0: D2 D2 22 3A 00 08 15 65 00 99 22 1D 1D 1D 1D 1D |..":...e..".....|
00000CF0: 1D 1D 1D 20 20 4D 41 53 54 45 52 20 46 49 4C 45 |... MASTER FILE|
00000D00: 20 44 45 4C 45 54 45 22 00 30 15 66 00 99 22 1D | DELETE".0.f..".|
00000D10: 1D 1D 1D 1D 1D 1D 1D C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000D20: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 3A 99 |.............":.|
00000D30: 00 54 15 67 00 85 22 9E 1D 1D 1D 1D 1D 1D 1D 1D |.T.g..".........|
00000D40: 52 45 43 4F 52 44 20 4E 4F 2E 20 3D 30 9D 9D 9D |RECORD NO. =0...|
00000D50: 1E 22 3B 46 00 61 15 68 00 8B 46 B2 30 A7 31 30 |.";F.a.h..F.0.10|
00000D60: 38 00 75 15 69 00 8B 49 24 28 46 29 B3 B1 22 31 |8.u.i..I$(F).."1|
00000D70: 22 A7 31 30 33 00 9E 15 6A 00 49 24 28 46 29 B2 |".103...j.I$(F).|
00000D80: 22 2F 22 3A 99 22 11 9C 52 45 43 4F 52 44 20 4E |"/":."..RECORD N|
00000D90: 4F 2E 22 46 3B 22 44 45 4C 45 54 45 1E 22 00 A7 |O."F;"DELETE."..|
00000DA0: 15 6B 00 89 31 30 33 00 C1 15 6C 00 9F 35 2C 38 |.k..103...l..5,8|
00000DB0: 2C 35 2C 22 40 30 3A 49 4E 44 45 58 2C 53 2C 57 |,5,"@0:INDEX,S,W|
00000DC0: 22 00 DE 15 6D 00 81 49 B2 31 A4 36 36 34 3A 98 |"...m..I.1.664:.|
00000DD0: 35 2C 49 24 28 49 29 3B C7 28 31 33 29 3B 00 12 |5,I$(I);.(13);..|
00000DE0: 16 6E 00 99 22 93 13 11 11 11 11 11 11 1D 1D 1D |.n.."...........|
00000DF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 57 41 49 54 21 |...........WAIT!|
00000E00: 20 20 20 20 20 9D 9D 9D 9D 9D 22 49 3B 49 24 28 | ....."I;I$(|
00000E10: 49 29 00 20 16 6F 00 82 3A A0 35 3A 8D 31 33 35 |I). .o..:.5:.135|
00000E20: 00 28 16 70 00 89 35 34 00 45 16 71 00 8F 2A 2A |.(.p..54.E.q..**|
00000E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E40: 2A 2A 2A 2A 2A 00 62 16 72 00 8F 2A 20 20 46 49 |*****.b.r..* FI|
00000E50: 4C 45 20 53 45 41 52 43 48 20 20 20 20 20 20 20 |LE SEARCH |
00000E60: 20 2A 00 7F 16 73 00 8F 2A 2A 2A 2A 2A 2A 2A 2A | *...s..********|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000E80: AA 16 74 00 99 22 93 9E 11 11 1D 1D 1D 1D 1D 1D |..t.."..........|
00000E90: 1D 1D D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................|
00000EA0: D2 D2 D2 D2 D2 D2 D2 D2 22 3A 00 C7 16 75 00 99 |........":...u..|
00000EB0: 22 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 20 53 |"........ S|
00000EC0: 45 41 52 43 48 20 22 00 F4 16 76 00 99 22 1D 1D |EARCH "...v.."..|
00000ED0: 1D 1D 1D 1D 1D 1D C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000EE0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 3A 99 3A |............":.:|
00000EF0: 46 59 B2 37 00 1C 17 77 00 85 22 11 11 11 1D 1D |FY.7...w..".....|
00000F00: 1D 1D 1D 1D 1D 1D 1C 52 45 43 4F 52 44 20 4E 4F |.......RECORD NO|
00000F10: 2E 20 3D 20 30 9D 9D 9D 9E 22 3B 46 00 28 17 78 |. = 0....";F.(.x|
00000F20: 00 8B 46 B2 30 A7 35 34 00 3C 17 79 00 8B 49 24 |..F.0.54.<.y..I$|
00000F30: 28 46 29 B3 B1 22 31 22 A7 31 31 39 00 45 17 7A |(F).."1".119.E.z|
00000F40: 00 8D 32 30 37 00 66 17 7B 00 99 22 12 9E 28 31 |..207.f.{.."..(1|
00000F50: 29 1E 4E 41 4D 45 20 20 20 20 20 3D 20 92 22 3B |).NAME = .";|
00000F60: 46 42 24 28 31 29 00 87 17 7C 00 99 22 12 9E 28 |FB$(1)...|.."..(|
00000F70: 32 29 1E 41 44 44 52 45 53 53 20 20 3D 20 92 22 |2).ADDRESS = ."|
00000F80: 3B 46 42 24 28 32 29 00 A8 17 7D 00 99 22 12 9E |;FB$(2)...}.."..|
00000F90: 28 33 29 1E 43 49 54 59 20 20 20 20 20 3D 20 92 |(3).CITY = .|
00000FA0: 22 3B 46 42 24 28 33 29 00 C9 17 7E 00 99 22 12 |";FB$(3)...~..".|
00000FB0: 9E 28 34 29 1E 5A 49 50 20 20 20 20 20 20 3D 20 |.(4).ZIP = |
00000FC0: 92 22 3B 46 42 24 28 34 29 00 EA 17 7F 00 99 22 |.";FB$(4)......"|
00000FD0: 12 9E 28 35 29 1E 54 45 4C 20 20 20 20 20 20 3D |..(5).TEL =|
00000FE0: 20 92 22 3B 46 42 24 28 35 29 00 0B 18 80 00 99 | .";FB$(5)......|
00000FF0: 22 12 9E 28 36 29 1E 43 4F 4D 4D 45 4E 54 20 20 |"..(6).COMMENT |
00001000: 3D 20 92 22 3B 46 42 24 28 36 29 00 2C 18 81 00 |= .";FB$(6).,...|
00001010: 99 22 12 9E 28 37 29 1E 43 4C 55 42 49 4E 46 4F |."..(7).CLUBINFO|
00001020: 2E 3D 20 92 22 3B 46 42 24 28 37 29 00 49 18 82 |.= .";FB$(7).I..|
00001030: 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.."-------------|
00001040: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 52 18 83 00 8D 32 |--------".R....2|
00001050: 37 31 00 5B 18 84 00 8D 32 35 36 00 67 18 85 00 |71.[....256.g...|
00001060: 8B 54 B3 B1 30 A7 8E 00 70 18 86 00 89 31 31 39 |.T..0...p....119|
00001070: 00 AE 18 87 00 81 58 B2 31 A4 36 36 34 3A 41 25 |......X.1.664:A%|
00001080: 28 58 29 B2 30 3A 82 58 3A 59 B2 31 3A 81 58 B2 |(X).0:.X:Y.1:.X.|
00001090: 31 A4 36 36 34 3A 8B 49 24 28 58 29 B2 22 31 22 |1.664:.I$(X)."1"|
000010A0: A7 41 25 28 59 29 B2 58 3A 59 B2 59 AA 31 00 B7 |.A%(Y).X:Y.Y.1..|
000010B0: 18 88 00 82 58 3A 8E 00 CD 18 89 00 99 22 93 52 |....X:.......".R|
000010C0: 45 43 4F 52 44 20 20 20 4E 41 4D 45 22 00 DB 18 |ECORD NAME"...|
000010D0: 8A 00 58 59 B2 31 3A 46 58 B2 31 00 03 19 8B 00 |..XY.1:FX.1.....|
000010E0: 81 58 B2 58 58 A4 58 31 3A 46 B2 41 25 28 58 29 |.X.XX.X1:F.A%(X)|
000010F0: 3A 8D 33 32 38 3A 99 41 25 28 58 29 3B 46 42 24 |:.328:.A%(X);FB$|
00001100: 28 31 29 00 1C 19 8C 00 81 58 5A B2 32 A4 31 3A |(1)......XZ.2.1:|
00001110: 99 46 42 24 28 58 5A 29 3A 82 58 5A 00 3B 19 8D |.FB$(XZ):.XZ.;..|
00001120: 00 8F 3A 49 46 58 59 3D 31 30 54 48 45 4E 58 59 |..:IFXY=10THENXY|
00001130: 3D 31 3A 47 4F 54 4F 31 30 32 30 00 4F 19 8E 00 |=1:GOTO1020.O...|
00001140: 8F 3A 58 59 3D 58 59 2B 31 3A 4E 45 58 54 58 00 |.:XY=XY+1:NEXTX.|
00001150: 56 19 8F 00 82 58 00 5F 19 90 00 8D 32 34 35 00 |V....X._....245.|
00001160: 8E 19 91 00 99 22 9E 50 52 45 53 53 20 52 45 54 |.....".PRESS RET|
00001170: 55 52 4E 20 54 4F 20 47 4F 20 20 20 20 42 41 43 |URN TO GO BAC|
00001180: 4B 20 54 4F 20 4A 4F 42 20 4D 45 4E 55 22 00 A5 |K TO JOB MENU"..|
00001190: 19 92 00 A1 43 24 3A 8B 43 24 B3 B1 C7 28 31 33 |....C$:.C$...(13|
000011A0: 29 A7 31 34 36 00 AD 19 93 00 89 35 34 00 D2 19 |).146......54...|
000011B0: 94 00 99 3A 99 22 43 4F 4E 54 49 4E 55 45 3F 20 |...:."CONTINUE? |
000011C0: 12 1C 28 59 29 59 45 53 92 20 12 9E 28 4E 29 4E |..(Y)YES. ..(N)N|
000011D0: 4F 22 00 E5 19 95 00 A1 42 24 3A 8B 42 24 B2 22 |O"......B$:.B$."|
000011E0: 22 A7 31 34 39 00 F4 19 96 00 8B 42 24 B2 22 4E |".149......B$."N|
000011F0: 22 A7 35 34 00 06 1A 97 00 8B 42 24 B2 C7 28 31 |".54......B$..(1|
00001200: 33 29 A7 31 35 33 00 17 1A 98 00 8B 42 24 B3 B1 |3).153......B$..|
00001210: 22 59 22 A7 31 34 39 00 31 1A 99 00 99 22 93 52 |"Y".149.1....".R|
00001220: 45 43 4F 52 44 20 20 4E 41 4D 45 22 3A 89 31 34 |ECORD NAME":.14|
00001230: 32 00 5B 1A 9A 00 99 22 93 11 11 1D 1D 1D 1D 1D |2.[...."........|
00001240: 1D 1D 1D D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................|
00001250: D2 D2 D2 D2 D2 D2 D2 D2 D2 22 3A 00 7B 1A 9B 00 |.........":.{...|
00001260: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 44 49 53 |."......... DIS|
00001270: 50 4C 41 59 20 4E 41 4D 45 53 22 00 A8 1A 9C 00 |PLAY NAMES".....|
00001280: 99 22 1D 1D 1D 1D 1D 1D 1D 1D C4 C4 C4 C4 C4 C4 |."..............|
00001290: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000012A0: 22 3A 99 3A 46 58 B2 31 00 C8 1A 9D 00 99 22 9F |":.:FX.1......".|
000012B0: 1D 1D 1D 1D 1D 1D 1D 1D 20 31 3D 44 49 53 50 4C |........ 1=DISPL|
000012C0: 41 59 20 41 4C 4C 1E 22 00 EF 1A 9E 00 99 22 05 |AY ALL."......".|
000012D0: 1D 1D 1D 1D 1D 1D 1D 1D 20 32 3D 53 45 4C 45 43 |........ 2=SELEC|
000012E0: 54 20 4C 45 54 54 45 52 28 41 2D 5A 29 1E 22 00 |T LETTER(A-Z).".|
000012F0: 0F 1B 9F 00 99 22 9E 1D 1D 1D 1D 1D 1D 1D 1D 20 |....."......... |
00001300: 33 3D 53 45 4C 45 43 54 20 4E 41 4D 45 1E 22 00 |3=SELECT NAME.".|
00001310: 37 1B A0 00 99 22 9C 1D 1D 1D 1D 1D 1D 1D 1D 20 |7...."......... |
00001320: 30 3D 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E |0=RETURN TO MAIN|
00001330: 20 4D 45 4E 55 1E 22 00 60 1B A1 00 85 22 9E 1D | MENU.".`...."..|
00001340: 1D 1D 1D 1D 1D 1D 1D 20 31 20 2C 20 32 20 2C 20 |....... 1 , 2 , |
00001350: 33 20 2C 20 30 20 20 20 31 9D 9D 9D 22 3B 4E 24 |3 , 0 1...";N$|
00001360: 00 6F 1B A2 00 8B 4E 24 B2 22 30 22 A7 35 34 00 |.o....N$."0".54.|
00001370: 7F 1B A3 00 8B 4E 24 B2 22 31 22 A7 31 36 37 00 |.....N$."1".167.|
00001380: 8F 1B A4 00 8B 4E 24 B2 22 32 22 A7 31 36 38 00 |.....N$."2".168.|
00001390: A0 1B A5 00 8B 4E 24 B3 B1 22 33 22 A7 31 36 31 |.....N$.."3".161|
000013A0: 00 A9 1B A6 00 89 31 37 35 00 BE 1B A7 00 58 58 |......175.....XX|
000013B0: B2 31 3A 58 31 B2 59 AB 31 3A 89 31 33 37 00 D9 |.1:X1.Y.1:.137..|
000013C0: 1B A8 00 56 B2 30 3A 85 22 4C 45 54 54 45 52 20 |...V.0:."LETTER |
000013D0: 28 41 2D 5A 29 22 3B 4D 24 00 EB 1B A9 00 8D 31 |(A-Z)";M$......1|
000013E0: 37 31 3A 8B 56 B2 31 A7 31 36 38 00 F9 1B AA 00 |71:.V.1.168.....|
000013F0: 8D 31 39 33 3A 89 31 39 35 00 2E 1C AB 00 4D 4D |.193:.195.....MM|
00001400: B2 C6 28 4D 24 29 3A 8B 4D 4D B1 39 30 B0 4D 4D |..(M$):.MM.90.MM|
00001410: B3 36 35 A7 99 22 49 4E 56 41 4C 49 44 20 53 45 |.65.."INVALID SE|
00001420: 4C 45 43 54 49 4F 4E 22 3A 56 B2 31 3A 8E 00 43 |LECTION":V.1:..C|
00001430: 1C AC 00 58 58 B2 31 3A 58 31 B2 32 35 3A 58 32 |...XX.1:X1.25:X2|
00001440: B2 36 34 00 60 1C AD 00 81 58 B2 31 A4 32 36 3A |.64.`....X.1.26:|
00001450: 58 32 B2 31 AA 58 32 3A 8B 4D 4D B2 58 32 A7 8E |X2.1.X2:.MM.X2..|
00001460: 00 7B 1C AE 00 58 58 B2 58 58 AA 32 35 3A 58 31 |.{...XX.XX.25:X1|
00001470: B2 58 31 AA 32 35 3A 82 58 3A 90 00 B8 1C AF 00 |.X1.25:.X:......|
00001480: 99 22 50 4C 45 41 53 45 20 45 4E 54 45 52 20 4C |."PLEASE ENTER L|
00001490: 41 53 54 20 4E 41 4D 45 2C 41 20 53 50 41 43 45 |AST NAME,A SPACE|
000014A0: 2C 41 4E 44 20 54 48 45 4E 20 46 49 52 53 54 20 |,AND THEN FIRST |
000014B0: 49 4E 49 54 49 41 4C 22 00 D1 1C B0 00 99 22 45 |INITIAL"......"E|
000014C0: 58 41 4D 50 4C 45 3A 20 41 4C 46 4F 52 44 20 53 |XAMPLE: ALFORD S|
000014D0: 22 00 D9 1C B1 00 85 41 24 00 F0 1C B2 00 4D 24 |"......A$.....M$|
000014E0: B2 C8 28 41 24 2C 31 29 3A 55 B2 C3 28 41 24 29 |..(A$,1):U..(A$)|
000014F0: 00 07 1D B3 00 8D 31 37 31 3A 8D 31 39 33 3A 46 |......171:.193:F|
00001500: 59 B2 35 3A 52 B2 30 00 25 1D B4 00 81 58 B2 31 |Y.5:R.0.%....X.1|
00001510: A4 56 AB 31 3A 46 B2 42 25 28 58 29 3A 8D 32 31 |.V.1:F.B%(X):.21|
00001520: 30 3A 54 B2 30 00 49 1D B5 00 8B 54 B2 55 A7 99 |0:T.0.I....T.U..|
00001530: 22 93 22 3A 8D 31 32 33 3A 8D 31 38 35 3A 82 58 |".":.123:.185:.X|
00001540: 3A 54 B2 30 3A 89 31 35 34 00 60 1D B6 00 54 B2 |:T.0:.154.`...T.|
00001550: 54 AA 31 3A 45 24 B2 CA 28 41 24 2C 54 2C 31 29 |T.1:E$..(A$,T,1)|
00001560: 00 88 1D B7 00 8B 45 24 B3 B1 CA 28 46 42 24 28 |......E$...(FB$(|
00001570: 31 29 2C 54 2C 31 29 A7 82 58 3A 8D 31 38 38 3A |1),T,1)..X:.188:|
00001580: 54 B2 30 3A 89 31 35 34 00 91 1D B8 00 89 31 38 |T.0:.154......18|
00001590: 31 00 B7 1D B9 00 99 22 50 52 45 53 53 20 52 45 |1......"PRESS RE|
000015A0: 54 55 52 4E 20 54 4F 20 20 20 20 20 20 20 43 4F |TURN TO CO|
000015B0: 4E 54 49 4E 55 45 22 00 CE 1D BA 00 A1 43 24 3A |NTINUE"......C$:|
000015C0: 8B 43 24 B3 B1 C7 28 31 33 29 A7 31 38 36 00 D8 |.C$...(13).186..|
000015D0: 1D BB 00 52 B2 31 3A 8E 00 16 1E BC 00 8B 52 B2 |...R.1:.......R.|
000015E0: 31 A7 99 22 91 91 50 52 45 53 53 20 52 45 54 55 |1.."..PRESS RETU|
000015F0: 52 4E 20 54 4F 20 47 4F 20 20 20 20 42 41 43 4B |RN TO GO BACK|
00001600: 20 54 4F 20 44 49 53 50 4C 41 59 20 4D 45 4E 55 | TO DISPLAY MENU|
00001610: 22 3A 89 31 39 31 00 35 1E BD 00 99 22 93 4E 41 |":.191.5....".NA|
00001620: 4D 45 20 4E 4F 54 20 46 4F 55 4E 44 22 3A 99 3A |ME NOT FOUND":.:|
00001630: 99 3A 99 3A 99 00 5B 1E BE 00 99 22 50 52 45 53 |.:.:..[...."PRES|
00001640: 53 20 52 45 54 55 52 4E 20 54 4F 20 20 20 20 20 |S RETURN TO |
00001650: 20 20 43 4F 4E 54 49 4E 55 45 22 00 72 1E BF 00 | CONTINUE".r...|
00001660: A1 43 24 3A 8B 43 24 B3 B1 C7 28 31 33 29 A7 31 |.C$:.C$...(13).1|
00001670: 39 31 00 78 1E C0 00 8E 00 A7 1E C1 00 56 B2 31 |91.x.........V.1|
00001680: 3A 81 58 B2 58 58 A4 58 31 3A 81 5A B2 31 A4 59 |:.X.XX.X1:.Z.1.Y|
00001690: 3A 8B 41 25 28 5A 29 B2 58 A7 42 25 28 56 29 B2 |:.A%(Z).X.B%(V).|
000016A0: 58 3A 56 B2 56 AA 31 00 B3 1E C2 00 82 5A 3A 82 |X:V.V.1......Z:.|
000016B0: 58 3A 8E 00 C8 1E C3 00 99 22 93 52 45 43 4F 52 |X:.......".RECOR|
000016C0: 44 20 20 4E 41 4D 45 22 00 FA 1E C4 00 81 58 B2 |D NAME"......X.|
000016D0: 31 A4 56 AB 31 3A 46 B2 42 25 28 58 29 3A 8D 32 |1.V.1:F.B%(X):.2|
000016E0: 31 30 3A 99 42 25 28 58 29 3B 46 42 24 28 31 29 |10:.B%(X);FB$(1)|
000016F0: 3A 8B 58 B2 31 36 A7 32 30 31 00 03 1F C5 00 82 |:.X.16.201......|
00001700: 58 3A 99 00 31 1F C6 00 99 22 50 52 45 53 53 20 |X:..1...."PRESS |
00001710: 52 45 54 55 52 4E 20 54 4F 20 47 4F 20 20 20 20 |RETURN TO GO |
00001720: 42 41 43 4B 20 54 4F 20 4A 4F 42 20 4D 45 4E 55 |BACK TO JOB MENU|
00001730: 22 00 48 1F C7 00 A1 43 24 3A 8B 43 24 B3 B1 C7 |".H....C$:.C$...|
00001740: 28 31 33 29 A7 31 39 39 00 50 1F C8 00 89 35 34 |(13).199.P....54|
00001750: 00 77 1F C9 00 99 3A 99 22 12 43 4F 4E 54 49 4E |.w....:.".CONTIN|
00001760: 55 45 3F 20 4E 4F 28 4E 29 20 4F 52 20 20 20 20 |UE? NO(N) OR |
00001770: 59 45 53 28 59 29 22 00 8A 1F CA 00 A1 42 24 3A |YES(Y)"......B$:|
00001780: 8B 42 24 B2 22 22 A7 32 30 32 00 99 1F CB 00 8B |.B$."".202......|
00001790: 42 24 B2 22 4E 22 A7 35 34 00 AB 1F CC 00 8B 42 |B$."N".54......B|
000017A0: 24 B2 C7 28 31 33 29 A7 32 30 36 00 BC 1F CD 00 |$..(13).206.....|
000017B0: 8B 42 24 B3 B1 22 59 22 A7 32 30 32 00 D1 1F CE |.B$.."Y".202....|
000017C0: 00 99 22 93 52 45 43 4F 52 44 20 20 4E 41 4D 45 |..".RECORD NAME|
000017D0: 22 00 EE 1F CF 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |"......*********|
000017E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0B |**************..|
000017F0: 20 D0 00 8F 2A 20 46 44 44 20 42 4C 4F 43 4B 20 | ...* FDD BLOCK |
00001800: 52 45 41 44 20 20 20 20 20 20 2A 00 28 20 D1 00 |READ *.( ..|
00001810: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00001820: 2A 2A 2A 2A 2A 2A 2A 2A 00 31 20 D2 00 8D 32 33 |********.1 ...23|
00001830: 38 00 4B 20 D3 00 98 31 35 2C 22 55 31 3A 22 3B |8.K ...15,"U1:";|
00001840: 43 48 3B 46 44 3B 46 54 3B 46 53 00 60 20 D4 00 |CH;FD;FT;FS.` ..|
00001850: 98 31 35 2C 22 42 2D 50 3A 22 3B 43 48 3B 46 50 |.15,"B-P:";CH;FP|
00001860: 00 69 20 D5 00 8D 32 32 37 00 76 20 D6 00 81 46 |.i ...227.v ...F|
00001870: 49 B2 31 A4 46 59 00 87 20 D7 00 84 43 48 2C 46 |I.1.FY.. ...CH,F|
00001880: 42 24 28 46 49 29 3A 00 8D 20 D8 00 82 00 93 20 |B$(FI):.. ..... |
00001890: D9 00 8E 00 B0 20 DA 00 8F 2A 2A 2A 2A 2A 2A 2A |..... ...*******|
000018A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000018B0: 00 CD 20 DB 00 8F 2A 20 46 44 44 20 42 4C 4F 43 |.. ...* FDD BLOC|
000018C0: 4B 20 57 52 49 54 45 20 20 20 20 20 2A 00 EA 20 |K WRITE *.. |
000018D0: DC 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
000018E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F3 20 DD 00 8D |**********.. ...|
000018F0: 32 33 38 00 08 21 DE 00 98 31 35 2C 22 42 2D 50 |238..!...15,"B-P|
00001900: 3A 22 3B 43 48 3B 46 50 00 2A 21 DF 00 81 46 49 |:";CH;FP.*!...FI|
00001910: B2 31 A4 46 59 3A 98 43 48 2C 46 42 24 28 46 49 |.1.FY:.CH,FB$(FI|
00001920: 29 3B C7 28 31 33 29 3B 3A 82 00 44 21 E0 00 98 |);.(13);:..D!...|
00001930: 31 35 2C 22 55 32 3A 22 3B 43 48 3B 46 44 3B 46 |15,"U2:";CH;FD;F|
00001940: 54 3B 46 53 00 4D 21 E1 00 8D 32 32 37 00 53 21 |T;FS.M!...227.S!|
00001950: E2 00 8E 00 70 21 E3 00 8F 2A 2A 2A 2A 2A 2A 2A |....p!...*******|
00001960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001970: 00 8D 21 E4 00 8F 2A 20 20 45 52 52 4F 52 20 43 |..!...* ERROR C|
00001980: 48 45 43 4B 20 20 20 20 20 20 20 20 2A 00 AA 21 |HECK *..!|
00001990: E5 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
000019A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 21 E6 00 84 |**********..!...|
000019B0: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 |15,EN,EM$,ET,ES.|
000019C0: CB 21 E7 00 8B 45 4E B2 30 A7 8E 00 ED 21 E8 00 |.!...EN.0....!..|
000019D0: 99 22 45 52 52 4F 52 20 53 54 41 54 55 53 3A 22 |."ERROR STATUS:"|
000019E0: 2C 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 0B 22 |,EN;EM$;ET;ES.."|
000019F0: E9 00 85 22 43 4F 4E 54 49 4E 55 45 3F 22 3B 59 |..."CONTINUE?";Y|
00001A00: 24 3A 8B 59 24 B2 22 59 22 A7 8E 00 11 22 EA 00 |$:.Y$."Y"...."..|
00001A10: 90 00 2E 22 EB 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..."...*********|
00001A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4B |**************.K|
00001A30: 22 EC 00 8F 2A 20 53 45 54 20 54 52 41 43 4B 20 |"...* SET TRACK |
00001A40: 26 20 53 45 43 54 4F 52 20 20 2A 00 68 22 ED 00 |& SECTOR *.h"..|
00001A50: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 00 88 22 EE 00 8B 46 B3 |********.."...F.|
00001A70: 33 35 38 A7 46 31 B2 30 3A 46 32 B2 32 32 3A 46 |358.F1.0:F2.22:F|
00001A80: 33 B2 31 3A 89 32 34 32 00 B1 22 EF 00 8B 46 B1 |3.1:.242.."...F.|
00001A90: 33 35 37 AF 46 B3 34 37 31 A7 46 31 B2 33 35 37 |357.F.471.F1.357|
00001AA0: 3A 46 32 B2 32 30 3A 46 33 B2 31 39 3A 89 32 34 |:F2.20:F3.19:.24|
00001AB0: 32 00 DA 22 F0 00 8B 46 B1 34 37 31 AF 46 B3 35 |2.."...F.471.F.5|
00001AC0: 38 30 A7 46 31 B2 34 37 31 3A 46 32 B2 31 39 3A |80.F1.471:F2.19:|
00001AD0: 46 33 B2 32 35 3A 89 32 34 32 00 F8 22 F1 00 8B |F3.25:.242.."...|
00001AE0: 46 B1 35 38 30 A7 46 31 B2 35 38 30 3A 46 32 B2 |F.580.F1.580:F2.|
00001AF0: 31 38 3A 46 33 B2 33 31 00 17 23 F2 00 46 54 B2 |18:F3.31..#..FT.|
00001B00: B5 28 28 28 46 AB 46 31 29 AB 31 29 AD 28 46 32 |.(((F.F1).1).(F2|
00001B10: AB 31 29 29 AA 46 33 00 38 23 F3 00 46 53 B2 46 |.1)).F3.8#..FS.F|
00001B20: AB 46 31 AB 28 46 54 AB 46 33 29 AC 46 32 AA 28 |.F1.(FT.F3).F2.(|
00001B30: 46 54 AB 46 33 AB 31 29 00 3E 23 F4 00 8E 00 5F |FT.F3.1).>#...._|
00001B40: 23 F5 00 99 22 12 44 4F 20 59 4F 55 20 57 49 53 |#...".DO YOU WIS|
00001B50: 48 20 41 20 48 41 52 44 43 4F 50 59 9E 22 3A 00 |H A HARDCOPY.":.|
00001B60: 73 23 F6 00 A1 50 24 3A 8B 50 24 B2 22 22 20 A7 |s#...P$:.P$."" .|
00001B70: 32 34 36 00 82 23 F7 00 8B 50 24 B2 22 4E 22 A7 |246..#...P$."N".|
00001B80: 20 8E 00 93 23 F8 00 8B 50 24 B2 22 59 22 A7 20 | ...#...P$."Y". |
00001B90: 32 34 39 00 A4 23 F9 00 9F 34 2C 34 3A 9D 34 3A |249..#...4,4:.4:|
00001BA0: 51 32 B2 30 00 C7 23 FA 00 81 58 B2 58 58 A4 58 |Q2.0..#...X.XX.X|
00001BB0: 31 3A 46 B2 41 25 28 58 29 3A 51 32 B2 51 32 AA |1:F.A%(X):Q2.Q2.|
00001BC0: 31 3A 8D 32 31 30 3A 00 E5 23 FB 00 98 34 2C C7 |1:.210:..#...4,.|
00001BD0: 28 32 37 29 C7 28 36 39 29 41 25 28 58 29 3B 46 |(27).(69)A%(X);F|
00001BE0: 42 24 28 31 29 00 F8 23 FC 00 8B 51 32 B3 B1 36 |B$(1)..#...Q2..6|
00001BF0: 30 A7 99 51 32 3A 82 58 00 08 24 FD 00 8B 58 B2 |0..Q2:.X..$...X.|
00001C00: 58 31 AA 31 A7 32 35 35 00 26 24 FE 00 98 34 3A |X1.1.255.&$...4:|
00001C10: 98 34 3A 98 34 3A 98 34 3A 98 34 3A 98 34 3A 51 |.4:.4:.4:.4:.4:Q|
00001C20: 32 B2 30 3A 82 58 00 32 24 FF 00 98 34 3A A0 34 |2.0:.X.2$...4:.4|
00001C30: 3A 8E 00 50 24 00 01 99 22 12 50 52 49 4E 54 20 |:..P$...".PRINT |
00001C40: 41 44 44 52 45 53 53 20 28 59 2F 4E 29 92 9E 22 |ADDRESS (Y/N).."|
00001C50: 00 63 24 01 01 A1 48 24 3A 8B 48 24 B2 22 22 A7 |.c$...H$:.H$."".|
00001C60: 32 35 37 00 78 24 02 01 8B 48 24 B2 22 4E 22 A7 |257.x$...H$."N".|
00001C70: 99 22 91 91 91 22 3A 8E 00 89 24 03 01 8B 48 24 |."...":...$...H$|
00001C80: B2 22 59 22 A7 89 32 38 31 00 A3 24 04 01 9F 34 |."Y"..281..$...4|
00001C90: 2C 34 3A 9D 34 3A 98 34 2C C7 28 32 37 29 C7 28 |,4:.4:.4,.(27).(|
00001CA0: 36 39 29 00 BC 24 05 01 98 34 2C 22 20 22 A3 52 |69)..$...4," ".R|
00001CB0: 29 20 46 42 24 28 31 29 3B 22 20 22 00 D5 24 06 |) FB$(1);" "..$.|
00001CC0: 01 98 34 2C 22 20 22 A3 52 29 20 46 42 24 28 32 |..4," ".R) FB$(2|
00001CD0: 29 3B 22 20 22 00 EE 24 07 01 98 34 2C 22 20 22 |);" "..$...4," "|
00001CE0: A3 52 29 20 46 42 24 28 33 29 3B 22 20 22 00 07 |.R) FB$(3);" "..|
00001CF0: 25 08 01 98 34 2C 22 20 22 A3 52 29 20 46 42 24 |%...4," ".R) FB$|
00001D00: 28 34 29 3B 22 20 22 00 20 25 09 01 98 34 2C 22 |(4);" ". %...4,"|
00001D10: 20 22 A3 52 29 20 46 42 24 28 35 29 3B 22 20 22 | ".R) FB$(5);" "|
00001D20: 00 39 25 0A 01 98 34 2C 22 20 22 A3 52 29 20 46 |.9%...4," ".R) F|
00001D30: 42 24 28 36 29 3B 22 20 22 00 52 25 0B 01 98 34 |B$(6);" ".R%...4|
00001D40: 2C 22 20 22 A3 52 29 20 46 42 24 28 37 29 3B 22 |," ".R) FB$(7);"|
00001D50: 20 22 00 5F 25 0C 01 98 34 2C C7 28 31 30 29 00 | "._%...4,.(10).|
00001D60: 6B 25 0D 01 98 34 3A A0 34 3A 8E 00 8C 25 0E 01 |k%...4:.4:...%..|
00001D70: 8F 20 50 52 49 4E 54 22 91 91 91 22 3A 50 52 49 |. PRINT"...":PRI|
00001D80: 4E 54 22 93 22 3A 52 45 54 55 52 4E 00 AA 25 0F |NT".":RETURN..%.|
00001D90: 01 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |.."DO YOU WISH T|
00001DA0: 4F 20 43 4F 52 52 45 43 54 22 00 BD 25 10 01 A1 |O CORRECT"..%...|
00001DB0: 5A 24 3A 8B 5A 24 B2 22 22 A7 32 37 32 00 CD 25 |Z$:.Z$."".272..%|
00001DC0: 11 01 8B 5A 24 B2 22 59 22 A7 32 37 35 00 D3 25 |...Z$."Y".275..%|
00001DD0: 12 01 8E 00 F4 25 13 01 99 22 12 9E 57 48 49 43 |.....%..."..WHIC|
00001DE0: 48 20 46 49 45 4C 44 20 54 4F 20 43 48 41 4E 47 |H FIELD TO CHANG|
00001DF0: 45 20 92 22 00 04 26 14 01 A1 5A 3A 8B 5A B3 31 |E ."..&...Z:.Z.1|
00001E00: A7 32 37 36 00 11 26 15 01 8B 5A B1 38 A7 32 37 |.276..&...Z.8.27|
00001E10: 36 00 33 26 16 01 99 22 12 1C 49 4E 50 55 54 20 |6.3&..."..INPUT |
00001E20: 43 4F 52 52 45 43 54 20 44 41 54 41 20 20 20 20 |CORRECT DATA |
00001E30: 92 1E 22 00 3C 26 17 01 85 5A 31 24 00 5A 26 18 |..".<&...Z1$.Z&.|
00001E40: 01 46 42 24 28 5A 29 B2 5A 31 24 3A 54 B2 31 3A |.FB$(Z).Z1$:T.1:|
00001E50: 8D 32 32 31 3A 54 B2 30 3A 8E 00 7B 26 19 01 99 |.221:T.0:..{&...|
00001E60: 22 12 9E 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |"..DO YOU WISH T|
00001E70: 4F 20 50 52 49 4E 54 20 20 22 3A 00 9C 26 1A 01 |O PRINT ":..&..|
00001E80: 99 22 12 05 4C 49 53 54 20 20 20 20 20 20 20 20 |."..LIST |
00001E90: 20 20 20 20 20 20 20 20 20 20 22 3A 00 BE 26 1B | ":..&.|
00001EA0: 01 99 22 12 1E 52 45 54 55 52 4E 20 4C 41 42 45 |.."..RETURN LABE|
00001EB0: 4C 20 20 20 20 20 20 20 20 20 20 1C 22 3A 00 DF |L .":..|
00001EC0: 26 1C 01 99 22 12 9F 4F 52 20 4D 41 49 4C 20 4C |&..."..OR MAIL L|
00001ED0: 41 42 45 4C 3F 20 20 20 20 20 20 20 20 22 3A 00 |ABEL? ":.|
00001EE0: F8 26 1D 01 99 22 12 05 1D 1D 1D 1D 1D 1D 28 4C |.&..."........(L|
00001EF0: 2C 52 2C 4D 29 92 1E 22 00 0B 27 1E 01 A1 51 24 |,R,M).."..'...Q$|
00001F00: 3A 8B 51 24 B2 22 22 A7 32 38 36 00 1B 27 1F 01 |:.Q$."".286..'..|
00001F10: 8B 51 24 B2 22 4C 22 A7 33 31 30 00 2B 27 20 01 |.Q$."L".310.+' .|
00001F20: 8B 51 24 B2 22 52 22 A7 32 39 30 00 3B 27 21 01 |.Q$."R".290.;'!.|
00001F30: 8B 51 24 B2 22 4D 22 A7 33 30 30 00 55 27 22 01 |.Q$."M".300.U'".|
00001F40: 9F 34 2C 34 3A 9D 34 3A 98 34 2C C7 28 32 37 29 |.4,4:.4:.4,.(27)|
00001F50: C7 28 36 39 29 00 6E 27 23 01 98 34 2C 22 20 22 |.(69).n'#..4," "|
00001F60: A3 31 30 29 20 46 42 24 28 31 29 3B 22 22 00 87 |.10) FB$(1);""..|
00001F70: 27 24 01 98 34 2C 22 20 22 A3 31 30 29 20 46 42 |'$..4," ".10) FB|
00001F80: 24 28 32 29 3B 22 22 00 A0 27 25 01 98 34 2C 22 |$(2);""..'%..4,"|
00001F90: 20 22 A3 31 30 29 20 46 42 24 28 33 29 3B 22 22 | ".10) FB$(3);""|
00001FA0: 00 B9 27 26 01 98 34 2C 22 20 22 A3 31 30 29 20 |..'&..4," ".10) |
00001FB0: 46 42 24 28 34 29 3B 22 22 00 DB 27 27 01 8F 20 |FB$(4);""..''.. |
00001FC0: 50 52 49 4E 54 23 34 2C 22 20 22 54 41 42 28 31 |PRINT#4," "TAB(1|
00001FD0: 30 29 46 42 24 28 35 29 3B 22 22 00 FD 27 28 01 |0)FB$(5);""..'(.|
00001FE0: 8F 20 50 52 49 4E 54 23 34 2C 22 20 22 54 41 42 |. PRINT#4," "TAB|
00001FF0: 28 31 30 29 46 42 24 28 36 29 3B 22 22 00 1F 28 |(10)FB$(6);""..(|
00002000: 29 01 8F 20 50 52 49 4E 54 23 34 2C 22 20 22 54 |).. PRINT#4," "T|
00002010: 41 42 28 31 30 29 46 42 24 28 37 29 3B 22 22 00 |AB(10)FB$(7);"".|
00002020: 2C 28 2A 01 98 34 2C C7 28 31 30 29 00 35 28 2B |,(*..4,.(10).5(+|
00002030: 01 89 32 36 39 00 50 28 2C 01 9F 34 2C 34 3A 9D |..269.P(,..4,4:.|
00002040: 34 3A 20 98 34 2C C7 28 32 37 29 C7 28 36 39 29 |4: .4,.(27).(69)|
00002050: 00 65 28 2D 01 98 34 2C 22 20 22 A3 35 30 29 46 |.e(-..4," ".50)F|
00002060: 42 24 28 31 29 00 7A 28 2E 01 98 34 2C 22 20 22 |B$(1).z(...4," "|
00002070: A3 35 30 29 46 42 24 28 32 29 00 8F 28 2F 01 98 |.50)FB$(2)..(/..|
00002080: 34 2C 22 20 22 A3 35 30 29 46 42 24 28 33 29 00 |4," ".50)FB$(3).|
00002090: A4 28 30 01 98 34 2C 22 20 22 A3 35 30 29 46 42 |.(0..4," ".50)FB|
000020A0: 24 28 34 29 00 C3 28 31 01 8F 20 50 52 49 4E 54 |$(4)..(1.. PRINT|
000020B0: 23 34 2C 22 20 22 54 41 42 28 35 30 29 46 42 24 |#4," "TAB(50)FB$|
000020C0: 28 35 29 00 E2 28 32 01 8F 20 50 52 49 4E 54 23 |(5)..(2.. PRINT#|
000020D0: 34 2C 22 20 22 54 41 42 28 35 30 29 46 42 24 28 |4," "TAB(50)FB$(|
000020E0: 36 29 00 01 29 33 01 8F 20 50 52 49 4E 54 23 34 |6)..)3.. PRINT#4|
000020F0: 2C 22 20 22 54 41 42 28 35 30 29 46 42 24 28 37 |," "TAB(50)FB$(7|
00002100: 29 00 0E 29 34 01 98 34 2C C7 28 31 30 29 00 17 |)..)4..4,.(10)..|
00002110: 29 35 01 89 32 36 39 00 30 29 36 01 99 22 9E 49 |)5..269.0)6..".I|
00002120: 4E 50 55 54 20 4D 41 52 47 49 4E 20 53 45 54 22 |NPUT MARGIN SET"|
00002130: 00 3C 29 37 01 85 52 3A 89 32 36 30 00 7E 29 38 |.<)7..R:.260.~)8|
00002140: 01 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |.."DO YOU WANT T|
00002150: 4F 20 50 52 49 4E 54 20 41 4C 4C 20 46 49 45 4C |O PRINT ALL FIEL|
00002160: 44 53 3F 20 20 20 20 20 20 20 20 20 12 59 92 2D |DS? .Y.-|
00002170: 59 45 53 20 4F 52 20 12 4E 92 2D 4E 4F 22 00 A1 |YES OR .N.-NO"..|
00002180: 29 39 01 85 4D 24 3A 8B 4D 24 B2 22 59 22 A7 58 |)9..M$:.M$."Y".X|
00002190: 33 B2 37 3A 51 B2 30 3A 41 31 B2 30 3A 89 33 31 |3.7:Q.0:A1.0:.31|
000021A0: 36 00 B2 29 3A 01 8B 4D 24 B3 B1 22 4E 22 A7 33 |6..):..M$.."N".3|
000021B0: 31 32 00 C4 29 3B 01 58 33 B2 34 3A 41 31 B2 30 |12..);.X3.4:A1.0|
000021C0: 3A 51 B2 30 00 D4 29 3C 01 8B 58 33 B2 37 A7 51 |:Q.0..)<..X3.7.Q|
000021D0: 31 B2 31 34 00 E4 29 3D 01 8B 58 33 B2 34 A7 51 |1.14..)=..X3.4.Q|
000021E0: 31 B2 32 32 00 FF 29 3E 01 81 58 B2 31 A4 36 36 |1.22..)>..X.1.66|
000021F0: 34 3A 8B 41 25 28 58 29 B3 B1 30 A7 33 32 30 00 |4:.A%(X)..0.320.|
00002200: 07 2A 3F 01 89 35 34 00 15 2A 40 01 8B 51 B2 51 |.*?..54..*@..Q.Q|
00002210: 31 A7 33 33 34 00 3C 2A 41 01 51 B2 51 AA 31 3A |1.334.<*A.Q.Q.1:|
00002220: 46 B2 41 25 28 58 29 3A 8D 32 31 30 3A 8B 41 31 |F.A%(X):.210:.A1|
00002230: B2 31 A7 41 31 B2 30 3A 89 33 32 35 00 6F 2A 42 |.1.A1.0:.325.o*B|
00002240: 01 81 52 B2 31 A4 58 33 3A 42 42 24 28 52 29 B2 |..R.1.X3:BB$(R).|
00002250: 46 42 24 28 52 29 3A 41 33 25 28 52 29 B2 C3 28 |FB$(R):A3%(R)..(|
00002260: 46 42 24 28 52 29 29 3A 82 52 3A 41 31 B2 31 00 |FB$(R)):.R:A1.1.|
00002270: A5 2A 43 01 99 42 42 24 28 31 29 3B 42 42 24 28 |.*C..BB$(1);BB$(|
00002280: 32 29 3B 42 42 24 28 33 29 3B 42 42 24 28 34 29 |2);BB$(3);BB$(4)|
00002290: 3B 42 42 24 28 35 29 3B 42 42 24 28 36 29 3B 42 |;BB$(5);BB$(6);B|
000022A0: 42 24 28 37 29 00 AC 2A 44 01 82 58 00 B8 2A 45 |B$(7)..*D..X..*E|
000022B0: 01 81 52 B2 31 A4 58 33 00 E2 2A 46 01 9F 34 2C |..R.1.X3..*F..4,|
000022C0: 34 3A 41 32 B2 34 35 AB 41 33 25 28 52 29 3A 98 |4:A2.45.A3%(R):.|
000022D0: 34 2C 42 42 24 28 52 29 A3 41 32 29 46 42 24 28 |4,BB$(R).A2)FB$(|
000022E0: 52 29 00 01 2B 47 01 A0 34 3A 82 52 3A 9F 34 2C |R)..+G..4:.R:.4,|
000022F0: 34 3A 9D 34 3A 99 3A 99 3A 98 34 3A A0 34 3A 82 |4:.4:.:.:.4:.4:.|
00002300: 58 00 0A 2B 48 01 8D 32 33 38 00 24 2B 49 01 98 |X..+H..238.$+I..|
00002310: 31 35 2C 22 55 31 3A 22 3B 43 48 3B 46 44 3B 46 |15,"U1:";CH;FD;F|
00002320: 54 3B 46 53 00 39 2B 4A 01 98 31 35 2C 22 42 2D |T;FS.9+J..15,"B-|
00002330: 50 3A 22 3B 43 48 3B 46 50 00 48 2B 4B 01 8D 32 |P:";CH;FP.H+K..2|
00002340: 32 37 3A 46 49 B2 46 58 00 58 2B 4C 01 84 43 48 |27:FI.FX.X+L..CH|
00002350: 2C 46 42 24 28 46 49 29 00 5E 2B 4D 01 8E 00 6D |,FB$(FI).^+M...m|
00002360: 2B 4E 01 8B 51 31 B2 31 34 A7 33 33 37 00 95 2B |+N..Q1.14.337..+|
00002370: 4F 01 8F 3A 4F 50 45 4E 34 2C 34 3A 43 4D 44 34 |O..:OPEN4,4:CMD4|
00002380: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 23 34 3A 43 |:PRINT:PRINT#4:C|
00002390: 4C 4F 53 45 34 00 A2 2B 50 01 51 B2 30 3A 89 33 |LOSE4..+P.Q.0:.3|
000023A0: 32 31 00 BA 2B 51 01 9F 34 2C 34 3A 9D 34 3A 99 |21..+Q..4,4:.4:.|
000023B0: 3A 99 3A 99 3A 98 34 3A A0 34 00 C7 2B 52 01 51 |:.:.:.4:.4..+R.Q|
000023C0: B2 30 3A 89 33 32 31 00 D7 2B 53 01 8F 20 47 4F |.0:.321..+S.. GO|
000023D0: 53 55 42 35 34 30 30 00 F1 2B 54 01 81 58 B2 31 |SUB5400..+T..X.1|
000023E0: A4 59 AB 31 3A 46 B2 41 25 28 58 29 3A 8D 32 30 |.Y.1:F.A%(X):.20|
000023F0: 37 00 FC 2B 55 01 A0 32 3A A0 31 35 00 14 2C 56 |7..+U..2:.15..,V|
00002400: 01 9F 31 35 2C 39 2C 31 35 3A 9F 32 2C 39 2C 32 |..15,9,15:.2,9,2|
00002410: 2C 22 23 22 00 1D 2C 57 01 8D 32 31 38 00 28 2C |,"#"..,W..218.(,|
00002420: 58 01 A0 31 35 3A A0 32 00 5D 2C 59 01 99 22 13 |X..15:.2.],Y..".|
00002430: 9E 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D |................|
00002440: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 57 41 49 |.............WAI|
00002450: 54 21 20 20 20 20 20 9D 9D 9D 9D 9D 22 00 75 2C |T! .....".u,|
00002460: 5A 01 9F 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C |Z..15,8,15:.2,8,|
00002470: 32 2C 22 23 22 00 7C 2C 5B 01 82 58 00 90 2C 5C |2,"#".|,[..X..,\|
00002480: 01 A0 32 3A A0 31 35 3A 9F 31 35 2C 39 2C 31 35 |..2:.15:.15,9,15|
00002490: 00 A9 2C 5D 01 9F 35 2C 39 2C 35 2C 22 30 3A 49 |..,]..5,9,5,"0:I|
000024A0: 4E 44 45 58 2C 53 2C 57 22 00 C6 2C 5E 01 81 49 |NDEX,S,W"..,^..I|
000024B0: B2 31 A4 36 36 34 3A 98 35 2C 49 24 28 49 29 3B |.1.664:.5,I$(I);|
000024C0: C7 28 31 33 29 3B 00 F0 2C 5F 01 82 49 3A A0 35 |.(13);..,_..I:.5|
000024D0: 3A A0 31 35 3A A0 32 3A 9F 31 35 2C 38 2C 31 35 |:.15:.2:.15,8,15|
000024E0: 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 |,"I0":.2,8,2,"#"|
000024F0: 00 F8 2C 60 01 89 35 34 00 2D 2D 61 01 99 22 93 |..,`..54.--a..".|
00002500: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 4E |DO YOU WISH TO N|
00002510: 45 57 20 44 49 53 4B 3F 22 3A 99 22 1C 12 59 92 |EW DISK?":."..Y.|
00002520: 3D 59 45 53 20 12 4E 92 3D 4E 4F 9E 22 00 35 2D |=YES .N.=NO.".5-|
00002530: 62 01 85 53 24 00 43 2D 63 01 8B 53 24 B2 22 4E |b..S$.C-c..S$."N|
00002540: 22 A7 8E 00 53 2D 64 01 8B 53 24 B2 22 59 22 A7 |"...S-d..S$."Y".|
00002550: 33 35 37 00 70 2D 65 01 99 22 49 4E 53 45 52 54 |357.p-e.."INSERT|
00002560: 20 4E 45 57 20 44 49 53 4B 20 49 4E 20 23 39 22 | NEW DISK IN #9"|
00002570: 00 8E 2D 66 01 99 22 50 52 45 53 53 20 27 43 27 |..-f.."PRESS 'C'|
00002580: 20 57 48 45 4E 20 52 45 41 44 59 20 20 22 00 A1 | WHEN READY "..|
00002590: 2D 67 01 A1 59 24 3A 8B 59 24 B2 22 22 A7 33 35 |-g..Y$:.Y$."".35|
000025A0: 39 00 B1 2D 68 01 8B 59 24 B2 22 43 22 A7 33 36 |9..-h..Y$."C".36|
000025B0: 31 00 D5 2D 69 01 99 22 93 4E 45 57 49 4E 47 20 |1..-i..".NEWING |
000025C0: 44 49 53 4B 20 23 39 2E 20 50 4C 45 41 53 45 20 |DISK #9. PLEASE |
000025D0: 57 41 49 54 22 00 F3 2D 6A 01 9F 31 2C 39 2C 31 |WAIT"..-j..1,9,1|
000025E0: 35 2C 22 4E 30 3A 44 41 54 41 20 46 49 4C 45 2C |5,"N0:DATA FILE,|
000025F0: 51 51 22 00 FC 2D 6B 01 A0 31 3A 8E 00 07 2E 6C |QQ"..-k..1:....l|
00002600: 01 41 24 B2 22 12 22 00 15 2E 6D 01 81 4C B2 31 |.A$."."...m..L.1|
00002610: A4 31 30 30 30 00 1E 2E 6E 01 99 22 13 22 00 5C |.1000...n..".".\|
00002620: 2E 6F 01 99 A3 32 29 41 24 3B 22 1D 1D 1D 1D 1D |.o...2)A$;".....|
00002630: 1D 1D 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002640: 11 11 11 11 11 48 49 54 20 52 45 54 55 52 4E 20 |.....HIT RETURN |
00002650: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 70 2E 70 |TO CONTINUE".p.p|
00002660: 01 A1 52 24 3A 8B 52 24 B2 C7 28 31 33 29 A7 8E |..R$:.R$..(13)..|
00002670: 00 7F 2E 71 01 81 49 B2 31 A4 33 33 33 3A 82 00 |...q..I.1.333:..|
00002680: 97 2E 72 01 8B 41 24 B2 22 12 22 A7 41 24 B2 22 |..r..A$.".".A$."|
00002690: 92 22 3A 89 33 37 32 00 AF 2E 73 01 8B 41 24 B2 |.":.372...s..A$.|
000026A0: 22 92 22 A7 41 24 B2 22 12 22 3A 89 33 37 32 00 |".".A$.".":.372.|
000026B0: B6 2E 74 01 82 4C 00 00 00 |..t..L... |
..E....53280,0:.53281,0:."..............
......DO YOU WANT INST. ?".D...."....
..........YES OR NO?......".............
.(Y=YES N=NO)."......Y$:.Y$."".4......Y$
."Y".7......Y$."N".32.B....36879,8......
"...CLUB MAIL LIST (RANDOM FILE PROGRAM)
. "......"..THIS IS A DISK OPERATED SY
STEM".D...."THAT WILL WORK WITH 1 1541 D
ISK".J...."DRIVE BUT REQUIRES 2 DRIVES #
8"......"AND #9 TO COPY THE DATA FILE.".
....."TO START THE FIRST TIME INSERT A..
...."BLANK DISK THAT HAS BEEN FORMATTED
INTO #9."......"THEN .RUN. THE PROG
RAM. THIS PROGRAM".E...."IS DESIGNED TO
BE.'USER FRIENDLY'..".N....364.V...."..
TO USE THIS PROGRAM REQUIRES:"......"...
...1.C-64 COMPUTER.":."....2.1 OR 2 1541
(OR 1540) DISK DRIVES".V...."....3.A PR
INTER......."...TO CONTINUE PRESS 'G' TO
GET STARTED..".3...."..PRESS 'N' TO STO
P PROGRAM ..".E....Q$:.Q$."".23.T.
...Q$."G".32.B....Q$."N"........********
****************************************
************......**THIS PROGRAM WAS EXP
ANDED FROM A RANDOM FILE PROGRAM BY**".'
....**BY STEVE ALFORD AND WAYNE LOWERY O
F NEW ORLEANS,LA **.H....**TO USE PR
INTER JUST ENTER OPTION YOU WANT AND CHE
CK **......**************************
**********************************......
LABEL SIZE. REGULAR LABEL FROM RADIO SHA
CK 2 ACROSS WORK **... ..53280,0:.53281,
0.E.!..I$(664):FD.0:FX.7:CH.2:FP.1:.A%(6
64):.B%(25):.BB$(10):.A3%(10).N.".FY.7.X
.#.."...........CCCCCCCCCCCCCCCCCCCCCC":
...$.."........ .INSERT DATA SHEET.".D.
%.."........EEEEEEEEEEEEEEEEEEEEEE":...&
.."........... START PRESS .'S'."...'
..P$:.P$.."S".39...(..15,8,15,"I0":.2,8,
2,"#".F.).."..........CCCCCCCCCCCCCCCCCC
CCCC":.J.*.."........INDEX FILE OPERATIO
N"...+.."........EEEEEEEEEEEEEEEEEEEEEE"
...,.."......... .NEW SHEET? N...";O
$:.".".M.-..O$."N".50......O$.."Y".44...
/..:."................... WAIT!":.I.1
.664.E.0.."............................
....."I;:I$(I)."/".V.1..I$(I):.:.54.O
.2..5,8,5,"0:INDEX,S,R"...3..I.1.664:.5,
I$(I)...4.."........................WAIT
! ....."I;I$(I).O.5..I: 5:FX.1:.135.
..6.."..........FFFFFFFFFFFFFFFFFFFFFF":
...7.."........ JOB MENU ":.
F.8.."........EEEEEEEEEEEEEEEEEEEEEE":.L
.9...R.:.."......... 1=ENTER NEW NAM
E"...;.."......... 2=DELETE"...<..".
........ 3=PRINT NAMES".X.=.."......
... 4=DISPLAY NAMES"...>..".........
5=SEARCH"...?.."......... 6=COP
Y MAIL LIST".7.@.."......... 0=END".
D.A.."..........1 , 2 , 3 , 4 , 0 1...
";O$.|.B..O$."0". 15: 5: 2:....C..O$."1"
.77...D..O$."3".312...E..O$."4".154...F.
.O$."5".113.K.G..O$."6".339...H..O$.."2"
.54...I..97...J..***********************
...K..* MASTER FILE CREATE *.:.L..*****
******************...M.."............ PL
EASE ENTER FIRST LETTER OF LAST NAME (EN
TER .0. WHEN THRU)":V.0...N..M$:.M$."0".
92...O..171:.V.1.77.P.P..F.XX.X1:.I$(F).
."/". .F...Q.."RECORD NO. =";F...R.."(1)
NAME =....";FB$(1).$.S.."(2)ADDRESS =
....";FB$(2).C.T.."(3)CITY =....";FB$
(3).B.U.."(4)ZIP =....";FB$(4)...V..
"(5)TEL =....";FB$(5). .W.."(6)COMME
NT =....";FB$(6)...X.."(7)CLUBINFO=...."
;FB$(7).H.Y..218.V.Z.I$(F)."1"...[..77..
.\..5,8,5,"@0:INDEX,S,W"...]..I.1.664:.5
,I$(I);G(13);.M.^.."....................
......WAIT! ....."I;I$(I).[._..: 5:.
135.C.`..54...A..***********************
...B..* MASTER FILE DELETE *...C..*****
******************...D.."...........RRRR
RRRRRRRRRRRRRRRRRR":...E.."........ MAS
TER FILE DELETE".0.F.."........DDDDDDDDD
DDDDDDDDDDDDD":..T.G..".........RECORD N
O. =0....";F.A.H..F.0.108.U.I..I$(F).."1
".103...J.I$(F)."/":."..RECORD NO."F;"DE
LETE."...K..103.A.L..5,8,5,"@0:INDEX,S,W
"...M..I.1.664:.5,I$(I);G(13);...N.."...
...................WAIT! ....."I;I$(
I). .O..: 5:.135.(.P..54.E.Q..**********
*************.B.R..* FILE SEARCH
*..S..***********************...T.."..
..........RRRRRRRRRRRRRRRRRRRRRR":.G.U..
"........ SEARCH "...V.."........DD
DDDDDDDDDDDDDDDDDDDD":.:FY.7...W..".....
.......RECORD NO. = 0....";F.(.X..F.0.54
.<.Y..I$(F).."1".119.E.Z..207.F.{.."..(1
).NAME = .";FB$(1)...|.."..(2).ADDRE
SS = .";FB$(2)...}.."..(3).CITY = .
";FB$(3).I.~.."..(4).ZIP = .";FB$(4
)....."..(5).TEL = .";FB$(5)......
"..(6).COMMENT = .";FB$(6).,...."..(7).
CLUBINFO.= .";FB$(7).I...."-------------
--------".R....271.[....256.G....T..0...
P....119......X.1.664:A%(X).0:.X:Y.1:.X.
1.664:.I$(X)."1".A%(Y).X:Y.Y.1......X:..
M....".RECORD NAME".....XY.1:FX.1.....
.X.XX.X1:F.A%(X):.328:.A%(X);FB$(1).....
.XZ.2.1:.FB$(XZ):.XZ.;....:IFXY=10THENXY
=1:GOTO1020.O....:XY=XY+1:NEXTX.V....X._
....245......".PRESS RETURN TO GO BAC
K TO JOB MENU"......C$:.C$..G(13).146...
...54.R....:."CONTINUE? ..(Y)YES. ..(N)N
O"......B$:.B$."".149......B$."N".54....
..B$.G(13).153......B$.."Y".149.1....".R
ECORD NAME":.142.[...."...........RRRRR
RRRRRRRRRRRRRRRRR":.{...."......... DIS
PLAY NAMES"......"........DDDDDDDDDDDDDD
DDDDDDDD":.:FX.1.H...."......... 1=DISPL
AY ALL."......"......... 2=SELECT LETTER
(A-Z)."......"......... 3=SELECT NAME.".
7. .."......... 0=RETURN TO MAIN MENU.".
`...."......... 1 , 2 , 3 , 0 1...";N$
.O....N$."0".54.....N$."1".167......N$.
"2".168. ....N$.."3".161......175.....XX
.1:X1.Y.1:.137.Y...V.0:."LETTER (A-Z)";M
$......171:.V.1.168......193:.195.....MM
.F(M$):.MM.90.MM.65.."INVALID SELECTION"
:V.1:..C...XX.1:X1.25:X2.64.`....X.1.26:
X2.1.X2:.MM.X2...{...XX.XX.25:X1.X1.25:.
X:......."PLEASE ENTER LAST NAME,A SPACE
,AND THEN FIRST INITIAL".Q...."EXAMPLE:
ALFORD S".Y....A$.....M$.H(A$,1):U.C(A$)
......171:.193:FY.5:R.0.%....X.1.V.1:F.B
%(X):.210:T.0.I....T.U..".":.123:.185:.X
:T.0:.154.`...T.T.1:E$.J(A$,T,1)......E$
..J(FB$(1),T,1)..X:.188:T.0:.154......18
1......"PRESS RETURN TO CONTINUE".
N....C$:.C$..G(13).186.X...R.1:.......R.
1.."..PRESS RETURN TO GO BACK TO DISP
LAY MENU":.191.5....".NAME NOT FOUND":.:
.:.:..[...."PRESS RETURN TO CONTIN
UE".R....C$:.C$..G(13).191.X.......A.V.1
:.X.XX.X1:.Z.1.Y:.A%(Z).X.B%(V).X:V.V.1.
..B..Z:.X:..H.C..".RECORD NAME"...D..X.
1.V.1:F.B%(X):.210:.B%(X);FB$(1):.X.16.2
01...E..X:..1.F.."PRESS RETURN TO GO
BACK TO JOB MENU".H.G..C$:.C$..G(13).199
.P.H..54.W.I..:.".CONTINUE? NO(N) OR
YES(Y)"...J..B$:.B$."".202...K..B$."N".5
4...L..B$.G(13).206...M..B$.."Y".202.Q.N
..".RECORD NAME"...O..*****************
******.. P..* FDD BLOCK READ *.( Q.
.***********************.1 R..238.K S..1
5,"U1:";CH;FD;FT;FS.` T..15,"B-P:";CH;FP
.I U..227.V V..FI.1.FY.. W..CH,FB$(FI):.
. X.... Y.... Z..***********************
.M ...* FDD BLOCK WRITE *.. ...*****
******************.. ...238..!...15,"B-P
:";CH;FP.*!...FI.1.FY:.CH,FB$(FI);G(13);
:..D!...15,"U2:";CH;FD;FT;FS.M!...227.S!
....P!...***********************..!...*
ERROR CHECK *..!...*************
**********..!...15,EN,EM$,ET,ES.K!...EN.
0....!..."ERROR STATUS:",EN;EM$;ET;ES.."
..."CONTINUE?";Y$:.Y$."Y"...."....."...*
**********************.K"...* SET TRACK
& SECTOR *.H"...***********************
.."...F.358.F1.0:F2.22:F3.1:.242.."...F.
357.F.471.F1.357:F2.20:F3.19:.242.Z"...F
.471.F.580.F1.471:F2.19:F3.25:.242.."...
F.580.F1.580:F2.18:F3.31..#..FT..(((F.F1
).1).(F2.1)).F3.8#..FS.F.F1.(FT.F3).F2.(
FT.F3.1).>#...._#...".DO YOU WISH A HARD
COPY.":.S#...P$:.P$."" .246..#...P$."N".
...#...P$."Y". 249..#...4,4:.4:Q2.0.G#.
..X.XX.X1:F.A%(X):Q2.Q2.1:.210:..#...4,G
(27)G(69)A%(X);FB$(1)..#...Q2..60..Q2:.X
..$...X.X1.1.255.&$...4:.4:.4:.4:.4:.4:Q
2.0:.X.2$...4: 4:..P$...".PRINT ADDRESS
(Y/N)..".C$...H$:.H$."".257.X$...H$."N".
."...":...$...H$."Y"..281..$...4,4:.4:.4
,G(27)G(69)..$...4," ".R) FB$(1);" ".U$.
..4," ".R) FB$(2);" "..$...4," ".R) FB$(
3);" "..%...4," ".R) FB$(4);" ". %...4,"
".R) FB$(5);" ".9%...4," ".R) FB$(6);"
".R%...4," ".R) FB$(7);" "._%...4,G(10).
K%...4: 4:...%... PRINT"...":PRINT".":RE
TURN..%..."DO YOU WISH TO CORRECT"..%...
Z$:.Z$."".272.M%...Z$."Y".275.S%.....%..
."..WHICH FIELD TO CHANGE ."..&...Z:.Z.1
.276..&...Z.8.276.3&..."..INPUT CORRECT
DATA ..".<&...Z1$.Z&..FB$(Z).Z1$:T.1:
.221:T.0:..{&..."..DO YOU WISH TO PRINT
":..&..."..LIST ":..&.
.."..RETURN LABEL .":..&..."..O
R MAIL LABEL? ":..&..."........(L
,R,M).."..'...Q$:.Q$."".286..'...Q$."L".
310.+' ..Q$."R".290.;'!..Q$."M".300.U'".
.4,4:.4:.4,G(27)G(69).N'#..4," ".10) FB$
(1);""..'$..4," ".10) FB$(2);"". '%..4,"
".10) FB$(3);""..'&..4," ".10) FB$(4);"
"..''.. PRINT#4," "TAB(10)FB$(5);""..'(.
. PRINT#4," "TAB(10)FB$(6);""..().. PRIN
T#4," "TAB(10)FB$(7);"".,(*..4,G(10).5(+
..269.P(,..4,4:.4: .4,G(27)G(69).E(-..4,
" ".50)FB$(1).Z(...4," ".50)FB$(2)..(/..
4," ".50)FB$(3)..(0..4," ".50)FB$(4).C(1
.. PRINT#4," "TAB(50)FB$(5)..(2.. PRINT#
4," "TAB(50)FB$(6)..)3.. PRINT#4," "TAB(
50)FB$(7)..)4..4,G(10)..)5..269.0)6..".I
NPUT MARGIN SET".<)7..R:.260.~)8.."DO YO
U WANT TO PRINT ALL FIELDS? .Y.-
YES OR .N.-NO"..)9..M$:.M$."Y".X3.7:Q.0:
A1.0:.316..):..M$.."N".312.D);.X3.4:A1.0
:Q.0.T)<..X3.7.Q1.14..)=..X3.4.Q1.22..)>
..X.1.664:.A%(X)..0.320..*?..54..*@..Q.Q
1.334.<*A.Q.Q.1:F.A%(X):.210:.A1.1.A1.0:
.325.O*B..R.1.X3:BB$(R).FB$(R):A3%(R).C(
FB$(R)):.R:A1.1..*C..BB$(1);BB$(2);BB$(3
);BB$(4);BB$(5);BB$(6);BB$(7)..*D..X..*E
..R.1.X3..*F..4,4:A2.45.A3%(R):.4,BB$(R)
.A2)FB$(R)..+G. 4:.R:.4,4:.4:.:.:.4: 4:.
X..+H..238.$+I..15,"U1:";CH;FD;FT;FS.9+J
..15,"B-P:";CH;FP.H+K..227:FI.FX.X+L..CH
,FB$(FI).^+M...M+N..Q1.14.337..+O..:OPEN
4,4:CMD4:PRINT:PRINT#4:CLOSE4..+P.Q.0:.3
21..+Q..4,4:.4:.:.:.:.4: 4.G+R.Q.0:.321.
W+S.. GOSUB5400..+T..X.1.Y.1:F.A%(X):.20
7..+U. 2: 15..,V..15,9,15:.2,9,2,"#"..,W
..218.(,X. 15: 2.],Y..".................
.............WAIT! .....".U,Z..15,8,
15:.2,8,2,"#".|,[..X..,\. 2: 15:.15,9,15
..,]..5,9,5,"0:INDEX,S,W".F,^..I.1.664:.
5,I$(I);G(13);..,_..I: 5: 15: 2:.15,8,15
,"I0":.2,8,2,"#"..,`..54.--A..".DO YOU W
ISH TO NEW DISK?":."..Y.=YES .N.=NO.".5-
B..S$.C-C..S$."N"...S-D..S$."Y".357.P-E.
."INSERT NEW DISK IN #9"..-F.."PRESS 'C'
WHEN READY "..-G..Y$:.Y$."".359..-H..Y
$."C".361.U-I..".NEWING DISK #9. PLEASE
WAIT"..-J..1,9,15,"N0:DATA FILE,QQ"..-K.
1:....L.A$."."...M..L.1.1000...N..".".\
.O...2)A$;"..........................HIT
RETURN TO CONTINUE".P.P..R$:.R$.G(13)..
..Q..I.1.333:....R..A$.".".A$.".":.372.
..S..A$.".".A$.".":.372...T..L...
> CLICK IMAGE PREVIEW FOR FULL MODAL