BBS LISTER
FILE INFORMATION
FILENAME(S): BBS LISTER
FILE TYPE(S): PRG
FILE SIZE: 7.9K
FIRST SEEN: 2025-11-30 18:12:17
APPEARS ON: 1 disk(s)
FILE HASH
1ad64584340db780ec1e9b8d5fd94c70bbb995a4364d6efd13a9ba6c809e80f0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 50 S 2 | BBS LISTER | PRG | Sailor, Ganheden | 13 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 05 00 8D 36 30 31 30 30 3A 9C 00 2B |.......60100:..+| 00000010: 08 0A 00 97 20 35 33 32 38 30 2C 30 3A 97 20 35 |.... 53280,0:. 5| 00000020: 33 32 38 31 2C 30 3A 99 22 1E 22 00 3C 08 14 00 |3281,0:.".".<...| 00000030: 8F 20 42 42 53 20 4C 49 53 54 45 52 00 4F 08 1E |. BBS LISTER.O..| 00000040: 00 8F 20 42 59 20 54 45 44 20 4C 45 57 49 53 00 |.. BY TED LEWIS.| 00000050: 67 08 28 00 8F 20 2D 2D 2D 2D 4D 41 49 4E 20 4D |g.(.. ----MAIN M| 00000060: 45 4E 55 2D 2D 2D 2D 00 88 08 32 00 9C 3A 86 20 |ENU----...2..:. | 00000070: 46 49 4C 45 24 28 33 36 30 2C 31 29 3A 99 20 C7 |FILE$(360,1):. .| 00000080: 28 31 34 29 C7 28 38 29 00 A9 08 3C 00 54 31 24 |(14).(8)...<.T1$| 00000090: B2 22 11 11 11 9E C0 C0 C0 05 20 22 3A 54 32 24 |."........ ":T2$| 000000A0: B2 22 20 9E C0 C0 C0 1E 22 00 CB 08 46 00 99 22 |." ....."...F.."| 000000B0: 93 C2 C2 D3 20 CC 49 53 54 45 52 22 A6 32 31 29 |.... .ISTER".21)| 000000C0: 22 D4 45 44 20 CC 45 57 49 53 22 00 FD 08 50 00 |".ED .EWIS"...P.| 000000D0: 99 22 9E B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |."..............| 000000E0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000000F0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 1E 22 00 14 09 |............"...| 00000100: 5A 00 99 A3 31 35 29 22 05 CD 41 49 4E 20 CD 45 |Z...15)"..AIN .E| 00000110: 4E 55 1E 22 00 35 09 64 00 99 A3 36 29 22 11 31 |NU.".5.d...6)".1| 00000120: 20 2D 20 C3 52 45 41 54 45 20 41 20 4E 45 57 20 | - .REATE A NEW | 00000130: 46 49 4C 45 22 00 57 09 6E 00 99 A3 36 29 22 32 |FILE".W.n...6)"2| 00000140: 20 2D 20 D7 4F 52 4B 20 4F 4E 20 41 4E 20 4F 4C | - .ORK ON AN OL| 00000150: 44 20 46 49 4C 45 22 00 6A 09 78 00 99 A3 36 29 |D FILE".j.x...6)| 00000160: 22 33 20 2D 20 D1 55 49 54 22 00 80 09 82 00 99 |"3 - .UIT"......| 00000170: A3 31 30 29 22 11 C3 48 4F 49 43 45 3F 20 20 22 |.10)"..HOICE? "| 00000180: 00 8A 09 8C 00 A1 20 47 45 24 00 9E 09 96 00 8B |...... GE$......| 00000190: 20 47 45 24 B2 22 31 22 20 A7 31 30 38 30 00 B1 | GE$."1" .1080..| 000001A0: 09 A0 00 8B 20 47 45 24 B2 22 32 22 20 A7 32 31 |.... GE$."2" .21| 000001B0: 30 00 C6 09 AA 00 8B 20 47 45 24 B2 22 33 22 20 |0...... GE$."3" | 000001C0: A7 36 30 30 30 30 00 D0 09 B4 00 8D 31 39 36 30 |.60000......1960| 000001D0: 00 D9 09 BE 00 89 31 34 30 00 F5 09 C8 00 8F 20 |......140...... | 000001E0: 2D 2D 2D 2D 4F 4C 44 20 46 49 4C 45 20 4D 45 4E |----OLD FILE MEN| 000001F0: 55 2D 2D 2D 2D 00 19 0A D2 00 99 22 93 22 3A 99 |U----......".":.| 00000200: A3 31 30 29 54 31 24 22 CF 4C 44 20 C6 49 4C 45 |.10)T1$".LD .ILE| 00000210: 20 CD 45 4E 55 22 54 32 24 00 32 0A DC 00 99 A3 | .ENU"T2$.2.....| 00000220: 34 29 22 11 31 20 2D 20 C5 44 49 54 20 C6 49 4C |4)".1 - .DIT .IL| 00000230: 45 22 00 4B 0A E6 00 99 A3 34 29 22 32 20 2D 20 |E".K.....4)"2 - | 00000240: D0 52 49 4E 54 20 C6 49 4C 45 22 00 63 0A F0 00 |.RINT .ILE".c...| 00000250: 99 A3 34 29 22 33 20 2D 20 CD 41 49 4E 20 CD 45 |..4)"3 - .AIN .E| 00000260: 4E 55 22 00 76 0A FA 00 99 A3 38 29 22 11 C3 48 |NU".v.....8)"..H| 00000270: 4F 49 43 45 3F 22 00 80 0A 04 01 A1 20 47 45 24 |OICE?"...... GE$| 00000280: 00 93 0A 0E 01 8B 20 47 45 24 B2 22 31 22 20 A7 |...... GE$."1" .| 00000290: 33 33 30 00 A7 0A 18 01 8B 20 47 45 24 B2 22 32 |330...... GE$."2| 000002A0: 22 20 A7 31 35 38 30 00 B9 0A 22 01 8B 20 47 45 |" .1580...".. GE| 000002B0: 24 B2 22 33 22 20 A7 35 30 00 C3 0A 2C 01 8D 31 |$."3" .50...,..1| 000002C0: 39 36 30 00 CC 0A 36 01 89 32 36 30 00 E8 0A 40 |960...6..260...@| 000002D0: 01 8F 20 2D 2D 2D 2D 45 44 49 54 20 4F 4C 44 20 |.. ----EDIT OLD | 000002E0: 46 49 4C 45 2D 2D 2D 2D 00 08 0B 4A 01 99 22 93 |FILE----...J..".| 000002F0: 22 3A 99 A3 31 32 29 54 31 24 22 C5 44 49 54 20 |":..12)T1$".DIT | 00000300: C6 49 4C 45 22 54 32 24 00 3A 0B 54 01 99 A3 34 |.ILE"T2$.:.T...4| 00000310: 29 22 11 C5 4E 54 45 52 20 46 49 4C 45 20 4E 41 |)"..NTER FILE NA| 00000320: 4D 45 3A 22 3A 53 4F B2 31 36 3A 8D 32 32 39 30 |ME:":SO.16:.2290| 00000330: 3A 4E 41 4D 45 24 B2 57 44 24 00 58 0B 5E 01 9F |:NAME$.WD$.X.^..| 00000340: 20 31 2C 38 2C 34 2C 22 30 3A 22 AA 4E 41 4D 45 | 1,8,4,"0:".NAME| 00000350: 24 AA 22 2C 53 2C 52 22 00 6C 0B 68 01 44 43 54 |$.",S,R".l.h.DCT| 00000360: B2 31 3A 58 B2 31 3A 8D 32 30 32 30 00 87 0B 72 |.1:X.1:.2020...r| 00000370: 01 8B 20 45 52 52 B2 31 20 A7 A0 31 3A 45 52 52 |.. ERR.1 ..1:ERR| 00000380: B2 30 3A 89 33 33 30 00 9E 0B 7C 01 99 A3 34 29 |.0:.330...|...4)| 00000390: 22 11 11 D7 4F 52 4B 49 4E 47 2E 2E 2E 22 00 A9 |"...ORKING..."..| 000003A0: 0B 86 01 84 31 2C 49 4E 24 00 BC 0B 90 01 46 49 |....1,IN$.....FI| 000003B0: 4C 45 24 28 58 2C 30 29 B2 49 4E 24 00 E0 0B 9A |LE$(X,0).IN$....| 000003C0: 01 8B 20 53 54 20 AF 20 36 34 20 A7 A0 31 3A A0 |.. ST . 64 ..1:.| 000003D0: 31 35 3A 4C B2 31 3A 43 54 B2 31 3A 89 34 35 30 |15:L.1:CT.1:.450| 000003E0: 00 EA 0B A4 01 58 B2 58 AA 31 00 F3 0B AE 01 89 |.....X.X.1......| 000003F0: 33 39 30 00 16 0C B8 01 8F 20 2D 2D 2D 2D 53 43 |390...... ----SC| 00000400: 52 45 45 4E 20 50 52 49 4E 54 20 52 4F 55 54 49 |REEN PRINT ROUTI| 00000410: 4E 45 2D 2D 2D 2D 00 37 0C C2 01 99 22 93 22 3A |NE----.7....".":| 00000420: 99 A3 31 32 29 54 31 24 22 C5 44 49 54 20 C6 49 |..12)T1$".DIT .I| 00000430: 4C 45 20 22 54 32 24 00 5F 0C CC 01 99 A3 38 29 |LE "T2$._.....8)| 00000440: 22 11 CC 49 53 54 49 4E 47 20 05 22 4C 22 1E 4F |"..ISTING ."L".O| 00000450: 55 54 20 4F 46 20 05 22 58 AD 39 22 1E 11 22 00 |UT OF ."X.9"..".| 00000460: 8B 0C D6 01 8B 20 43 48 41 20 A7 99 22 93 22 3A |..... CHA ..".":| 00000470: 99 A3 31 31 29 54 31 24 22 C3 48 41 4E 47 45 20 |..11)T1$".HANGE | 00000480: C4 41 54 41 22 54 32 24 22 11 22 00 B2 0C E0 01 |.ATA"T2$".".....| 00000490: 8B 20 46 49 4C 45 24 28 43 54 2C 31 29 B2 22 44 |. FILE$(CT,1)."D| 000004A0: 22 20 A7 99 20 22 9E 12 C4 C5 CC C5 D4 C5 C4 92 |" .. "..........| 000004B0: 1E 22 00 D0 0C EA 01 99 A3 34 29 51 31 22 20 2D |.".......4)Q1" -| 000004C0: 20 22 46 49 4C 45 24 28 43 54 AA 51 31 2C 30 29 | "FILE$(CT.Q1,0)| 000004D0: 00 F2 0C F4 01 8B 20 B5 28 28 43 54 AA 51 31 29 |...... .((CT.Q1)| 000004E0: AD 39 29 B2 28 43 54 AA 51 31 29 AD 39 20 A7 35 |.9).(CT.Q1).9 .5| 000004F0: 33 30 00 FE 0C FE 01 51 31 B2 51 31 AA 31 00 07 |30.....Q1.Q1.1..| 00000500: 0D 08 02 89 34 39 30 00 31 0D 12 02 99 A3 34 29 |....490.1.....4)| 00000510: 22 11 C3 48 41 4E 47 45 3F 20 28 05 23 1E 20 4F |"..HANGE? (.#. O| 00000520: 46 20 45 4E 54 52 59 2F 05 12 41 92 1E 4C 4C 22 |F ENTRY/..A..LL"| 00000530: 3B 00 4B 0D 1C 02 8B 43 48 41 A7 99 22 2F 05 12 |;.K....CHA.."/..| 00000540: 4E 92 1E 4F 29 22 3A 89 35 38 30 00 75 0D 26 02 |N..O)":.580.u.&.| 00000550: 99 22 29 22 3A 99 A3 31 32 29 22 28 05 12 44 92 |.")":..12)"(..D.| 00000560: 1E 45 4C 45 54 45 2F 05 12 55 92 1E 4E 44 45 4C |.ELETE/..U..NDEL| 00000570: 45 54 45 29 22 00 9B 0D 30 02 99 A3 31 32 29 22 |ETE)"...0...12)"| 00000580: 28 05 12 2B 92 1E 20 4E 45 58 54 2F 05 12 2D 92 |(..+.. NEXT/..-.| 00000590: 1E 20 50 52 45 56 49 4F 55 53 29 00 BE 0D 3A 02 |. PREVIOUS)...:.| 000005A0: 99 A3 31 32 29 22 11 C8 49 54 20 05 12 5C 92 1E |..12)"..IT ..\..| 000005B0: 20 49 46 20 46 49 4E 49 53 48 45 44 2E 22 00 C8 | IF FINISHED."..| 000005C0: 0D 44 02 A1 20 47 45 24 00 EE 0D 4E 02 8B 20 47 |.D.. GE$...N.. G| 000005D0: 45 24 B2 22 4E 22 20 AF 20 43 48 41 20 A7 51 31 |E$."N" . CHA .Q1| 000005E0: B2 30 3A 43 48 41 B2 30 3A 89 31 34 32 30 00 0C |.0:CHA.0:.1420..| 000005F0: 0E 58 02 8B 20 47 45 24 B2 22 2B 22 AF 43 48 41 |.X.. GE$."+".CHA| 00000600: B2 30 A7 51 31 B2 30 3A 89 37 30 30 00 2C 0E 62 |.0.Q1.0:.700.,.b| 00000610: 02 8B 20 47 45 24 B2 22 2D 22 AF 20 43 48 41 B2 |.. GE$."-". CHA.| 00000620: 30 20 A7 51 31 B2 30 3A 89 37 32 30 00 52 0E 6C |0 .Q1.0:.720.R.l| 00000630: 02 8B 20 47 45 24 B2 22 44 22 AF 20 43 48 41 B2 |.. GE$."D". CHA.| 00000640: 30 20 A7 45 44 54 B2 31 3A 51 31 B2 30 3A 89 38 |0 .EDT.1:Q1.0:.8| 00000650: 37 30 00 73 0E 76 02 8B 20 47 45 24 B2 22 55 22 |70.s.v.. GE$."U"| 00000660: 20 AF 20 43 48 41 B2 30 20 A7 51 31 B2 30 3A 89 | . CHA.0 .Q1.0:.| 00000670: 38 39 30 00 89 0E 80 02 8B 20 47 45 24 B2 22 8C |890...... GE$.".| 00000680: 22 20 A7 A0 31 3A 89 35 30 00 AA 0E 8A 02 8B 20 |" ..1:.50...... | 00000690: 47 45 24 B2 22 5C 22 20 AF 20 43 48 41 B2 30 20 |GE$."\" . CHA.0 | 000006A0: A7 51 31 B2 30 3A 89 37 38 30 00 D0 0E 94 02 8B |.Q1.0:.780......| 000006B0: 20 47 45 24 B2 22 41 22 20 A7 41 4C 4C B2 31 3A | GE$."A" .ALL.1:| 000006C0: 45 44 54 B2 31 3A 43 41 B2 31 3A 89 31 31 35 30 |EDT.1:CA.1:.1150| 000006D0: 00 E1 0E 9E 02 8B 20 47 45 24 B2 22 22 A7 35 38 |...... GE$."".58| 000006E0: 30 00 02 0F A8 02 8B 20 C6 28 47 45 24 29 B1 34 |0...... .(GE$).4| 000006F0: 37 20 AF 20 C6 28 47 45 24 29 B3 35 37 20 A7 37 |7 . .(GE$).57 .7| 00000700: 34 30 00 0B 0F B2 02 89 35 38 30 00 2C 0F BC 02 |40......580.,...| 00000710: 4C B2 4C AA 31 3A 8B 20 4C B1 58 AD 39 20 A7 4C |L.L.1:. L.X.9 .L| 00000720: B2 31 3A 43 54 B2 31 3A 89 34 35 30 00 3D 0F C6 |.1:CT.1:.450.=..| 00000730: 02 43 54 B2 43 54 AA 39 3A 89 34 35 30 00 60 0F |.CT.CT.9:.450.`.| 00000740: D0 02 4C B2 4C AB 31 3A 8B 20 4C B3 31 20 A7 4C |..L.L.1:. L.1 .L| 00000750: B2 58 AD 39 3A 43 54 B2 58 AB 38 3A 89 34 35 30 |.X.9:CT.X.8:.450| 00000760: 00 71 0F DA 02 43 54 B2 43 54 AB 39 3A 89 34 35 |.q...CT.CT.9:.45| 00000770: 30 00 BA 0F E4 02 45 44 54 B2 31 3A 43 41 B2 31 |0.....EDT.1:CA.1| 00000780: 3A 91 20 28 C5 28 47 45 24 29 AA 31 29 89 31 31 |:. (.(GE$).1).11| 00000790: 35 30 2C 31 32 33 30 2C 31 32 35 30 2C 31 32 37 |50,1230,1250,127| 000007A0: 30 2C 31 32 38 30 2C 31 32 39 30 2C 31 33 31 30 |0,1280,1290,1310| 000007B0: 2C 31 33 32 30 2C 31 33 33 30 00 D9 0F EE 02 43 |,1320,1330.....C| 000007C0: 41 B2 30 3A 51 31 B2 30 3A 8B 20 43 48 41 20 A7 |A.0:Q1.0:. CHA .| 000007D0: 99 22 93 22 3A 89 34 37 30 00 E2 0F F8 02 89 34 |.".":.470......4| 000007E0: 35 30 00 00 10 02 03 8F 20 2D 2D 2D 2D 41 50 50 |50...... ----APP| 000007F0: 45 4E 44 20 53 45 51 20 46 49 4C 45 2D 2D 2D 2D |END SEQ FILE----| 00000800: 00 22 10 0C 03 99 22 93 22 3A 99 A3 31 31 29 54 |."....".":..11)T| 00000810: 31 24 22 C1 50 50 45 4E 44 20 C6 49 4C 45 22 54 |1$".PPEND .ILE"T| 00000820: 32 24 00 5F 10 16 03 99 A3 34 29 22 11 C4 4F 20 |2$._.....4)"..O | 00000830: 59 4F 55 20 57 41 4E 54 20 54 4F 20 41 44 44 20 |YOU WANT TO ADD | 00000840: 41 4E 59 20 4D 4F 52 45 20 54 4F 20 54 48 49 53 |ANY MORE TO THIS| 00000850: 20 46 49 4C 45 3F 20 05 28 59 2F 4E 29 1E 22 00 | FILE? .(Y/N).".| 00000860: 69 10 20 03 A1 20 47 45 24 00 7C 10 2A 03 8B 20 |i. .. GE$.|.*.. | 00000870: 47 45 24 B2 22 4E 22 20 A7 39 32 30 00 96 10 34 |GE$."N" .920...4| 00000880: 03 8B 20 47 45 24 B2 22 59 22 20 A7 45 44 54 B2 |.. GE$."Y" .EDT.| 00000890: 31 3A 89 38 35 30 00 A8 10 3E 03 8B 20 47 45 24 |1:.850...>.. GE$| 000008A0: B2 22 8C 22 20 A7 35 30 00 B1 10 48 03 89 38 30 |."." .50...H..80| 000008B0: 30 00 CE 10 52 03 41 50 50 B2 31 3A 58 B2 58 AA |0...R.APP.1:X.X.| 000008C0: 39 3A 43 54 B2 58 AB 38 3A 89 31 31 33 30 00 E3 |9:CT.X.8:.1130..| 000008D0: 10 5C 03 8F 20 2D 2D 2D 2D 44 45 4C 45 54 45 2D |.\.. ----DELETE-| 000008E0: 2D 2D 2D 00 03 11 66 03 8B 20 43 54 B2 30 20 A7 |---...f.. CT.0 .| 000008F0: 46 49 4C 45 24 28 31 2C 31 29 B2 22 44 22 3A 89 |FILE$(1,1)."D":.| 00000900: 37 30 30 00 1C 11 70 03 46 49 4C 45 24 28 43 54 |700...p.FILE$(CT| 00000910: 2C 31 29 B2 22 44 22 3A 89 37 30 30 00 3B 11 7A |,1)."D":.700.;.z| 00000920: 03 8B 20 43 54 B2 30 20 A7 46 49 4C 45 24 28 31 |.. CT.0 .FILE$(1| 00000930: 2C 31 29 B2 22 22 3A 89 37 30 30 00 53 11 84 03 |,1)."":.700.S...| 00000940: 46 49 4C 45 24 28 43 54 2C 31 29 B2 22 22 3A 89 |FILE$(CT,1)."":.| 00000950: 37 30 30 00 79 11 8E 03 8F 20 2D 2D 2D 2D 57 52 |700.y.... ----WR| 00000960: 49 54 45 20 41 52 52 41 59 20 54 4F 20 53 45 51 |ITE ARRAY TO SEQ| 00000970: 20 46 49 4C 45 2D 2D 2D 2D 00 8B 11 98 03 8B 20 | FILE----...... | 00000980: 45 44 54 B2 30 20 A7 31 30 34 30 00 B2 11 A2 03 |EDT.0 .1040.....| 00000990: 99 22 93 22 3A 99 A3 37 29 54 31 24 22 D2 45 57 |.".":..7)T1$".EW| 000009A0: 52 49 54 45 20 C4 41 54 41 20 C6 49 4C 45 22 54 |RITE .ATA .ILE"T| 000009B0: 32 24 00 F6 11 AC 03 99 A3 34 29 22 11 C9 4E 53 |2$.......4)"..NS| 000009C0: 45 52 54 20 43 4F 52 52 45 43 54 20 44 49 53 4B |ERT CORRECT DISK| 000009D0: 20 41 4E 44 20 50 52 45 53 53 20 41 4E 59 20 20 | AND PRESS ANY | 000009E0: 20 20 20 20 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | KEY TO CONT| 000009F0: 49 4E 55 45 2E 22 00 0D 12 B6 03 A1 20 47 45 24 |INUE."...... GE$| 00000A00: 3A 8B 20 47 45 24 B2 22 8C 22 A7 35 30 00 1E 12 |:. GE$.".".50...| 00000A10: C0 03 8B 20 47 45 24 B2 22 22 A7 39 35 30 00 3C |... GE$."".950.<| 00000A20: 12 CA 03 9F 20 31 35 2C 38 2C 31 35 2C 22 53 20 |.... 15,8,15,"S | 00000A30: 30 3A 22 AA 4E 41 4D 45 24 AA 22 22 00 5E 12 D4 |0:".NAME$."".^..| 00000A40: 03 A0 31 35 3A 9F 20 31 2C 38 2C 34 2C 22 30 3A |..15:. 1,8,4,"0:| 00000A50: 22 AA 4E 41 4D 45 24 AA 22 2C 53 2C 57 22 00 7F |".NAME$.",S,W"..| 00000A60: 12 DE 03 8D 32 30 32 30 3A 8B 20 45 52 52 B2 31 |....2020:. ERR.1| 00000A70: 20 A7 A0 31 3A 45 52 52 B2 30 3A 89 39 32 30 00 | ..1:ERR.0:.920.| 00000A80: 8E 12 E8 03 81 20 46 52 B2 31 20 A4 20 58 00 B3 |..... FR.1 . X..| 00000A90: 12 F2 03 8B 20 46 49 4C 45 24 28 46 52 2C 31 29 |.... FILE$(FR,1)| 00000AA0: B2 22 44 22 20 A7 46 52 B2 46 52 AA 38 3A 89 31 |."D" .FR.FR.8:.1| 00000AB0: 30 33 30 00 C6 12 FC 03 98 31 2C 46 49 4C 45 24 |030......1,FILE$| 00000AC0: 28 46 52 2C 30 29 00 CF 12 06 04 82 20 46 52 00 |(FR,0)...... FR.| 00000AD0: 06 13 10 04 A0 31 3A A0 31 35 3A 99 A3 34 29 22 |.....1:.15:..4)"| 00000AE0: 11 05 C4 4F 4E 45 2E 1E 20 D0 52 45 53 53 20 41 |...ONE.. .RESS A| 00000AF0: 4E 59 20 4B 45 59 20 46 4F 52 20 CD 41 49 4E 20 |NY KEY FOR .AIN | 00000B00: CD 45 4E 55 2E 22 00 1E 13 1A 04 A1 20 47 45 24 |.ENU."...... GE$| 00000B10: 3A 8B 20 47 45 24 B2 22 22 A7 31 30 35 30 00 26 |:. GE$."".1050.&| 00000B20: 13 24 04 89 35 30 00 49 13 2E 04 8F 20 2D 2D 2D |.$..50.I.... ---| 00000B30: 2D 43 52 45 41 54 45 20 4E 45 57 20 49 4E 46 4F |-CREATE NEW INFO| 00000B40: 20 46 49 4C 45 2D 2D 2D 2D 00 73 13 38 04 43 54 | FILE----.s.8.CT| 00000B50: B2 31 3A 99 22 93 22 3A 99 A3 39 29 54 31 24 22 |.1:.".":..9)T1$"| 00000B60: C3 52 45 41 54 45 20 CE 45 57 20 C6 49 4C 45 22 |.REATE .EW .ILE"| 00000B70: 54 32 24 00 A9 13 42 04 99 A3 34 29 22 11 C5 4E |T2$...B...4)"..N| 00000B80: 54 45 52 20 4E 45 57 20 46 49 4C 45 20 4E 41 4D |TER NEW FILE NAM| 00000B90: 45 3A 22 3A 53 4F B2 31 36 3A 8D 32 32 39 30 3A |E:":SO.16:.2290:| 00000BA0: 4E 41 4D 45 24 B2 57 44 24 00 C7 13 4C 04 9F 20 |NAME$.WD$...L.. | 00000BB0: 31 2C 38 2C 34 2C 22 30 3A 22 AA 4E 41 4D 45 24 |1,8,4,"0:".NAME$| 00000BC0: AA 22 2C 53 2C 57 22 00 D1 13 56 04 8D 32 30 32 |.",S,W"...V..202| 00000BD0: 30 00 F2 13 60 04 43 54 B2 31 3A 8B 20 45 52 52 |0...`.CT.1:. ERR| 00000BE0: B2 31 20 A7 A0 31 3A 45 52 52 B2 30 3A 89 31 30 |.1 ..1:ERR.0:.10| 00000BF0: 38 30 00 13 14 6A 04 99 22 93 CE 55 4D 42 45 52 |80...j.."..UMBER| 00000C00: 20 4F 46 20 45 4E 54 52 49 45 53 3A 20 05 22 3B | OF ENTRIES: .";| 00000C10: 45 4E 54 00 32 14 74 04 99 A3 39 29 54 31 24 22 |ENT.2.t...9)T1$"| 00000C20: C5 4E 54 45 52 20 CE 45 57 20 C4 41 54 41 22 54 |.NTER .EW .ATA"T| 00000C30: 32 24 00 4D 14 7E 04 99 A3 34 29 22 11 C5 4E 54 |2$.M.~...4)"..NT| 00000C40: 45 52 20 C2 C2 D3 20 4E 41 4D 45 22 3B 00 6E 14 |ER ... NAME";.n.| 00000C50: 88 04 8B 20 43 41 B2 30 20 A7 99 22 20 28 4F 52 |... CA.0 .." (OR| 00000C60: 20 05 12 D2 C5 D4 D5 D2 CE 92 1E 29 3A 22 00 83 | ..........):"..| 00000C70: 14 92 04 8B 20 43 48 41 20 B0 20 43 41 20 A7 99 |.... CHA . CA ..| 00000C80: 22 3A 22 00 A3 14 9C 04 53 4F B2 32 38 3A 8D 32 |":".....SO.28:.2| 00000C90: 32 39 30 3A 46 49 4C 45 24 28 43 54 2C 30 29 B2 |290:FILE$(CT,0).| 00000CA0: 57 44 24 00 B9 14 A6 04 8B 20 41 4C 4C 20 A7 43 |WD$...... ALL .C| 00000CB0: 41 B2 30 3A 89 31 32 33 30 00 C7 14 B0 04 8B 20 |A.0:.1230...... | 00000CC0: 43 41 20 A7 37 35 30 00 FF 14 BA 04 8B 20 46 49 |CA .750...... FI| 00000CD0: 4C 45 24 28 43 54 2C 30 29 B2 22 20 22 20 AF 20 |LE$(CT,0)." " . | 00000CE0: 41 50 50 B2 31 20 A7 41 50 50 B2 30 3A 43 54 B2 |APP.1 .APP.0:CT.| 00000CF0: 43 54 AB 39 3A 58 B2 58 AB 39 3A 89 37 38 30 00 |CT.9:X.X.9:.780.| 00000D00: 22 15 C4 04 8B 20 46 49 4C 45 24 28 43 54 2C 30 |".... FILE$(CT,0| 00000D10: 29 B2 22 20 22 A7 A0 31 3A A0 31 35 3A 89 31 34 |)." "..1:.15:.14| 00000D20: 38 30 00 5D 15 CE 04 99 A3 34 29 22 11 C5 4E 54 |80.].....4)"..NT| 00000D30: 45 52 20 C2 C2 D3 20 CE 55 4D 42 45 52 3A 22 3A |ER ... .UMBER:":| 00000D40: 53 4F B2 33 30 3A 8D 32 32 39 30 3A 46 49 4C 45 |SO.30:.2290:FILE| 00000D50: 24 28 43 54 AA 31 2C 30 29 B2 57 44 24 00 6B 15 |$(CT.1,0).WD$.k.| 00000D60: D8 04 8B 20 43 41 20 A7 37 35 30 00 A5 15 E2 04 |... CA .750.....| 00000D70: 99 A3 34 29 22 11 C5 4E 54 45 52 20 D5 53 45 52 |..4)"..NTER .SER| 00000D80: 20 CE 41 4D 45 3A 22 3A 53 4F B2 32 37 3A 8D 32 | .AME:":SO.27:.2| 00000D90: 32 39 30 3A 46 49 4C 45 24 28 43 54 AA 32 2C 30 |290:FILE$(CT.2,0| 00000DA0: 29 B2 57 44 24 00 B3 15 EC 04 8B 20 43 41 20 A7 |).WD$...... CA .| 00000DB0: 37 35 30 00 F4 15 F6 04 99 A3 34 29 22 11 C5 4E |750.......4)"..N| 00000DC0: 54 45 52 20 D0 41 53 53 57 4F 52 44 3A 22 3A 53 |TER .ASSWORD:":S| 00000DD0: 4F B2 32 38 3A 8D 32 32 39 30 3A 46 49 4C 45 24 |O.28:.2290:FILE$| 00000DE0: 28 43 54 AA 33 2C 30 29 B2 57 44 24 3A 8B 43 41 |(CT.3,0).WD$:.CA| 00000DF0: A7 37 35 30 00 35 16 00 05 99 A3 34 29 22 11 C5 |.750.5.....4)"..| 00000E00: 4E 54 45 52 20 D5 53 45 52 20 C9 C4 3A 22 3A 53 |NTER .SER ..:":S| 00000E10: 4F B2 32 39 3A 8D 32 32 39 30 3A 46 49 4C 45 24 |O.29:.2290:FILE$| 00000E20: 28 43 54 AA 34 2C 30 29 B2 57 44 24 3A 8B 20 43 |(CT.4,0).WD$:. C| 00000E30: 41 A7 37 35 30 00 74 16 0A 05 99 A3 34 29 22 11 |A.750.t.....4)".| 00000E40: C5 4E 54 45 52 20 C2 C2 D3 20 D3 59 53 4F 50 20 |.NTER ... .YSOP | 00000E50: CE 41 4D 45 3A 22 3A 53 4F B2 32 36 3A 8D 32 32 |.AME:":SO.26:.22| 00000E60: 39 30 3A 46 49 4C 45 24 28 43 54 AA 35 2C 30 29 |90:FILE$(CT.5,0)| 00000E70: B2 57 44 24 00 82 16 14 05 8B 20 43 41 20 A7 37 |.WD$...... CA .7| 00000E80: 35 30 00 BC 16 1E 05 99 A3 34 29 22 11 C5 4E 54 |50.......4)"..NT| 00000E90: 45 52 20 C2 C2 D3 20 C8 4F 55 52 53 3A 22 3A 53 |ER ... .OURS:":S| 00000EA0: 4F B2 33 31 3A 8D 32 32 39 30 3A 46 49 4C 45 24 |O.31:.2290:FILE$| 00000EB0: 28 43 54 AA 36 2C 30 29 B2 57 44 24 00 CA 16 23 |(CT.6,0).WD$...#| 00000EC0: 05 8B 20 43 41 20 A7 37 35 30 00 0B 17 28 05 99 |.. CA .750...(..| 00000ED0: A3 34 29 22 11 C5 4E 54 45 52 20 C2 C2 D3 20 C2 |.4)"..NTER ... .| 00000EE0: 41 55 44 3A 22 3A 53 4F B2 33 31 3A 8D 32 32 39 |AUD:":SO.31:.229| 00000EF0: 30 3A 46 49 4C 45 24 28 43 54 AA 37 2C 30 29 B2 |0:FILE$(CT.7,0).| 00000F00: 57 44 24 3A 8B 43 41 A7 37 35 30 00 48 17 32 05 |WD$:.CA.750.H.2.| 00000F10: 99 A3 34 29 22 11 C5 4E 54 45 52 20 C2 C2 D3 20 |..4)"..NTER ... | 00000F20: C4 49 53 54 41 4E 43 45 3A 22 3A 53 4F B2 32 39 |.ISTANCE:":SO.29| 00000F30: 3A 8D 32 32 39 30 3A 46 49 4C 45 24 28 43 54 AA |:.2290:FILE$(CT.| 00000F40: 38 2C 30 29 B2 57 44 24 00 56 17 3C 05 8B 20 43 |8,0).WD$.V.<.. C| 00000F50: 41 20 A7 37 35 30 00 6C 17 46 05 8B 20 41 4C 4C |A .750.l.F.. ALL| 00000F60: 20 A7 41 4C 4C B2 30 3A 89 37 35 30 00 8F 17 50 | .ALL.0:.750...P| 00000F70: 05 99 20 22 11 C9 53 20 45 56 45 52 59 54 48 49 |.. "..S EVERYTHI| 00000F80: 4E 47 20 CF CB 3F 20 05 5B D9 2F CE 5D 1E 22 00 |NG ..? .[./.].".| 00000F90: 99 17 5A 05 A1 20 47 45 24 00 AC 17 64 05 8B 20 |..Z.. GE$...d.. | 00000FA0: 47 45 24 B2 22 59 22 A7 31 34 32 30 00 C5 17 6E |GE$."Y".1420...n| 00000FB0: 05 8B 20 47 45 24 B2 22 4E 22 A7 43 48 41 B2 31 |.. GE$."N".CHA.1| 00000FC0: 3A 89 34 37 30 00 DA 17 78 05 8B 20 47 45 24 B2 |:.470...x.. GE$.| 00000FD0: 22 8C 22 A7 A0 31 3A 89 35 30 00 E4 17 82 05 89 |"."..1:.50......| 00000FE0: 31 33 37 30 00 0C 18 8C 05 8B 20 41 50 50 B2 31 |1370...... APP.1| 00000FF0: 20 A7 41 50 50 B2 30 3A 45 4E 54 B2 45 4E 54 AA | .APP.0:ENT.ENT.| 00001000: 31 3A 43 48 41 B2 30 3A 89 37 38 30 00 47 18 96 |1:CHA.0:.780.G..| 00001010: 05 98 31 2C 46 49 4C 45 24 28 43 54 2C 30 29 AA |..1,FILE$(CT,0).| 00001020: C7 28 31 33 29 AA 46 49 4C 45 24 28 43 54 AA 31 |.(13).FILE$(CT.1| 00001030: 2C 30 29 AA C7 28 31 33 29 AA 46 49 4C 45 24 28 |,0)..(13).FILE$(| 00001040: 43 54 AA 32 2C 30 29 00 84 18 A0 05 98 31 2C 46 |CT.2,0)......1,F| 00001050: 49 4C 45 24 28 43 54 AA 33 2C 30 29 AA C7 28 31 |ILE$(CT.3,0)..(1| 00001060: 33 29 AA 46 49 4C 45 24 28 43 54 AA 34 2C 30 29 |3).FILE$(CT.4,0)| 00001070: AA C7 28 31 33 29 AA 46 49 4C 45 24 28 43 54 AA |..(13).FILE$(CT.| 00001080: 35 2C 30 29 00 C1 18 AA 05 98 31 2C 46 49 4C 45 |5,0)......1,FILE| 00001090: 24 28 43 54 AA 36 2C 30 29 AA C7 28 31 33 29 AA |$(CT.6,0)..(13).| 000010A0: 46 49 4C 45 24 28 43 54 AA 37 2C 30 29 AA C7 28 |FILE$(CT.7,0)..(| 000010B0: 31 33 29 AA 46 49 4C 45 24 28 43 54 AA 38 2C 30 |13).FILE$(CT.8,0| 000010C0: 29 00 D5 18 B4 05 45 4E 54 B2 45 4E 54 AA 31 3A |).....ENT.ENT.1:| 000010D0: 89 31 31 33 30 00 F2 18 BE 05 8F 2D 2D 2D 2D 50 |.1130......----P| 000010E0: 52 49 4E 54 20 46 49 4C 45 20 4D 45 4E 55 2D 2D |RINT FILE MENU--| 000010F0: 2D 2D 00 17 19 C8 05 99 22 93 22 3A 99 A3 39 29 |--......".":..9)| 00001100: 54 31 24 22 D0 52 49 4E 54 20 C6 49 4C 45 20 CD |T1$".RINT .ILE .| 00001110: 45 4E 55 22 54 32 24 00 31 19 D2 05 99 A3 34 29 |ENU"T2$.1.....4)| 00001120: 22 11 31 20 2D 20 D0 52 49 4E 54 20 C6 49 4C 45 |".1 - .RINT .ILE| 00001130: 22 00 49 19 DC 05 99 A3 34 29 22 32 20 2D 20 CD |".I.....4)"2 - .| 00001140: 41 49 4E 20 CD 45 4E 55 22 00 5C 19 E6 05 99 A3 |AIN .ENU".\.....| 00001150: 38 29 22 11 C3 48 4F 49 43 45 3F 22 00 66 19 F0 |8)"..HOICE?".f..| 00001160: 05 A1 20 47 45 24 00 81 19 FA 05 8B 20 47 45 24 |.. GE$...... GE$| 00001170: B2 22 31 22 20 A7 50 52 54 B2 31 3A 89 31 35 38 |."1" .PRT.1:.158| 00001180: 30 00 93 19 04 06 8B 20 47 45 24 B2 22 32 22 20 |0...... GE$."2" | 00001190: A7 35 30 00 9D 19 0E 06 8D 31 39 36 30 00 A7 19 |.50......1960...| 000011A0: 18 06 89 31 35 32 30 00 BF 19 22 06 8F 2D 2D 2D |...1520..."..---| 000011B0: 2D 50 52 49 4E 54 20 46 49 4C 45 2D 2D 2D 2D 00 |-PRINT FILE----.| 000011C0: E0 19 2C 06 99 22 93 22 3A 99 A3 31 31 29 54 31 |..,..".":..11)T1| 000011D0: 24 22 D0 52 49 4E 54 20 C6 49 4C 45 22 54 32 24 |$".RINT .ILE"T2$| 000011E0: 00 FB 19 36 06 8B 20 50 52 54 20 A7 4E 31 24 B2 |...6.. PRT .N1$.| 000011F0: 4E 41 4D 45 24 3A 89 31 36 31 30 00 2B 1A 40 06 |NAME$:.1610.+.@.| 00001200: 99 A3 34 29 22 11 C5 4E 54 45 52 20 46 49 4C 45 |..4)"..NTER FILE| 00001210: 20 4E 41 4D 45 3A 22 3A 53 4F B2 31 36 3A 8D 32 | NAME:":SO.16:.2| 00001220: 32 39 30 3A 4E 31 24 B2 57 44 24 00 47 1A 4A 06 |290:N1$.WD$.G.J.| 00001230: 9F 20 31 2C 38 2C 34 2C 22 30 3A 22 AA 4E 31 24 |. 1,8,4,"0:".N1$| 00001240: AA 22 2C 53 2C 52 22 00 51 1A 54 06 8D 32 30 32 |.",S,R".Q.T..202| 00001250: 30 00 6B 1A 5E 06 8B 20 45 52 52 20 A7 45 52 52 |0.k.^.. ERR .ERR| 00001260: B2 30 3A A0 31 3A 89 31 35 38 30 00 9A 1A 68 06 |.0:.1:.1580...h.| 00001270: 99 A3 34 29 22 11 C5 4E 54 45 52 20 48 45 41 44 |..4)"..NTER HEAD| 00001280: 45 52 3A 22 3A 53 4F B2 33 30 3A 8D 32 32 39 30 |ER:":SO.30:.2290| 00001290: 3A 48 45 41 44 24 B2 57 44 24 00 E2 1A 72 06 99 |:HEAD$.WD$...r..| 000012A0: A3 34 29 22 11 C1 52 45 20 59 4F 55 20 55 53 49 |.4)"..RE YOU USI| 000012B0: 4E 47 20 46 41 4E 46 4F 4C 44 20 4F 52 20 53 49 |NG FANFOLD OR SI| 000012C0: 4E 47 4C 45 20 20 20 20 20 20 20 20 20 53 48 45 |NGLE SHE| 000012D0: 45 54 20 50 41 50 45 52 3F 20 05 28 46 2F 53 29 |ET PAPER? .(F/S)| 000012E0: 1E 22 00 FD 1A 7C 06 A1 20 47 45 24 3A 8B 20 47 |."...|.. GE$:. G| 000012F0: 45 24 B2 22 8C 22 A7 A0 31 3A 89 35 30 00 17 1B |E$."."..1:.50...| 00001300: 86 06 8B 20 47 45 24 B2 22 46 22 A7 46 41 4E B2 |... GE$."F".FAN.| 00001310: 30 3A 89 31 37 30 30 00 31 1B 90 06 8B 20 47 45 |0:.1700.1.... GE| 00001320: 24 B2 22 53 22 A7 46 41 4E B2 31 3A 89 31 37 30 |$."S".FAN.1:.170| 00001330: 30 00 3B 1B 9A 06 89 31 36 36 30 00 6E 1B A4 06 |0.;....1660.n...| 00001340: 99 A3 34 29 22 11 CC 49 4E 45 20 55 50 20 50 41 |..4)"..INE UP PA| 00001350: 50 45 52 20 41 4E 44 20 50 52 45 53 53 20 41 4E |PER AND PRESS AN| 00001360: 59 20 4B 45 59 2E 22 3A 50 41 47 45 B2 31 00 86 |Y KEY.":PAGE.1..| 00001370: 1B AE 06 A1 20 47 45 24 3A 8B 20 47 45 24 B2 22 |.... GE$:. GE$."| 00001380: 22 A7 31 37 31 30 00 92 1B CC 06 9F 20 34 2C 34 |".1710...... 4,4| 00001390: 2C 37 00 AF 1B D6 06 98 34 2C 22 20 C2 C2 D3 20 |,7......4," ... | 000013A0: CC 49 53 54 45 52 20 3A 20 22 48 45 41 44 24 00 |.ISTER : "HEAD$.| 000013B0: C5 1B E0 06 98 34 2C 22 20 D0 41 47 45 3A 20 22 |.....4," .AGE: "| 000013C0: 3B 50 41 47 45 00 CF 1B F4 06 8D 32 31 38 30 00 |;PAGE......2180.| 000013D0: DB 1B 12 07 43 4F 55 4E 54 B2 31 00 FD 1B 1C 07 |....COUNT.1.....| 000013E0: 84 31 2C 41 24 2C 42 24 2C 43 24 2C 44 24 2C 45 |.1,A$,B$,C$,D$,E| 000013F0: 24 2C 46 24 2C 47 24 2C 48 24 2C 49 24 00 11 1C |$,F$,G$,H$,I$...| 00001400: 26 07 8B 20 53 54 20 AF 20 36 34 20 A7 43 4C B2 |&.. ST . 64 .CL.| 00001410: 31 00 38 1C 30 07 98 34 2C 22 DD C2 C2 D3 20 CE |1.8.0..4,".... .| 00001420: 41 4D 45 3A 20 22 3B 41 24 3B A6 32 38 AB C3 28 |AME: ";A$;.28..(| 00001430: 41 24 29 29 3B 22 DD 22 00 5D 1C 3A 07 98 34 2C |A$));".".].:..4,| 00001440: 22 DD CE 55 4D 42 45 52 3A 20 22 3B 42 24 3B A6 |"..UMBER: ";B$;.| 00001450: 33 30 AB C3 28 42 24 29 29 3B 22 DD 22 00 85 1C |30..(B$));"."...| 00001460: 44 07 98 34 2C 22 DD D5 53 45 52 20 CE 41 4D 45 |D..4,"..SER .AME| 00001470: 3A 20 22 3B 43 24 3B A6 32 37 AB C3 28 43 24 29 |: ";C$;.27..(C$)| 00001480: 29 3B 22 DD 22 00 AC 1C 4E 07 98 34 2C 22 DD D0 |);"."...N..4,"..| 00001490: 41 53 53 57 4F 52 44 3A 20 22 3B 44 24 3B A6 32 |ASSWORD: ";D$;.2| 000014A0: 38 AB C3 28 44 24 29 29 3B 22 DD 22 00 D5 1C 5A |8..(D$));"."...Z| 000014B0: 07 98 34 2C 22 DD D3 59 53 4F 50 20 CE 41 4D 45 |..4,"..YSOP .AME| 000014C0: 3A 20 22 3B 46 24 3B A6 32 36 AB C3 28 46 24 29 |: ";F$;.26..(F$)| 000014D0: 29 3B 22 DD 22 00 F9 1C 5C 07 98 34 2C 22 DD C8 |);"."...\..4,"..| 000014E0: 4F 55 52 53 3A 20 22 3B 47 24 3B A6 33 31 AB C3 |OURS: ";G$;.31..| 000014F0: 28 47 24 29 29 3B 22 DD 22 00 1C 1D 5E 07 98 34 |(G$));"."...^..4| 00001500: 2C 22 DD C2 41 55 44 3A 20 22 3B 48 24 3B A6 33 |,"..AUD: ";H$;.3| 00001510: 32 AB C3 28 48 24 29 29 3B 22 DD 22 00 43 1D 60 |2..(H$));".".C.`| 00001520: 07 98 34 2C 22 DD C4 49 53 54 41 4E 43 45 3A 20 |..4,"..ISTANCE: | 00001530: 22 3B 49 24 3B A6 32 38 AB C3 28 49 24 29 29 3B |";I$;.28..(I$));| 00001540: 22 DD 22 00 62 1D 61 07 8B 20 43 4C B2 31 20 A7 |".".b.a.. CL.1 .| 00001550: 20 8D 20 32 32 30 30 3A A0 34 3A A0 31 3A 89 20 | . 2200:.4:.1:. | 00001560: 35 30 00 6C 1D 62 07 8D 32 32 30 30 00 85 1D 76 |50.l.b..2200...v| 00001570: 07 8B 20 43 4F 55 4E 54 B3 B1 35 20 A7 98 34 3A |.. COUNT..5 ..4:| 00001580: 8D 32 31 38 30 00 A8 1D 80 07 43 4F 55 4E 54 B2 |.2180.....COUNT.| 00001590: 43 4F 55 4E 54 AA 31 3A 8B 20 43 4F 55 4E 54 B2 |COUNT.1:. COUNT.| 000015A0: 36 20 A7 89 32 32 33 30 00 C6 1D 8A 07 A1 20 47 |6 ..2230...... G| 000015B0: 45 24 3A 8B 20 47 45 24 B2 22 8C 22 A7 A0 31 3A |E$:. GE$."."..1:| 000015C0: A0 34 3A 89 35 30 00 D0 1D 94 07 89 31 38 32 30 |.4:.50......1820| 000015D0: 00 F4 1D 9E 07 8F 20 2D 2D 2D 2D 47 45 54 20 43 |...... ----GET C| 000015E0: 55 52 53 45 52 20 53 55 42 52 4F 55 54 49 4E 45 |URSER SUBROUTINE| 000015F0: 2D 2D 2D 2D 00 08 1E A8 07 81 20 46 52 B2 31 A4 |----...... FR.1.| 00001600: 32 30 30 3A 82 20 46 52 00 1B 1E B2 07 99 A3 31 |200:. FR.......1| 00001610: 36 29 22 20 20 05 91 12 20 92 22 00 2F 1E BC 07 |6)" ... ."./...| 00001620: 81 20 46 52 B2 31 A4 32 30 30 3A 82 20 46 52 00 |. FR.1.200:. FR.| 00001630: 40 1E C6 07 99 A3 31 36 29 22 20 20 91 20 1E 22 |@.....16)" . ."| 00001640: 00 46 1E D0 07 8E 00 6A 1E DA 07 8F 20 2D 2D 2D |.F.....j.... ---| 00001650: 2D 44 49 53 4B 20 45 52 52 4F 52 20 53 55 42 52 |-DISK ERROR SUBR| 00001660: 4F 55 54 49 4E 45 2D 2D 2D 2D 00 78 1E E4 07 9F |OUTINE----.x....| 00001670: 20 31 35 2C 38 2C 31 35 00 8F 1E EE 07 84 31 35 | 15,8,15......15| 00001680: 2C 45 31 2C 45 31 24 2C 45 32 24 2C 45 33 24 00 |,E1,E1$,E2$,E3$.| 00001690: A2 1E F8 07 8B 20 45 31 B2 30 B0 45 31 B2 31 20 |..... E1.0.E1.1 | 000016A0: A7 8E 00 B8 1E 02 08 99 20 22 11 96 C5 D2 D2 CF |........ "......| 000016B0: D2 21 21 22 3A A0 31 35 00 D8 1E 0C 08 99 A3 34 |.!!":.15.......4| 000016C0: 29 45 31 22 20 20 22 45 31 24 22 20 20 22 45 32 |)E1" "E1$" "E2| 000016D0: 24 22 20 20 22 45 33 24 00 EA 1E 16 08 8B 20 45 |$" "E3$...... E| 000016E0: 31 B2 36 33 20 A7 32 31 32 30 00 05 1F 20 08 99 |1.63 .2120... ..| 000016F0: A3 34 29 22 1E 11 D0 52 45 53 53 20 41 4E 59 20 |.4)"...RESS ANY | 00001700: 4B 45 59 2E 22 00 20 1F 2A 08 A1 20 47 45 24 3A |KEY.". .*.. GE$:| 00001710: 8B 20 47 45 24 B2 22 8C 22 A7 A0 31 3A 89 35 30 |. GE$."."..1:.50| 00001720: 00 32 1F 34 08 8B 20 47 45 24 B2 22 22 A7 32 30 |.2.4.. GE$."".20| 00001730: 39 30 00 3E 1F 3E 08 45 52 52 B2 31 3A 8E 00 5B |90.>.>.ERR.1:..[| 00001740: 1F 48 08 99 A3 34 29 22 11 1E D2 45 50 4C 41 43 |.H...4)"...EPLAC| 00001750: 45 3F 20 05 28 59 2F 4E 29 1E 22 00 94 1F 52 08 |E? .(Y/N)."...R.| 00001760: A1 20 47 45 24 3A 8B 20 47 45 24 B2 22 59 22 A7 |. GE$:. GE$."Y".| 00001770: A0 31 3A 9F 20 31 2C 38 2C 34 2C 22 40 20 30 3A |.1:. 1,8,4,"@ 0:| 00001780: 22 AA 4E 41 4D 45 24 AA 22 2C 53 2C 57 22 3A 89 |".NAME$.",S,W":.| 00001790: 32 30 32 30 00 AB 1F 5C 08 8B 20 47 45 24 B2 22 |2020...\.. GE$."| 000017A0: 4E 22 20 A7 45 52 52 B2 31 3A 8E 00 C0 1F 66 08 |N" .ERR.1:....f.| 000017B0: 8B 20 47 45 24 B2 22 8C 22 A7 A0 31 3A 89 35 30 |. GE$."."..1:.50| 000017C0: 00 CA 1F 70 08 89 32 31 33 30 00 F2 1F 7A 08 8F |...p..2130...z..| 000017D0: 20 2D 2D 2D 2D 50 52 49 4E 54 20 44 49 56 49 44 | ----PRINT DIVID| 000017E0: 45 52 20 53 55 42 52 4F 55 54 49 4E 45 53 2D 2D |ER SUBROUTINES--| 000017F0: 2D 2D 00 26 20 84 08 98 34 2C 22 B0 2D 2D 2D 2D |--.& ...4,".----| 00001800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001820: 2D 2D AE 22 3A 8E 00 5A 20 98 08 98 34 2C 22 AD |--.":..Z ...4,".| 00001830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001850: 2D 2D 2D 2D 2D 2D BD 22 3A 8E 00 81 20 AC 08 8F |------.":... ...| 00001860: 20 2D 2D 2D 2D 50 41 50 45 52 20 41 44 56 41 4E | ----PAPER ADVAN| 00001870: 43 45 20 53 55 42 52 4F 55 54 49 4E 45 2D 2D 2D |CE SUBROUTINE---| 00001880: 2D 00 A0 20 B6 08 8B 46 41 4E B2 30 A7 81 46 52 |-.. ...FAN.0..FR| 00001890: B2 31 A4 31 30 3A 98 34 3A 82 3A 89 32 32 37 30 |.1.10:.4:.:.2270| 000018A0: 00 E6 20 C0 08 99 A3 34 29 22 11 D0 4C 45 41 53 |.. ....4)"..LEAS| 000018B0: 45 20 49 4E 53 45 52 54 20 41 20 4E 45 57 20 53 |E INSERT A NEW S| 000018C0: 48 45 45 54 20 4F 46 20 50 41 50 45 52 20 20 20 |HEET OF PAPER | 000018D0: 20 20 20 41 4E 44 20 50 52 45 53 53 20 41 4E 59 | AND PRESS ANY| 000018E0: 20 4B 45 59 2E 22 00 FD 20 CA 08 A1 20 47 45 24 | KEY.".. ... GE$| 000018F0: 3A 8B 20 47 45 24 B2 22 8C 22 A7 35 30 00 0F 21 |:. GE$.".".50..!| 00001900: D4 08 8B 20 47 45 24 B2 22 22 A7 32 32 35 30 00 |... GE$."".2250.| 00001910: 25 21 DE 08 50 41 47 45 B2 50 41 47 45 AA 31 3A |%!..PAGE.PAGE.1:| 00001920: 89 31 37 35 30 00 42 21 E8 08 8F 20 2D 2D 2D 2D |.1750.B!... ----| 00001930: 49 4E 50 55 54 20 53 45 51 55 45 4E 43 45 2D 2D |INPUT SEQUENCE--| 00001940: 2D 2D 00 70 21 F2 08 99 A3 38 29 22 9E 11 11 22 |--.p!....8)"..."| 00001950: 3B 3A 81 20 46 52 B2 31 A4 20 53 4F 3A 99 22 B7 |;:. FR.1. SO:.".| 00001960: 22 3B 3A 82 3A 99 3A 99 A3 38 29 22 91 91 22 3B |";:.:.:..8)"..";| 00001970: 00 7F 21 FC 08 99 20 22 05 12 20 92 9D 22 3B 00 |..!... ".. ..";.| 00001980: 89 21 06 09 A1 20 47 45 24 00 B5 21 10 09 8B 20 |.!... GE$..!... | 00001990: 47 45 24 B2 C7 28 31 33 29 20 A7 99 22 20 1E 22 |GE$..(13) .." ."| 000019A0: 3A 57 44 24 B2 57 31 24 3A 57 31 24 B2 22 22 3A |:WD$.W1$:W1$."":| 000019B0: 89 32 34 34 30 00 D0 21 1A 09 8B 20 47 45 24 B2 |.2440..!... GE$.| 000019C0: C7 28 33 34 29 20 A7 47 45 24 B2 C7 28 33 39 29 |.(34) .GE$..(39)| 000019D0: 00 F0 21 24 09 8B 20 47 45 24 B2 C7 28 32 30 29 |..!$.. GE$..(20)| 000019E0: 20 AF B9 28 30 29 B3 B1 38 20 A7 89 32 34 33 30 | ..(0)..8 ..2430| 000019F0: 00 07 22 2E 09 8B 20 47 45 24 B2 C7 28 32 30 29 |.."... GE$..(20)| 00001A00: 20 A7 89 32 33 31 30 00 41 22 38 09 8B 20 47 45 | ..2310.A"8.. GE| 00001A10: 24 B3 B1 22 22 20 A7 8B 20 C6 28 47 45 24 29 B3 |$.."" .. .(GE$).| 00001A20: 33 32 20 B0 20 C6 28 47 45 24 29 B1 31 34 30 AF |32 . .(GE$).140.| 00001A30: C6 28 47 45 24 29 B3 31 36 31 20 A7 89 32 33 31 |.(GE$).161 ..231| 00001A40: 30 00 58 22 42 09 8B 20 47 45 24 B2 C7 28 31 32 |0.X"B.. GE$..(12| 00001A50: 39 29 20 A7 32 33 31 30 00 71 22 4C 09 8B 20 47 |9) .2310.q"L.. G| 00001A60: 45 24 B2 22 8C 22 20 A7 A0 31 3A A0 34 3A 89 35 |E$."." ..1:.4:.5| 00001A70: 30 00 89 22 56 09 8B 20 B9 28 30 29 B2 37 20 A7 |0.."V.. .(0).7 .| 00001A80: 99 22 20 12 20 92 9D 22 3B 00 9B 22 60 09 8B 20 |." . ..";.."`.. | 00001A90: 47 45 24 B2 22 22 A7 32 33 31 30 00 B1 22 6A 09 |GE$."".2310.."j.| 00001AA0: 8B 20 B9 28 30 29 B2 53 4F AA 38 20 A7 32 33 31 |. .(0).SO.8 .231| 00001AB0: 30 00 D4 22 74 09 99 20 47 45 24 22 12 20 92 9D |0.."t.. GE$". ..| 00001AC0: 22 3B 3A 57 31 24 B2 57 31 24 AA 47 45 24 3A 89 |";:W1$.W1$.GE$:.| 00001AD0: 32 33 31 30 00 01 23 7E 09 99 47 45 24 3B 22 12 |2310..#~..GE$;".| 00001AE0: 20 92 9D 22 3B 3A 57 31 24 B2 C8 28 57 31 24 2C | ..";:W1$..(W1$,| 00001AF0: 28 C3 28 57 31 24 29 AB 31 29 29 3A 89 32 33 31 |(.(W1$).1)):.231| 00001B00: 30 00 18 23 88 09 8B 20 57 44 24 B2 22 22 A7 57 |0..#... WD$."".W| 00001B10: 44 24 B2 22 20 22 3A 8E 00 1E 23 92 09 8E 00 57 |D$." ":...#....W| 00001B20: 23 60 EA 9F 31 35 2C 38 2C 31 35 2C 22 52 30 3A |#`..15,8,15,"R0:| 00001B30: 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 3D 48 45 |HELLO CONNECT=HE| 00001B40: 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 3A 84 31 35 |LLO CONNECT":.15| 00001B50: 2C 45 52 3A A0 31 35 00 65 23 6A EA 8B 45 52 B3 |,ER:.15.e#j..ER.| 00001B60: B1 36 33 A7 80 00 7C 23 74 EA 93 22 48 45 4C 4C |.63...|#t.."HELL| 00001B70: 4F 20 43 4F 4E 4E 45 43 54 22 2C 38 00 9B 23 C4 |O CONNECT",8..#.| 00001B80: EA 97 35 33 32 38 30 2C 20 36 3A 97 35 33 32 38 |..53280, 6:.5328| 00001B90: 31 2C 20 31 3A 99 22 93 8E 22 3B 00 C2 23 C5 EA |1, 1:."..";..#..| 00001BA0: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 4C |.".............L| 00001BB0: 4F 41 44 53 54 41 52 1D 50 52 45 53 45 4E 54 53 |OADSTAR.PRESENTS| 00001BC0: 3A 22 00 FC 23 C6 EA 99 22 11 11 11 1D 90 78 1D |:"..#...".....x.| 00001BD0: 12 95 20 1D 92 90 78 1D 1D 1D 1D 1F 42 1D 42 1D |.. ...x.....B.B.| 00001BE0: 53 1D 1D 4C 1D 49 1D 53 1D 54 1D 45 1D 52 1D 1D |S..L.I.S.T.E.R..| 00001BF0: 1D 90 78 1D 12 95 20 1D 92 90 78 22 00 4D 24 C7 |..x... ...x".M$.| 00001C00: EA 99 22 B7 12 95 20 20 20 20 20 92 90 B7 B7 65 |.."... ....e| 00001C10: 65 65 60 60 60 66 66 66 66 66 66 66 66 66 60 60 |ee```fffffffff``| 00001C20: 60 65 65 65 B7 B7 12 95 20 20 20 20 20 92 90 B7 |`eee.... ...| 00001C30: B7 B7 65 1D 1D 1D 12 95 20 1D 1D 1D 1D 1D 1D 1D |..e..... .......| 00001C40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 61 24 |...........";.a$| 00001C50: C8 EA 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 |..."........... | 00001C60: 22 00 98 24 C9 EA 99 22 1D 90 78 1D 12 95 20 1D |"..$..."..x... .| 00001C70: 92 90 78 1D 1D 1D 1D 1D 1F 42 59 1D 54 48 45 4F |..x......BY.THEO| 00001C80: 44 4F 52 45 1D 4C 45 57 49 53 1D 1D 1D 90 78 1D |DORE.LEWIS....x.| 00001C90: 12 95 20 1D 92 90 78 22 00 E9 24 CA EA 99 22 B7 |.. ...x"..$...".| 00001CA0: 12 95 20 20 20 20 20 92 90 B7 B7 65 65 65 60 60 |.. ....eee``| 00001CB0: 60 66 66 66 66 66 66 66 66 66 60 60 60 65 65 65 |`fffffffff```eee| 00001CC0: B7 B7 12 95 20 20 20 20 20 92 90 B7 B7 B7 65 1D |.... .....e.| 00001CD0: 1D 1D 12 95 20 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.... ...........| 00001CE0: 1D 1D 1D 1D 1D 1D 1D 22 3B 00 FD 24 CB EA 99 22 |.......";..$..."| 00001CF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 22 00 34 25 |........... ".4%| 00001D00: CC EA 99 22 1D 90 78 1D 12 95 20 1D 92 90 78 1D |..."..x... ...x.| 00001D10: 1D 1D 1D 1D 1D 1D 1F 43 4F 50 59 52 49 47 48 54 |.......COPYRIGHT| 00001D20: 1D 31 39 38 38 1D 1D 1D 1D 90 78 1D 12 95 20 1D |.1988.....x... .| 00001D30: 92 90 78 22 00 85 25 CD EA 99 22 B7 12 95 20 20 |..x"..%..."... | 00001D40: 20 20 20 92 90 B7 B7 65 65 65 60 60 60 66 66 66 | ....eee```fff| 00001D50: 66 66 66 66 66 66 60 60 60 65 65 65 B7 B7 12 95 |ffffff```eee....| 00001D60: 20 20 20 20 20 92 90 B7 B7 B7 65 1D 1D 1D 12 95 | .....e.....| 00001D70: 20 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D | ...............| 00001D80: 1D 1D 1D 22 3B 00 99 25 CE EA 99 22 1D 1D 1D 1D |...";..%..."....| 00001D90: 1D 1D 1D 1D 1D 1D 1D 20 22 00 C4 25 CF EA 99 22 |....... "..%..."| 00001DA0: 1D 1D 1D 12 20 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.... ...........| 00001DB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001DC0: 1D 1D 20 22 00 EF 25 D0 EA 99 22 1D 1D 1D 12 20 |.. "..%...".... | 00001DD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001DE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 22 00 |............. ".| 00001DF0: 1A 26 D1 EA 99 22 1D 1D 1D 12 20 1D 1D 1D 1D 1D |.&...".... .....| 00001E00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001E10: 1D 1D 1D 1D 1D 1D 1D 1D 20 22 00 45 26 D2 EA 99 |........ ".E&...| 00001E20: 22 1D 1D 1D 12 20 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |".... ..........| 00001E30: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001E40: 1D 1D 1D 20 22 00 70 26 D3 EA 99 22 1D 1D 1D 12 |... ".p&..."....| 00001E50: 20 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D | ...............| 00001E60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 22 |.............. "| 00001E70: 00 9B 26 D4 EA 99 22 1D 1D 1D 12 20 1D 1D 1D 1D |..&...".... ....| 00001E80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001E90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 22 00 EC 26 D5 EA |......... "..&..| 00001EA0: 99 22 12 1E 20 20 20 95 20 1E 20 20 20 20 20 20 |.".. . . | 00001EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001EC0: 20 20 20 20 20 20 20 95 20 1E 20 20 20 20 20 20 | . . | 00001ED0: 20 20 20 95 20 1E 20 20 20 20 20 20 20 20 20 20 | . . | 00001EE0: 20 20 20 20 20 20 20 20 20 20 22 3B 00 3D 27 D6 | ";.='.| 00001EF0: EA 99 22 20 20 20 20 20 20 20 20 20 95 20 1E 20 |.." . . | 00001F00: 20 20 20 20 20 20 20 20 95 20 1E 20 20 20 20 20 | . . | 00001F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F20: 20 20 20 20 20 20 20 20 95 20 1E 20 20 20 20 20 | . . | 00001F30: 20 20 20 20 20 20 20 20 20 20 50 22 3B 00 87 27 | P";..'| 00001F40: D7 EA 99 22 52 45 53 53 20 53 50 41 43 45 20 54 |..."RESS SPACE T| 00001F50: 4F 20 43 4F 4E 54 49 4E 55 45 20 20 20 20 20 20 |O CONTINUE | 00001F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F80: 20 20 20 20 20 22 3B 00 97 27 D8 EA 99 22 20 20 | ";..'..." | 00001F90: 20 20 9D 94 20 13 22 00 AD 27 E2 EA 8B C2 28 32 | .. ."..'....(2| 00001FA0: 30 33 29 B3 B1 36 30 A7 36 30 31 33 30 00 B3 27 |03)..60.60130..'| 00001FB0: EC EA 8E 00 00 00 |...... |
.......60100:..+.... 53280,0:. 53281,0:.
".".<.... BBS LISTER.O.... BY TED LEWIS.
G.(.. ----MAIN MENU----...2..:. FILE$(36
0,1):. G(14)G(8)...<.T1$."........ ":T2$
." .....".K.F..".BBS LISTER".21)"TED LEW
IS"...P.."..............................
............"...Z...15)".MAIN MENU.".5.D
...6)".1 - CREATE A NEW FILE".W.N...6)"2
- WORK ON AN OLD FILE".J.X...6)"3 - QUI
T".......10)".CHOICE? "...... GE$......
GE$."1" .1080... .. GE$."2" .210.F....
GE$."3" .60000.P....1960.Y....140...H..
----OLD FILE MENU----...R..".":..10)T1$"
OLD FILE MENU"T2$.2.....4)".1 - EDIT FIL
E".K.....4)"2 - PRINT FILE".C.....4)"3 -
MAIN MENU".V.....8)".CHOICE?"...... GE$
...... GE$."1" .330...... GE$."2" .1580.
..".. GE$."3" .50.C.,..1960.L.6..260...@
.. ----EDIT OLD FILE----...J..".":..12)T
1$"EDIT FILE"T2$.:.T...4)".ENTER FILE NA
ME:":SO.16:.2290:NAME$.WD$.X.^.. 1,8,4,"
0:".NAME$.",S,R".L.H.DCT.1:X.1:.2020...R
.. ERR.1 . 1:ERR.0:.330...|...4)"..WORKI
NG..."......1,IN$.....FILE$(X,0).IN$....
.. ST . 64 . 1: 15:L.1:CT.1:.450.....X.X
.1......390...... ----SCREEN PRINT ROUTI
NE----.7.B..".":..12)T1$"EDIT FILE "T2$.
_.L...8)".LISTING ."L".OUT OF ."X.9"..".
..V.. CHA ..".":..11)T1$"CHANGE DATA"T2$
"."...... FILE$(CT,1)."D" .. "..DELETED.
.".P.....4)Q1" - "FILE$(CT.Q1,0)...... .
((CT.Q1).9).(CT.Q1).9 .530.....Q1.Q1.1..
....490.1.....4)".CHANGE? (.#. OF ENTRY/
..A..LL";.K....CHA.."/..N..O)":.580.U.&.
.")":..12)"(..D..ELETE/..U..NDELETE)"...
0...12)"(..+.. NEXT/..-.. PREVIOUS)...:.
..12)".HIT ..\.. IF FINISHED.".H.D.. GE$
...N.. GE$."N" . CHA .Q1.0:CHA.0:.1420..
.X.. GE$."+".CHA.0.Q1.0:.700.,.B.. GE$."
-". CHA.0 .Q1.0:.720.R.L.. GE$."D". CHA.
0 .EDT.1:Q1.0:.870.S.V.. GE$."U" . CHA.0
.Q1.0:.890...... GE$."." . 1:.50......
GE$."\" . CHA.0 .Q1.0:.780.P.... GE$."A"
.ALL.1:EDT.1:CA.1:.1150...... GE$."".58
0...... F(GE$).47 . F(GE$).57 .740......
580.,...L.L.1:. L.X.9 .L.1:CT.1:.450.=.F
.CT.CT.9:.450.`.P.L.L.1:. L.1 .L.X.9:CT.
X.8:.450.Q.Z.CT.CT.9:.450.....EDT.1:CA.1
:. (E(GE$).1).1150,1230,1250,1270,1280,1
290,1310,1320,1330.Y...CA.0:Q1.0:. CHA .
.".":.470......450...... ----APPEND SEQ
FILE----."....".":..11)T1$"APPEND FILE"T
2$._.....4)".DO YOU WANT TO ADD ANY MORE
TO THIS FILE? .(Y/N).".I. .. GE$.|.*..
GE$."N" .920...4.. GE$."Y" .EDT.1:.850..
.>.. GE$."." .50...H..800.N.R.APP.1:X.X.
9:CT.X.8:.1130...\.. ----DELETE----...F.
. CT.0 .FILE$(1,1)."D":.700...P.FILE$(CT
,1)."D":.700.;.Z.. CT.0 .FILE$(1,1)."":.
700.S...FILE$(CT,1)."":.700.Y.... ----WR
ITE ARRAY TO SEQ FILE----...... EDT.0 .1
040......".":..7)T1$"REWRITE DATA FILE"T
2$.......4)".INSERT CORRECT DISK AND PRE
SS ANY KEY TO CONTINUE."...... GE$
:. GE$.".".50...... GE$."".950.<.J.. 15,
8,15,"S 0:".NAME$."".^.T. 15:. 1,8,4,"0:
".NAME$.",S,W".....2020:. ERR.1 . 1:ERR
.0:.920...... FR.1 . X...... FILE$(FR,1)
."D" .FR.FR.8:.1030.F....1,FILE$(FR,0).O
.... FR..... 1: 15:..4)"..DONE.. PRESS A
NY KEY FOR MAIN MENU."...... GE$:. GE$."
".1050.&.$..50.I.... ----CREATE NEW INFO
FILE----.S.8.CT.1:.".":..9)T1$"CREATE N
EW FILE"T2$...B...4)".ENTER NEW FILE NAM
E:":SO.16:.2290:NAME$.WD$.G.L.. 1,8,4,"0
:".NAME$.",S,W".Q.V..2020...`.CT.1:. ERR
.1 . 1:ERR.0:.1080...J..".NUMBER OF ENTR
IES: .";ENT.2.T...9)T1$"ENTER NEW DATA"T
2$.M.~...4)".ENTER BBS NAME";.N.... CA.0
.." (OR ..RETURN..):"...... CHA . CA ..
":".....SO.28:.2290:FILE$(CT,0).WD$.....
. ALL .CA.0:.1230.G.... CA .750...... FI
LE$(CT,0)." " . APP.1 .APP.0:CT.CT.9:X.X
.9:.780.".D.. FILE$(CT,0)." ". 1: 15:.14
80.].N...4)".ENTER BBS NUMBER:":SO.30:.2
290:FILE$(CT.1,0).WD$.K.X.. CA .750.....
..4)".ENTER USER NAME:":SO.27:.2290:FILE
$(CT.2,0).WD$...... CA .750.......4)".EN
TER PASSWORD:":SO.28:.2290:FILE$(CT.3,0)
.WD$:.CA.750.5.....4)".ENTER USER ID:":S
O.29:.2290:FILE$(CT.4,0).WD$:. CA.750.T.
....4)".ENTER BBS SYSOP NAME:":SO.26:.22
90:FILE$(CT.5,0).WD$...... CA .750......
.4)".ENTER BBS HOURS:":SO.31:.2290:FILE$
(CT.6,0).WD$.J.#.. CA .750...(...4)".ENT
ER BBS BAUD:":SO.31:.2290:FILE$(CT.7,0).
WD$:.CA.750.H.2...4)".ENTER BBS DISTANCE
:":SO.29:.2290:FILE$(CT.8,0).WD$.V.<.. C
A .750.L.F.. ALL .ALL.0:.750...P.. ".IS
EVERYTHING OK? .[Y/N]."...Z.. GE$...D..
GE$."Y".1420.E.N.. GE$."N".CHA.1:.470.Z.
X.. GE$.".". 1:.50......1370...... APP.1
.APP.0:ENT.ENT.1:CHA.0:.780.G....1,FILE
$(CT,0).G(13).FILE$(CT.1,0).G(13).FILE$(
CT.2,0)... ..1,FILE$(CT.3,0).G(13).FILE$
(CT.4,0).G(13).FILE$(CT.5,0).A....1,FILE
$(CT.6,0).G(13).FILE$(CT.7,0).G(13).FILE
$(CT.8,0).U...ENT.ENT.1:.1130......----P
RINT FILE MENU----...H..".":..9)T1$"PRIN
T FILE MENU"T2$.1.R...4)".1 - PRINT FILE
".I.....4)"2 - MAIN MENU".\.....8)".CHOI
CE?".F.... GE$...... GE$."1" .PRT.1:.158
0...... GE$."2" .50......1960......1520.
.."..----PRINT FILE----...,..".":..11)T1
$"PRINT FILE"T2$...6.. PRT .N1$.NAME$:.1
610.+.@...4)".ENTER FILE NAME:":SO.16:.2
290:N1$.WD$.G.J.. 1,8,4,"0:".N1$.",S,R".
Q.T..2020.K.^.. ERR .ERR.0: 1:.1580...H.
..4)".ENTER HEADER:":SO.30:.2290:HEAD$.W
D$...R...4)".ARE YOU USING FANFOLD OR SI
NGLE SHEET PAPER? .(F/S)."...|..
GE$:. GE$.".". 1:.50...... GE$."F".FAN.
0:.1700.1.... GE$."S".FAN.1:.1700.;....1
660.N.....4)".LINE UP PAPER AND PRESS AN
Y KEY.":PAGE.1...... GE$:. GE$."".1710..
.L.. 4,4,7...V..4," BBS LISTER : "HEAD$.
E....4," PAGE: ";PAGE.O....2180.....COUN
T.1......1,A$,B$,C$,D$,E$,F$,G$,H$,I$...
&.. ST . 64 .CL.1.8.0..4,".BBS NAME: ";A
$;.28.C(A$));".".].:..4,".NUMBER: ";B$;.
30.C(B$));"."...D..4,".USER NAME: ";C$;.
27.C(C$));"."...N..4,".PASSWORD: ";D$;.2
8.C(D$));".".U.Z..4,".SYSOP NAME: ";F$;.
26.C(F$));"."...\..4,".HOURS: ";G$;.31.C
(G$));"."...^..4,".BAUD: ";H$;.32.C(H$))
;".".C.`..4,".DISTANCE: ";I$;.28.C(I$));
".".B.A.. CL.1 . . 2200: 4: 1:. 50.L.B..
2200...V.. COUNT..5 ..4:.2180.....COUNT.
COUNT.1:. COUNT.6 ..2230.F.... GE$:. GE$
.".". 1: 4:.50.P....1820...... ----GET C
URSER SUBROUTINE----...... FR.1.200:. FR
.......16)" ... ."./.... FR.1.200:. FR.
@.F...16)" . .".F.P...J.Z.. ----DISK ER
ROR SUBROUTINE----.X.... 15,8,15......15
,E1,E1$,E2$,E3$...... E1.0.E1.1 ........
"..ERROR!!": 15.X.....4)E1" "E1$" "E2
$" "E3$...... E1.63 .2120... ...4)"..PR
ESS ANY KEY.". .*.. GE$:. GE$.".". 1:.50
.2.4.. GE$."".2090.>.>.ERR.1:..[.H...4)"
..REPLACE? .(Y/N)."...R.. GE$:. GE$."Y".
1:. 1,8,4,"@ 0:".NAME$.",S,W":.2020...\
.. GE$."N" .ERR.1:....F.. GE$.".". 1:.50
.J.P..2130...Z.. ----PRINT DIVIDER SUBRO
UTINES----.& ...4,".--------------------
------------------.":..Z ...4,".--------
------------------------------.":... ...
----PAPER ADVANCE SUBROUTINE----. ...F
AN.0..FR.1.10:.4:.:.2270.. ....4)".PLEAS
E INSERT A NEW SHEET OF PAPER AND P
RESS ANY KEY.".. J.. GE$:. GE$.".".50..!
T.. GE$."".2250.%!..PAGE.PAGE.1:.1750.B!
... ----INPUT SEQUENCE----.P!....8)"..."
;:. FR.1. SO:.".";:.:.:..8)"..";.!... "
.. ..";..!... GE$..!... GE$.G(13) .." ."
:WD$.W1$:W1$."":.2440.P!... GE$.G(34) .G
E$.G(39)..!$.. GE$.G(20) ..(0)..8 ..2430
.."... GE$.G(20) ..2310.A"8.. GE$.."" ..
F(GE$).32 . F(GE$).140.F(GE$).161 ..231
0.X"B.. GE$.G(129) .2310.Q"L.. GE$."." .
1: 4:.50.."V.. .(0).7 .." . ..";.."`..
GE$."".2310.."J.. .(0).SO.8 .2310.T"T..
GE$". ..";:W1$.W1$.GE$:.2310..#~..GE$;".
..";:W1$.H(W1$,(C(W1$).1)):.2310..#...
WD$."".WD$." ":...#....W#`..15,8,15,"R0:
HELLO CONNECT=HELLO CONNECT":.15,ER: 15.
E#J..ER..63...|#T.."HELLO CONNECT",8..#D
..53280, 6:.53281, 1:."..";.B#E.."......
.......LOADSTAR.PRESENTS:"..#F..".....X.
.. ...X.....B.B.S..L.I.S.T.E.R....X... .
..X".M$G.."... ....EEE```FFFFFFFFF``
`EEE.... .....E..... ...............
...";.A$H.."........... "..$I.."..X... .
..X......BY.THEODORE.LEWIS....X... ...X"
..$J.."... ....EEE```FFFFFFFFF```EEE
.... .....E..... .................."
;..$K.."........... ".4%L.."..X... ...X.
.......COPYRIGHT.1988.....X... ...X"..%M
.."... ....EEE```FFFFFFFFF```EEE....
.....E..... ..................";..%
N.."........... ".D%O..".... ...........
.................. "..%P..".... ........
..................... "..&Q..".... .....
........................ ".E&R..".... ..
........................... ".P&S.."....
............................. "..&T..".
... ............................. "..&U.
.".. . . .
. . . ";.='V
.." . . . .
. . P";..'
W.."RESS SPACE TO CONTINUE
";..'X.."
.. ."..'...B(203)..60.60130..'......
> CLICK IMAGE PREVIEW FOR FULL MODAL