DATABASE
FILE INFORMATION
FILENAME(S): DATABASE
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-12-02 02:14:52
APPEARS ON: 1 disk(s)
FILE HASH
de4fed239060d3dc9a1e8cafb98abeb26ab1982a4bf8e224ab240f20d20ad9ae
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS DATABASE 01 | DATABASE | PRG | The BAM Archive | 9 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 01 00 8F 00 34 08 02 00 97 35 33 32 |........4....532|
00000010: 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 99 C7 |80,0:.53281,0:..|
00000020: 28 33 30 29 3A 99 C7 28 31 34 29 3B C7 28 38 29 |(30):..(14);.(8)|
00000030: 3A 89 32 36 00 3A 08 03 00 8F 00 40 08 04 00 8F |:.26.:.....@....|
00000040: 00 54 08 05 00 41 24 B2 22 22 3A 49 B2 30 3A 99 |.T...A$."":I.0:.|
00000050: 22 A6 22 3B 00 65 08 06 00 A1 47 24 3A 8B 47 24 |".";.e....G$:.G$|
00000060: B2 22 22 A7 36 00 9C 08 07 00 8B 47 24 B2 C7 28 |."".6......G$..(|
00000070: 31 34 38 29 B0 47 24 B2 C7 28 31 37 29 B0 47 24 |148).G$..(17).G$|
00000080: B2 C7 28 32 39 29 B0 47 24 B2 C7 28 31 35 37 29 |..(29).G$..(157)|
00000090: B0 47 24 B2 C7 28 31 34 35 29 A7 36 00 B2 08 08 |.G$..(145).6....|
000000A0: 00 8B 47 24 B2 C7 28 32 30 29 AF 41 24 B2 22 22 |..G$..(20).A$.""|
000000B0: A7 36 00 E4 08 09 00 8B 47 24 B2 C7 28 32 30 29 |.6......G$..(20)|
000000C0: A7 99 C7 28 32 30 29 C7 28 32 30 29 22 A6 22 3B |...(20).(20)".";|
000000D0: 3A 49 B2 49 AB 31 3A 41 24 B2 C8 28 41 24 2C 49 |:I.I.1:A$..(A$,I|
000000E0: 29 3A 89 36 00 10 09 0A 00 8B 47 24 B3 B1 C7 28 |):.6......G$...(|
000000F0: 31 33 29 A7 41 24 B2 41 24 AA 47 24 3A 49 B2 49 |13).A$.A$.G$:I.I|
00000100: AA 31 3A 99 22 9D 22 47 24 22 A6 22 3B 3A 89 36 |.1:."."G$".";:.6|
00000110: 00 26 09 0B 00 8B 41 24 B2 C7 28 31 33 29 A7 41 |.&....A$..(13).A|
00000120: 24 B2 22 22 3A 8E 00 32 09 0C 00 99 22 9D 20 22 |$."":..2....". "|
00000130: 3A 8E 00 38 09 0D 00 8F 00 4D 09 0E 00 99 22 12 |:..8.....M....".|
00000140: 11 22 51 24 22 9D 91 91 22 3A 8D 31 38 00 78 09 |."Q$"...":.18.x.|
00000150: 0F 00 41 B2 30 3A 81 49 B2 31 A4 31 37 3A 8B CA |..A.0:.I.1.17:..|
00000160: 28 4B 24 2C 49 AC 32 AB 31 2C 31 29 B2 41 24 A7 |(K$,I.2.1,1).A$.|
00000170: 41 B2 49 3A 49 B2 31 37 00 80 09 10 00 82 3A 8E |A.I:I.17......:.|
00000180: 00 86 09 11 00 8F 00 98 09 12 00 A1 41 24 3A 8B |............A$:.|
00000190: 41 24 B2 22 22 A7 31 38 00 9E 09 13 00 8E 00 A4 |A$."".18........|
000001A0: 09 14 00 8F 00 B9 09 15 00 99 22 13 22 A3 33 35 |..........".".35|
000001B0: 29 3B 49 22 9D 20 22 3A 8E 00 BF 09 16 00 8F 00 |);I". ":........|
000001C0: DF 09 17 00 99 22 12 41 52 45 20 59 4F 55 20 53 |.....".ARE YOU S|
000001D0: 55 52 45 3F 20 59 2F 4E 22 3A 8D 31 38 3A 8E 00 |URE? Y/N":.18:..|
000001E0: E5 09 18 00 8F 00 EB 09 19 00 8F 00 2C 0A 1A 00 |............,...|
000001F0: 99 22 93 22 A6 31 31 29 C7 28 31 34 32 29 22 12 |.".".11).(142)".|
00000200: 20 44 20 41 20 54 20 41 20 42 20 41 20 53 20 45 | D A T A B A S E|
00000210: 20 22 3A 99 A6 31 31 29 22 11 2A 20 4A 55 53 54 | ":..11)".* JUST|
00000220: 20 41 20 4D 4F 4D 45 4E 54 20 2A 22 00 6B 0A 1B | A MOMENT *".k..|
00000230: 00 48 24 B2 22 43 2E 42 2E 4D 2E 22 3A 51 24 B2 |.H$."C.B.M.":Q$.|
00000240: 22 12 59 4F 55 52 20 43 48 4F 49 53 45 20 20 20 |".YOUR CHOISE |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 3F 20 3D 20 48 45 4C 50 22 00 A6 0A 1C 00 | ? = HELP".....|
00000270: 4E B2 B5 28 28 B8 28 30 29 AB 28 B8 28 30 29 B3 |N..((.(0).(.(0).|
00000280: 30 29 AC 36 35 35 33 36 29 AD 34 30 29 3A 50 B2 |0).65536).40):P.|
00000290: 31 3A 58 B2 28 4E AA 31 29 AD 31 30 3A 4E B2 31 |1:X.(N.1).10:N.1|
000002A0: 30 AC B5 28 58 29 00 BC 0A 1D 00 86 53 24 28 4E |0..(X)......S$(N|
000002B0: 29 3A 4C 24 B2 22 20 4C 49 4E 45 22 00 D4 0A 1E |):L$." LINE"....|
000002C0: 00 81 4A B2 30 A4 4E 3A 53 24 28 4A 29 B2 22 C3 |..J.0.N:S$(J).".|
000002D0: 22 3A 82 4A 00 F5 0A 1F 00 99 22 11 20 22 B5 28 |":.J......". ".(|
000002E0: 58 29 22 50 41 47 45 53 22 3A 99 4E 22 45 4E 54 |X)"PAGES":.N"ENT|
000002F0: 52 49 45 53 22 00 22 0B 20 00 4B 24 B2 22 43 2C |RIES".". .K$."C,|
00000300: 50 2C 45 2C 49 2C 4E 2C 53 2C 4C 2C 48 2C 4B 2C |P,E,I,N,S,L,H,K,|
00000310: 41 2C 3F 2C 52 2C 46 2C 44 2C 47 2C 20 22 3A 89 |A,?,R,F,D,G, ":.|
00000320: 33 38 00 28 0B 21 00 8F 00 30 0B 22 00 4B B2 30 |38.(.!...0.".K.0|
00000330: 00 60 0B 23 00 51 B2 30 3A 99 22 93 12 43 48 41 |.`.#.Q.0:."..CHA|
00000340: 50 54 45 52 20 43 4F 4E 54 45 4E 54 53 20 46 49 |PTER CONTENTS FI|
00000350: 4C 45 3A 20 22 3B 48 24 3A 99 22 50 41 47 45 22 |LE: ";H$:."PAGE"|
00000360: 00 92 0B 24 00 81 4A B2 4B A4 4E 3A 8B C6 28 53 |...$..J.K.N:..(S|
00000370: 24 28 4A 29 29 B2 31 38 A7 99 22 9D 22 B5 28 4A |$(J)).18..".".(J|
00000380: AD 31 30 AA 31 29 3B 53 24 28 4A 29 3A 51 B2 51 |.10.1);S$(J):Q.Q|
00000390: AA 31 00 98 0B 25 00 82 00 A8 0B 26 00 8D 31 34 |.1...%.....&..14|
000003A0: 3A 8B 41 B2 30 A7 33 38 00 E2 0B 27 00 91 41 89 |:.A.0.38...'..A.|
000003B0: 33 34 2C 34 33 2C 31 35 35 2C 35 34 2C 36 39 2C |34,43,155,54,69,|
000003C0: 38 37 2C 39 33 2C 31 33 33 2C 31 32 37 2C 31 37 |87,93,133,127,17|
000003D0: 32 2C 37 33 2C 31 34 37 2C 35 31 2C 37 33 2C 31 |2,73,147,51,73,1|
000003E0: 36 34 00 F5 0B 28 00 8B 4A B3 4E AA 31 A7 4B B2 |64...(..J.N.1.K.|
000003F0: 4A 3A 89 33 35 00 FD 0B 29 00 89 33 34 00 03 0C |J:.35...)..34...|
00000400: 2A 00 8F 00 31 0C 2B 00 41 24 B2 22 2D 31 22 3A |*...1.+.A$."-1":|
00000410: 99 22 11 11 50 41 47 45 22 3A 8D 35 3A 50 B2 C5 |."..PAGE":.5:P..|
00000420: 28 41 24 29 3A 8D 31 35 3A 8B 41 B3 B1 30 A7 33 |(A$):.15:.A..0.3|
00000430: 39 00 4E 0C 2C 00 8B 50 B3 31 B0 50 B1 B5 28 58 |9.N.,..P.1.P..(X|
00000440: 29 A7 99 22 91 91 91 91 91 22 3A 89 34 33 00 82 |)..".....":.43..|
00000450: 0C 2D 00 99 22 12 93 50 41 47 45 22 50 3B 48 24 |.-.."..PAGE"P;H$|
00000460: 3A 81 49 B2 30 A4 39 3A 4C B2 28 50 AB 31 29 AC |:.I.0.9:L.(P.1).|
00000470: 31 30 AA 49 3A 99 22 9D 22 4C 3B 53 24 28 4C 29 |10.I:."."L;S$(L)|
00000480: 3A 82 00 92 0C 2E 00 8D 31 34 3A 8B 41 B2 30 A7 |:.......14:.A.0.|
00000490: 34 36 00 A0 0C 2F 00 8B 41 B3 B1 31 36 A7 33 39 |46.../..A..16.39|
000004A0: 00 B3 0C 30 00 50 B2 50 AA 31 3A 8B 50 B1 58 A7 |...0.P.P.1:.P.X.|
000004B0: 50 B2 31 00 BB 0C 31 00 89 34 35 00 C1 0C 32 00 |P.1...1..45...2.|
000004C0: 8F 00 DB 0C 33 00 99 22 93 46 49 4C 45 4E 41 4D |....3..".FILENAM|
000004D0: 45 22 3A 8D 35 3A 48 24 B2 41 24 00 E3 0C 34 00 |E":.5:H$.A$...4.|
000004E0: 89 34 35 00 E9 0C 35 00 8F 00 1B 0D 36 00 41 24 |.45...5.....6.A$|
000004F0: B2 22 2D 31 22 3A 99 22 11 11 49 4E 53 45 52 54 |."-1":."..INSERT|
00000500: 22 4C 24 3A 8D 35 3A 4A B2 C5 28 41 24 29 3A 8D |"L$:.5:J..(A$):.|
00000510: 31 35 3A 8B 41 B3 B1 30 A7 34 35 00 3D 0D 37 00 |15:.A..0.45.=.7.|
00000520: 8B 4A B3 30 B0 4A B1 B5 28 58 29 AC 31 30 AA 31 |.J.0.J..(X).10.1|
00000530: A7 99 22 91 91 91 91 91 22 3A 89 35 34 00 60 0D |..".....":.54.`.|
00000540: 38 00 41 24 B2 22 22 3A 99 22 45 4E 54 52 59 22 |8.A$."":."ENTRY"|
00000550: 3A 8D 35 3A 8D 31 35 3A 8B 41 B3 B1 30 A7 34 35 |:.5:.15:.A..0.45|
00000560: 00 79 0D 39 00 99 22 49 4E 53 45 52 54 49 4E 47 |.y.9.."INSERTING|
00000570: 22 3A 8B 52 B2 4E A7 34 35 00 9E 0D 3A 00 81 49 |":.R.N.45...:..I|
00000580: B2 4A AA 31 A4 4E 3A 8B 53 24 28 49 29 B2 22 C3 |.J.1.N:.S$(I).".|
00000590: 22 A7 4B 4B B2 49 3A 49 B2 4E 3A 89 36 30 00 A7 |".KK.I:I.N:.60..|
000005A0: 0D 3B 00 4B 4B B2 49 00 AD 0D 3C 00 82 00 DB 0D |.;.KK.I...<.....|
000005B0: 3D 00 81 49 B2 4B 4B A4 4A AA 31 A9 AB 31 3A 53 |=..I.KK.J.1..1:S|
000005C0: 24 28 49 29 B2 53 24 28 49 AB 31 29 3A 8D 32 31 |$(I).S$(I.1):.21|
000005D0: 3A 82 3A 53 24 28 4A 29 B2 41 24 00 0D 0E 3E 00 |:.:S$(J).A$...>.|
000005E0: 8B C8 28 53 24 28 4A 29 2C 31 29 B2 22 2A 22 A7 |..(S$(J),1)."*".|
000005F0: 53 24 28 4A 29 B2 22 12 22 AA C9 28 53 24 28 4A |S$(J)."."..(S$(J|
00000600: 29 2C C3 28 53 24 28 4A 29 29 AB 31 29 00 1D 0E |),.(S$(J)).1)...|
00000610: 3F 00 50 B2 B5 28 4A AD 31 30 29 AA 31 00 51 0E |?.P..(J.10).1.Q.|
00000620: 40 00 99 22 12 93 50 41 47 45 22 50 3B 48 24 3A |@.."..PAGE"P;H$:|
00000630: 81 49 B2 30 A4 39 3A 4C B2 28 50 AB 31 29 AC 31 |.I.0.9:L.(P.1).1|
00000640: 30 AA 49 3A 99 22 9D 22 4C 3B 53 24 28 4C 29 3A |0.I:."."L;S$(L):|
00000650: 82 00 6C 0E 41 00 4A B2 4A AA 31 3A 8B 4A B1 B5 |..l.A.J.J.1:.J..|
00000660: 28 58 29 AC 31 30 AB 31 A7 4A B2 30 00 8B 0E 42 |(X).10.1.J.0...B|
00000670: 00 99 22 11 11 49 4E 53 45 52 54 22 3B 4C 24 3B |.."..INSERT";L$;|
00000680: 4A 3A 41 24 B2 22 22 3A 89 35 36 00 93 0E 43 00 |J:A$."":.56...C.|
00000690: 89 34 35 00 99 0E 44 00 8F 00 B3 0E 45 00 99 22 |.45...D.....E.."|
000006A0: 11 11 22 3A 8D 32 33 3A 8B 41 24 B3 B1 22 59 22 |..":.23:.A$.."Y"|
000006B0: A7 34 35 00 D2 0E 46 00 99 22 11 4E 45 57 20 46 |.45...F..".NEW F|
000006C0: 49 4C 45 20 4E 41 4D 45 22 3A 8D 35 3A 48 24 B2 |ILE NAME":.5:H$.|
000006D0: 41 24 00 ED 0E 47 00 81 4A B2 30 A4 4E 3A 53 24 |A$...G..J.0.N:S$|
000006E0: 28 4A 29 B2 22 C3 22 3A 82 3A 89 34 35 00 F3 0E |(J).".":.:.45...|
000006F0: 48 00 8F 00 25 0F 49 00 99 22 93 12 20 20 20 20 |H...%.I..".. |
00000700: 20 20 20 20 20 20 20 20 20 20 20 20 4D 20 45 20 | M E |
00000710: 4E 20 55 20 20 20 20 20 20 20 20 20 20 20 20 20 |N U |
00000720: 20 20 20 20 22 00 43 0F 4A 00 99 22 12 50 92 41 | ".C.J..".P.A|
00000730: 47 45 22 A3 32 33 29 22 12 4E 92 45 57 20 46 49 |GE".23)".N.EW FI|
00000740: 4C 45 22 00 7B 0F 4B 00 99 3A 99 22 12 43 92 48 |LE".{.K..:.".C.H|
00000750: 41 50 54 45 52 22 A3 32 33 29 3B 3A 99 22 12 46 |APTER".23);:.".F|
00000760: 92 49 4C 45 4E 41 4D 45 22 3A 99 3A 99 22 12 47 |.ILENAME":.:.".G|
00000770: 92 45 54 20 45 4E 54 52 59 22 3B 00 91 0F 4C 00 |.ET ENTRY";...L.|
00000780: 99 A3 32 33 29 3A 99 22 12 4B 92 49 4C 4C 22 4C |..23):.".K.ILL"L|
00000790: 24 00 AA 0F 4D 00 99 3A 99 22 12 45 92 4E 54 45 |$...M..:.".E.NTE|
000007A0: 52 22 4C 24 3B A3 32 33 29 3B 00 D4 0F 4E 00 99 |R"L$;.23);...N..|
000007B0: 22 12 48 92 41 52 44 20 43 4F 50 59 22 3A 99 3A |".H.ARD COPY":.:|
000007C0: 99 22 12 41 92 4C 46 41 42 45 54 49 5A 45 22 A3 |.".A.LFABETIZE".|
000007D0: 32 33 29 3B 00 FC 0F 4F 00 99 22 12 49 92 4E 53 |23);...O..".I.NS|
000007E0: 45 52 54 22 4C 24 3A 99 3A 99 22 12 52 92 45 43 |ERT"L$:.:.".R.EC|
000007F0: 54 49 46 59 22 4C 24 A3 32 33 29 3B 00 2D 10 50 |TIFY"L$.23);.-.P|
00000800: 00 99 22 12 44 92 45 46 49 4E 49 54 49 4F 4E 53 |..".D.EFINITIONS|
00000810: 22 3A 99 3A 99 22 12 53 92 41 56 45 20 54 4F 20 |":.:.".S.AVE TO |
00000820: 54 41 50 45 20 4F 52 20 44 49 53 4B 22 00 4F 10 |TAPE OR DISK".O.|
00000830: 51 00 99 3A 99 22 12 4C 92 4F 41 44 20 46 52 4F |Q..:.".L.OAD FRO|
00000840: 4D 20 54 41 50 45 20 4F 52 20 44 49 53 4B 22 00 |M TAPE OR DISK".|
00000850: 59 10 52 00 99 3A 99 51 24 00 6A 10 53 00 8D 31 |Y.R..:.Q$.j.S..1|
00000860: 38 3A 99 22 93 22 3A 8D 31 35 00 76 10 54 00 8B |8:.".":.15.v.T..|
00000870: 41 B2 30 A7 37 33 00 7E 10 55 00 89 33 39 00 84 |A.0.73.~.U..39..|
00000880: 10 56 00 8F 00 A3 10 57 00 99 22 93 12 53 41 56 |.V.....W.."..SAV|
00000890: 45 11 22 3A 8D 32 33 3A 8B 41 24 B3 B1 22 59 22 |E.":.23:.A$.."Y"|
000008A0: A7 34 35 00 CD 10 58 00 99 22 11 12 44 49 53 4B |.45...X.."..DISK|
000008B0: 20 4F 52 20 54 41 50 45 3F 20 44 2F 54 22 3A 8D | OR TAPE? D/T":.|
000008C0: 31 38 3A 8B 41 24 B2 22 54 22 A7 39 31 00 DE 10 |18:.A$."T".91...|
000008D0: 59 00 8B 41 24 B2 B3 B1 22 44 22 A7 34 35 00 15 |Y..A$..."D".45..|
000008E0: 11 5A 00 9F 31 35 2C 38 2C 31 35 2C 22 49 22 3A |.Z..15,8,15,"I":|
000008F0: A0 31 35 3A 9F 32 2C 38 2C 32 2C 22 40 30 3A 22 |.15:.2,8,2,"@0:"|
00000900: AA 48 24 AA 22 20 BF 2C 53 2C 57 22 3A 4A B2 32 |.H$." .,S,W":J.2|
00000910: 3A 89 31 30 30 00 2E 11 5B 00 99 3A 9F 31 2C 31 |:.100...[..:.1,1|
00000920: 2C 31 2C 48 24 3A 4A B2 31 3A 89 31 30 30 00 34 |,1,H$:J.1:.100.4|
00000930: 11 5C 00 8F 00 54 11 5D 00 99 22 93 12 4C 4F 41 |.\...T.].."..LOA|
00000940: 44 92 11 22 3A 8D 32 33 3A 8B 41 24 B3 B1 22 59 |D..":.23:.A$.."Y|
00000950: 22 A7 34 35 00 7E 11 5E 00 99 22 11 12 44 49 53 |".45.~.^.."..DIS|
00000960: 4B 20 4F 52 20 54 41 50 45 3F 20 44 2F 54 22 3A |K OR TAPE? D/T":|
00000970: 8D 31 38 3A 8B 41 24 B2 22 54 22 A7 39 38 00 8E |.18:.A$."T".98..|
00000980: 11 5F 00 8B 41 24 B3 B1 22 44 22 A7 34 35 00 B9 |._..A$.."D".45..|
00000990: 11 60 00 8D 31 30 38 3A 99 22 11 46 49 4C 45 20 |.`..108:.".FILE |
000009A0: 4E 41 4D 45 3F 22 3A 8D 35 3A 4E 24 B2 41 24 3A |NAME?":.5:N$.A$:|
000009B0: 8B 4E 24 B2 22 22 A7 34 35 00 EF 11 61 00 9F 31 |.N$."".45...a..1|
000009C0: 35 2C 38 2C 31 35 2C 22 49 22 3A A0 31 35 3A 9F |5,8,15,"I":.15:.|
000009D0: 32 2C 38 2C 32 2C 22 30 3A 22 AA 4E 24 AA 22 20 |2,8,2,"0:".N$." |
000009E0: BF 2C 53 2C 52 22 3A 4A B2 32 3A 89 31 30 34 00 |.,S,R":J.2:.104.|
000009F0: 03 12 62 00 9F 31 2C 31 2C 30 3A 4A B2 31 3A 89 |..b..1,1,0:J.1:.|
00000A00: 31 30 34 00 09 12 63 00 8F 00 2B 12 64 00 81 49 |104...c...+.d..I|
00000A10: B2 4E A4 30 A9 AB 31 3A 4B B2 49 3A 8B 53 24 28 |.N.0..1:K.I:.S$(|
00000A20: 49 29 B3 B1 22 C3 22 A7 49 B2 30 00 37 12 65 00 |I)..".".I.0.7.e.|
00000A30: 82 3A 4B B2 4B AA 31 00 52 12 66 00 98 4A 2C 48 |.:K.K.1.R.f..J,H|
00000A40: 24 AA 22 20 BF 22 3A 98 4A 2C 4B 3A 81 49 B2 4F |$." .":.J,K:.I.O|
00000A50: A4 4B 00 6C 12 67 00 98 4A 2C 53 24 28 49 29 3A |.K.l.g..J,S$(I):|
00000A60: 8D 32 31 3A 82 3A A0 4A 3A 89 34 35 00 A3 12 68 |.21:.:.J:.45...h|
00000A70: 00 84 4A 2C 4E 24 3A 8B C9 28 4E 24 2C 32 29 B3 |..J,N$:..(N$,2).|
00000A80: B1 22 20 BF 22 A7 99 22 12 22 4E 24 22 20 4E 4F |." .".."."N$" NO|
00000A90: 54 20 46 4F 55 4E 44 22 3A 8D 31 38 3A A0 4A 3A |T FOUND":.18:.J:|
00000AA0: 89 34 35 00 D1 12 69 00 48 24 B2 4E 24 3A 48 24 |.45...i.H$.N$:H$|
00000AB0: B2 C8 28 48 24 2C C3 28 48 24 29 AB 32 29 3A 99 |..(H$,.(H$).2):.|
00000AC0: 22 11 12 46 4F 55 4E 44 20 22 48 24 3A 84 4A 2C |"..FOUND "H$:.J,|
00000AD0: 4B 00 F2 12 6A 00 81 49 B2 30 A4 4B 3A 84 4A 2C |K...j..I.0.K:.J,|
00000AE0: 53 24 28 49 29 3A 8D 32 31 3A 82 3A A0 4A 3A 89 |S$(I):.21:.:.J:.|
00000AF0: 34 35 00 F8 12 6B 00 8F 00 27 13 6C 00 99 22 12 |45...k...'.l..".|
00000B00: 93 44 49 53 4B 20 46 49 4C 45 20 4C 49 53 54 49 |.DISK FILE LISTI|
00000B10: 4E 47 3F 20 59 2F 4E 22 3A 8D 31 38 3A 8B 41 24 |NG? Y/N":.18:.A$|
00000B20: B3 B1 22 59 22 A7 8E 00 3F 13 6D 00 99 22 93 12 |.."Y"...?.m.."..|
00000B30: 53 43 41 4E 4E 49 4E 47 20 44 49 53 43 11 22 00 |SCANNING DISC.".|
00000B40: 4F 13 6E 00 9F 31 2C 38 2C 30 2C 22 24 30 22 00 |O.n..1,8,0,"$0".|
00000B50: 5D 13 6F 00 A1 23 31 2C 41 24 2C 42 24 00 6B 13 |].o..#1,A$,B$.k.|
00000B60: 70 00 A1 23 31 2C 41 24 2C 42 24 00 79 13 71 00 |p..#1,A$,B$.y.q.|
00000B70: A1 23 31 2C 41 24 2C 42 24 00 81 13 72 00 43 B2 |.#1,A$,B$...r.C.|
00000B80: 30 00 95 13 73 00 8B 41 24 B3 B1 22 22 A7 43 B2 |0...s..A$.."".C.|
00000B90: C6 28 41 24 29 00 AF 13 74 00 8B 42 24 B3 B1 22 |.(A$)...t..B$.."|
00000BA0: 22 A7 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 00 |".C.C..(B$).256.|
00000BB0: CB 13 75 00 44 24 B2 44 24 AA 22 12 22 AA CA 28 |..u.D$.D$."."..(|
00000BC0: C4 28 43 29 2C 32 29 AA 22 92 22 00 E4 13 76 00 |.(C),2)."."...v.|
00000BD0: A1 23 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 A0 31 |.#1,B$:.ST..0..1|
00000BE0: 3A 99 3A 8E 00 F7 13 77 00 8B 42 24 B3 B1 C7 28 |:.:....w..B$...(|
00000BF0: 33 34 29 A7 31 31 38 00 1B 14 78 00 A1 23 31 2C |34).118...x..#1,|
00000C00: 42 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 44 24 |B$:.B$...(34).D$|
00000C10: B2 44 24 AA 42 24 3A 89 31 32 30 00 34 14 79 00 |.D$.B$:.120.4.y.|
00000C20: A1 23 31 2C 42 24 3A 8B 42 24 B2 C7 28 33 32 29 |.#1,B$:.B$..(32)|
00000C30: A7 31 32 31 00 3E 14 7A 00 43 24 B2 22 22 00 5E |.121.>.z.C$."".^|
00000C40: 14 7B 00 43 24 B2 43 24 AA 42 24 3A A1 23 31 2C |.{.C$.C$.B$:.#1,|
00000C50: 42 24 3A 8B 42 24 B3 B1 22 22 A7 31 32 33 00 73 |B$:.B$.."".123.s|
00000C60: 14 7C 00 8B C9 28 44 24 2C 31 29 B2 22 BF 22 A7 |.|...(D$,1).".".|
00000C70: 99 44 24 00 82 14 7D 00 44 24 B2 22 22 3A 89 31 |.D$...}.D$."":.1|
00000C80: 31 32 00 88 14 7E 00 8F 00 B8 14 7F 00 41 24 B2 |12...~.......A$.|
00000C90: 22 2D 31 22 3A 99 22 11 11 4B 49 4C 4C 22 4C 24 |"-1":."..KILL"L$|
00000CA0: 3A 8D 35 3A 4A B2 C5 28 41 24 29 3A 8D 31 35 3A |:.5:J..(A$):.15:|
00000CB0: 8B 41 B3 B1 30 A7 34 35 00 DA 14 80 00 8B 4A B3 |.A..0.45......J.|
00000CC0: 30 B0 4A B1 B5 28 58 29 AC 31 30 AA 31 A7 99 22 |0.J..(X).10.1.."|
00000CD0: 91 91 91 91 91 22 89 31 32 37 00 09 15 81 00 81 |.....".127......|
00000CE0: 49 B2 4A A4 4E AB 31 3A 8B 53 24 28 49 29 B2 22 |I.J.N.1:.S$(I)."|
00000CF0: C3 22 AF 53 24 28 49 AA 31 29 B2 22 C3 22 A7 49 |.".S$(I.1).".".I|
00000D00: B2 4E AB 31 3A 89 31 33 31 00 1F 15 82 00 53 24 |.N.1:.131.....S$|
00000D10: 28 49 29 B2 53 24 28 49 AA 31 29 3A 8D 32 31 00 |(I).S$(I.1):.21.|
00000D20: 33 15 83 00 82 3A 53 24 28 4E 29 B2 22 C3 22 3A |3....:S$(N).".":|
00000D30: 89 34 35 00 39 15 84 00 8F 00 62 15 85 00 99 22 |.45.9.....b...."|
00000D40: 93 12 48 41 52 44 20 43 4F 50 59 3F 20 59 2F 4E |..HARD COPY? Y/N|
00000D50: 11 22 3A 8D 31 38 3A 8B 41 24 B3 B1 22 59 22 A7 |.":.18:.A$.."Y".|
00000D60: 34 35 00 96 15 86 00 99 22 11 12 45 4E 54 49 52 |45......"..ENTIR|
00000D70: 45 20 46 49 4C 45 3F 20 59 2F 4E 11 22 3A 8D 31 |E FILE? Y/N.":.1|
00000D80: 38 3A 8B 41 24 B2 22 59 22 A7 46 B2 30 3A 4D B2 |8:.A$."Y".F.0:M.|
00000D90: 4E 3A 89 31 33 38 00 AB 15 87 00 99 22 53 54 41 |N:.138......"STA|
00000DA0: 52 54 49 4E 47 22 4C 24 3A 8D 35 00 C4 15 88 00 |RTING"L$:.5.....|
00000DB0: 46 B2 C5 28 41 24 29 3A 8B 46 B3 30 B0 46 B1 4E |F..(A$):.F.0.F.N|
00000DC0: 89 31 33 33 00 F0 15 89 00 99 22 45 4E 44 49 4E |.133......"ENDIN|
00000DD0: 47 22 4C 24 3A 8D 35 3A 4D B2 C5 28 41 24 29 3A |G"L$:.5:M..(A$):|
00000DE0: 8B 4D B3 30 B0 4D B1 4E B0 4D B3 46 A7 31 33 33 |.M.0.M.N.M.F.133|
00000DF0: 00 F9 15 8A 00 9F 34 2C 34 00 14 16 8B 00 98 34 |......4,4......4|
00000E00: 2C 22 20 20 20 20 20 46 49 4C 45 3A 20 22 3B 48 |," FILE: ";H|
00000E10: 24 3A 98 34 00 38 16 8C 00 4C 4C B2 34 3A 81 49 |$:.4.8...LL.4:.I|
00000E20: B2 46 A4 4D 3A 8B C8 28 53 24 28 49 29 2C 31 29 |.F.M:..(S$(I),1)|
00000E30: B2 22 12 22 A7 31 34 33 00 60 16 8D 00 8B 53 24 |.".".143.`....S$|
00000E40: 28 49 29 B3 B1 22 C3 22 A7 98 34 2C 22 20 20 20 |(I).."."..4," |
00000E50: 20 20 22 53 24 28 49 29 3A 4C 4C B2 4C 4C AA 32 | "S$(I):LL.LL.2|
00000E60: 00 69 16 8E 00 89 31 34 35 00 7E 16 8F 00 98 34 |.i....145.~....4|
00000E70: 2C 22 20 20 20 20 2A 22 3B 53 24 28 49 29 00 8A |," *";S$(I)..|
00000E80: 16 90 00 4C 4C B2 4C 4C AA 34 00 97 16 91 00 82 |...LL.LL.4......|
00000E90: 3A A0 34 3A 89 34 35 00 9D 16 92 00 8F 00 AD 16 |:.4:.45.........|
00000EA0: 93 00 8B 41 24 B2 22 C1 22 A7 31 35 35 00 E0 16 |...A$.".".155...|
00000EB0: 94 00 41 24 B2 22 2D 31 22 3A 99 22 11 11 52 45 |..A$."-1":."..RE|
00000EC0: 43 54 49 46 59 22 4C 24 3A 8D 35 3A 4A B2 C5 28 |CTIFY"L$:.5:J..(|
00000ED0: 41 24 29 3A 8D 31 35 3A 8B 41 B3 B1 30 A7 34 35 |A$):.15:.A..0.45|
00000EE0: 00 03 17 95 00 8B 4A B3 30 B0 4A B1 B5 28 58 29 |......J.0.J..(X)|
00000EF0: AC 31 30 AA 31 A7 99 22 91 91 91 91 91 22 3A 89 |.10.1..".....":.|
00000F00: 31 34 38 00 1F 17 96 00 99 53 24 28 4A 29 3A 85 |148......S$(J):.|
00000F10: 41 24 3A 8D 31 35 3A 8B 41 B3 B1 30 A7 34 35 00 |A$:.15:.A..0.45.|
00000F20: 2C 17 97 00 53 24 28 4A 29 B2 41 24 00 5E 17 98 |,...S$(J).A$.^..|
00000F30: 00 8B C8 28 53 24 28 4A 29 2C 31 29 B2 22 2A 22 |...(S$(J),1)."*"|
00000F40: A7 53 24 28 4A 29 B2 22 12 22 AA C9 28 53 24 28 |.S$(J)."."..(S$(|
00000F50: 4A 29 2C C3 28 53 24 28 4A 29 29 AB 31 29 00 66 |J),.(S$(J)).1).f|
00000F60: 17 99 00 89 34 35 00 6C 17 9A 00 8F 00 9E 17 9B |....45.l........|
00000F70: 00 41 24 B2 22 2D 31 22 3A 99 22 11 11 45 4E 54 |.A$."-1":."..ENT|
00000F80: 45 52 22 3B 4C 24 3A 8D 35 3A 4A B2 C5 28 41 24 |ER";L$:.5:J..(A$|
00000F90: 29 3A 8D 31 35 3A 8B 41 B3 B1 30 A7 34 35 00 C1 |):.15:.A..0.45..|
00000FA0: 17 9C 00 8B 4A B3 30 B0 4A B1 B5 28 58 29 AC 31 |....J.0.J..(X).1|
00000FB0: 30 AA 31 A7 99 22 91 91 91 91 91 22 3A 89 31 35 |0.1..".....":.15|
00000FC0: 35 00 E4 17 9D 00 41 24 B2 22 22 3A 99 22 45 4E |5.....A$."":."EN|
00000FD0: 54 52 59 22 3A 8D 35 3A 8D 31 35 3A 8B 41 B3 B1 |TRY":.5:.15:.A..|
00000FE0: 30 A7 34 35 00 1F 18 9E 00 53 24 28 4A 29 B2 41 |0.45.....S$(J).A|
00000FF0: 24 3A 8B C8 28 53 24 28 4A 29 2C 31 29 B2 22 2A |$:..(S$(J),1)."*|
00001000: 22 A7 53 24 28 4A 29 B2 22 12 22 AA C9 28 53 24 |".S$(J)."."..(S$|
00001010: 28 4A 29 2C C3 28 53 24 28 4A 29 29 AB 31 29 00 |(J),.(S$(J)).1).|
00001020: 2F 18 9F 00 50 B2 B5 28 4A AD 31 30 29 AA 31 00 |/...P..(J.10).1.|
00001030: 63 18 A0 00 99 22 93 12 50 41 47 45 22 50 3B 48 |c...."..PAGE"P;H|
00001040: 24 3A 81 49 B2 30 A4 39 3A 4C B2 28 50 AB 31 29 |$:.I.0.9:L.(P.1)|
00001050: AC 31 30 AA 49 3A 99 22 9D 22 4C 3B 53 24 28 4C |.10.I:."."L;S$(L|
00001060: 29 3A 82 00 7E 18 A1 00 4A B2 4A AA 31 3A 8B 4A |):..~...J.J.1:.J|
00001070: B1 B5 28 58 29 AC 31 30 AB 31 A7 4A B2 30 00 A2 |..(X).10.1.J.0..|
00001080: 18 A2 00 99 22 11 22 51 24 22 92 11 45 4E 54 45 |...."."Q$"..ENTE|
00001090: 52 22 3B 4C 24 3B 4A 3A 41 24 B2 22 22 3A 89 31 |R";L$;J:A$."":.1|
000010A0: 35 37 00 A8 18 A3 00 8F 00 CB 18 A4 00 99 22 11 |57............".|
000010B0: 11 47 45 54 20 45 4E 54 52 59 22 3A 8D 35 3A 8D |.GET ENTRY":.5:.|
000010C0: 31 35 3A 8B 41 B3 B1 30 A7 34 35 00 F1 18 A5 00 |15:.A..0.45.....|
000010D0: 8B C8 28 41 24 2C 31 29 B2 22 2A 22 A7 41 24 B2 |..(A$,1)."*".A$.|
000010E0: 22 12 22 AA C9 28 41 24 2C C3 28 41 24 29 AB 31 |"."..(A$,.(A$).1|
000010F0: 29 00 13 19 A6 00 54 B2 AB 31 3A 81 49 B2 30 A4 |).....T..1:.I.0.|
00001100: 4E 3A 8B 53 24 28 49 29 B2 41 24 A7 54 B2 49 3A |N:.S$(I).A$.T.I:|
00001110: 49 B2 4E 00 19 19 A7 00 82 00 3A 19 A8 00 8B 54 |I.N.......:....T|
00001120: B2 AB 31 A7 99 22 11 12 4E 4F 54 20 46 4F 55 4E |..1.."..NOT FOUN|
00001130: 44 22 3A 8D 31 38 3A 89 34 35 00 4E 19 A9 00 50 |D":.18:.45.N...P|
00001140: B2 B5 28 54 AD 31 30 29 AA 31 3A 89 34 35 00 54 |..(T.10).1:.45.T|
00001150: 19 AA 00 8F 00 5A 19 AB 00 8F 00 95 19 AC 00 99 |.....Z..........|
00001160: 22 93 12 41 4C 50 48 41 42 45 54 49 5A 45 20 43 |"..ALPHABETIZE C|
00001170: 48 41 50 54 45 52 20 45 4E 54 52 49 45 53 20 59 |HAPTER ENTRIES Y|
00001180: 2F 4E 3F 11 22 3A 8D 31 38 3A 8B 41 24 B2 22 59 |/N?.":.18:.A$."Y|
00001190: 22 A7 31 39 31 00 A5 19 AD 00 8B 41 24 B3 B1 22 |".191......A$.."|
000011A0: 4E 22 A7 34 35 00 AB 19 AE 00 8F 00 E1 19 AF 00 |N".45...........|
000011B0: 99 22 41 4C 50 48 41 42 45 54 49 5A 45 20 53 54 |."ALPHABETIZE ST|
000011C0: 41 52 54 49 4E 47 22 4C 24 3A 8D 35 3A 55 B2 C5 |ARTING"L$:.5:U..|
000011D0: 28 41 24 29 3A 8D 31 35 3A 8B 41 B3 B1 30 A7 34 |(A$):.15:.A..0.4|
000011E0: 35 00 F2 19 B0 00 8B 55 B3 30 B0 55 B1 4E A7 89 |5......U.0.U.N..|
000011F0: 33 38 00 0E 1A B1 00 8B CA 28 53 24 28 55 29 2C |38.......(S$(U),|
00001200: 31 2C 31 29 B2 22 12 22 A7 55 B2 55 AA 31 00 36 |1,1).".".U.U.1.6|
00001210: 1A B2 00 81 49 B2 4E A4 30 A9 AB 31 3A 8B 53 24 |....I.N.0..1:.S$|
00001220: 28 49 29 B3 B1 22 C3 22 A7 4B 4B B2 49 3A 49 B2 |(I)..".".KK.I:I.|
00001230: 30 3A 89 31 38 30 00 3F 1A B3 00 4B 4B B2 31 00 |0:.180.?...KK.1.|
00001240: 45 1A B4 00 82 00 77 1A B5 00 4B B2 30 3A 81 49 |E.....w...K.0:.I|
00001250: B2 55 A4 4B 4B 3A 8B C8 28 28 53 24 28 49 29 29 |.U.KK:..((S$(I))|
00001260: 2C 31 29 B2 22 12 22 A7 4B B2 31 3A 4E 4E B2 49 |,1).".".K.1:NN.I|
00001270: AB 31 3A 49 B2 4B 4B 00 86 1A B6 00 82 3A 8B 4B |.1:I.KK......:.K|
00001280: B2 31 A7 31 38 34 00 90 1A B7 00 4E 4E B2 4B 4B |.1.184.....NN.KK|
00001290: 00 98 1A B8 00 49 B2 30 00 AB 1A B9 00 4A B2 55 |.....I.0.....J.U|
000012A0: 3A 8B 49 B2 4E 4E AB 55 A7 34 35 00 BB 1A BA 00 |:.I.NN.U.45.....|
000012B0: 8B 4A B2 4E 4E AB 49 A7 31 38 39 00 F2 1A BB 00 |.J.NN.I.189.....|
000012C0: 8B 53 24 28 4A 29 B1 53 24 28 4A AA 31 29 A7 54 |.S$(J).S$(J.1).T|
000012D0: 50 24 B2 53 24 28 4A 29 3A 53 24 28 4A 29 B2 53 |P$.S$(J):S$(J).S|
000012E0: 24 28 4A AA 31 29 3A 53 24 28 4A AA 31 29 B2 54 |$(J.1):S$(J.1).T|
000012F0: 50 24 00 01 1B BC 00 4A B2 4A AA 31 3A 89 31 38 |P$.....J.J.1:.18|
00001300: 36 00 10 1B BD 00 49 B2 49 AA 31 3A 89 31 38 35 |6.....I.I.1:.185|
00001310: 00 16 1B BE 00 8F 00 3B 1B BF 00 99 22 93 11 22 |.......;....".."|
00001320: A6 39 29 22 12 20 20 20 20 20 2A 20 57 41 52 4E |.9)". * WARN|
00001330: 49 4E 47 20 2A 20 20 20 20 20 92 00 5C 1B C0 00 |ING * ..\...|
00001340: 99 A6 39 29 22 12 20 20 20 54 48 49 53 20 43 41 |..9)". THIS CA|
00001350: 4E 20 54 41 4B 45 20 41 20 20 20 92 00 7D 1B C1 |N TAKE A ..}..|
00001360: 00 99 A6 39 29 22 12 20 20 20 56 45 52 59 20 4C |...9)". VERY L|
00001370: 4F 4E 47 20 54 49 4D 45 21 20 20 20 92 00 87 1B |ONG TIME! ....|
00001380: C2 00 99 3A 49 B2 4E 00 A1 1B C3 00 8B 53 24 28 |...:I.N......S$(|
00001390: 49 29 B2 22 C3 22 A7 49 B2 49 AB 31 3A 89 31 39 |I).".".I.I.1:.19|
000013A0: 35 00 C1 1B C4 00 45 46 B2 49 AA 31 3A 53 24 28 |5.....EF.I.1:S$(|
000013B0: 45 46 29 B2 22 12 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A |EF).".ZZZZZZZZZZ|
000013C0: 22 00 DE 1B C5 00 49 B2 30 3A 4A B2 30 3A 57 24 |".....I.0:J.0:W$|
000013D0: B2 22 12 5A 5A 5A 5A 5A 5A 5A 5A 5A 5A 22 00 E4 |.".ZZZZZZZZZZ"..|
000013E0: 1B C6 00 8F 00 01 1C C7 00 8B C6 28 53 24 28 49 |...........(S$(I|
000013F0: 29 29 B3 B1 31 38 A7 49 B2 49 AA 31 3A 89 31 39 |))..18.I.I.1:.19|
00001400: 39 00 0F 1C C8 00 8B 49 B2 45 46 A7 32 32 30 00 |9......I.EF.220.|
00001410: 26 1C C9 00 57 24 B2 53 24 28 49 29 3A 54 B2 49 |&...W$.S$(I):T.I|
00001420: 3A 49 B2 49 AA 31 00 43 1C CA 00 8B C6 28 53 24 |:I.I.1.C.....(S$|
00001430: 28 49 29 29 B3 B1 31 38 A7 49 B2 49 AA 31 3A 89 |(I))..18.I.I.1:.|
00001440: 32 30 32 00 5E 1C CB 00 8B 53 24 28 49 29 B3 57 |202.^....S$(I).W|
00001450: 24 A7 57 24 B2 53 24 28 49 29 3A 54 B2 49 00 71 |$.W$.S$(I):T.I.q|
00001460: 1C CC 00 8B 49 B2 45 46 A7 99 57 24 3A 89 32 30 |....I.EF..W$:.20|
00001470: 36 00 80 1C CD 00 49 B2 49 AA 31 3A 89 32 30 32 |6.....I.I.1:.202|
00001480: 00 93 1C CE 00 8B 57 24 B3 B1 53 24 28 4A 29 A7 |......W$..S$(J).|
00001490: 32 31 30 00 AF 1C CF 00 4A B2 4A AA 31 3A 8B C6 |210.....J.J.1:..|
000014A0: 28 53 24 28 4A 29 29 B3 B1 31 38 A7 32 30 37 00 |(S$(J))..18.207.|
000014B0: BC 1C D0 00 49 B2 4A 3A 89 32 30 30 00 C2 1C D1 |....I.J:.200....|
000014C0: 00 8F 00 E0 1C D2 00 81 44 B2 54 A4 45 46 AB 31 |........D.T.EF.1|
000014D0: 3A 53 24 28 44 29 B2 53 24 28 44 AA 31 29 3A 82 |:S$(D).S$(D.1):.|
000014E0: 00 E6 1C D3 00 8F 00 10 1D D4 00 81 44 B2 45 46 |............D.EF|
000014F0: A4 4A AA 31 A9 AB 31 3A 53 24 28 44 29 B2 53 24 |.J.1..1:S$(D).S$|
00001500: 28 44 AB 31 29 3A 82 3A 53 24 28 4A 29 B2 57 24 |(D.1):.:S$(J).W$|
00001510: 00 31 1D D5 00 57 24 B2 22 12 5A 5A 5A 5A 5A 5A |.1...W$.".ZZZZZZ|
00001520: 5A 5A 5A 5A 22 3A 49 B2 54 AA 31 3A 4A B2 4A AA |ZZZZ":I.T.1:J.J.|
00001530: 31 00 37 1D D6 00 8F 00 51 1D D7 00 8B C6 28 53 |1.7.....Q.....(S|
00001540: 24 28 49 29 29 B2 31 38 A7 49 B2 4A 3A 89 32 30 |$(I)).18.I.J:.20|
00001550: 30 00 5F 1D D8 00 54 50 24 B2 53 24 28 49 29 00 |0._...TP$.S$(I).|
00001560: 7D 1D D9 00 81 44 B2 49 A4 45 46 AB 31 3A 53 24 |}....D.I.EF.1:S$|
00001570: 28 44 29 B2 53 24 28 44 AA 31 29 3A 82 00 A8 1D |(D).S$(D.1):....|
00001580: DA 00 81 44 B2 45 46 A4 4A AA 31 A9 AB 31 3A 53 |...D.EF.J.1..1:S|
00001590: 24 28 44 29 B2 53 24 28 44 AB 31 29 3A 82 3A 53 |$(D).S$(D.1):.:S|
000015A0: 24 28 4A 29 B2 54 50 24 00 BD 1D DB 00 49 B2 49 |$(J).TP$.....I.I|
000015B0: AA 31 3A 4A B2 4A AA 31 3A 89 32 31 35 00 D0 1D |.1:J.J.1:.215...|
000015C0: DC 00 53 24 28 45 46 29 B2 22 C3 22 3A 89 34 35 |..S$(EF).".":.45|
000015D0: 00 00 00 |... |
........4....53280,0:.53281,0:.G(30):.G(
14);G(8):.26.:.....@.....T...A$."":I.0:.
".";.E....G$:.G$."".6......G$.G(148).G$.
G(17).G$.G(29).G$.G(157).G$.G(145).6....
..G$.G(20).A$."".6......G$.G(20)..G(20)G
(20)".";:I.I.1:A$.H(A$,I):.6......G$..G(
13).A$.A$.G$:I.I.1:."."G$".";:.6.&....A$
.G(13).A$."":..2....". ":..8.....M....".
."Q$"...":.18.X...A.0:.I.1.17:.J(K$,I.2.
1,1).A$.A.I:I.17......:.............A$:.
A$."".18..................".".35);I". ":
.............".ARE YOU SURE? Y/N":.18:..
............,....".".11)G(142)". D A T A
B A S E ":..11)".* JUST A MOMENT *".K..
.H$."C.B.M.":Q$.".YOUR CHOISE
? = HELP".....N..((.(0).(.(0).
0).65536).40):P.1:X.(N.1).10:N.10..(X)..
....S$(N):L$." LINE".T....J.0.N:S$(J)."C
":.J......". ".(X)"PAGES":.N"ENTRIES".".
.K$."C,P,E,I,N,S,L,H,K,A,?,R,F,D,G, ":.
38.(.!...0.".K.0.`.#.Q.0:."..CHAPTER CON
TENTS FILE: ";H$:."PAGE"...$..J.K.N:.F(S
$(J)).18..".".(J.10.1);S$(J):Q.Q.1...%..
...&..14:.A.0.38...'..A.34,43,155,54,69,
87,93,133,127,172,73,147,51,73,164...(..
J.N.1.K.J:.35...)..34...*...1.+.A$."-1":
."..PAGE":.5:P.E(A$):.15:.A..0.39.N.,..P
.1.P..(X)..".....":.43...-.."..PAGE"P;H$
:.I.0.9:L.(P.1).10.I:."."L;S$(L):.......
14:.A.0.46. ./..A..16.39...0.P.P.1:.P.X.
P.1...1..45.A.2.....3..".FILENAME":.5:H$
.A$...4..45...5.....6.A$."-1":."..INSERT
"L$:.5:J.E(A$):.15:.A..0.45.=.7..J.0.J..
(X).10.1..".....":.54.`.8.A$."":."ENTRY"
:.5:.15:.A..0.45.Y.9.."INSERTING":.R.N.4
5...:..I.J.1.N:.S$(I)."C".KK.I:I.N:.60..
.;.KK.I...<.....=..I.KK.J.1..1:S$(I).S$(
I.1):.21:.:S$(J).A$...>..H(S$(J),1)."*".
S$(J).".".I(S$(J),C(S$(J)).1)...?.P..(J.
10).1.Q.@.."..PAGE"P;H$:.I.0.9:L.(P.1).1
0.I:."."L;S$(L):..L.A.J.J.1:.J..(X).10.1
.J.0...B.."..INSERT";L$;J:A$."":.56...C.
.45...D.....E.."..":.23:.A$.."Y".45.R.F.
.".NEW FILE NAME":.5:H$.A$...G..J.0.N:S$
(J)."C":.:.45...H...%.I.."..
M E N U ".C.J..".P.A
GE".23)".N.EW FILE".{.K..:.".C.HAPTER".2
3);:.".F.ILENAME":.:.".G.ET ENTRY";...L.
..23):.".K.ILL"L$...M..:.".E.NTER"L$;.23
);.T.N..".H.ARD COPY":.:.".A.LFABETIZE".
23);...O..".I.NSERT"L$:.:.".R.ECTIFY"L$.
23);.-.P..".D.EFINITIONS":.:.".S.AVE TO
TAPE OR DISK".O.Q..:.".L.OAD FROM TAPE O
R DISK".Y.R..:.Q$.J.S..18:.".":.15.V.T..
A.0.73.~.U..39...V.....W.."..SAVE.":.23:
.A$.."Y".45.M.X.."..DISK OR TAPE? D/T":.
18:.A$."T".91...Y..A$..."D".45...Z..15,8
,15,"I": 15:.2,8,2,"@0:".H$." .,S,W":J.2
:.100...[..:.1,1,1,H$:J.1:.100.4.\...T.]
.."..LOAD..":.23:.A$.."Y".45.~.^.."..DIS
K OR TAPE? D/T":.18:.A$."T".98..._..A$..
"D".45...`..108:.".FILE NAME?":.5:N$.A$:
.N$."".45...A..15,8,15,"I": 15:.2,8,2,"0
:".N$." .,S,R":J.2:.104...B..1,1,0:J.1:.
104...C...+.D..I.N.0..1:K.I:.S$(I).."C".
I.0.7.E..:K.K.1.R.F..J,H$." .":.J,K:.I.O
.K.L.G..J,S$(I):.21:.: J:.45...H..J,N$:.
I(N$,2).." .".."."N$" NOT FOUND":.18: J:
.45.Q.I.H$.N$:H$.H(H$,C(H$).2):."..FOUND
"H$:.J,K...J..I.0.K:.J,S$(I):.21:.: J:.
45...K...'.L.."..DISK FILE LISTING? Y/N"
:.18:.A$.."Y"...?.M.."..SCANNING DISC.".
O.N..1,8,0,"$0".].O..#1,A$,B$.K.P..#1,A$
,B$.Y.Q..#1,A$,B$...R.C.0...S..A$.."".C.
F(A$)...T..B$.."".C.C.F(B$).256.K.U.D$.D
$.".".J(D(C),2)."."...V..#1,B$:.ST..0. 1
:.:....W..B$..G(34).118...X..#1,B$:.B$..
G(34).D$.D$.B$:.120.4.Y..#1,B$:.B$.G(32)
.121.>.Z.C$."".^.{.C$.C$.B$:.#1,B$:.B$..
"".123.S.|..I(D$,1)."."..D$...}.D$."":.1
12...~......A$."-1":."..KILL"L$:.5:J.E(
A$):.15:.A..0.45.Z....J.0.J..(X).10.1.."
.....".127......I.J.N.1:.S$(I)."C".S$(I.
1)."C".I.N.1:.131.....S$(I).S$(I.1):.21.
3....:S$(N)."C":.45.9.....B...."..HARD C
OPY? Y/N.":.18:.A$.."Y".45......"..ENTIR
E FILE? Y/N.":.18:.A$."Y".F.0:M.N:.138..
...."STARTING"L$:.5.D...F.E(A$):.F.0.F.N
.133......"ENDING"L$:.5:M.E(A$):.M.0.M.N
.M.F.133......4,4......4," FILE: ";H
$:.4.8...LL.4:.I.F.M:.H(S$(I),1).".".143
.`....S$(I).."C"..4," "S$(I):LL.LL.2
.I....145.~....4," *";S$(I).....LL.LL
.4......: 4:.45............A$."A".155...
..A$."-1":."..RECTIFY"L$:.5:J.E(A$):.15:
.A..0.45......J.0.J..(X).10.1..".....":.
148......S$(J):.A$:.15:.A..0.45.,...S$(J
).A$.^....H(S$(J),1)."*".S$(J).".".I(S$(
J),C(S$(J)).1).F....45.L.........A$."-1"
:."..ENTER";L$:.5:J.E(A$):.15:.A..0.45.A
....J.0.J..(X).10.1..".....":.155.....A$
."":."ENTRY":.5:.15:.A..0.45.....S$(J).A
$:.H(S$(J),1)."*".S$(J).".".I(S$(J),C(S$
(J)).1)./...P..(J.10).1.C. .."..PAGE"P;H
$:.I.0.9:L.(P.1).10.I:."."L;S$(L):..~...
J.J.1:.J..(X).10.1.J.0......"."Q$"..ENTE
R";L$;J:A$."":.157.......K...."..GET ENT
RY":.5:.15:.A..0.45......H(A$,1)."*".A$.
".".I(A$,C(A$).1).....T..1:.I.0.N:.S$(I)
.A$.T.I:I.N.......:....T..1.."..NOT FOUN
D":.18:.45.N...P..(T.10).1:.45.T.....Z..
........"..ALPHABETIZE CHAPTER ENTRIES Y
/N?.":.18:.A$."Y".191......A$.."N".45...
........."ALPHABETIZE STARTING"L$:.5:U.E
(A$):.15:.A..0.45......U.0.U.N..38......
J(S$(U),1,1).".".U.U.1.6....I.N.0..1:.S$
(I).."C".KK.I:I.0:.180.?...KK.1.E.....W.
..K.0:.I.U.KK:.H((S$(I)),1).".".K.1:NN.I
.1:I.KK......:.K.1.184.....NN.KK.....I.0
.....J.U:.I.NN.U.45......J.NN.I.189.....
.S$(J).S$(J.1).TP$.S$(J):S$(J).S$(J.1):S
$(J.1).TP$.....J.J.1:.186.....I.I.1:.185
.......;...."..".9)". * WARNING *
..\.....9)". THIS CAN TAKE A ..}.A
...9)". VERY LONG TIME! ....B..:I.N.
..C..S$(I)."C".I.I.1:.195.A.D.EF.I.1:S$(
EF).".ZZZZZZZZZZ"...E.I.0:J.0:W$.".ZZZZZ
ZZZZZ"...F.....G..F(S$(I))..18.I.I.1:.19
9...H..I.EF.220.&.I.W$.S$(I):T.I:I.I.1.C
.J..F(S$(I))..18.I.I.1:.202.^.K..S$(I).W
$.W$.S$(I):T.I.Q.L..I.EF..W$:.206...M.I.
I.1:.202...N..W$..S$(J).210...O.J.J.1:.F
(S$(J))..18.207...P.I.J:.200.B.Q.....R..
D.T.EF.1:S$(D).S$(D.1):....S.....T..D.EF
.J.1..1:S$(D).S$(D.1):.:S$(J).W$.1.U.W$.
".ZZZZZZZZZZ":I.T.1:J.J.1.7.V...Q.W..F(S
$(I)).18.I.J:.200._.X.TP$.S$(I).}.Y..D.I
.EF.1:S$(D).S$(D.1):....Z..D.EF.J.1..1:S
$(D).S$(D.1):.:S$(J).TP$.....I.I.1:J.J.1
:.215.P...S$(EF)."C":.45...
> CLICK IMAGE PREVIEW FOR FULL MODAL