HOME LIBRARY

00000000: 01 08 26 08 01 00 8F 20  20 48 4F 4D 45 20 4C 49  |..&....  HOME LI|
00000010: 42 52 41 52 59 20 46 4F  52 20 43 4F 4D 4D 4F 44  |BRARY FOR COMMOD|
00000020: 4F 52 45 20 36 34 00 41  08 02 00 97 35 33 32 38  |ORE 64.A....5328|
00000030: 30 2C 30 3A 97 35 33 32  38 31 2C 30 3A 99 22 9A  |0,0:.53281,0:.".|
00000040: 22 00 58 08 0A 00 99 22  93 11 4E 41 4D 45 20 46  |".X...."..NAME F|
00000050: 4F 52 20 46 49 4C 45 22  00 60 08 14 00 85 46 24  |OR FILE".`....F$|
00000060: 00 76 08 19 00 8B 46 24  B2 22 22 A7 46 24 B2 22  |.v....F$."".F$."|
00000070: 54 52 49 41 4C 22 00 9F  08 1E 00 46 B2 35 30 30  |TRIAL".....F.500|
00000080: 3A 86 41 24 28 46 29 2C  54 24 28 46 29 2C 41 25  |:.A$(F),T$(F),A%|
00000090: 28 46 29 2C 54 25 28 46  29 2C 42 25 28 46 29 00  |(F),T%(F),B%(F).|
000000A0: B6 08 28 00 96 A5 41 28  41 29 B2 B5 28 2E 35 AC  |..(...A(A)..(.5.|
000000B0: 28 48 AA 4C 29 29 00 C1  08 C7 00 8F 20 4D 45 4E  |(H.L))...... MEN|
000000C0: 55 00 D4 08 C8 00 99 22  93 22 46 24 22 20 42 4F  |U......"."F$" BO|
000000D0: 4F 4B 53 22 00 EC 08 CD  00 99 22 4E 55 4D 42 45  |OKS"......"NUMBE|
000000E0: 52 20 4F 4E 20 46 49 4C  45 3A 22 4E 00 0F 09 D2  |R ON FILE:"N....|
000000F0: 00 99 22 11 11 57 48 41  54 20 44 4F 20 59 4F 55  |.."..WHAT DO YOU|
00000100: 20 57 49 53 48 20 54 4F  20 44 4F 3F 11 11 22 00  | WISH TO DO?..".|
00000110: 2C 09 DC 00 99 A3 33 29  22 31 2E 20 49 4E 50 55  |,.....3)"1. INPU|
00000120: 54 20 4E 45 57 20 42 4F  4F 4B 53 22 00 43 09 E6  |T NEW BOOKS".C..|
00000130: 00 99 A3 33 29 22 32 2E  20 4C 4F 41 44 20 46 49  |...3)"2. LOAD FI|
00000140: 4C 45 22 00 5C 09 F0 00  99 A3 33 29 22 33 2E 20  |LE".\.....3)"3. |
00000150: 53 41 56 45 20 41 20 46  49 4C 45 22 00 71 09 FA  |SAVE A FILE".q..|
00000160: 00 99 A3 33 29 22 34 2E  20 44 49 53 50 4C 41 59  |...3)"4. DISPLAY|
00000170: 22 00 84 09 04 01 99 A3  33 29 22 35 2E 20 50 52  |".......3)"5. PR|
00000180: 49 4E 54 22 00 98 09 0E  01 99 A3 33 29 22 36 2E  |INT".......3)"6.|
00000190: 20 53 45 41 52 43 48 22  00 AC 09 10 01 99 A3 33  | SEARCH".......3|
000001A0: 29 22 37 2E 20 44 45 4C  45 54 45 22 00 C0 09 12  |)"7. DELETE"....|
000001B0: 01 99 A3 33 29 22 38 2E  20 4D 4F 44 49 46 59 22  |...3)"8. MODIFY"|
000001C0: 00 D1 09 18 01 99 A3 33  29 22 39 2E 20 45 4E 44  |.......3)"9. END|
000001D0: 22 00 EB 09 22 01 99 22  11 11 54 59 50 45 20 59  |"...".."..TYPE Y|
000001E0: 4F 55 52 20 43 48 4F 49  43 45 22 00 FD 09 2C 01  |OUR CHOICE"...,.|
000001F0: 51 B2 39 3A 8D 39 30 30  3A 99 22 93 22 00 09 0A  |Q.9:.900:."."...|
00000200: 31 01 4C B2 31 3A 48 B2  4E 00 3C 0A 36 01 91 58  |1.L.1:H.N.<.6..X|
00000210: 8D 31 30 30 30 2C 33 35  30 30 2C 34 30 30 30 2C  |.1000,3500,4000,|
00000220: 32 35 30 30 2C 33 30 30  30 2C 35 30 30 30 2C 36  |2500,3000,5000,6|
00000230: 35 30 30 2C 36 30 30 30  2C 37 30 30 00 45 0A 40  |500,6000,700.E.@|
00000240: 01 89 32 30 30 00 52 0A  BC 02 A0 38 3A A0 31 35  |..200.R....8:.15|
00000250: 3A 80 00 58 0A 1F 03 3A  00 63 0A 20 03 97 31 39  |:..X...:.c. ..19|
00000260: 38 2C 30 00 78 0A 2A 03  99 22 11 11 48 49 54 20  |8,0.x.*.."..HIT |
00000270: 41 4E 59 20 4B 45 59 22  00 8C 0A 34 03 92 31 39  |ANY KEY"...4..19|
00000280: 38 2C 31 3A 97 31 39 38  2C 30 3A 8E 00 92 0A 83  |8,1:.198,0:.....|
00000290: 03 3A 00 A5 0A 84 03 A1  58 24 3A 8B 58 24 B2 22  |.:......X$:.X$."|
000002A0: 22 A7 39 30 30 00 DB 0A  8E 03 58 B2 C5 28 58 24  |".900.....X..(X$|
000002B0: 29 3A 8B 58 B3 31 B0 58  B1 51 A7 99 22 54 59 50  |):.X.1.X.Q.."TYP|
000002C0: 45 20 41 20 4E 55 4D 42  45 52 20 46 52 4F 4D 20  |E A NUMBER FROM |
000002D0: 31 20 54 4F 22 51 3A 89  39 30 30 00 E1 0A 98 03  |1 TO"Q:.900.....|
000002E0: 8E 00 E7 0A B5 03 3A 00  FB 0A B6 03 99 A3 33 29  |......:.......3)|
000002F0: 22 31 2E 20 41 55 54 48  4F 52 22 00 0E 0B C0 03  |"1. AUTHOR".....|
00000300: 99 A3 33 29 22 32 2E 20  54 49 54 4C 45 22 00 29  |..3)"2. TITLE".)|
00000310: 0B CA 03 99 22 11 11 11  54 59 50 45 20 59 4F 55  |...."...TYPE YOU|
00000320: 52 20 43 48 4F 49 43 45  22 00 36 0B D4 03 51 B2  |R CHOICE".6...Q.|
00000330: 32 3A 8D 39 30 30 00 3C  0B DE 03 8E 00 42 0B E7  |2:.900.<.....B..|
00000340: 03 3A 00 65 0B E8 03 99  22 93 54 59 50 45 20 30  |.:.e....".TYPE 0|
00000350: 20 46 4F 52 20 41 55 54  48 4F 52 20 54 4F 20 45  | FOR AUTHOR TO E|
00000360: 4E 44 11 11 22 00 79 0B  F2 03 4E B2 4E AA 31 3A  |ND..".y...N.N.1:|
00000370: 8B 4E B1 46 A7 31 30 36  30 00 91 0B FC 03 99 22  |.N.F.1060......"|
00000380: 1C 41 55 54 48 4F 52 3A  1F 22 3A 85 41 24 28 4E  |.AUTHOR:.":.A$(N|
00000390: 29 00 AC 0B 06 04 8B 41  24 28 4E 29 B2 22 30 22  |)......A$(N)."0"|
000003A0: A7 4E B2 4E AB 31 3A 89  31 31 30 30 00 C8 0B 10  |.N.N.1:.1100....|
000003B0: 04 8B 41 24 28 4E 29 B2  22 22 A7 41 24 28 4E 29  |..A$(N)."".A$(N)|
000003C0: B2 41 24 28 4E AB 31 29  00 DF 0B 1A 04 99 22 1C  |.A$(N.1)......".|
000003D0: 54 49 54 4C 45 3A 1F 22  3A 85 54 24 28 4E 29 00  |TITLE:.":.T$(N).|
000003E0: ED 0B 1F 04 50 B2 4E 3A  8D 32 30 30 30 00 18 0C  |....P.N:.2000...|
000003F0: 24 04 4E B2 4E AA 31 3A  8B 4E B1 46 A7 4E B2 46  |$.N.N.1:.N.F.N.F|
00000400: 3A 99 22 11 11 46 55 4C  4C 20 55 50 22 3A 8D 38  |:."..FULL UP":.8|
00000410: 30 30 3A 89 31 31 30 30  00 44 0C 25 04 8B 4E B1  |00:.1100.D.%..N.|
00000420: 46 AB 31 30 A7 99 22 11  1C 52 4F 4F 4D 20 54 4F  |F.10.."..ROOM TO|
00000430: 20 45 4E 54 45 52 22 46  AA 31 AB 4E 22 4D 4F 52  | ENTER"F.1.N"MOR|
00000440: 45 1F 11 22 00 4E 0C 38  04 89 31 30 32 30 00 54  |E..".N.8..1020.T|
00000450: 0C 4C 04 8E 00 5A 0C CF  07 3A 00 75 0C D0 07 54  |.L...Z...:.u...T|
00000460: 24 B2 54 24 28 50 29 3A  8D 32 34 30 30 3A 42 25  |$.T$(P):.2400:B%|
00000470: 28 50 29 B2 42 00 8C 0C  DA 07 8B 4E B2 31 A7 54  |(P).B......N.1.T|
00000480: 25 28 31 29 B2 31 3A 89  32 31 35 30 00 A2 0C E4  |%(1).1:.2150....|
00000490: 07 4C B2 31 3A 48 B2 4E  AB 31 3A 42 B2 42 25 28  |.L.1:H.N.1:B.B%(|
000004A0: 50 29 00 B7 0C EE 07 8B  48 B3 4C A7 4D B2 48 AA  |P)......H.L.M.H.|
000004B0: 31 3A 89 32 31 30 30 00  D3 0C F8 07 4D B2 A5 41  |1:.2100.....M..A|
000004C0: 28 4F 29 3A 53 B2 54 25  28 4D 29 3A 55 B2 42 25  |(O):S.T%(M):U.B%|
000004D0: 28 53 29 00 FA 0C 02 08  8B C9 28 54 24 28 50 29  |(S).......(T$(P)|
000004E0: 2C 42 29 B3 C9 28 54 24  28 53 29 2C 55 29 A7 48  |,B)..(T$(S),U).H|
000004F0: B2 4D AB 31 3A 89 32 30  33 30 00 21 0D 0C 08 8B  |.M.1:.2030.!....|
00000500: C9 28 54 24 28 50 29 2C  42 29 B1 C9 28 54 24 28  |.(T$(P),B)..(T$(|
00000510: 53 29 2C 55 29 A7 4C B2  4D AA 31 3A 89 32 30 33  |S),U).L.M.1:.203|
00000520: 30 00 3E 0D 16 08 8B 41  24 28 50 29 B3 41 24 28  |0.>....A$(P).A$(|
00000530: 53 29 A7 48 B2 4D AB 31  3A 89 32 30 33 30 00 5B  |S).H.M.1:.2030.[|
00000540: 0D 20 08 8B 41 24 28 50  29 B1 41 24 28 53 29 A7  |. ..A$(P).A$(S).|
00000550: 4C B2 4D AA 31 3A 89 32  30 33 30 00 71 0D 2A 08  |L.M.1:.2030.q.*.|
00000560: 53 B2 54 25 28 4D AA 31  29 3A 55 B2 42 25 28 53  |S.T%(M.1):U.B%(S|
00000570: 29 00 A4 0D 2F 08 8B C9  28 54 24 28 50 29 2C 42  |).../...(T$(P),B|
00000580: 29 B2 C9 28 54 24 28 53  29 2C 55 29 AF 41 24 28  |)..(T$(S),U).A$(|
00000590: 50 29 B2 41 24 28 53 29  A7 4D B2 4D AA 31 3A 89  |P).A$(S).M.M.1:.|
000005A0: 32 30 39 30 00 B2 0D 34  08 8B 4D B2 4E A7 32 31  |2090...4..M.N.21|
000005B0: 34 30 00 C2 0D 3E 08 81  45 B2 4E A4 4D AA 31 A9  |40...>..E.N.M.1.|
000005C0: AB 31 00 D4 0D 48 08 54  25 28 45 29 B2 54 25 28  |.1...H.T%(E).T%(|
000005D0: 45 AB 31 29 00 DA 0D 52  08 82 00 E6 0D 5C 08 54  |E.1)...R.....\.T|
000005E0: 25 28 4D 29 B2 50 00 FD  0D 66 08 8B 4E B2 31 A7  |%(M).P...f..N.1.|
000005F0: 41 25 28 31 29 B2 31 3A  89 32 32 38 30 00 0B 0E  |A%(1).1:.2280...|
00000600: 70 08 4C B2 31 3A 48 B2  4E AB 31 00 20 0E 7A 08  |p.L.1:H.N.1. .z.|
00000610: 8B 48 B3 4C A7 4D B2 48  AA 31 3A 89 32 32 33 30  |.H.L.M.H.1:.2230|
00000620: 00 34 0E 84 08 4D B2 A5  41 28 4F 29 3A 53 B2 41  |.4...M..A(O):S.A|
00000630: 25 28 4D 29 00 51 0E 8E  08 8B 41 24 28 50 29 B3  |%(M).Q....A$(P).|
00000640: 41 24 28 53 29 A7 48 B2  4D AB 31 3A 89 32 31 37  |A$(S).H.M.1:.217|
00000650: 30 00 6E 0E 98 08 8B 41  24 28 50 29 B1 41 24 28  |0.n....A$(P).A$(|
00000660: 53 29 A7 4C B2 4D AA 31  3A 89 32 31 37 30 00 9D  |S).L.M.1:.2170..|
00000670: 0E A2 08 55 B2 42 25 28  53 29 3A 8B C9 28 54 24  |...U.B%(S):..(T$|
00000680: 28 50 29 2C 42 29 B3 C9  28 54 24 28 53 29 2C 55  |(P),B)..(T$(S),U|
00000690: 29 A7 48 B2 4D AB 31 3A  89 32 31 37 30 00 C4 0E  |).H.M.1:.2170...|
000006A0: AC 08 8B C9 28 54 24 28  50 29 2C 42 29 B1 C9 28  |....(T$(P),B)..(|
000006B0: 54 24 28 53 29 2C 55 29  A7 4C B2 4D AA 31 3A 89  |T$(S),U).L.M.1:.|
000006C0: 32 31 37 30 00 01 0F B1  08 53 B2 41 25 28 4D AA  |2170.....S.A%(M.|
000006D0: 31 29 3A 8B C9 28 54 24  28 50 29 2C 42 29 B2 C9  |1):..(T$(P),B)..|
000006E0: 28 54 24 28 53 29 2C 55  29 AF 41 24 28 50 29 B2  |(T$(S),U).A$(P).|
000006F0: 41 24 28 53 29 A7 4D B2  4D AA 31 3A 89 32 32 32  |A$(S).M.M.1:.222|
00000700: 35 00 0F 0F B6 08 8B 4D  B2 4E A7 32 32 37 30 00  |5......M.N.2270.|
00000710: 1F 0F C0 08 81 45 B2 4E  A4 4D AA 31 A9 AB 31 00  |.....E.N.M.1..1.|
00000720: 31 0F CA 08 41 25 28 45  29 B2 41 25 28 45 AB 31  |1...A%(E).A%(E.1|
00000730: 29 00 37 0F D4 08 82 00  43 0F DE 08 41 25 28 4D  |).7.....C...A%(M|
00000740: 29 B2 50 00 49 0F E8 08  8E 00 4F 0F 5F 09 3A 00  |).P.I.....O._.:.|
00000750: 5B 0F 60 09 42 B2 C3 28  54 24 29 00 73 0F 6A 09  |[.`.B..(T$).s.j.|
00000760: 8B C8 28 54 24 2C 32 29  B2 22 41 20 22 A7 42 B2  |..(T$,2)."A ".B.|
00000770: 42 AB 32 00 8C 0F 74 09  8B C8 28 54 24 2C 33 29  |B.2...t...(T$,3)|
00000780: B2 22 41 4E 20 22 A7 42  B2 42 AB 33 00 A6 0F 7E  |."AN ".B.B.3...~|
00000790: 09 8B C8 28 54 24 2C 34  29 B2 22 54 48 45 20 22  |...(T$,4)."THE "|
000007A0: A7 42 B2 42 AB 34 00 AC  0F 88 09 8E 00 B2 0F C3  |.B.B.4..........|
000007B0: 09 3A 00 D8 0F C4 09 99  22 93 44 49 53 50 4C 41  |.:......".DISPLA|
000007C0: 59 20 49 4E 20 57 48 49  43 48 20 4F 52 44 45 52  |Y IN WHICH ORDER|
000007D0: 3F 11 22 3A 8D 39 35 30  00 E9 0F CE 09 91 58 8D  |?.":.950......X.|
000007E0: 32 36 30 30 2C 32 37 30  30 00 EF 0F D8 09 8E 00  |2600,2700.......|
000007F0: F5 0F 27 0A 3A 00 02 10  28 0A 43 B2 2E 3A 99 22  |..'.:...(.C..:."|
00000800: 93 22 00 15 10 32 0A 81  47 B2 4C A4 48 3A 41 B2  |."...2..G.L.H:A.|
00000810: 41 25 28 47 29 00 33 10  3C 0A 8B C3 28 41 24 28  |A%(G).3.<...(A$(|
00000820: 41 29 29 B3 34 30 A7 99  41 24 28 41 29 3A 89 32  |A)).40..A$(A):.2|
00000830: 36 34 30 00 46 10 46 0A  5A 24 B2 41 24 28 41 29  |640.F.F.Z$.A$(A)|
00000840: 3A 8D 32 38 30 30 00 64  10 50 0A 8B C3 28 54 24  |:.2800.d.P...(T$|
00000850: 28 41 29 29 B3 34 30 A7  99 54 24 28 41 29 3A 89  |(A)).40..T$(A):.|
00000860: 32 36 36 30 00 77 10 5A  0A 5A 24 B2 54 24 28 41  |2660.w.Z.Z$.T$(A|
00000870: 29 3A 8D 32 38 30 30 00  83 10 64 0A 99 3A 43 B2  |):.2800...d..:C.|
00000880: 43 AA 31 00 9F 10 6E 0A  8B 43 B2 34 AF 47 B3 B1  |C.1...n..C.4.G..|
00000890: 48 A7 8D 38 30 30 3A 99  22 93 22 3A 43 B2 2E 00  |H..800:.".":C...|
000008A0: AA 10 78 0A 82 3A 8D 38  30 30 00 B0 10 82 0A 8E  |..x..:.800......|
000008B0: 00 B6 10 8B 0A 3A 00 C4  10 8C 0A 3A 43 B2 2E 3A  |.....:.....:C..:|
000008C0: 99 22 93 22 00 D7 10 96  0A 81 47 B2 4C A4 48 3A  |."."......G.L.H:|
000008D0: 54 B2 54 25 28 47 29 00  F7 10 A0 0A 8B C3 28 54  |T.T%(G).......(T|
000008E0: 24 28 54 29 29 B3 34 30  A7 99 28 54 24 28 54 29  |$(T)).40..(T$(T)|
000008F0: 29 3A 89 32 37 34 30 00  0A 11 AA 0A 5A 24 B2 54  |):.2740.....Z$.T|
00000900: 24 28 54 29 3A 8D 32 38  30 30 00 29 11 B4 0A 8B  |$(T):.2800.)....|
00000910: C3 28 41 24 28 54 29 29  B3 34 30 A7 99 41 24 28  |.(A$(T)).40..A$(|
00000920: 54 29 29 3A 89 32 37 36  30 00 3C 11 BE 0A 5A 24  |T)):.2760.<...Z$|
00000930: B2 41 24 28 54 29 3A 8D  32 38 30 30 00 48 11 C8  |.A$(T):.2800.H..|
00000940: 0A 99 3A 43 B2 43 AA 31  00 64 11 D2 0A 8B 43 B2  |..:C.C.1.d....C.|
00000950: 34 AF 47 B3 B1 48 A7 8D  38 30 30 3A 99 22 93 22  |4.G..H..800:."."|
00000960: 3A 43 B2 2E 00 6F 11 DC  0A 82 3A 8D 38 30 30 00  |:C...o....:.800.|
00000970: 75 11 E6 0A 8E 00 7B 11  EF 0A 3A 00 8B 11 F0 0A  |u.....{...:.....|
00000980: 5A B2 C3 28 5A 24 29 3A  55 B2 31 00 A8 11 FA 0A  |Z..(Z$):U.1.....|
00000990: 56 B2 30 3A 57 B2 55 AA  34 30 3A 8B 5A B2 34 30  |V.0:W.U.40:.Z.40|
000009A0: A7 8D 32 39 39 30 3A 8E  00 CE 11 04 0B 81 45 B2  |..2990:.......E.|
000009B0: 57 A4 55 A9 AB 31 3A 8B  CA 28 5A 24 2C 45 2C 31  |W.U..1:..(Z$,E,1|
000009C0: 29 B2 22 22 A7 56 B2 45  AB 55 3A 45 B2 55 00 F3  |)."".V.E.U:E.U..|
000009D0: 11 0E 0B 82 3A 8B 56 B2  30 A7 8D 32 39 39 30 3A  |....:.V.0..2990:|
000009E0: 55 B2 55 AA 34 30 3A 5A  B2 5A AB 34 30 3A 89 32  |U.U.40:Z.Z.40:.2|
000009F0: 38 36 30 00 1D 12 18 0B  8B 56 B1 30 AF 56 B3 34  |860......V.0.V.4|
00000A00: 30 A7 8D 32 39 38 30 3A  55 B2 55 AA 56 AA 31 3A  |0..2980:U.U.V.1:|
00000A10: 5A B2 5A AB 56 AB 31 3A  89 32 38 36 30 00 41 12  |Z.Z.V.1:.2860.A.|
00000A20: 22 0B 8B 56 B2 34 30 A7  8D 32 39 39 30 3A 55 B2  |"..V.40..2990:U.|
00000A30: 55 AA 34 31 3A 5A B2 5A  AB 34 31 3A 89 32 38 36  |U.41:Z.Z.41:.286|
00000A40: 30 00 4C 12 2C 0B 8B 5A  B3 31 A7 8E 00 61 12 36  |0.L.,..Z.1...a.6|
00000A50: 0B 8B 5A B3 34 30 A7 99  C9 28 5A 24 2C 5A 29 3A  |..Z.40...(Z$,Z):|
00000A60: 8E 00 6B 12 40 0B 89 32  38 31 30 00 7C 12 A4 0B  |..k.@..2810.|...|
00000A70: 99 CA 28 5A 24 2C 55 2C  56 29 3A 8E 00 8F 12 AE  |..(Z$,U,V):.....|
00000A80: 0B 99 CA 28 5A 24 2C 55  2C 34 30 29 3B 3A 8E 00  |...(Z$,U,40);:..|
00000A90: 95 12 B7 0B 3A 00 D4 12  B8 0B 99 22 93 53 45 4C  |....:......".SEL|
00000AA0: 45 43 54 20 4F 52 44 45  52 20 49 4E 20 57 48 49  |ECT ORDER IN WHI|
00000AB0: 43 48 20 45 4E 54 52 49  45 53 20 41 52 45 20 54  |CH ENTRIES ARE T|
00000AC0: 4F 20 42 45 20 50 52 49  4E 54 45 44 11 11 22 3A  |O BE PRINTED..":|
00000AD0: 8D 39 35 30 00 E0 12 BD  0B 4C B2 31 3A 48 B2 4E  |.950.....L.1:H.N|
00000AE0: 00 03 13 C2 0B 99 22 93  11 11 43 48 45 43 4B 20  |......"...CHECK |
00000AF0: 50 52 49 4E 54 45 52 20  41 4E 44 20 50 41 50 45  |PRINTER AND PAPE|
00000B00: 52 2E 22 00 2C 13 CC 0B  99 22 11 11 11 44 4F 20  |R.".,...."...DO |
00000B10: 59 4F 55 20 57 49 53 48  20 54 4F 20 50 52 49 4E  |YOU WISH TO PRIN|
00000B20: 54 20 4E 4F 57 3F 28 59  2F 4E 29 22 00 4A 13 D6  |T NOW?(Y/N)".J..|
00000B30: 0B A1 5A 24 3A 8B 5A 24  B3 B1 22 59 22 AF 5A 24  |..Z$:.Z$.."Y".Z$|
00000B40: B3 B1 22 4E 22 A7 33 30  33 30 00 58 13 E0 0B 8B  |.."N".3030.X....|
00000B50: 5A 24 B2 22 4E 22 A7 8E  00 61 13 EA 0B 9F 34 2C  |Z$."N"...a....4,|
00000B60: 34 00 77 13 F4 0B 98 34  2C C7 28 31 34 29 3B 46  |4.w....4,.(14);F|
00000B70: 24 3B C7 28 31 35 29 00  90 13 FE 0B 98 34 2C C7  |$;.(15)......4,.|
00000B80: 28 31 33 29 3B C7 28 31  33 29 3B C7 28 31 33 29  |(13);.(13);.(13)|
00000B90: 00 A5 13 08 0C 43 B2 35  3A 91 58 8D 33 32 30 30  |.....C.5:.X.3200|
00000BA0: 2C 33 33 30 30 00 B2 13  26 0C 8D 33 34 30 30 3A  |,3300...&..3400:|
00000BB0: A0 34 00 B8 13 30 0C 8E  00 C3 13 80 0C 81 47 B2  |.4...0........G.|
00000BC0: 4C A4 48 00 E2 13 8A 0C  41 B2 41 25 28 47 29 3A  |L.H.....A.A%(G):|
00000BD0: 98 34 2C 41 24 28 41 29  3B 22 2E 22 3B 54 24 28  |.4,A$(A);".";T$(|
00000BE0: 41 29 00 14 14 8F 0C 43  B2 43 AA 31 AA B5 28 28  |A).....C.C.1..((|
00000BF0: C3 28 41 24 28 41 29 29  AA C3 28 54 24 28 41 29  |.(A$(A))..(T$(A)|
00000C00: 29 AA 31 29 AD 38 30 29  3A 8B 43 B1 35 35 A7 8D  |).1).80):.C.55..|
00000C10: 33 34 30 30 00 1A 14 94  0C 82 00 20 14 9E 0C 8E  |3400....... ....|
00000C20: 00 2B 14 E4 0C 81 47 B2  4C A4 48 00 4A 14 EE 0C  |.+....G.L.H.J...|
00000C30: 54 B2 54 25 28 47 29 3A  98 34 2C 54 24 28 54 29  |T.T%(G):.4,T$(T)|
00000C40: 3B 22 2F 22 3B 41 24 28  54 29 00 7C 14 F3 0C 43  |;"/";A$(T).|...C|
00000C50: B2 43 AA 31 AA B5 28 28  C3 28 41 24 28 54 29 29  |.C.1..((.(A$(T))|
00000C60: AA C3 28 54 24 28 54 29  29 AA 33 29 AD 38 30 29  |..(T$(T)).3).80)|
00000C70: 3A 8B 43 B1 35 35 A7 8D  33 34 30 30 00 82 14 F8  |:.C.55..3400....|
00000C80: 0C 82 00 88 14 02 0D 8E  00 9F 14 48 0D 81 45 B2  |...........H..E.|
00000C90: 43 A4 36 36 3A 98 34 3A  82 3A 43 B2 31 3A 8E 00  |C.66:.4:.:C.1:..|
00000CA0: A5 14 AB 0D 3A 00 C9 14  AC 0D 99 22 93 11 44 4F  |....:......"..DO|
00000CB0: 20 59 4F 55 20 57 49 53  48 20 54 4F 20 4C 4F 41  | YOU WISH TO LOA|
00000CC0: 44 20 46 52 4F 4D 11 11  22 00 DB 14 B6 0D 99 A3  |D FROM..".......|
00000CD0: 33 29 22 31 2E 20 54 41  50 45 22 00 ED 14 C0 0D  |3)"1. TAPE".....|
00000CE0: 99 A3 33 29 22 32 2E 20  44 49 53 4B 22 00 07 15  |..3)"2. DISK"...|
00000CF0: CA 0D 99 22 11 11 54 59  50 45 20 59 4F 55 52 20  |..."..TYPE YOUR |
00000D00: 43 48 4F 49 43 45 22 00  21 15 D4 0D 51 B2 39 3A  |CHOICE".!...Q.9:|
00000D10: 8D 39 30 30 3A 91 58 8D  33 36 30 30 2C 33 38 30  |.900:.X.3600,380|
00000D20: 30 00 27 15 DE 0D 8E 00  2D 15 0F 0E 3A 00 58 15  |0.'.....-...:.X.|
00000D30: 10 0E 99 22 93 11 11 50  55 54 20 44 41 54 41 20  |..."...PUT DATA |
00000D40: 54 41 50 45 20 49 4E 20  43 41 53 53 45 54 54 45  |TAPE IN CASSETTE|
00000D50: 20 50 4C 41 59 45 52 22  00 7F 15 1A 0E 99 22 11  | PLAYER"......".|
00000D60: 11 44 4F 20 59 4F 55 20  57 49 53 48 20 54 4F 20  |.DO YOU WISH TO |
00000D70: 4C 4F 41 44 20 4E 4F 57  3F 28 59 2F 4E 29 22 00  |LOAD NOW?(Y/N)".|
00000D80: 9D 15 1C 0E A1 5A 24 3A  8B 5A 24 B3 B1 22 4E 22  |.....Z$:.Z$.."N"|
00000D90: AF 5A 24 B3 B1 22 59 22  A7 33 36 31 32 00 AB 15  |.Z$.."Y".3612...|
00000DA0: 1E 0E 8B 5A 24 B2 22 4E  22 A7 8E 00 B3 15 24 0E  |...Z$."N".....$.|
00000DB0: 4E B2 31 00 C1 15 2E 0E  9F 31 2C 31 2C 30 2C 46  |N.1......1,1,0,F|
00000DC0: 24 00 E6 15 38 0E 84 31  2C 41 24 28 4E 29 2C 54  |$...8..1,A$(N),T|
00000DD0: 24 28 4E 29 2C 41 25 28  4E 29 2C 54 25 28 4E 29  |$(N),A%(N),T%(N)|
00000DE0: 2C 42 25 28 4E 29 00 FE  15 42 0E 8B 53 54 B3 B1  |,B%(N)...B..ST..|
00000DF0: 36 34 A7 4E B2 4E AA 31  3A 89 33 36 34 30 00 05  |64.N.N.1:.3640..|
00000E00: 16 4C 0E A0 31 00 0B 16  56 0E 8E 00 11 16 D7 0E  |.L..1...V.......|
00000E10: 3A 00 27 16 D8 0E 99 22  93 11 11 49 4E 53 45 52  |:.'...."...INSER|
00000E20: 54 20 44 49 53 4B 22 00  4E 16 E2 0E 99 22 11 11  |T DISK".N...."..|
00000E30: 44 4F 20 59 4F 55 20 57  49 53 48 20 54 4F 20 4C  |DO YOU WISH TO L|
00000E40: 4F 41 44 20 4E 4F 57 3F  28 59 2F 4E 29 22 00 6C  |OAD NOW?(Y/N)".l|
00000E50: 16 EC 0E A1 5A 24 3A 8B  5A 24 B3 B1 22 59 22 AF  |....Z$:.Z$.."Y".|
00000E60: 5A 24 B3 B1 22 4E 22 A7  33 38 32 30 00 7A 16 F6  |Z$.."N".3820.z..|
00000E70: 0E 8B 5A 24 B2 22 4E 22  A7 8E 00 82 16 00 0F 4E  |..Z$."N".......N|
00000E80: B2 31 00 AA 16 0A 0F 9F  38 2C 38 2C 38 2C 22 30  |.1......8,8,8,"0|
00000E90: 3A 22 AA 46 24 AA 22 2C  53 2C 52 22 3A 99 22 93  |:".F$.",S,R":.".|
00000EA0: 11 11 4C 4F 41 44 49 4E  47 22 00 B7 16 14 0F 9F  |..LOADING"......|
00000EB0: 31 35 2C 38 2C 31 35 00  E8 16 17 0F 84 38 2C 4E  |15,8,15......8,N|
00000EC0: 3A 8B 4E B1 46 A7 99 22  1C 93 11 11 46 49 4C 45  |:.N.F.."....FILE|
00000ED0: 20 54 4F 4F 20 4C 41 52  47 45 21 1F 22 3A 8D 38  | TOO LARGE!.":.8|
00000EE0: 30 30 3A 89 33 39 30 30  00 F3 16 1B 0F 81 4C B2  |00:.3900......L.|
00000EF0: 31 A4 4E 00 18 17 1E 0F  84 38 2C 41 24 28 4C 29  |1.N......8,A$(L)|
00000F00: 2C 54 24 28 4C 29 2C 41  25 28 4C 29 2C 54 25 28  |,T$(L),A%(L),T%(|
00000F10: 4C 29 2C 42 25 28 4C 29  00 22 17 28 0F 8D 34 34  |L),B%(L).".(..44|
00000F20: 35 30 00 2C 17 2D 0F 99  22 13 22 4C 00 32 17 32  |50.,.-.."."L.2.2|
00000F30: 0F 82 00 3D 17 3C 0F A0  38 3A A0 31 35 00 43 17  |...=.<..8:.15.C.|
00000F40: 46 0F 8E 00 49 17 9F 0F  3A 00 6C 17 A0 0F 99 22  |F...I...:.l...."|
00000F50: 93 11 11 44 4F 20 59 4F  55 20 57 49 53 48 20 54  |...DO YOU WISH T|
00000F60: 4F 20 53 41 56 45 20 54  4F 20 11 22 00 7E 17 AA  |O SAVE TO .".~..|
00000F70: 0F 99 A3 33 29 22 31 2E  20 54 41 50 45 22 00 90  |...3)"1. TAPE"..|
00000F80: 17 B4 0F 99 A3 33 29 22  32 2E 20 44 49 53 4B 22  |.....3)"2. DISK"|
00000F90: 00 AA 17 BE 0F 99 22 11  11 54 59 50 45 20 59 4F  |......"..TYPE YO|
00000FA0: 55 52 20 43 48 4F 49 43  45 22 00 CD 17 C8 0F 51  |UR CHOICE".....Q|
00000FB0: B2 39 3A 8D 39 30 30 3A  52 24 B2 C7 28 31 33 29  |.9:.900:R$..(13)|
00000FC0: 3A 91 58 8D 34 31 30 30  2C 34 33 30 30 00 D3 17  |:.X.4100,4300...|
00000FD0: D2 0F 8E 00 D9 17 03 10  3A 00 09 18 04 10 99 22  |........:......"|
00000FE0: 93 11 11 50 55 54 20 44  41 54 41 20 54 41 50 45  |...PUT DATA TAPE|
00000FF0: 20 49 4E 20 43 41 53 53  45 54 54 45 20 50 4C 41  | IN CASSETTE PLA|
00001000: 59 45 52 2E 22 3A 99 3A  99 00 30 18 06 10 99 22  |YER.":.:..0...."|
00001010: 44 4F 20 59 4F 55 20 57  49 53 48 20 54 4F 20 52  |DO YOU WISH TO R|
00001020: 45 43 4F 52 44 20 4E 4F  57 3F 28 59 2F 4E 29 22  |ECORD NOW?(Y/N)"|
00001030: 00 4E 18 08 10 A1 5A 24  3A 8B 5A 24 B3 B1 22 4E  |.N....Z$:.Z$.."N|
00001040: 22 AF 5A 24 B3 B1 22 59  22 A7 34 31 30 34 00 5C  |".Z$.."Y".4104.\|
00001050: 18 0A 10 8B 5A 24 B2 22  4E 22 A7 8E 00 6A 18 0E  |....Z$."N"...j..|
00001060: 10 9F 31 2C 31 2C 31 2C  46 24 00 75 18 22 10 81  |..1,1,1,F$.u."..|
00001070: 4C B2 31 A4 4E 00 A6 18  2C 10 98 31 2C 41 24 28  |L.1.N...,..1,A$(|
00001080: 4C 29 3B 52 24 3B 54 24  28 4C 29 3B 52 24 3B 41  |L);R$;T$(L);R$;A|
00001090: 25 28 4C 29 3B 52 24 3B  54 25 28 4C 29 3B 52 24  |%(L);R$;T%(L);R$|
000010A0: 3B 42 25 28 4C 29 00 AD  18 40 10 A0 31 00 C6 18  |;B%(L)...@..1...|
000010B0: 45 10 99 22 93 22 4C 22  52 45 43 4F 52 44 53 20  |E.."."L"RECORDS |
000010C0: 53 41 56 45 44 22 00 ED  18 4A 10 99 22 11 11 52  |SAVED"...J.."..R|
000010D0: 45 57 49 4E 44 20 41 4E  44 20 4C 41 42 45 4C 20  |EWIND AND LABEL |
000010E0: 54 41 50 45 20 22 46 24  3A 8D 38 30 30 00 F3 18  |TAPE "F$:.800...|
000010F0: 54 10 8E 00 F9 18 CB 10  3A 00 0E 19 CC 10 99 22  |T.......:......"|
00001100: 93 11 49 4E 53 45 52 54  20 44 49 53 4B 22 00 35  |..INSERT DISK".5|
00001110: 19 D6 10 99 22 11 11 44  4F 20 59 4F 55 20 57 49  |...."..DO YOU WI|
00001120: 53 48 20 54 4F 20 53 41  56 45 20 4E 4F 57 3F 28  |SH TO SAVE NOW?(|
00001130: 59 2F 4E 29 22 00 53 19  E0 10 A1 5A 24 3A 8B 5A  |Y/N)".S....Z$:.Z|
00001140: 24 B3 B1 22 59 22 AF 5A  24 B3 B1 22 4E 22 A7 34  |$.."Y".Z$.."N".4|
00001150: 33 32 30 00 61 19 EA 10  8B 5A 24 B2 22 4E 22 A7  |320.a....Z$."N".|
00001160: 8E 00 76 19 EF 10 9F 31  35 2C 38 2C 31 35 2C 22  |..v....15,8,15,"|
00001170: 53 3A 22 AA 46 24 00 9D  19 F4 10 9F 38 2C 38 2C  |S:".F$......8,8,|
00001180: 38 2C 22 30 3A 22 AA 46  24 AA 22 2C 53 2C 57 22  |8,"0:".F$.",S,W"|
00001190: 3A 99 22 93 11 11 53 41  56 49 4E 47 22 00 A7 19  |:."...SAVING"...|
000011A0: F9 10 99 23 38 2C 4E 00  B2 19 FE 10 81 4C B2 31  |...#8,N......L.1|
000011B0: A4 4E 00 E4 19 08 11 99  23 38 2C 41 24 28 4C 29  |.N......#8,A$(L)|
000011C0: 3B 52 24 3B 54 24 28 4C  29 3B 52 24 3B 41 25 28  |;R$;T$(L);R$;A%(|
000011D0: 4C 29 3B 52 24 3B 54 25  28 4C 29 3B 52 24 3B 42  |L);R$;T%(L);R$;B|
000011E0: 25 28 4C 29 00 EE 19 12  11 8D 34 34 35 30 00 FA  |%(L)......4450..|
000011F0: 19 1C 11 99 22 13 22 4C  3A 82 00 05 1A 26 11 A0  |...."."L:....&..|
00001200: 38 3A A0 31 35 00 0B 1A  30 11 8E 00 11 1A 61 11  |8:.15...0.....a.|
00001210: 3A 00 25 1A 62 11 84 31  35 2C 41 24 2C 42 24 2C  |:.%.b..15,A$,B$,|
00001220: 43 24 2C 44 24 00 44 1A  6C 11 8B C5 28 41 24 29  |C$,D$.D.l...(A$)|
00001230: B1 30 A7 99 41 24 2C 42  24 2C 43 24 2C 44 24 3A  |.0..A$,B$,C$,D$:|
00001240: 89 37 30 30 00 4A 1A 76  11 8E 00 50 1A 87 13 3A  |.700.J.v...P...:|
00001250: 00 72 1A 88 13 99 22 93  53 45 4C 45 43 54 20 53  |.r....".SELECT S|
00001260: 45 41 52 43 48 20 46 49  45 4C 44 11 22 3A 8D 39  |EARCH FIELD.":.9|
00001270: 35 30 00 88 1A BA 13 99  22 11 11 1C 53 45 41 52  |50......"...SEAR|
00001280: 43 48 20 46 4F 52 1F 22  00 90 1A C4 13 85 44 24  |CH FOR."......D$|
00001290: 00 A1 1A CE 13 91 58 8D  35 31 30 30 2C 35 33 30  |......X.5100,530|
000012A0: 30 00 AF 1A D8 13 8B 49  B2 30 A7 35 30 39 30 00  |0......I.0.5090.|
000012B0: C0 1A DD 13 91 58 8D 32  36 30 30 2C 32 37 30 30  |.....X.2600,2700|
000012C0: 00 E7 1A DE 13 99 22 13  11 11 44 4F 20 59 4F 55  |......"...DO YOU|
000012D0: 20 57 41 4E 54 20 41 20  50 52 49 4E 54 2D 4F 55  | WANT A PRINT-OU|
000012E0: 54 28 59 2F 4E 29 22 00  05 1B DF 13 A1 5A 24 3A  |T(Y/N)"......Z$:|
000012F0: 8B 5A 24 B3 B1 22 4E 22  AF 5A 24 B3 B1 22 59 22  |.Z$.."N".Z$.."Y"|
00001300: A7 35 30 38 37 00 17 1B  E0 13 8B 5A 24 B2 22 59  |.5087......Z$."Y|
00001310: 22 A7 8D 33 30 31 30 00  1D 1B E2 13 8E 00 23 1B  |"..3010.......#.|
00001320: EB 13 3A 00 3B 1B EC 13  4C B2 31 3A 48 B2 4E 3A  |..:.;...L.1:H.N:|
00001330: 49 B2 31 3A 44 B2 C3 28  44 24 29 00 5F 1B F6 13  |I.1:D..(D$)._...|
00001340: 8B 48 B3 4C A7 99 44 24  22 20 4E 4F 54 20 46 4F  |.H.L..D$" NOT FO|
00001350: 55 4E 44 22 3A 49 B2 2E  3A 8D 38 30 30 3A 8E 00  |UND":I..:.800:..|
00001360: 7D 1B 00 14 4D B2 A5 41  28 4F 29 3A 41 B2 41 25  |}...M..A(O):A.A%|
00001370: 28 4D 29 3A 53 B2 41 25  28 4D AB 31 29 00 96 1B  |(M):S.A%(M.1)...|
00001380: 0A 14 8B 44 24 B3 B1 C8  28 41 24 28 41 29 2C 44  |...D$...(A$(A),D|
00001390: 29 A7 35 31 36 30 00 BD  1B 14 14 8B C8 28 41 24  |).5160.......(A$|
000013A0: 28 41 29 2C 44 29 B2 C8  28 41 24 28 53 29 2C 44  |(A),D)..(A$(S),D|
000013B0: 29 A7 48 B2 4D AB 31 3A  89 35 31 31 30 00 C7 1B  |).H.M.1:.5110...|
000013C0: 1E 14 89 35 31 38 30 00  E1 1B 28 14 8B 44 24 B3  |...5180...(..D$.|
000013D0: 41 24 28 41 29 A7 48 B2  4D AB 31 3A 89 35 31 31  |A$(A).H.M.1:.511|
000013E0: 30 00 F1 1B 32 14 4C B2  4D AA 31 3A 89 35 31 31  |0...2.L.M.1:.511|
000013F0: 30 00 FD 1B 3C 14 4C B2  4D 3A 48 B2 4D 00 2E 1C  |0...<.L.M:H.M...|
00001400: 46 14 8B C8 28 41 24 28  41 25 28 48 29 29 2C 44  |F...(A$(A%(H)),D|
00001410: 29 B2 C8 28 41 24 28 41  25 28 48 AA 31 29 29 2C  |)..(A$(A%(H.1)),|
00001420: 44 29 A7 48 B2 48 AA 31  3A 89 35 31 39 30 00 34  |D).H.H.1:.5190.4|
00001430: 1C 50 14 8E 00 3A 1C B3  14 3A 00 56 1C B4 14 54  |.P...:...:.V...T|
00001440: 24 B2 44 24 3A 8D 32 34  30 30 3A 4C B2 31 3A 48  |$.D$:.2400:L.1:H|
00001450: B2 4E 3A 49 B2 31 00 7A  1C BE 14 8B 48 B3 4C A7  |.N:I.1.z....H.L.|
00001460: 99 44 24 22 20 4E 4F 54  20 46 4F 55 4E 44 22 3A  |.D$" NOT FOUND":|
00001470: 49 B2 2E 3A 8D 38 30 30  3A 8E 00 AB 1C C8 14 4D  |I..:.800:......M|
00001480: B2 A5 41 28 4F 29 3A 54  B2 54 25 28 4D 29 3A 53  |..A(O):T.T%(M):S|
00001490: B2 54 25 28 4D AB 31 29  3A 55 B2 C3 28 54 24 28  |.T%(M.1):U..(T$(|
000014A0: 54 29 29 AB 42 25 28 54  29 AA 31 00 CB 1C D2 14  |T)).B%(T).1.....|
000014B0: 8B C9 28 44 24 2C 42 29  B3 B1 CA 28 54 24 28 54  |..(D$,B)...(T$(T|
000014C0: 29 2C 55 2C 42 29 A7 35  33 36 30 00 05 1D DC 14  |),U,B).5360.....|
000014D0: 8B CA 28 54 24 28 54 29  2C 55 2C 42 29 B2 CA 28  |..(T$(T),U,B)..(|
000014E0: 54 24 28 53 29 2C C3 28  54 24 28 53 29 29 AB 42  |T$(S),.(T$(S)).B|
000014F0: 25 28 53 29 AA 31 2C 42  29 A7 48 B2 4D AB 31 3A  |%(S).1,B).H.M.1:|
00001500: 89 35 33 31 30 00 0F 1D  E6 14 89 35 33 38 30 00  |.5310......5380.|
00001510: 35 1D F0 14 8B C9 28 44  24 2C 42 29 B3 CA 28 54  |5.....(D$,B)..(T|
00001520: 24 28 54 29 2C 55 2C 42  29 A7 48 B2 4D AB 31 3A  |$(T),U,B).H.M.1:|
00001530: 89 35 33 31 30 00 45 1D  FA 14 4C B2 4D AA 31 3A  |.5310.E...L.M.1:|
00001540: 89 35 33 31 30 00 51 1D  04 15 4C B2 4D 3A 48 B2  |.5310.Q...L.M:H.|
00001550: 4D 00 74 1D 09 15 5A B2  C3 28 54 24 28 54 25 28  |M.t...Z..(T$(T%(|
00001560: 48 AA 31 29 29 29 AB 42  25 28 54 25 28 48 AA 31  |H.1))).B%(T%(H.1|
00001570: 29 29 AA 31 00 AD 1D 0E  15 8B CA 28 54 24 28 54  |)).1.......(T$(T|
00001580: 25 28 48 29 29 2C 55 2C  42 29 B2 CA 28 54 24 28  |%(H)),U,B)..(T$(|
00001590: 54 25 28 48 AA 31 29 29  2C 5A 2C 42 29 A7 48 B2  |T%(H.1)),Z,B).H.|
000015A0: 48 AA 31 3A 55 B2 5A 3A  89 35 33 38 35 00 B3 1D  |H.1:U.Z:.5385...|
000015B0: 18 15 8E 00 B9 1D 6F 17  3A 00 E9 1D 70 17 99 22  |......o.:...p.."|
000015C0: 93 11 42 45 46 4F 52 45  20 4D 4F 44 49 46 59 49  |..BEFORE MODIFYI|
000015D0: 4E 47 2C 45 53 54 41 42  4C 49 53 48 20 54 48 45  |NG,ESTABLISH THE|
000015E0: 20 52 45 43 4F 52 44 53  22 00 1B 1E 75 17 99 22  | RECORDS"...u.."|
000015F0: 59 4F 55 20 57 49 53 48  20 54 4F 20 43 48 41 4E  |YOU WISH TO CHAN|
00001600: 47 45 20 57 49 54 48 20  41 4E 20 41 55 54 48 4F  |GE WITH AN AUTHO|
00001610: 52 20 53 45 41 52 43 48  11 11 22 00 36 1E 7A 17  |R SEARCH..".6.z.|
00001620: 99 22 1C 41 55 54 48 4F  52 3A 1F 22 3A 85 44 24  |.".AUTHOR:.":.D$|
00001630: 3A 8D 35 31 30 30 00 44  1E 7F 17 8B 49 B2 30 A7  |:.5100.D....I.0.|
00001640: 36 31 32 30 00 57 1E 84  17 81 47 B2 4C A4 48 3A  |6120.W....G.L.H:|
00001650: 50 B2 41 25 28 47 29 00  70 1E 89 17 8B 44 24 B3  |P.A%(G).p....D$.|
00001660: B1 C8 28 41 24 28 50 29  2C 44 29 A7 36 31 31 30  |..(A$(P),D).6110|
00001670: 00 8C 1E 8E 17 99 22 93  11 11 11 22 41 24 28 50  |......"...."A$(P|
00001680: 29 3A 99 54 24 28 50 29  22 11 11 22 00 CE 1E 98  |):.T$(P)".."....|
00001690: 17 99 22 54 59 50 45 20  49 4E 20 4E 45 57 20 45  |.."TYPE IN NEW E|
000016A0: 4E 54 52 59 20 4F 52 20  20 50 52 45 53 53 20 52  |NTRY OR  PRESS R|
000016B0: 45 54 55 52 4E 20 54 4F  20 20 20 20 4C 45 41 56  |ETURN TO    LEAV|
000016C0: 45 20 55 4E 43 48 41 4E  47 45 44 11 11 22 00 E2  |E UNCHANGED.."..|
000016D0: 1E A2 17 49 B2 2E 3A 41  24 B2 22 22 3A 54 24 B2  |...I..:A$."":T$.|
000016E0: 22 22 00 F7 1E AC 17 99  22 1C 41 55 54 48 4F 52  |""......".AUTHOR|
000016F0: 3A 1F 22 3A 85 41 24 00  10 1F B6 17 8B 41 24 B3  |:.":.A$......A$.|
00001700: B1 22 22 A7 41 24 28 50  29 B2 41 24 3A 49 B2 31  |."".A$(P).A$:I.1|
00001710: 00 24 1F C0 17 99 22 1C  54 49 54 4C 45 3A 1F 22  |.$....".TITLE:."|
00001720: 3A 85 54 24 00 3D 1F CA  17 8B 54 24 B3 B1 22 22  |:.T$.=....T$..""|
00001730: A7 54 24 28 50 29 B2 54  24 3A 49 B2 31 00 70 1F  |.T$(P).T$:I.1.p.|
00001740: CF 17 8B 49 AF 28 41 24  28 50 29 B1 41 24 28 41  |...I.(A$(P).A$(A|
00001750: 25 28 47 AA 31 29 29 B0  54 24 28 50 29 B1 54 24  |%(G.1)).T$(P).T$|
00001760: 28 41 25 28 47 AA 31 29  29 29 A7 47 B2 47 AB 31  |(A%(G.1))).G.G.1|
00001770: 00 93 1F D4 17 8B 49 A7  99 22 93 11 11 4D 4F 44  |......I.."...MOD|
00001780: 49 46 59 49 4E 47 22 3A  8D 36 34 30 30 3A 8D 32  |IFYING":.6400:.2|
00001790: 30 30 30 00 99 1F DE 17  82 00 9F 1F E8 17 8E 00  |000.............|
000017A0: A5 1F FF 18 3A 00 B1 1F  00 19 56 B2 2E 3A 57 B2  |....:.....V..:W.|
000017B0: 2E 00 C4 1F 05 19 4F B2  4E 3A 8B 4F B2 46 A7 4F  |......O.N:.O.F.O|
000017C0: B2 4F AB 31 00 CF 1F 0A  19 81 52 B2 31 A4 4F 00  |.O.1......R.1.O.|
000017D0: E0 1F 14 19 8B 41 25 28  52 29 B2 50 A7 56 B2 31  |.....A%(R).P.V.1|
000017E0: 00 F1 1F 1E 19 8B 54 25  28 52 29 B2 50 A7 57 B2  |......T%(R).P.W.|
000017F0: 31 00 03 20 28 19 41 25  28 52 29 B2 41 25 28 52  |1.. (.A%(R).A%(R|
00001800: AA 56 29 00 15 20 32 19  54 25 28 52 29 B2 54 25  |.V).. 2.T%(R).T%|
00001810: 28 52 AA 57 29 00 1B 20  50 19 82 00 21 20 5A 19  |(R.W).. P...! Z.|
00001820: 8E 00 27 20 63 19 3A 00  58 20 64 19 99 22 93 11  |..' c.:.X d.."..|
00001830: 49 4E 44 49 43 41 54 45  20 54 48 45 20 52 45 43  |INDICATE THE REC|
00001840: 4F 52 44 53 20 59 4F 55  20 57 49 53 48 20 54 4F  |ORDS YOU WISH TO|
00001850: 20 44 45 4C 45 54 45 22  00 73 20 6E 19 99 22 1C  | DELETE".s n..".|
00001860: 41 55 54 48 4F 52 3A 1F  22 3A 85 44 24 3A 8D 35  |AUTHOR:.":.D$:.5|
00001870: 31 30 30 00 81 20 73 19  8B 49 B2 30 A7 36 38 33  |100.. s..I.0.683|
00001880: 30 00 94 20 78 19 81 49  B2 4C A4 48 3A 41 B2 41  |0.. x..I.L.H:A.A|
00001890: 25 28 49 29 00 A2 20 7D  19 8B 49 B1 48 A7 36 38  |%(I).. }..I.H.68|
000018A0: 32 30 00 BD 20 82 19 99  22 93 11 22 41 24 28 41  |20.. ...".."A$(A|
000018B0: 29 3A 99 54 24 28 41 29  22 11 11 11 22 00 D5 20  |):.T$(A)"...".. |
000018C0: 8C 19 99 22 44 4F 20 59  4F 55 20 57 49 53 48 20  |..."DO YOU WISH |
000018D0: 54 4F 3A 11 22 00 E9 20  96 19 99 A3 33 29 22 31  |TO:.".. ....3)"1|
000018E0: 2E 20 44 45 4C 45 54 45  22 00 FB 20 A0 19 99 A3  |. DELETE".. ....|
000018F0: 33 29 22 32 2E 20 4B 45  45 50 22 00 15 21 AA 19  |3)"2. KEEP"..!..|
00001900: 99 22 11 11 54 59 50 45  20 59 4F 55 52 20 43 48  |."..TYPE YOUR CH|
00001910: 4F 49 43 45 22 00 22 21  B4 19 51 B2 32 3A 8D 39  |OICE"."!..Q.2:.9|
00001920: 30 30 00 30 21 BE 19 8B  58 B2 32 A7 36 38 32 30  |00.0!...X.2.6820|
00001930: 00 47 21 C8 19 99 22 93  11 11 44 45 4C 45 54 49  |.G!..."...DELETI|
00001940: 4E 47 20 4E 4F 57 22 00  53 21 D2 19 56 B2 2E 3A  |NG NOW".S!..V..:|
00001950: 57 B2 2E 00 61 21 DC 19  8B 41 B2 4E A7 36 37 34  |W...a!...A.N.674|
00001960: 30 00 69 21 E6 19 50 B2  41 00 91 21 F0 19 41 24  |0.i!..P.A..!..A$|
00001970: 28 41 29 B2 41 24 28 4E  29 3A 54 24 28 41 29 B2  |(A).A$(N):T$(A).|
00001980: 54 24 28 4E 29 3A 42 25  28 41 29 B2 42 25 28 4E  |T$(N):B%(A).B%(N|
00001990: 29 00 9E 21 FA 19 81 45  B2 31 A4 4E AB 31 00 AF  |)..!...E.1.N.1..|
000019A0: 21 04 1A 8B 41 25 28 45  29 B2 50 A7 56 B2 31 00  |!...A%(E).P.V.1.|
000019B0: C0 21 0E 1A 8B 54 25 28  45 29 B2 50 A7 57 B2 31  |.!...T%(E).P.W.1|
000019C0: 00 D2 21 18 1A 41 25 28  45 29 B2 41 25 28 45 AA  |..!..A%(E).A%(E.|
000019D0: 56 29 00 E4 21 22 1A 54  25 28 45 29 B2 54 25 28  |V)..!".T%(E).T%(|
000019E0: 45 AA 57 29 00 F9 21 2C  1A 8B 41 25 28 45 29 B2  |E.W)..!,..A%(E).|
000019F0: 4E A7 41 25 28 45 29 B2  50 00 0E 22 36 1A 8B 54  |N.A%(E).P.."6..T|
00001A00: 25 28 45 29 B2 4E A7 54  25 28 45 29 B2 50 00 14  |%(E).N.T%(E).P..|
00001A10: 22 40 1A 82 00 1E 22 4A  1A 89 36 38 30 30 00 2B  |"@...."J..6800.+|
00001A20: 22 54 1A 81 45 B2 31 A4  4E AB 31 00 3C 22 5E 1A  |"T..E.1.N.1.<"^.|
00001A30: 8B 41 25 28 45 29 B2 4E  A7 56 B2 31 00 4D 22 68  |.A%(E).N.V.1.M"h|
00001A40: 1A 8B 54 25 28 45 29 B2  4E A7 57 B2 31 00 5F 22  |..T%(E).N.W.1._"|
00001A50: 72 1A 41 25 28 45 29 B2  41 25 28 45 AA 56 29 00  |r.A%(E).A%(E.V).|
00001A60: 71 22 7C 1A 54 25 28 45  29 B2 54 25 28 45 AA 57  |q"|.T%(E).T%(E.W|
00001A70: 29 00 77 22 86 1A 82 00  81 22 90 1A 4E B2 4E AB  |).w"....."..N.N.|
00001A80: 31 00 91 22 9A 1A 49 B2  49 AB 31 3A 48 B2 48 AB  |1.."..I.I.1:H.H.|
00001A90: 31 00 97 22 A4 1A 82 00  9D 22 AE 1A 8E 00 00 00  |1.."....."......|

..&....  HOME LIBRARY FOR COMMODORE 64.A
....53280,0:.53281,0:.".".X...."..NAME F
OR FILE".`....F$.V....F$."".F$."TRIAL"..
...F.500:.A$(F),T$(F),A%(F),T%(F),B%(F).
..(...A(A)..(.5.(H.L)).A.G.. MENU.T.H.."
."F$" BOOKS"...M.."NUMBER ON FILE:"N...R
.."..WHAT DO YOU WISH TO DO?..".,.....3)
"1. INPUT NEW BOOKS".C.....3)"2. LOAD FI
LE".\.....3)"3. SAVE A FILE".Q.....3)"4.
 DISPLAY".......3)"5. PRINT".......3)"6.
 SEARCH".......3)"7. DELETE".......3)"8.
 MODIFY".Q.....3)"9. END"...".."..TYPE Y
OUR CHOICE"...,.Q.9:.900:."."...1.L.1:H.
N.<.6..X.1000,3500,4000,2500,3000,5000,6
500,6000,700.E.@..200.R... 8: 15:..X...:
.C. ..198,0.X.*.."..HIT ANY KEY"...4..19
8,1:.198,0:......:......X$:.X$."".900...
..X.E(X$):.X.1.X.Q.."TYPE A NUMBER FROM 
1 TO"Q:.900...........:.......3)"1. AUTH
OR".......3)"2. TITLE".).J.."...TYPE YOU
R CHOICE".6.T.Q.2:.900.<.....B...:.E....
".TYPE 0 FOR AUTHOR TO END..".Y...N.N.1:
.N.F.1060......".AUTHOR:.":.A$(N)......A
$(N)."0".N.N.1:.1100.H....A$(N)."".A$(N)
.A$(N.1)......".TITLE:.":.T$(N).....P.N:
.2000...$.N.N.1:.N.F.N.F:."..FULL UP":.8
00:.1100.D.%..N.F.10.."..ROOM TO ENTER"F
.1.N"MORE..".N.8..1020.T.L...Z.O.:.U.P.T
$.T$(P):.2400:B%(P).B...Z..N.1.T%(1).1:.
2150.....L.1:H.N.1:B.B%(P)......H.L.M.H.
1:.2100.S...M..A(O):S.T%(M):U.B%(S).....
.I(T$(P),B).I(T$(S),U).H.M.1:.2030.!....
I(T$(P),B).I(T$(S),U).L.M.1:.2030.>....A
$(P).A$(S).H.M.1:.2030.[. ..A$(P).A$(S).
L.M.1:.2030.Q.*.S.T%(M.1):U.B%(S).../..I
(T$(P),B).I(T$(S),U).A$(P).A$(S).M.M.1:.
2090...4..M.N.2140.B.>..E.N.M.1..1.T.H.T
%(E).T%(E.1).Z.R.....\.T%(M).P...F..N.1.
A%(1).1:.2280...P.L.1:H.N.1. .Z..H.L.M.H
.1:.2230.4...M..A(O):S.A%(M).Q....A$(P).
A$(S).H.M.1:.2170.N....A$(P).A$(S).L.M.1
:.2170.....U.B%(S):.I(T$(P),B).I(T$(S),U
).H.M.1:.2170.D....I(T$(P),B).I(T$(S),U)
.L.M.1:.2170.....S.A%(M.1):.I(T$(P),B).I
(T$(S),U).A$(P).A$(S).M.M.1:.2225......M
.N.2270......E.N.M.1..1.1.J.A%(E).A%(E.1
).7.T...C...A%(M).P.I.....O._.:.[.`.B.C(
T$).S.J..H(T$,2)."A ".B.B.2...T..H(T$,3)
."AN ".B.B.3...~..H(T$,4)."THE ".B.B.4..
.......C.:.X.D..".DISPLAY IN WHICH ORDER
?.":.950...N..X.2600,2700...X.....'.:...
(.C..:."."...2..G.L.H:A.A%(G).3.<..C(A$(
A)).40..A$(A):.2640.F.F.Z$.A$(A):.2800.D
.P..C(T$(A)).40..T$(A):.2660.W.Z.Z$.T$(A
):.2800...D..:C.C.1...N..C.4.G..H..800:.
".":C.....X..:.800...........:.D...:C..:
.".".W....G.L.H:T.T%(G)... ..C(T$(T)).40
..(T$(T)):.2740.....Z$.T$(T):.2800.)....
C(A$(T)).40..A$(T)):.2760.<...Z$.A$(T):.
2800.H.H..:C.C.1.D.R..C.4.G..H..800:."."
:C...O....:.800.U.....{...:.....Z.C(Z$):
U.1.....V.0:W.U.40:.Z.40..2990:..N....E.
W.U..1:.J(Z$,E,1)."".V.E.U:E.U......:.V.
0..2990:U.U.40:Z.Z.40:.2860......V.0.V.4
0..2980:U.U.V.1:Z.Z.V.1:.2860.A."..V.40.
.2990:U.U.41:Z.Z.41:.2860.L.,..Z.1...A.6
..Z.40..I(Z$,Z):..K.@..2810.|....J(Z$,U,
V):.......J(Z$,U,40);:......:.T....".SEL
ECT ORDER IN WHICH ENTRIES ARE TO BE PRI
NTED..":.950.....L.1:H.N...B.."...CHECK 
PRINTER AND PAPER.".,.L.."...DO YOU WISH
 TO PRINT NOW?(Y/N)".J.V..Z$:.Z$.."Y".Z$
.."N".3030.X....Z$."N"...A....4,4.W....4
,G(14);F$;G(15)......4,G(13);G(13);G(13)
.....C.5:.X.3200,3300...&..3400: 4...0..
.C....G.L.H.....A.A%(G):.4,A$(A);".";T$(
A).....C.C.1..((C(A$(A)).C(T$(A)).1).80)
:.C.55..3400....... .....+....G.L.H.J...
T.T%(G):.4,T$(T);"/";A$(T).|...C.C.1..((
C(A$(T)).C(T$(T)).3).80):.C.55..3400....
...........H..E.C.66:.4:.:C.1:......:.I.
..."..DO YOU WISH TO LOAD FROM..".......
3)"1. TAPE".......3)"2. DISK"...J.."..TY
PE YOUR CHOICE".!.T.Q.9:.900:.X.3600,380
0.'.....-...:.X...."...PUT DATA TAPE IN 
CASSETTE PLAYER"....."..DO YOU WISH TO 
LOAD NOW?(Y/N)"......Z$:.Z$.."N".Z$.."Y"
.3612......Z$."N".....$.N.1.A....1,1,0,F
$...8..1,A$(N),T$(N),A%(N),T%(N),B%(N)..
.B..ST..64.N.N.1:.3640...L. 1...V.....W.
:.'.X.."...INSERT DISK".N...."..DO YOU W
ISH TO LOAD NOW?(Y/N)".L....Z$:.Z$.."Y".
Z$.."N".3820.Z....Z$."N".......N.1......
8,8,8,"0:".F$.",S,R":."...LOADING"......
15,8,15......8,N:.N.F.."....FILE TOO LAR
GE!.":.800:.3900......L.1.N......8,A$(L)
,T$(L),A%(L),T%(L),B%(L).".(..4450.,.-..
"."L.2.2...=.<. 8: 15.C.F...I...:.L. .."
...DO YOU WISH TO SAVE TO .".~.....3)"1.
 TAPE".......3)"2. DISK"......"..TYPE YO
UR CHOICE".M.H.Q.9:.900:R$.G(13):.X.4100
,4300.S.R...Y...:......"...PUT DATA TAPE
 IN CASSETTE PLAYER.":.:..0...."DO YOU W
ISH TO RECORD NOW?(Y/N)".N....Z$:.Z$.."N
".Z$.."Y".4104.\....Z$."N"...J....1,1,1,
F$.U."..L.1.N...,..1,A$(L);R$;T$(L);R$;A
%(L);R$;T%(L);R$;B%(L)...@. 1.F.E.."."L"
RECORDS SAVED"...J.."..REWIND AND LABEL 
TAPE "F$:.800...T.....K.:...L.."..INSERT
 DISK".5.V.."..DO YOU WISH TO SAVE NOW?(
Y/N)".S....Z$:.Z$.."Y".Z$.."N".4320.A...
.Z$."N"...V....15,8,15,"S:".F$......8,8,
8,"0:".F$.",S,W":."...SAVING"......#8,N.
.....L.1.N......#8,A$(L);R$;T$(L);R$;A%(
L);R$;T%(L);R$;B%(L)......4450......"."L
:....&. 8: 15...0.....A.:.%.B..15,A$,B$,
C$,D$.D.L..E(A$).0..A$,B$,C$,D$:.700.J.V
...P...:.R....".SELECT SEARCH FIELD.":.9
50......"...SEARCH FOR."...D..D$...N..X.
5100,5300...X..I.0.5090......X.2600,2700
......"...DO YOU WANT A PRINT-OUT(Y/N)".
.....Z$:.Z$.."N".Z$.."Y".5087......Z$."Y
"..3010.......#...:.;...L.1:H.N:I.1:D.C(
D$)._....H.L..D$" NOT FOUND":I..:.800:..
}...M..A(O):A.A%(M):S.A%(M.1)......D$..H
(A$(A),D).5160......H(A$(A),D).H(A$(S),D
).H.M.1:.5110.G....5180...(..D$.A$(A).H.
M.1:.5110...2.L.M.1:.5110...<.L.M:H.M...
F..H(A$(A%(H)),D).H(A$(A%(H.1)),D).H.H.1
:.5190.4.P...:...:.V...T$.D$:.2400:L.1:H
.N:I.1.Z....H.L..D$" NOT FOUND":I..:.800
:....H.M..A(O):T.T%(M):S.T%(M.1):U.C(T$(
T)).B%(T).1.K.R..I(D$,B)..J(T$(T),U,B).5
360......J(T$(T),U,B).J(T$(S),C(T$(S)).B
%(S).1,B).H.M.1:.5310......5380.5....I(D
$,B).J(T$(T),U,B).H.M.1:.5310.E...L.M.1:
.5310.Q...L.M:H.M.T...Z.C(T$(T%(H.1))).B
%(T%(H.1)).1......J(T$(T%(H)),U,B).J(T$(
T%(H.1)),Z,B).H.H.1:U.Z:.5385.........O.
:...P.."..BEFORE MODIFYING,ESTABLISH THE
 RECORDS"...U.."YOU WISH TO CHANGE WITH 
AN AUTHOR SEARCH..".6.Z..".AUTHOR:.":.D$
:.5100.D...I.0.6120.W....G.L.H:P.A%(G).
P....D$..H(A$(P),D).6110......"...."A$(P
):.T$(P)"..".N...."TYPE IN NEW ENTRY OR 
 PRESS RETURN TO    LEAVE UNCHANGED.."..
...I..:A$."":T$.""......".AUTHOR:.":.A$.
.....A$.."".A$(P).A$:I.1.$....".TITLE:."
:.T$.=.J..T$.."".T$(P).T$:I.1.P.O..I.(A$
(P).A$(A%(G.1)).T$(P).T$(A%(G.1))).G.G.1
...T..I.."...MODIFYING":.6400:.2000.....
............:.....V..:W...D...O.N:.O.F.O
.O.1.O....R.1.O......A%(R).P.V.1......T%
(R).P.W.1.. (.A%(R).A%(R.V).. 2.T%(R).T%
(R.W).. P...! Z...' C.:.X D.."..INDICATE
 THE RECORDS YOU WISH TO DELETE".S N..".
AUTHOR:.":.D$:.5100.. S..I.0.6830.. X..I
.L.H:A.A%(I).. }..I.H.6820.. ...".."A$(A
):.T$(A)"...".U ..."DO YOU WISH TO:.".. 
....3)"1. DELETE"..  ...3)"2. KEEP"..!..
."..TYPE YOUR CHOICE"."!..Q.2:.900.0!...
X.2.6820.G!H.."...DELETING NOW".S!R.V..:
W...A!...A.N.6740.I!..P.A..!..A$(A).A$(N
):T$(A).T$(N):B%(A).B%(N)..!...E.1.N.1..
!...A%(E).P.V.1..!...T%(E).P.W.1.R!..A%(
E).A%(E.V)..!".T%(E).T%(E.W)..!,..A%(E).
N.A%(E).P.."6..T%(E).N.T%(E).P.."@...."J
..6800.+"T..E.1.N.1.<"^..A%(E).N.V.1.M"H
..T%(E).N.W.1._"R.A%(E).A%(E.V).Q"|.T%(E
).T%(E.W).W"....."..N.N.1.."..I.I.1:H.H.
1.."....."......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL