DATABASE 64/MENU

00000000: 01 08 2B 08 00 00 97 35  33 32 38 31 2C 37 3A 99  |..+....53281,7:.|
00000010: 22 93 22 3A 8F 20 2A 2A  2A 20 44 41 54 41 42 41  |".":. *** DATABA|
00000020: 53 45 20 43 2D 36 34 20  2A 2A 2A 00 55 08 01 00  |SE C-64 ***.U...|
00000030: 99 A3 20 35 29 22 49 4E  53 54 52 55 43 54 49 4F  |.. 5)"INSTRUCTIO|
00000040: 4E 53 20 46 4F 52 20 44  41 54 41 42 41 53 45 20  |NS FOR DATABASE |
00000050: 43 2D 36 34 22 00 8C 08  02 00 99 A3 32 29 22 11  |C-64".......2)".|
00000060: 11 43 3D 20 43 41 54 41  4C 4F 47 22 A3 31 34 29  |.C= CATALOG".14)|
00000070: 22 50 3D 20 50 41 47 45  22 A3 32 35 29 22 45 3D  |"P= PAGE".25)"E=|
00000080: 20 45 4E 54 45 52 20 4C  49 4E 45 22 00 C0 08 03  | ENTER LINE"....|
00000090: 00 99 A3 32 29 22 11 11  11 53 3D 20 53 41 56 45  |...2)"...S= SAVE|
000000A0: 22 A3 31 34 29 22 4C 3D  20 4C 4F 41 44 22 A3 32  |".14)"L= LOAD".2|
000000B0: 35 29 22 48 3D 20 48 41  52 44 20 43 4F 50 59 22  |5)"H= HARD COPY"|
000000C0: 00 F0 08 04 00 99 A3 32  29 22 11 11 11 49 3D 20  |.......2)"...I= |
000000D0: 49 4E 50 55 54 20 4E 45  57 20 4C 49 4E 45 22 A3  |INPUT NEW LINE".|
000000E0: 32 35 29 22 4E 3D 20 4E  45 57 20 46 49 4C 45 22  |25)"N= NEW FILE"|
000000F0: 00 1E 09 05 00 99 A3 32  29 22 11 11 11 4B 3D 20  |.......2)"...K= |
00000100: 4B 49 4C 4C 20 4C 49 4E  45 22 A3 32 35 29 22 41  |KILL LINE".25)"A|
00000110: 3D 20 41 4C 46 41 42 45  54 49 5A 45 52 22 00 3D  |= ALFABETIZER".=|
00000120: 09 06 00 99 A3 31 32 29  22 11 11 11 53 50 41 43  |.....12)"...SPAC|
00000130: 45 3D 20 4E 45 58 54 20  50 41 47 45 22 00 69 09  |E= NEXT PAGE".i.|
00000140: 07 00 99 A3 31 37 29 22  11 11 90 12 20 53 54 41  |....17)".... STA|
00000150: 52 54 20 92 22 22 20 2A  20 22 22 12 20 48 49 54  |RT ."" * "". HIT|
00000160: 20 41 20 4B 45 59 20 92  22 00 7A 09 09 00 A1 41  | A KEY .".z....A|
00000170: 24 3A 8B 41 24 B2 22 22  A7 39 00 96 09 0A 00 97  |$:.A$."".9......|
00000180: 35 33 32 38 31 2C 31 34  20 3A 54 24 B2 22 4E 4F  |53281,14 :T$."NO|
00000190: 20 4E 41 4D 45 22 00 DC  09 14 00 99 22 93 05 46  | NAME"......"..F|
000001A0: 49 4C 45 20 4E 41 4D 45  22 3A 85 54 24 3A 99 22  |ILE NAME":.T$:."|
000001B0: 11 11 11 11 11 11 20 20  20 20 20 20 20 20 20 20  |......          |
000001C0: 20 20 20 20 50 4C 45 41  53 45 20 57 41 49 54 22  |    PLEASE WAIT"|
000001D0: 3A 54 24 B2 C8 28 54 24  2C 31 34 29 00 12 0A 1E  |:T$..(T$,14)....|
000001E0: 00 4E B2 31 30 30 30 3A  50 B2 31 3A 58 B2 28 4E  |.N.1000:P.1:X.(N|
000001F0: AA 31 29 AD 31 30 3A 86  53 24 28 4E 29 3A 52 24  |.1).10:.S$(N):R$|
00000200: B2 22 20 4C 49 4E 45 23  22 3A 8D 38 31 30 3A 89  |." LINE#":.810:.|
00000210: 38 30 00 1A 0A 28 00 4B  B2 30 00 49 0A 32 00 51  |80...(.K.0.I.2.Q|
00000220: B2 30 3A 99 22 93 05 12  43 41 54 41 4C 4F 47 3A  |.0:."...CATALOG:|
00000230: 20 22 3B 54 24 22 11 11  22 3A 99 22 59 4F 55 52  | ";T$"..":."YOUR|
00000240: 20 43 48 4F 49 43 45 20  3F 00 84 0A 3C 00 81 4A  | CHOICE ?...<..J|
00000250: B2 4B A4 4E 3A 8B C6 28  53 24 28 4A 29 29 B2 31  |.K.N:..(S$(J)).1|
00000260: 38 A7 99 22 9D 22 B5 28  4A AD 31 30 AA 31 29 3B  |8..".".(J.10.1);|
00000270: 53 24 28 4A 29 3A 51 B2  51 AA 31 3A 8B 51 B1 31  |S$(J):Q.Q.1:.Q.1|
00000280: 30 A7 38 30 00 8B 0A 46  00 82 4A 00 9C 0A 50 00  |0.80...F..J...P.|
00000290: 8D 32 36 30 3A 8B 41 B2  30 A7 38 30 00 CE 0A 5A  |.260:.A.0.80...Z|
000002A0: 00 91 41 89 34 30 2C 31  32 30 2C 31 39 30 2C 32  |..A.40,120,190,2|
000002B0: 32 30 2C 32 39 30 2C 33  36 30 2C 34 31 30 2C 36  |20,290,360,410,6|
000002C0: 37 30 2C 34 37 30 2C 35  32 30 2C 33 31 30 00 E1  |70,470,520,310..|
000002D0: 0A 64 00 8B 4A B3 4E AA  31 A7 4B B2 4A 3A 89 35  |.d..J.N.1.K.J:.5|
000002E0: 30 00 E9 0A 6E 00 89 34  30 00 12 0B 78 00 99 22  |0...n..40...x.."|
000002F0: 11 11 50 41 47 45 23 22  3A 85 41 24 3A 50 B2 C5  |..PAGE#":.A$:P..|
00000300: 28 41 24 29 3A 8D 32 37  30 3A 8B 41 B3 B1 30 A7  |(A$):.270:.A..0.|
00000310: 39 30 00 2B 0B 82 00 8B  50 B3 31 B0 50 B1 58 A7  |90.+....P.1.P.X.|
00000320: 99 22 91 91 91 22 3A 89  31 32 30 00 63 0B 8C 00  |."...":.120.c...|
00000330: 99 22 12 93 50 41 47 45  22 50 3B 54 24 22 11 11  |."..PAGE"P;T$"..|
00000340: 22 3A 81 49 B2 30 A4 39  3A 4C B2 28 50 AB 31 29  |":.I.0.9:L.(P.1)|
00000350: AC 31 30 AA 49 3A 99 22  9D 22 4C 3B 53 24 28 4C  |.10.I:."."L;S$(L|
00000360: 29 3A 82 00 75 0B 96 00  8D 32 36 30 3A 8B 41 B2  |):..u....260:.A.|
00000370: 30 A7 31 35 30 00 83 0B  A0 00 8B 41 B3 B1 31 32  |0.150......A..12|
00000380: A7 39 30 00 96 0B AA 00  50 B2 50 AA 31 3A 8B 50  |.90.....P.P.1:.P|
00000390: B1 58 A7 50 B2 31 00 9F  0B B4 00 89 31 34 30 00  |.X.P.1......140.|
000003A0: D2 0B BE 00 41 24 B2 22  2D 31 22 3A 99 22 11 11  |....A$."-1":."..|
000003B0: 45 4E 54 45 52 22 52 24  3A 85 41 24 3A 4A B2 C5  |ENTER"R$:.A$:J..|
000003C0: 28 41 24 29 3A 8D 32 37  30 3A 8B 41 B3 B1 30 A7  |(A$):.270:.A..0.|
000003D0: 39 30 00 F5 0B C8 00 8B  4A B3 30 B0 4A B1 B5 28  |90......J.0.J..(|
000003E0: 58 29 AC 31 30 AA 31 A7  99 22 91 91 91 91 91 22  |X).10.1.."....."|
000003F0: 3A 89 31 39 30 00 06 0C  D2 00 85 53 24 28 4A 29  |:.190......S$(J)|
00000400: 3A 89 31 31 36 30 00 3A  0C DC 00 41 24 B2 22 2D  |:.1160.:...A$."-|
00000410: 31 22 3A 99 22 11 11 49  4E 53 45 52 54 22 52 24  |1":."..INSERT"R$|
00000420: 3A 85 41 24 3A 4A B2 C5  28 41 24 29 3A 8D 32 37  |:.A$:J..(A$):.27|
00000430: 30 3A 8B 41 B3 B1 30 A7  39 30 00 5D 0C E6 00 8B  |0:.A..0.90.]....|
00000440: 4A B3 30 B0 4A B1 B5 28  58 29 AC 31 30 AA 31 A7  |J.0.J..(X).10.1.|
00000450: 99 22 91 91 91 91 91 22  3A 89 32 32 30 00 84 0C  |.".....":.220...|
00000460: F0 00 99 22 45 4E 54 52  59 22 3A 85 44 24 3A 99  |..."ENTRY":.D$:.|
00000470: 22 49 4E 53 45 52 54 49  4E 47 22 3A 8B 52 B2 4E  |"INSERTING":.R.N|
00000480: A7 31 34 30 00 B9 0C FA  00 8D 38 36 30 3A 81 49  |.140......860:.I|
00000490: B2 4B 4B A4 4A AA 31 A9  AB 31 3A 53 24 28 49 29  |.KK.J.1..1:S$(I)|
000004A0: B2 53 24 28 49 AB 31 29  3A 82 3A 53 24 28 4A 29  |.S$(I.1):.:S$(J)|
000004B0: B2 44 24 3A 89 31 31 36  30 00 EF 0C 04 01 45 24  |.D$:.1160.....E$|
000004C0: B2 22 43 2C 50 2C 45 2C  49 2C 4E 2C 53 2C 4C 2C  |."C,P,E,I,N,S,L,|
000004D0: 48 2C 4B 2C 41 2C 3F 92  20 22 3A 99 A3 39 29 22  |H,K,A,?. ":..9)"|
000004E0: 12 11 22 45 24 22 9D 91  91 22 3A 8D 36 33 30 00  |.."E$"...":.630.|
000004F0: 1A 0D 0E 01 41 B2 30 3A  81 49 B2 31 A4 31 33 3A  |....A.0:.I.1.13:|
00000500: 8B CA 28 45 24 2C 49 AC  32 AB 31 2C 31 29 B2 41  |..(E$,I.2.1,1).A|
00000510: 24 A7 41 B2 49 3A 49 B2  31 33 00 23 0D 18 01 82  |$.A.I:I.13.#....|
00000520: 49 3A 8E 00 38 0D 22 01  8D 36 36 30 3A 8B 41 24  |I:..8."..660:.A$|
00000530: B3 B1 22 59 22 A7 34 30  00 5A 0D 2C 01 99 22 4E  |.."Y".40.Z.,.."N|
00000540: 45 57 20 46 49 4C 45 20  4E 41 4D 45 22 3A 85 54  |EW FILE NAME":.T|
00000550: 24 3A 8D 38 31 30 3A 89  34 30 00 8B 0D 36 01 99  |$:.810:.40...6..|
00000560: 22 93 12 43 92 41 54 41  4C 4F 47 11 22 3A 99 22  |"..C.ATALOG.":."|
00000570: 43 41 4C 4C 20 12 50 92  41 47 45 11 22 3A 99 22  |CALL .P.AGE.":."|
00000580: 12 49 92 4E 53 45 52 54  22 52 24 00 CC 0D 40 01  |.I.NSERT"R$...@.|
00000590: 99 22 11 12 45 92 4E 54  45 52 22 52 24 3A 99 22  |."..E.NTER"R$:."|
000005A0: 11 12 4B 92 49 4C 4C 22  52 24 3A 99 22 11 12 41  |..K.ILL"R$:."..A|
000005B0: 92 4C 50 48 41 42 45 54  49 5A 45 11 22 3A 99 22  |.LPHABETIZE.":."|
000005C0: 12 4E 92 45 57 20 46 49  4C 45 11 22 00 08 0E 4A  |.N.EW FILE."...J|
000005D0: 01 99 22 12 4C 92 4F 41  44 20 46 52 4F 4D 20 54  |..".L.OAD FROM T|
000005E0: 41 50 45 20 4F 52 20 44  49 53 43 22 3A 99 22 11  |APE OR DISC":.".|
000005F0: 12 53 92 41 56 45 20 54  4F 20 54 41 50 45 20 4F  |.S.AVE TO TAPE O|
00000600: 52 20 44 49 53 43 11 22  00 46 0E 54 01 99 22 12  |R DISC.".F.T..".|
00000610: 3F 92 20 44 45 46 49 4E  49 54 49 4F 4E 53 22 3A  |?. DEFINITIONS":|
00000620: 99 22 11 12 48 92 20 4C  49 53 54 20 54 4F 20 50  |."..H. LIST TO P|
00000630: 52 49 4E 54 45 52 91 22  3A 8D 32 36 30 3A 8B 41  |RINTER.":.260:.A|
00000640: B2 30 A7 33 31 30 00 4E  0E 5E 01 89 39 30 00 7D  |.0.310.N.^..90.}|
00000650: 0E 68 01 99 22 93 90 53  41 56 45 20 54 4F 20 54  |.h.."..SAVE TO T|
00000660: 41 50 45 20 4F 52 20 44  49 53 43 22 3A 8D 36 36  |APE OR DISC":.66|
00000670: 30 3A 8B 41 24 B3 B1 22  59 22 A7 34 30 00 A7 0E  |0:.A$.."Y".40...|
00000680: 72 01 99 22 12 44 92 49  53 43 20 4F 52 20 12 54  |r..".D.ISC OR .T|
00000690: 92 41 50 45 3F 22 3A 8D  36 33 30 3A 8B 41 24 B2  |.APE?":.630:.A$.|
000006A0: 22 54 22 A7 34 30 30 00  B7 0E 7C 01 8B 41 24 B3  |"T".400...|..A$.|
000006B0: B1 22 44 22 A7 34 30 00  DD 0E 86 01 9F 32 2C 38  |."D".40......2,8|
000006C0: 2C 32 2C 22 40 30 3A 22  AA 54 24 AA 22 20 D8 2C  |,2,"@0:".T$." .,|
000006D0: 53 2C 57 22 3A 4A B2 32  3A 89 38 39 30 00 F4 0E  |S,W":J.2:.890...|
000006E0: 90 01 9F 31 2C 31 2C 31  2C 54 24 3A 4A B2 31 3A  |...1,1,1,T$:J.1:|
000006F0: 89 38 39 30 00 25 0F 9A  01 99 22 93 12 4C 4F 41  |.890.%...."..LOA|
00000700: 44 20 46 52 4F 4D 20 54  41 50 45 20 4F 52 20 44  |D FROM TAPE OR D|
00000710: 49 53 43 22 3A 8D 36 36  30 3A 8B 41 24 B3 B1 22  |ISC":.660:.A$.."|
00000720: 59 22 A7 34 30 00 4F 0F  A4 01 99 22 12 44 92 49  |Y".40.O....".D.I|
00000730: 53 43 20 4F 52 20 12 54  92 41 50 45 3F 22 3A 8D  |SC OR .T.APE?":.|
00000740: 36 33 30 3A 8B 41 24 B2  22 54 22 A7 34 36 30 00  |630:.A$."T".460.|
00000750: 5F 0F AE 01 8B 41 24 B3  B1 22 44 22 A7 34 30 00  |_....A$.."D".40.|
00000760: 85 0F B8 01 8D 39 37 30  3A 99 22 11 46 49 4C 45  |.....970:.".FILE|
00000770: 20 4E 41 4D 45 3F 22 3A  85 4E 24 3A 8B 4E 24 B2  | NAME?":.N$:.N$.|
00000780: 22 22 A7 34 30 00 AA 0F  C2 01 9F 32 2C 38 2C 32  |"".40......2,8,2|
00000790: 2C 22 30 3A 22 AA 4E 24  AA 22 20 D8 2C 53 2C 52  |,"0:".N$." .,S,R|
000007A0: 22 3A 4A B2 32 3A 89 39  33 30 00 BE 0F CC 01 9F  |":J.2:.930......|
000007B0: 31 2C 31 2C 30 3A 4A B2  31 3A 89 39 33 30 00 E8  |1,1,0:J.1:.930..|
000007C0: 0F D6 01 99 22 11 11 4B  49 4C 4C 22 52 24 3A 85  |...."..KILL"R$:.|
000007D0: 41 24 3A 4A B2 C5 28 41  24 29 3A 8D 32 37 30 3A  |A$:J..(A$):.270:|
000007E0: 8B 41 B3 B1 30 A7 39 30  00 00 10 E0 01 8B 4A B3  |.A..0.90......J.|
000007F0: 30 B0 4A B1 4E A7 99 22  91 91 22 3A 89 34 37 30  |0.J.N.."..":.470|
00000800: 00 2F 10 EA 01 81 49 B2  4A A4 4E AB 31 3A 8B 53  |./....I.J.N.1:.S|
00000810: 24 28 49 29 B2 22 C0 22  AF 53 24 28 49 AA 31 29  |$(I).".".S$(I.1)|
00000820: B2 22 C0 22 A7 49 B2 4E  AB 31 3A 89 35 31 30 00  |.".".I.N.1:.510.|
00000830: 46 10 F4 01 53 24 28 49  29 B2 53 24 28 49 AA 31  |F...S$(I).S$(I.1|
00000840: 29 3A 8D 36 35 30 00 5B  10 FE 01 82 3A 53 24 28  |):.650.[....:S$(|
00000850: 4E 29 B2 22 C0 22 3A 89  31 34 30 00 8D 10 08 02  |N).".":.140.....|
00000860: 99 22 11 11 41 4C 50 48  41 42 45 54 49 5A 45 20  |."..ALPHABETIZE |
00000870: 20 22 3B 3A 8D 38 32 30  3A 55 B2 C5 28 41 24 29  | ";:.820:U..(A$)|
00000880: 3A 8B 55 B3 30 B0 55 B1  4E A7 89 38 30 00 A9 10  |:.U.0.U.N..80...|
00000890: 12 02 8B CA 28 53 24 28  55 29 2C 31 2C 31 29 B2  |....(S$(U),1,1).|
000008A0: 22 12 22 A7 55 B2 55 AA  31 00 E0 10 1C 02 8D 38  |".".U.U.1......8|
000008B0: 33 30 3A 4B B2 30 3A 81  49 B2 55 A4 4B 4B 3A 8B  |30:K.0:.I.U.KK:.|
000008C0: C8 28 28 53 24 28 49 29  29 2C 31 29 B2 22 12 22  |.((S$(I)),1)."."|
000008D0: A7 4B B2 31 3A 4E 4E B2  49 AB 31 3A 49 B2 4B 4B  |.K.1:NN.I.1:I.KK|
000008E0: 00 F0 10 26 02 82 49 3A  8B 4B B2 31 A7 35 37 30  |...&..I:.K.1.570|
000008F0: 00 FA 10 30 02 4E 4E B2  4B 4B 00 02 11 3A 02 49  |...0.NN.KK...:.I|
00000900: B2 30 00 16 11 44 02 4A  B2 55 3A 8B 49 B2 4E 4E  |.0...D.J.U:.I.NN|
00000910: AB 55 A7 31 34 30 00 26  11 4E 02 8B 4A B2 4E 4E  |.U.140.&.N..J.NN|
00000920: AB 49 A7 36 32 30 00 5D  11 58 02 8B 53 24 28 4A  |.I.620.].X..S$(J|
00000930: 29 B1 53 24 28 4A AA 31  29 A7 54 50 24 B2 53 24  |).S$(J.1).TP$.S$|
00000940: 28 4A 29 3A 53 24 28 4A  29 B2 53 24 28 4A AA 31  |(J):S$(J).S$(J.1|
00000950: 29 3A 53 24 28 4A AA 31  29 B2 54 50 24 00 6C 11  |):S$(J.1).TP$.l.|
00000960: 62 02 4A B2 4A AA 31 3A  89 35 39 30 00 8F 11 6C  |b.J.J.1:.590...l|
00000970: 02 49 B2 49 AA 31 3A 97  35 33 32 38 30 2C B5 28  |.I.I.1:.53280,.(|
00000980: BB 28 4B 29 AC 31 35 AA  31 29 3A 89 35 38 30 00  |.(K).15.1):.580.|
00000990: A2 11 76 02 A1 41 24 3A  8B 41 24 B2 22 22 A7 36  |..v..A$:.A$."".6|
000009A0: 33 30 00 A8 11 80 02 8E  00 B9 11 8A 02 99 22 13  |30............".|
000009B0: 22 A3 33 30 29 3B 49 3A  8E 00 DC 11 94 02 99 22  |".30);I:......."|
000009C0: 11 11 12 41 52 45 20 59  4F 55 20 53 55 52 45 3F  |...ARE YOU SURE?|
000009D0: 20 59 2F 4E 22 3A 8D 36  33 30 3A 8E 00 00 12 9E  | Y/N":.630:.....|
000009E0: 02 99 22 93 12 48 41 52  44 20 43 4F 50 59 22 3A  |.."..HARD COPY":|
000009F0: 8D 36 36 30 3A 8B 41 24  B3 B1 22 59 22 A7 34 30  |.660:.A$.."Y".40|
00000A00: 00 2E 12 A8 02 99 22 45  4E 54 49 52 45 20 46 49  |......"ENTIRE FI|
00000A10: 4C 45 3F 22 3A 8D 36 33  30 3A 8B 41 24 B2 22 59  |LE?":.630:.A$."Y|
00000A20: 22 A7 46 B2 30 3A 4D B2  4E 3A 89 37 31 30 00 4C  |".F.0:M.N:.710.L|
00000A30: 12 B2 02 8D 38 32 30 3A  46 B2 C5 28 41 24 29 3A  |....820:F..(A$):|
00000A40: 8B 46 B3 30 B0 46 B1 4E  89 36 37 30 00 7A 12 BC  |.F.0.F.N.670.z..|
00000A50: 02 99 22 45 4E 44 49 4E  47 22 52 24 3A 85 41 24  |.."ENDING"R$:.A$|
00000A60: 3A 4D B2 C5 28 41 24 29  3A 8B 4D B3 30 B0 4D B1  |:M..(A$):.M.0.M.|
00000A70: 4E B0 4D B2 B3 46 A7 36  37 30 00 9E 12 C6 02 9F  |N.M..F.670......|
00000A80: 34 2C 34 3A 41 24 B2 22  22 3A 81 49 B2 31 A4 B5  |4,4:A$."":.I.1..|
00000A90: 28 28 34 30 AB C3 28 54  24 29 29 AD 32 29 00 D4  |((40..(T$)).2)..|
00000AA0: 12 D0 02 41 24 B2 41 24  AA 22 20 22 3A 82 49 3A  |...A$.A$." ":.I:|
00000AB0: 41 24 B2 41 24 AA 22 92  22 3A 98 34 2C C7 28 31  |A$.A$.".":.4,.(1|
00000AC0: 34 29 41 24 AA 54 24 AA  46 24 C7 28 31 30 29 C7  |4)A$.T$.F$.(10).|
00000AD0: 28 31 30 29 00 F8 12 DA  02 4C 4C B2 34 3A 81 49  |(10).....LL.4:.I|
00000AE0: B2 4B A4 4E 3A 8B C8 28  53 24 28 49 29 2C 31 29  |.K.N:..(S$(I),1)|
00000AF0: B2 22 12 22 A7 37 36 30  00 2A 13 E4 02 8B 53 24  |.".".760.*....S$|
00000B00: 28 49 29 B3 B1 22 C0 22  A7 98 34 2C C7 28 31 35  |(I).."."..4,.(15|
00000B10: 29 22 20 20 20 20 20 22  53 24 28 49 29 C7 28 31  |)"     "S$(I).(1|
00000B20: 30 29 3A 4C 4C B2 4C 4C  AA 32 00 33 13 EE 02 89  |0):LL.LL.2.3....|
00000B30: 37 39 30 00 5F 13 F8 02  41 24 B2 22 22 3A 81 4B  |790._...A$."":.K|
00000B40: 4B B2 37 A4 C3 28 53 24  28 49 29 29 AC 36 3A 41  |K.7..(S$(I)).6:A|
00000B50: 24 B2 41 24 AA C7 28 32  35 35 29 3A 82 4B 4B 00  |$.A$..(255):.KK.|
00000B60: 8A 13 02 03 98 34 2C 22  20 20 20 20 20 22 47 24  |.....4,"     "G$|
00000B70: AA 41 24 3A 98 34 2C 46  24 AA 22 20 20 20 20 20  |.A$:.4,F$."     |
00000B80: 22 AA 53 24 28 49 29 AA  47 24 00 B2 13 0C 03 98  |".S$(I).G$......|
00000B90: 34 2C 46 24 AA 22 20 20  20 20 20 22 AA 47 24 AA  |4,F$."     ".G$.|
00000BA0: 41 24 AA 46 24 C7 28 31  30 29 3A 4C 4C B2 4C 4C  |A$.F$.(10):LL.LL|
00000BB0: AA 34 00 E0 13 16 03 8B  4C 4C B1 35 39 A7 81 4E  |.4......LL.59..N|
00000BC0: 4C B2 4C 4C A4 37 32 3A  98 34 2C C7 28 31 30 29  |L.LL.72:.4,.(10)|
00000BD0: 3B 3A 82 4E 4C 3A 98 34  2C 22 22 3A 4C 4C B2 33  |;:.NL:.4,"":LL.3|
00000BE0: 00 EE 13 20 03 82 49 3A  A0 34 3A 89 34 30 00 08  |... ..I:.4:.40..|
00000BF0: 14 2A 03 81 4A B2 30 A4  4E 3A 53 24 28 4A 29 B2  |.*..J.0.N:S$(J).|
00000C00: 22 C0 22 3A 82 4A 3A 8E  00 20 14 34 03 99 22 53  |".":.J:.. .4.."S|
00000C10: 54 41 52 54 49 4E 47 22  52 24 3A 85 41 24 3A 8E  |TARTING"R$:.A$:.|
00000C20: 00 48 14 3E 03 81 49 B2  4E A4 30 A9 AB 31 3A 8B  |.H.>..I.N.0..1:.|
00000C30: 53 24 28 49 29 B3 B1 22  C0 22 A7 4B 4B B2 49 3A  |S$(I)..".".KK.I:|
00000C40: 49 B2 30 3A 89 38 35 30  00 51 14 48 03 4B 4B B2  |I.0:.850.Q.H.KK.|
00000C50: 49 00 5A 14 52 03 82 49  3A 8E 00 80 14 5C 03 81  |I.Z.R..I:....\..|
00000C60: 49 B2 4A AA 31 A4 4E 3A  8B 53 24 28 49 29 B2 22  |I.J.1.N:.S$(I)."|
00000C70: C0 22 A7 4B 4B B2 49 3A  49 B2 4E 3A 89 38 35 30  |.".KK.I:I.N:.850|
00000C80: 00 89 14 66 03 4B 4B B2  49 00 92 14 70 03 82 49  |...f.KK.I...p..I|
00000C90: 3A 8E 00 B4 14 7A 03 81  49 B2 4E A4 30 A9 AB 31  |:....z..I.N.0..1|
00000CA0: 3A 4B B2 49 3A 8B 53 24  28 49 29 B3 B1 22 C0 22  |:K.I:.S$(I).."."|
00000CB0: A7 49 B2 30 00 C1 14 84  03 82 49 3A 4B B2 4B AA  |.I.0......I:K.K.|
00000CC0: 31 00 DC 14 8E 03 98 4A  2C 54 24 AA 22 20 D8 22  |1......J,T$." ."|
00000CD0: 3A 98 4A 2C 4B 3A 81 49  B2 30 A4 4B 00 F7 14 98  |:.J,K:.I.0.K....|
00000CE0: 03 98 4A 2C 53 24 28 49  29 3A 8D 36 35 30 3A 82  |..J,S$(I):.650:.|
00000CF0: 3A A0 4A 3A 89 34 30 00  2C 15 A2 03 84 4A 2C 4E  |:.J:.40.,....J,N|
00000D00: 24 3A 8B C9 28 4E 24 2C  32 29 B3 B1 22 20 D8 22  |$:..(N$,2).." ."|
00000D10: A7 99 4E 24 22 20 4E 4F  54 20 46 4F 55 4E 44 22  |..N$" NOT FOUND"|
00000D20: 3A 8D 36 33 30 3A A0 4A  3A 89 34 30 00 5A 15 AC  |:.630:.J:.40.Z..|
00000D30: 03 54 24 B2 4E 24 3A 54  24 B2 C8 28 54 24 2C C3  |.T$.N$:T$..(T$,.|
00000D40: 28 54 24 29 AB 32 29 3A  99 22 11 12 46 4F 55 4E  |(T$).2):."..FOUN|
00000D50: 44 20 22 54 24 3A 84 4A  2C 4B 00 A5 15 B6 03 8B  |D "T$:.J,K......|
00000D60: 4B B1 4E A7 99 22 11 12  57 41 52 4E 49 4E 47 3A  |K.N.."..WARNING:|
00000D70: 22 3A 99 22 46 49 4C 45  20 4F 52 49 47 49 4E 41  |":."FILE ORIGINA|
00000D80: 54 45 44 20 46 52 4F 4D  20 20 56 49 43 20 57 49  |TED FROM  VIC WI|
00000D90: 54 48 20 4C 41 52 47 45  52 20 4D 45 4D 4F 52 59  |TH LARGER MEMORY|
00000DA0: 22 3A 4B B2 4E 00 C7 15  C0 03 81 49 B2 30 A4 4B  |":K.N......I.0.K|
00000DB0: 3A 84 4A 2C 53 24 28 49  29 3A 8D 36 35 30 3A 82  |:.J,S$(I):.650:.|
00000DC0: 3A A0 4A 3A 89 34 30 00  F5 15 CA 03 99 22 12 93  |:.J:.40......"..|
00000DD0: 44 49 53 43 20 46 49 4C  45 20 4C 49 53 54 49 4E  |DISC FILE LISTIN|
00000DE0: 47 3F 20 11 22 3A 8D 36  33 30 3A 8B 41 24 B3 B1  |G? .":.630:.A$..|
00000DF0: 22 59 22 A7 8E 00 0D 16  D4 03 99 22 93 12 53 43  |"Y"........"..SC|
00000E00: 41 4E 4E 49 4E 47 20 44  49 53 43 11 22 00 1D 16  |ANNING DISC."...|
00000E10: DE 03 9F 31 2C 38 2C 30  2C 22 24 30 22 00 2B 16  |...1,8,0,"$0".+.|
00000E20: E8 03 A1 23 31 2C 41 24  2C 42 24 00 39 16 F2 03  |...#1,A$,B$.9...|
00000E30: A1 23 31 2C 41 24 2C 42  24 00 47 16 FC 03 A1 23  |.#1,A$,B$.G....#|
00000E40: 31 2C 41 24 2C 42 24 00  4F 16 06 04 43 B2 30 00  |1,A$,B$.O...C.0.|
00000E50: 64 16 10 04 8B 20 41 24  B3 B1 22 22 A7 43 B2 C6  |d.... A$.."".C..|
00000E60: 28 41 24 29 00 7F 16 1A  04 8B 20 42 24 B3 B1 22  |(A$)...... B$.."|
00000E70: 22 A7 43 B2 43 AA C6 28  42 24 29 AC 32 35 36 00  |".C.C..(B$).256.|
00000E80: 9B 16 24 04 44 24 B2 44  24 AA 22 12 22 AA CA 28  |..$.D$.D$."."..(|
00000E90: C4 28 43 29 2C 32 29 AA  22 92 22 00 B4 16 2E 04  |.(C),2).".".....|
00000EA0: A1 23 31 2C 42 24 3A 8B  53 54 B3 B1 30 A7 A0 31  |.#1,B$:.ST..0..1|
00000EB0: 3A 99 3A 8E 00 C9 16 38  04 8B 20 42 24 B3 B1 C7  |:.:....8.. B$...|
00000EC0: 28 33 34 29 A7 31 30 37  30 00 EF 16 42 04 A1 23  |(34).1070...B..#|
00000ED0: 31 2C 42 24 3A 8B 20 42  24 B3 B1 C7 28 33 34 29  |1,B$:. B$...(34)|
00000EE0: A7 44 24 B2 44 24 AA 42  24 3A 89 31 30 39 30 00  |.D$.D$.B$:.1090.|
00000EF0: 09 17 4C 04 A1 23 31 2C  42 24 3A 8B 42 24 B2 C7  |..L..#1,B$:.B$..|
00000F00: 28 33 32 29 A7 31 31 30  30 00 13 17 56 04 43 24  |(32).1100...V.C$|
00000F10: B2 22 22 00 34 17 60 04  43 24 B2 43 24 AA 42 24  |."".4.`.C$.C$.B$|
00000F20: 3A A1 23 31 2C 42 24 3A  8B 42 24 B3 B1 22 22 A7  |:.#1,B$:.B$.."".|
00000F30: 31 31 32 30 00 49 17 6A  04 8B C9 28 44 24 2C 31  |1120.I.j...(D$,1|
00000F40: 29 B2 22 D8 22 A7 99 44  24 00 59 17 74 04 44 24  |)."."..D$.Y.t.D$|
00000F50: B2 22 22 3A 89 31 30 31  30 00 9D 17 7E 04 59 B2  |."":.1010...~.Y.|
00000F60: 59 AB 31 3A 81 49 B2 30  A4 43 3A 43 24 28 49 2C  |Y.1:.I.0.C:C$(I,|
00000F70: 50 25 28 4C 29 29 B2 22  C0 22 3A 82 49 3A 81 49  |P%(L)).".":.I:.I|
00000F80: B2 4C A4 59 3A 50 25 28  49 29 B2 50 25 28 49 AA  |.L.Y:P%(I).P%(I.|
00000F90: 31 29 3A 82 49 3A 4C B2  4C AB 31 3A 8E 00 CF 17  |1):.I:L.L.1:....|
00000FA0: 88 04 8B C8 28 53 24 28  4A 29 2C 31 29 B2 22 5F  |....(S$(J),1)."_|
00000FB0: 22 A7 53 24 28 4A 29 B2  22 12 22 AA C9 28 53 24  |".S$(J)."."..(S$|
00000FC0: 28 4A 29 2C C3 28 53 24  28 4A 29 29 AB 31 29 00  |(J),.(S$(J)).1).|
00000FD0: D8 17 92 04 89 31 34 30  00 00 00                 |.....140...     |

..+....53281,7:.".":. *** DATABASE C-64 
***.U..... 5)"INSTRUCTIONS FOR DATABASE 
C-64".......2)"..C= CATALOG".14)"P= PAGE
".25)"E= ENTER LINE".......2)"...S= SAVE
".14)"L= LOAD".25)"H= HARD COPY".......2
)"...I= INPUT NEW LINE".25)"N= NEW FILE"
.......2)"...K= KILL LINE".25)"A= ALFABE
TIZER".=.....12)"...SPACE= NEXT PAGE".I.
....17)".... START ."" * "". HIT A KEY .
".Z....A$:.A$."".9......53281,14 :T$."NO
 NAME"......"..FILE NAME":.T$:."......  
            PLEASE WAIT":T$.H(T$,14)....
.N.1000:P.1:X.(N.1).10:.S$(N):R$." LINE#
":.810:.80...(.K.0.I.2.Q.0:."...CATALOG:
 ";T$"..":."YOUR CHOICE ?...<..J.K.N:.F(
S$(J)).18..".".(J.10.1);S$(J):Q.Q.1:.Q.1
0.80...F..J...P..260:.A.0.80.N.Z..A.40,1
20,190,220,290,360,410,670,470,520,310..
.D..J.N.1.K.J:.50...N..40...X.."..PAGE#"
:.A$:P.E(A$):.270:.A..0.90.+....P.1.P.X.
."...":.120.C...."..PAGE"P;T$"..":.I.0.9
:L.(P.1).10.I:."."L;S$(L):..U....260:.A.
0.150... ..A..12.90.....P.P.1:.P.X.P.1..
....140.R...A$."-1":."..ENTER"R$:.A$:J.E
(A$):.270:.A..0.90...H..J.0.J..(X).10.1.
.".....":.190...R..S$(J):.1160.:...A$."-
1":."..INSERT"R$:.A$:J.E(A$):.270:.A..0.
90.]....J.0.J..(X).10.1..".....":.220...
..."ENTRY":.D$:."INSERTING":.R.N.140....
..860:.I.KK.J.1..1:S$(I).S$(I.1):.:S$(J)
.D$:.1160.....E$."C,P,E,I,N,S,L,H,K,A,?.
 ":..9)".."E$"...":.630.....A.0:.I.1.13:
.J(E$,I.2.1,1).A$.A.I:I.13.#....I:..8.".
.660:.A$.."Y".40.Z.,.."NEW FILE NAME":.T
$:.810:.40...6.."..C.ATALOG.":."CALL .P.
AGE.":.".I.NSERT"R$.L.@.."..E.NTER"R$:."
..K.ILL"R$:."..A.LPHABETIZE.":.".N.EW FI
LE."...J..".L.OAD FROM TAPE OR DISC":.".
.S.AVE TO TAPE OR DISC.".F.T..".?. DEFIN
ITIONS":."..H. LIST TO PRINTER.":.260:.A
.0.310.N.^..90.}.H.."..SAVE TO TAPE OR D
ISC":.660:.A$.."Y".40...R..".D.ISC OR .T
.APE?":.630:.A$."T".400...|..A$.."D".40.
.....2,8,2,"@0:".T$." X,S,W":J.2:.890...
...1,1,1,T$:J.1:.890.%...."..LOAD FROM T
APE OR DISC":.660:.A$.."Y".40.O....".D.I
SC OR .T.APE?":.630:.A$."T".460._....A$.
."D".40......970:.".FILE NAME?":.N$:.N$.
"".40...B..2,8,2,"0:".N$." X,S,R":J.2:.9
30...L..1,1,0:J.1:.930...V.."..KILL"R$:.
A$:J.E(A$):.270:.A..0.90......J.0.J.N.."
..":.470./....I.J.N.1:.S$(I).".".S$(I.1)
.".".I.N.1:.510.F...S$(I).S$(I.1):.650.[
....:S$(N).".":.140......"..ALPHABETIZE 
 ";:.820:U.E(A$):.U.0.U.N..80......J(S$(
U),1,1).".".U.U.1......830:K.0:.I.U.KK:.
H((S$(I)),1).".".K.1:NN.I.1:I.KK...&..I:
.K.1.570...0.NN.KK...:.I.0...D.J.U:.I.NN
.U.140.&.N..J.NN.I.620.].X..S$(J).S$(J.1
).TP$.S$(J):S$(J).S$(J.1):S$(J.1).TP$.L.
B.J.J.1:.590...L.I.I.1:.53280,.(.(K).15.
1):.580...V..A$:.A$."".630............".
".30);I:......."...ARE YOU SURE? Y/N":.6
30:......."..HARD COPY":.660:.A$.."Y".40
......"ENTIRE FILE?":.630:.A$."Y".F.0:M.
N:.710.L....820:F.E(A$):.F.0.F.N.670.Z..
.."ENDING"R$:.A$:M.E(A$):.M.0.M.N.M..F.6
70...F..4,4:A$."":.I.1..((40.C(T$)).2).T
.P.A$.A$." ":.I:A$.A$.".":.4,G(14)A$.T$.
F$G(10)G(10)...Z.LL.4:.I.K.N:.H(S$(I),1)
.".".760.*....S$(I).."."..4,G(15)"     "
S$(I)G(10):LL.LL.2.3....790._...A$."":.K
K.7.C(S$(I)).6:A$.A$.G(255):.KK......4,"
     "G$.A$:.4,F$."     ".S$(I).G$......
4,F$."     ".G$.A$.F$G(10):LL.LL.4......
LL.59..NL.LL.72:.4,G(10);:.NL:.4,"":LL.3
... ..I: 4:.40...*..J.0.N:S$(J).".":.J:.
. .4.."STARTING"R$:.A$:..H.>..I.N.0..1:.
S$(I)..".".KK.I:I.0:.850.Q.H.KK.I.Z.R..I
:....\..I.J.1.N:.S$(I).".".KK.I:I.N:.850
...F.KK.I...P..I:....Z..I.N.0..1:K.I:.S$
(I)..".".I.0.A....I:K.K.1......J,T$." X"
:.J,K:.I.0.K......J,S$(I):.650:.: J:.40.
,....J,N$:.I(N$,2).." X"..N$" NOT FOUND"
:.630: J:.40.Z...T$.N$:T$.H(T$,C(T$).2):
."..FOUND "T$:.J,K......K.N.."..WARNING:
":."FILE ORIGINATED FROM  VIC WITH LARGE
R MEMORY":K.N.G....I.0.K:.J,S$(I):.650:.
: J:.40...J.."..DISC FILE LISTING? .":.6
30:.A$.."Y".....T.."..SCANNING DISC."...
...1,8,0,"$0".+....#1,A$,B$.9....#1,A$,B
$.G....#1,A$,B$.O...C.0.D.... A$.."".C.F
(A$)..... B$.."".C.C.F(B$).256...$.D$.D
$.".".J(D(C),2)."."......#1,B$:.ST..0. 1
:.:..I.8.. B$..G(34).1070...B..#1,B$:. B
$..G(34).D$.D$.B$:.1090...L..#1,B$:.B$.G
(32).1100...V.C$."".4.`.C$.C$.B$:.#1,B$:
.B$.."".1120.I.J..I(D$,1)."X"..D$.Y.T.D$
."":.1010...~.Y.Y.1:.I.0.C:C$(I,P%(L))."
.":.I:.I.L.Y:P%(I).P%(I.1):.I:L.L.1:..O.
...H(S$(J),1)."_".S$(J).".".I(S$(J),C(S$
(J)).1).X....140...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL