Multiple names: LIBRARY CARDS.C, LIBRARY CARDS.C
FILE INFORMATION
FILENAME(S):
• LIBRARY CARDS.C<br>• LIBRARY CARDS.C 
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 01:08:41
APPEARS ON: 3 disk(s)
FILE HASH
3272c150cc05b845d73b24589f590e750cf80884e2dc3a295b1b3dd969413376
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A NWENDER | LIBRARY CARDS.C | PRG | Treasure Chest - Wolfgang Rauprich | 8 | 6 | DOWNLOAD FILE |
| FREESOFT DISK NR | LIBRARY CARDS.C | PRG | Treasure Chest - Wolfgang Rauprich | 8 | 6 | DOWNLOAD FILE |
| PUBLIC DOMAIN | LIBRARY CARDS.C | PRG | DuncanTwain | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 05 00 86 48 24 28 38 29 2C 41 24 28 |.......H$(8),A$(| 00000010: 31 30 30 2C 38 29 00 36 08 0A 00 99 C7 28 31 34 |100,8).6.....(14| 00000020: 37 29 3B 3A 97 35 33 32 38 30 2C 31 32 3A 97 35 |7);:.53280,12:.5| 00000030: 33 32 38 31 2C 30 00 6E 08 14 00 99 C7 28 31 34 |3281,0.n.....(14| 00000040: 32 29 22 99 DA DA DA DA DA DA DA DA DA DA DA DA |2)".............| 00000050: DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA |................| 00000060: DA DA DA DA DA DA DA DA DA DA DA DA 22 3B 00 7A |............";.z| 00000070: 08 1E 00 81 54 B2 31 A4 32 33 00 AB 08 28 00 99 |....T.1.23...(..| 00000080: 22 DA 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 20 20 20 20 20 20 20 DA 22 3B 00 B2 08 32 00 | .";...2.| 000000B0: 82 54 00 E2 08 3C 00 99 22 DA DA DA DA DA DA DA |.T...<..".......| 000000C0: DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA |................| 000000D0: DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA DA |................| 000000E0: 22 3B 00 F9 08 46 00 97 32 30 32 33 2C 39 30 3A |";...F..2023,90:| 000000F0: 97 35 36 32 39 35 2C 31 33 00 20 09 50 00 99 22 |.56295,13. .P.."| 00000100: 13 11 11 11 11 11 11 11 11 11 22 3A 99 A3 31 33 |..........":..13| 00000110: 29 22 4C 49 42 52 41 52 59 20 43 41 52 44 53 22 |)"LIBRARY CARDS"| 00000120: 00 3A 09 5A 00 99 A3 31 33 29 22 91 A3 A3 A3 A3 |.:.Z...13)".....| 00000130: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 4B 09 64 00 81 |.........".K.d..| 00000140: 54 B2 31 A4 33 30 30 30 3A 82 54 00 65 09 77 00 |T.1.3000:.T.e.w.| 00000150: 8F 2A 2A 52 45 41 44 20 44 41 54 41 20 48 45 41 |.**READ DATA HEA| 00000160: 44 49 4E 47 53 00 7A 09 78 00 81 54 B2 30 A4 38 |DINGS.z.x..T.0.8| 00000170: 3A 87 48 24 28 54 29 3A 82 54 00 8B 09 C7 00 8F |:.H$(T):.T......| 00000180: 2A 2A 4D 41 49 4E 20 4D 45 4E 55 00 B0 09 C8 00 |**MAIN MENU.....| 00000190: 97 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C |.53280,6:.53281,| 000001A0: 31 31 3A 99 C7 28 31 34 29 22 93 05 11 11 22 3B |11:..(14)"....";| 000001B0: 00 CE 09 D2 00 99 A3 31 31 29 22 CD 45 4E 55 20 |.......11)".ENU | 000001C0: 4F 46 20 C1 43 54 49 56 49 54 49 45 53 22 00 EC |OF .CTIVITIES"..| 000001D0: 09 DC 00 99 A3 31 31 29 22 A3 A3 A3 A3 A3 A3 A3 |.....11)".......| 000001E0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 1B 0A E6 |..........."....| 000001F0: 00 99 A3 33 29 22 11 11 31 2E 20 CC CF C1 C4 A0 |...3)"..1. .....| 00000200: 54 48 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 |THE INFORMATION | 00000210: 46 52 4F 4D 20 44 49 53 4B 2E 22 00 42 0A F0 00 |FROM DISK.".B...| 00000220: 99 3A 99 A3 33 29 22 32 2E 20 D2 C5 D6 C9 C5 D7 |.:..3)"2. ......| 00000230: 20 54 48 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E | THE INFORMATION| 00000240: 2E 22 00 62 0A FA 00 99 3A 99 A3 33 29 22 33 2E |.".b....:..3)"3.| 00000250: 20 C1 C4 C4 20 41 20 4E 45 57 20 45 4E 54 52 59 | ... A NEW ENTRY| 00000260: 2E 22 00 8A 0A 04 01 99 3A 99 A3 33 29 22 34 2E |."......:..3)"4.| 00000270: 20 C3 C8 C1 CE C7 C5 20 53 4F 4D 45 20 49 4E 46 | ...... SOME INF| 00000280: 4F 52 4D 41 54 49 4F 4E 2E 22 00 AA 0A 0E 01 99 |ORMATION."......| 00000290: 3A 99 A3 33 29 22 35 2E 20 C4 C5 CC C5 D4 C5 20 |:..3)"5. ...... | 000002A0: 41 4E 20 45 4E 54 52 59 2E 22 00 D7 0A 18 01 99 |AN ENTRY."......| 000002B0: 3A 99 A3 33 29 22 36 2E 20 D3 C1 D6 C5 20 54 48 |:..3)"6. .... TH| 000002C0: 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 4F 4E |E INFORMATION ON| 000002D0: 20 44 49 53 4B 2E 22 00 F5 0A 22 01 99 3A 99 A3 | DISK."..."..:..| 000002E0: 33 29 22 37 2E 20 D0 D2 C9 CE D4 49 4E 47 20 4D |3)"7. .....ING M| 000002F0: 45 4E 55 2E 22 00 24 0B 2C 01 99 3A 99 A3 33 29 |ENU.".$.,..:..3)| 00000300: 22 38 2E 20 CD C5 CE D5 20 4F 46 20 4F 54 48 45 |"8. .... OF OTHE| 00000310: 52 20 50 52 4F 47 52 41 4D 53 20 4F 4E 20 44 49 |R PROGRAMS ON DI| 00000320: 53 4B 2E 22 00 53 0B 30 01 99 22 11 11 11 1D 1D |SK.".S.0..".....| 00000330: 1D 1D 1D 1D 12 C3 C8 CF CF D3 C5 20 C2 D9 20 D0 |........... .. .| 00000340: D2 C5 D3 D3 C9 CE C7 20 C1 20 CE D5 CD C2 C5 D2 |....... . ......| 00000350: 92 22 3B 00 68 0B 36 01 A1 41 4E 24 3A 8B 41 4E |.";.h.6..AN$:.AN| 00000360: 24 B2 22 22 A7 33 31 30 00 82 0B 40 01 8B 41 4E |$."".310...@..AN| 00000370: 24 B3 22 31 22 B0 41 4E 24 B1 22 38 22 A7 89 33 |$."1".AN$."8"..3| 00000380: 35 30 00 8F 0B 4A 01 4D B2 C5 28 41 4E 24 29 00 |50...J.M..(AN$).| 00000390: C3 0B 54 01 91 4D 89 32 30 30 30 2C 35 30 30 30 |..T..M.2000,5000| 000003A0: 2C 38 30 30 30 2C 31 31 30 30 30 2C 31 34 30 30 |,8000,11000,1400| 000003B0: 30 2C 31 37 30 30 30 2C 32 30 30 30 30 2C 32 33 |0,17000,20000,23| 000003C0: 30 30 30 00 DE 0B 5D 01 8F 2A 2A 49 46 20 57 52 |000...]..**IF WR| 000003D0: 4F 4E 47 20 4D 45 4E 55 20 49 4E 50 55 54 00 EA |ONG MENU INPUT..| 000003E0: 0B 5E 01 81 54 B2 31 A4 31 30 00 21 0C 68 01 99 |.^..T.1.10.!.h..| 000003F0: 22 05 9D 9D 9D 9D 9D 9D CE D5 CD C2 C5 D2 22 3B |".............";| 00000400: 3A 81 59 B2 31 A4 31 35 30 3A 82 59 3A 99 22 96 |:.Y.1.150:.Y:.".| 00000410: 12 9D 9D 9D 9D 9D 9D CE D5 CD C2 C5 D2 92 05 22 |..............."| 00000420: 3B 00 31 0C 72 01 81 59 B2 31 A4 31 35 30 3A 82 |;.1.r..Y.1.150:.| 00000430: 59 00 38 0C 7C 01 82 54 00 41 0C 86 01 89 33 31 |Y.8.|..T.A....31| 00000440: 30 00 5B 0C CF 07 8F 2A 2A 46 52 4F 4D 20 4D 45 |0.[....**FROM ME| 00000450: 4E 55 20 4F 50 54 49 4F 4E 20 31 00 68 0C D0 07 |NU OPTION 1.h...| 00000460: 97 35 33 32 38 30 2C 37 00 89 0C DA 07 99 22 93 |.53280,7......".| 00000470: 11 11 11 11 11 11 11 11 11 22 3A 99 A3 31 37 29 |.........":..17)| 00000480: 22 CC 4F 41 44 49 4E 47 22 00 95 0C E4 07 49 B2 |".OADING".....I.| 00000490: 30 3A 4A B2 30 00 B1 0C EE 07 9F 32 2C 38 2C 32 |0:J.0......2,8,2| 000004A0: 2C 22 30 3A 42 4F 4F 4B 46 49 4C 45 2C 53 2C 52 |,"0:BOOKFILE,S,R| 000004B0: 22 00 C0 0C 0C 08 84 32 2C 41 24 28 49 2C 4A 29 |"......2,A$(I,J)| 000004C0: 00 D1 0C 16 08 8B 53 54 B3 B1 30 A7 89 32 31 30 |......ST..0..210| 000004D0: 30 00 DB 0C 20 08 4A B2 4A AA 31 00 EE 0C 24 08 |0... .J.J.1...$.| 000004E0: 8B 4A B1 38 A7 4A B2 30 3A 49 B2 49 AA 31 00 F8 |.J.8.J.0:I.I.1..| 000004F0: 0C 2A 08 89 32 30 36 30 00 FF 0C 34 08 A0 32 00 |.*..2060...4..2.| 00000500: 11 0D 98 08 58 B2 49 3A 5A 31 B2 31 3A 89 32 30 |....X.I:Z1.1:.20| 00000510: 30 00 2B 0D 87 13 8F 2A 2A 46 52 4F 4D 20 4D 45 |0.+....**FROM ME| 00000520: 4E 55 20 4F 50 54 49 4F 4E 20 32 00 36 0D 88 13 |NU OPTION 2.6...| 00000530: 89 33 30 30 30 30 00 43 0D 8A 13 99 22 93 22 3A |.30000.C....".":| 00000540: 49 B2 30 00 4E 0D 92 13 81 4A B2 30 A4 38 00 65 |I.0.N....J.0.8.e| 00000550: 0D 96 13 8B 4A B2 30 A7 99 C7 28 31 34 37 29 22 |....J.0...(147)"| 00000560: 11 11 11 11 22 00 75 0D 9C 13 99 A3 32 29 41 24 |....".u.....2)A$| 00000570: 28 49 2C 4A 29 00 80 0D 9E 13 8B 4A B2 36 A7 99 |(I,J)......J.6..| 00000580: 00 8B 0D A0 13 8B 4A B2 37 A7 99 00 92 0D A6 13 |......J.7.......| 00000590: 82 4A 00 A1 0D AB 13 8B 49 B2 58 A7 89 35 31 30 |.J......I.X..510| 000005A0: 30 00 C3 0D B0 13 99 A3 31 34 29 22 11 11 C1 4E |0.......14)"...N| 000005B0: 4F 54 48 45 52 20 45 4E 54 52 59 3F 20 28 59 2F |OTHER ENTRY? (Y/| 000005C0: 4E 29 22 00 D9 0D BA 13 A1 41 4E 24 3A 8B 41 4E |N)"......AN$:.AN| 000005D0: 24 B2 22 22 A7 35 30 35 30 00 FA 0D C4 13 8B 41 |$."".5050......A| 000005E0: 4E 24 B2 22 59 22 B0 41 4E 24 B2 22 D9 22 A7 49 |N$."Y".AN$.".".I| 000005F0: B2 49 AA 31 3A 89 35 30 31 30 00 03 0E CE 13 89 |.I.1:.5010......| 00000600: 32 30 30 00 36 0E EC 13 99 22 11 11 11 11 CC 41 |200.6....".....A| 00000610: 53 54 20 45 4E 54 52 59 2E 20 D0 52 45 53 53 20 |ST ENTRY. .RESS | 00000620: C6 31 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |.1 TO RETURN TO | 00000630: 4D 45 4E 55 22 3B 00 4E 0E F6 13 A1 41 4E 24 3A |MENU";.N....AN$:| 00000640: 8B 41 4E 24 B3 B1 22 85 22 A7 35 31 31 30 00 57 |.AN$..".".5110.W| 00000650: 0E 00 14 89 32 30 30 00 71 0E 3F 1F 8F 2A 2A 46 |....200.q.?..**F| 00000660: 52 4F 4D 20 4D 45 4E 55 20 4F 50 54 49 4F 4E 20 |ROM MENU OPTION | 00000670: 33 00 86 0E 40 1F 99 C7 28 31 34 37 29 3A 97 35 |3...@...(147):.5| 00000680: 33 32 38 30 2C 35 00 A3 0E 4A 1F 99 3A 99 A3 31 |3280,5...J..:..1| 00000690: 33 29 22 C1 C4 C4 C9 CE C7 20 C1 20 D2 C5 C3 CF |3)"...... . ....| 000006A0: D2 C4 22 00 C0 0E 54 1F 99 A3 31 33 29 22 A3 A3 |.."...T...13)"..| 000006B0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 3A 99 |.............":.| 000006C0: 00 DB 0E 5E 1F 81 54 B2 30 A4 38 3A 99 22 20 22 |...^..T.0.8:." "| 000006D0: 3B 48 24 28 54 29 3A 99 3A 82 54 00 EE 0E 63 1F |;H$(T):.:.T...c.| 000006E0: 8B 5A B2 31 A7 4A B2 30 3A 89 38 30 35 30 00 08 |.Z.1.J.0:.8050..| 000006F0: 0F 65 1F 8B 5A 31 B2 31 A7 49 B2 49 AA 31 3A 4A |.e..Z1.1.I.I.1:J| 00000700: B2 30 3A 89 38 30 35 30 00 14 0F 68 1F 49 B2 30 |.0:.8050...h.I.0| 00000710: 3A 4A B2 30 00 23 0F 72 1F 99 22 13 11 11 11 11 |:J.0.#.r..".....| 00000720: 11 22 3B 00 4B 0F 7C 1F 85 22 1D 1D 1D 1D 1D 1D |.";.K.|.."......| 00000730: 1D 1D 1D 1D 1D 1D 1D 1D 2A 9D 9D 9D 22 3B 41 24 |........*...";A$| 00000740: 28 49 2C 4A 29 3A 89 38 35 30 30 00 70 0F 86 1F |(I,J):.8500.p...| 00000750: 99 A3 31 31 29 22 11 12 C1 4E 4F 54 48 45 52 20 |..11)"...NOTHER | 00000760: 52 45 43 4F 52 44 3F 20 28 59 2F 4E 29 92 22 3B |RECORD? (Y/N).";| 00000770: 00 86 0F 90 1F A1 41 4E 24 3A 8B 41 4E 24 B2 22 |......AN$:.AN$."| 00000780: 22 A7 38 30 38 30 00 A4 0F 9A 1F 8B 41 4E 24 B2 |".8080......AN$.| 00000790: 22 4E 22 B0 41 4E 24 B2 22 CE 22 A7 58 B2 49 3A |"N".AN$.".".X.I:| 000007A0: 89 32 30 30 00 BC 0F A4 1F 49 B2 49 AA 31 3A 4A |.200.....I.I.1:J| 000007B0: B2 30 3A 5A B2 31 3A 89 38 30 30 30 00 DB 0F 34 |.0:Z.1:.8000...4| 000007C0: 21 99 A3 31 33 29 22 9E C5 4E 54 52 59 20 CF 2E |!..13)"..NTRY ..| 000007D0: CB 2E 3F 20 28 59 2F 4E 29 05 22 00 F1 0F 3E 21 |..? (Y/N)."...>!| 000007E0: A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 38 35 31 |.AN$:.AN$."".851| 000007F0: 30 00 10 10 48 21 8B 41 4E 24 B2 22 4E 22 B0 41 |0...H!.AN$."N".A| 00000800: 4E 24 B2 22 CE 22 A7 5A B2 31 3A 89 38 30 30 30 |N$.".".Z.1:.8000| 00000810: 00 1A 10 52 21 4A B2 4A AA 31 00 2D 10 5C 20 8B |...R!J.J.1.-.\ .| 00000820: 4A B1 38 A7 4A B2 38 3A 89 38 30 37 30 00 37 10 |J.8.J.8:.8070.7.| 00000830: 66 21 89 38 30 36 30 00 51 10 F7 2A 8F 2A 2A 46 |f!.8060.Q..*.**F| 00000840: 52 4F 4D 20 4D 45 4E 55 20 4F 50 54 49 4F 4E 20 |ROM MENU OPTION | 00000850: 34 00 5E 10 F8 2A 97 35 33 32 38 30 2C 37 00 7F |4.^..*.53280,7..| 00000860: 10 02 2B 99 22 93 11 11 22 3B A3 31 32 29 22 96 |..+."...";.12)".| 00000870: C3 C8 C1 CE C7 C5 20 CF D0 D4 C9 CF CE D3 22 00 |...... .......".| 00000880: 9A 10 0C 2B 99 A3 31 32 29 22 B7 B7 B7 B7 B7 B7 |...+..12)"......| 00000890: B7 B7 B7 B7 B7 B7 B7 B7 05 22 00 BC 10 16 2B 99 |........."....+.| 000008A0: A3 38 29 22 11 11 31 2E 20 D2 45 56 49 45 57 20 |.8)"..1. .EVIEW | 000008B0: 41 4E 44 20 43 48 41 4E 47 45 2E 22 00 DF 10 20 |AND CHANGE."... | 000008C0: 2B 99 A3 38 29 22 11 11 11 32 2E 20 D3 45 41 52 |+..8)"...2. .EAR| 000008D0: 43 48 20 41 4E 44 20 43 48 41 4E 47 45 2E 22 00 |CH AND CHANGE.".| 000008E0: 04 11 2A 2B 99 A3 38 29 22 11 11 11 33 2E 20 D2 |..*+..8)"...3. .| 000008F0: 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 |ETURN TO MAIN ME| 00000900: 4E 55 2E 22 00 36 11 34 2B 99 A3 36 29 22 11 11 |NU.".6.4+..6)"..| 00000910: 11 11 11 11 11 11 11 12 C3 C8 CF CF D2 C5 A0 C2 |................| 00000920: D9 A0 D0 D2 C5 D3 D3 C9 CE C7 A0 C1 A0 CE D5 CD |................| 00000930: C2 C5 D2 92 22 3B 00 4D 11 3E 2B A1 41 4E 24 3A |....";.M.>+.AN$:| 00000940: 8B 41 4E 24 B2 22 22 A7 31 31 30 37 30 00 69 11 |.AN$."".11070.i.| 00000950: 48 2B 8B 41 4E 24 B3 22 31 22 B0 41 4E 24 B1 22 |H+.AN$."1".AN$."| 00000960: 33 22 A7 89 31 31 31 31 30 00 76 11 52 2B 4D B2 |3"..11110.v.R+M.| 00000970: C5 28 41 4E 24 29 00 8D 11 5C 2B 91 4D 89 31 31 |.(AN$)...\+.M.11| 00000980: 31 36 30 2C 31 31 35 30 30 2C 32 30 30 00 A8 11 |160,11500,200...| 00000990: 65 2B 8F 2A 2A 49 46 20 57 52 4F 4E 47 20 4D 45 |e+.**IF WRONG ME| 000009A0: 4E 55 20 49 4E 50 55 54 00 B4 11 66 2B 81 54 B2 |NU INPUT...f+.T.| 000009B0: 31 A4 31 30 00 E9 11 70 2B 99 22 9E 9D 9D 9D 9D |1.10...p+.".....| 000009C0: 9D 9D CE D5 CD C2 C5 D2 22 3B 3A 81 59 B2 31 A4 |........";:.Y.1.| 000009D0: 31 35 30 3A 82 59 3A 99 22 1C 9D 9D 9D 9D 9D 9D |150:.Y:.".......| 000009E0: CE D5 CD C2 C5 D2 05 22 3B 00 F9 11 7A 2B 81 59 |.......";...z+.Y| 000009F0: B2 31 A4 31 35 30 3A 82 59 00 00 12 84 2B 82 54 |.1.150:.Y....+.T| 00000A00: 00 0B 12 8E 2B 89 31 31 30 37 30 00 2E 12 97 2B |....+.11070....+| 00000A10: 8F 2A 2A 46 52 4F 4D 20 43 48 41 4E 47 49 4E 47 |.**FROM CHANGING| 00000A20: 20 4D 45 4E 55 20 4F 50 54 49 4F 4E 20 31 00 40 | MENU OPTION 1.@| 00000A30: 12 98 2B 99 22 13 22 3A 49 B2 30 3A 43 53 B2 30 |..+.".":I.0:CS.0| 00000A40: 00 4B 12 A2 2B 81 4A B2 30 A4 38 00 62 12 AC 2B |.K..+.J.0.8.b..+| 00000A50: 8B 4A B2 30 A7 99 C7 28 31 34 37 29 22 11 11 11 |.J.0...(147)"...| 00000A60: 11 22 00 7C 12 B6 2B 99 A3 36 29 22 9E 22 3B 4A |.".|..+..6)".";J| 00000A70: 3B 22 05 22 3B 41 24 28 49 2C 4A 29 00 87 12 C0 |;".";A$(I,J)....| 00000A80: 2B 8B 4A B2 36 A7 99 00 92 12 CA 2B 8B 4A B2 37 |+.J.6......+.J.7| 00000A90: A7 99 00 99 12 D4 2B 82 4A 00 C2 12 DE 2B 99 A3 |......+.J....+..| 00000AA0: 38 29 22 11 11 96 12 C3 C8 C1 CE C7 C5 92 05 20 |8)"............ | 00000AB0: 54 48 49 53 20 45 4E 54 52 59 3F 20 28 59 2F 4E |THIS ENTRY? (Y/N| 00000AC0: 29 22 00 D9 12 E8 2B A1 41 4E 24 3A 8B 41 4E 24 |)"....+.AN$:.AN$| 00000AD0: B2 22 22 A7 31 31 32 34 30 00 F5 12 F2 2B 8B 41 |."".11240....+.A| 00000AE0: 4E 24 B2 22 59 22 B0 41 4E 24 B2 22 D9 22 A7 89 |N$."Y".AN$."."..| 00000AF0: 31 31 33 31 30 00 04 13 FC 2B 8B 49 B2 58 A7 89 |11310....+.I.X..| 00000B00: 35 31 30 30 00 25 13 06 2C 99 A3 31 34 29 22 11 |5100.%..,..14)".| 00000B10: C1 4E 4F 54 48 45 52 20 45 4E 54 52 59 3F 20 28 |.NOTHER ENTRY? (| 00000B20: 59 2F 4E 29 22 00 3C 13 10 2C A1 41 4E 24 3A 8B |Y/N)".<..,.AN$:.| 00000B30: 41 4E 24 B2 22 22 A7 31 31 32 38 30 00 5E 13 1A |AN$."".11280.^..| 00000B40: 2C 8B 41 4E 24 B2 22 59 22 B0 41 4E 24 B2 22 D9 |,.AN$."Y".AN$.".| 00000B50: 22 A7 49 B2 49 AA 31 3A 89 31 31 33 30 32 00 67 |".I.I.1:.11302.g| 00000B60: 13 24 2C 89 32 30 30 00 78 13 26 2C 8B 43 53 B2 |.$,.200.x.&,.CS.| 00000B70: 31 A7 89 31 34 35 30 30 00 83 13 28 2C 89 31 31 |1..14500...(,.11| 00000B80: 31 37 30 00 B3 13 2E 2C 99 22 91 1D 1D C5 4E 54 |170....,."....NT| 00000B90: 45 52 20 9E CE D5 CD C2 C5 D2 05 20 4F 46 20 4C |ER ........ OF L| 00000BA0: 49 4E 45 20 54 4F 20 42 45 20 43 48 41 4E 47 45 |INE TO BE CHANGE| 00000BB0: 44 2E 22 00 CA 13 38 2C A1 41 4E 24 3A 8B 41 4E |D."...8,.AN$:.AN| 00000BC0: 24 B2 22 22 A7 31 31 33 32 30 00 EB 13 42 2C 8B |$."".11320...B,.| 00000BD0: 41 4E 24 B3 22 30 22 B0 41 4E 24 B1 22 38 22 A7 |AN$."0".AN$."8".| 00000BE0: 99 22 11 22 3A 89 31 31 33 31 30 00 00 14 4C 2C |.".":.11310...L,| 00000BF0: 4A B2 C5 28 41 4E 24 29 3A 99 C7 28 31 39 29 3B |J..(AN$):..(19);| 00000C00: 00 23 14 56 2C 44 4E 24 B2 22 11 11 11 11 11 11 |.#.V,DN$."......| 00000C10: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000C20: 11 11 22 00 3F 14 60 2C 8B 4A B2 37 A7 99 C8 28 |..".?.`,.J.7...(| 00000C30: 44 4E 24 2C 31 33 29 3B 3A 89 31 31 33 39 30 00 |DN$,13);:.11390.| 00000C40: 5B 14 6A 2C 8B 4A B2 38 A7 99 C8 28 44 4E 24 2C |[.j,.J.8...(DN$,| 00000C50: 31 35 29 3B 3A 89 31 31 33 39 30 00 6C 14 74 2C |15);:.11390.l.t,| 00000C60: 99 C8 28 44 4E 24 2C 4A AA 35 29 3B 00 90 14 7E |..(DN$,J.5);...~| 00000C70: 2C 99 A3 39 29 22 20 20 20 20 20 20 20 20 20 20 |,..9)" | 00000C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000C90: 00 A8 14 88 2C 85 22 91 1D 1D 1D 1D 1D 1D 1D 22 |....,."........"| 00000CA0: 3B 41 24 28 49 2C 4A 29 00 E8 14 92 2C 99 C7 28 |;A$(I,J)....,..(| 00000CB0: 31 39 29 3B C8 28 44 4E 24 2C 31 38 29 3B A3 32 |19);.(DN$,18);.2| 00000CC0: 29 3B 22 20 20 20 20 20 20 C3 48 41 4E 47 45 20 |);" .HANGE | 00000CD0: 41 4E 4F 54 48 45 52 20 4C 49 4E 45 3F 20 28 59 |ANOTHER LINE? (Y| 00000CE0: 2F 4E 29 20 20 20 20 22 00 FF 14 9C 2C A1 41 4E |/N) "....,.AN| 00000CF0: 24 3A 8B 41 4E 24 B2 22 22 A7 31 31 34 32 30 00 |$:.AN$."".11420.| 00000D00: 1B 15 A6 2C 8B 41 4E 24 B2 22 59 22 B0 41 4E 24 |...,.AN$."Y".AN$| 00000D10: B2 22 D9 22 A7 89 31 31 33 31 30 00 26 15 B0 2C |."."..11310.&..,| 00000D20: 89 31 31 32 37 30 00 49 15 EB 2C 8F 2A 2A 46 52 |.11270.I..,.**FR| 00000D30: 4F 4D 20 43 48 41 4E 47 49 4E 47 20 4D 45 4E 55 |OM CHANGING MENU| 00000D40: 20 4F 50 54 49 4F 4E 20 32 00 52 15 EC 2C 43 53 | OPTION 2.R..,CS| 00000D50: B2 31 00 5D 15 F6 2C 89 31 34 35 30 30 00 77 15 |.1.]..,.14500.w.| 00000D60: AF 36 8F 2A 2A 46 52 4F 4D 20 4D 45 4E 55 20 4F |.6.**FROM MENU O| 00000D70: 50 54 49 4F 4E 20 35 00 89 15 B0 36 97 35 33 32 |PTION 5....6.532| 00000D80: 38 30 2C 32 3A 44 53 B2 30 00 AC 15 BA 36 99 22 |80,2:DS.0....6."| 00000D90: 93 11 11 22 3B A3 31 32 29 22 9E C4 C5 CC C5 D4 |...";.12)"......| 00000DA0: C9 CE C7 20 CF D0 D4 C9 CF CE D3 22 00 C9 15 C4 |... ......."....| 00000DB0: 36 99 A3 31 32 29 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 |6..12)".........| 00000DC0: B7 B7 B7 B7 B7 B7 B7 05 22 00 EB 15 CE 36 99 A3 |........"....6..| 00000DD0: 38 29 22 11 11 31 2E 20 D2 45 56 49 45 57 20 41 |8)"..1. .EVIEW A| 00000DE0: 4E 44 20 44 45 4C 45 54 45 2E 22 00 0E 16 D8 36 |ND DELETE."....6| 00000DF0: 99 A3 38 29 22 11 11 11 32 2E 20 D3 45 41 52 43 |..8)"...2. .EARC| 00000E00: 48 20 41 4E 44 20 44 45 4C 45 54 45 2E 22 00 33 |H AND DELETE.".3| 00000E10: 16 E2 36 99 A3 38 29 22 11 11 11 33 2E 20 D2 45 |..6..8)"...3. .E| 00000E20: 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E |TURN TO MAIN MEN| 00000E30: 55 2E 22 00 65 16 EC 36 99 A3 36 29 22 11 11 11 |U.".e..6..6)"...| 00000E40: 11 11 11 11 11 11 12 C3 C8 CF CF D3 C5 A0 C2 D9 |................| 00000E50: A0 D0 D2 C5 D3 D3 C9 CE C7 A0 C1 A0 CE D5 CD C2 |................| 00000E60: C5 D2 92 22 3B 00 7C 16 F6 36 A1 41 4E 24 3A 8B |...";.|..6.AN$:.| 00000E70: 41 4E 24 B2 22 22 A7 31 34 30 37 30 00 98 16 00 |AN$."".14070....| 00000E80: 37 8B 41 4E 24 B3 22 31 22 B0 41 4E 24 B1 22 33 |7.AN$."1".AN$."3| 00000E90: 22 A7 89 31 34 31 31 30 00 A5 16 0A 37 4D B2 C5 |"..14110....7M..| 00000EA0: 28 41 4E 24 29 00 BC 16 14 37 91 4D 89 31 34 31 |(AN$)....7.M.141| 00000EB0: 36 30 2C 31 34 35 30 30 2C 32 30 30 00 D7 16 1D |60,14500,200....| 00000EC0: 37 8F 2A 2A 49 46 20 57 52 4F 4E 47 20 4D 45 4E |7.**IF WRONG MEN| 00000ED0: 55 20 49 4E 50 55 54 00 E3 16 1E 37 81 54 B2 31 |U INPUT....7.T.1| 00000EE0: A4 31 30 00 18 17 28 37 99 22 9E 9D 9D 9D 9D 9D |.10...(7."......| 00000EF0: 9D CE D5 CD C2 C5 D2 22 3B 3A 81 59 B2 31 A4 31 |.......";:.Y.1.1| 00000F00: 35 30 3A 82 59 3A 99 22 1C 9D 9D 9D 9D 9D 9D CE |50:.Y:."........| 00000F10: D5 CD C2 C5 D2 05 22 3B 00 28 17 32 37 81 59 B2 |......";.(.27.Y.| 00000F20: 31 A4 31 35 30 3A 82 59 00 2F 17 3C 37 82 54 00 |1.150:.Y./.<7.T.| 00000F30: 3A 17 46 37 89 31 34 30 37 30 00 5E 17 4F 37 8F |:.F7.14070.^.O7.| 00000F40: 2A 2A 46 52 4F 4D 20 44 45 4C 45 54 49 4E 47 20 |**FROM DELETING | 00000F50: 4D 45 4E 55 20 4F 50 54 49 4F 4E 20 31 2E 00 6B |MENU OPTION 1..k| 00000F60: 17 50 37 99 22 13 22 3A 49 B2 30 00 76 17 5A 37 |.P7.".":I.0.v.Z7| 00000F70: 81 4A B2 30 A4 38 00 8D 17 64 37 8B 4A B2 30 A7 |.J.0.8...d7.J.0.| 00000F80: 99 C7 28 31 34 37 29 22 11 11 11 11 22 00 9D 17 |..(147)"...."...| 00000F90: 6E 37 99 A3 37 29 41 24 28 49 2C 4A 29 00 A8 17 |n7..7)A$(I,J)...| 00000FA0: 78 37 8B 4A B2 36 A7 99 00 B3 17 82 37 8B 4A B2 |x7.J.6......7.J.| 00000FB0: 37 A7 99 00 BA 17 8C 37 82 4A 00 E3 17 96 37 99 |7......7.J....7.| 00000FC0: A3 38 29 22 11 11 9E 12 C4 C5 CC C5 D4 C5 92 05 |.8)"............| 00000FD0: 20 54 48 49 53 20 45 4E 54 52 59 3F 20 28 59 2F | THIS ENTRY? (Y/| 00000FE0: 4E 29 22 00 FA 17 A0 37 A1 41 4E 24 3A 8B 41 4E |N)"....7.AN$:.AN| 00000FF0: 24 B2 22 22 A7 31 34 32 34 30 00 16 18 AA 37 8B |$."".14240....7.| 00001000: 41 4E 24 B2 22 59 22 B0 41 4E 24 B2 22 D9 22 A7 |AN$."Y".AN$.".".| 00001010: 89 31 34 33 31 30 00 25 18 B4 37 8B 49 B2 58 A7 |.14310.%..7.I.X.| 00001020: 89 35 31 30 30 00 46 18 BE 37 99 A3 31 34 29 22 |.5100.F..7..14)"| 00001030: 11 C1 4E 4F 54 48 45 52 20 45 4E 54 52 59 3F 20 |..NOTHER ENTRY? | 00001040: 28 59 2F 4E 29 22 00 5D 18 C8 37 A1 41 4E 24 3A |(Y/N)".]..7.AN$:| 00001050: 8B 41 4E 24 B2 22 22 A7 31 34 32 38 30 00 7F 18 |.AN$."".14280...| 00001060: D2 37 8B 41 4E 24 B2 22 59 22 B0 41 4E 24 B2 22 |.7.AN$."Y".AN$."| 00001070: D9 22 A7 49 B2 49 AA 31 3A 89 31 34 33 30 32 00 |.".I.I.1:.14302.| 00001080: 88 18 DC 37 89 32 30 30 00 99 18 DE 37 8B 44 53 |...7.200....7.DS| 00001090: B2 31 A7 89 31 34 35 32 30 00 A4 18 E0 37 89 31 |.1..14520....7.1| 000010A0: 34 31 37 30 00 B3 18 E6 37 58 B2 58 AB 31 3A 44 |4170....7X.X.1:D| 000010B0: 45 B2 49 00 C6 18 F0 37 81 49 B2 44 45 A4 58 3A |E.I....7.I.DE.X:| 000010C0: 81 4A B2 30 A4 38 00 DC 18 FA 37 41 24 28 49 2C |.J.0.8....7A$(I,| 000010D0: 4A 29 B2 41 24 28 49 AA 31 2C 4A 29 00 E6 18 04 |J).A$(I.1,J)....| 000010E0: 38 82 4A 3A 82 49 00 15 19 0E 38 99 A3 38 29 22 |8.J:.I....8..8)"| 000010F0: 91 9E C4 C5 CC C5 D4 C5 C4 92 20 41 53 20 52 45 |.......... AS RE| 00001100: 51 55 45 53 54 45 44 2E 20 20 20 20 20 20 20 20 |QUESTED. | 00001110: 20 20 20 05 22 00 20 19 18 38 89 31 34 32 36 30 | .". ..8.14260| 00001120: 00 44 19 71 38 8F 2A 2A 46 52 4F 4D 20 44 45 4C |.D.q8.**FROM DEL| 00001130: 45 54 49 4E 47 20 4D 45 4E 55 20 4F 50 54 49 4F |ETING MENU OPTIO| 00001140: 4E 20 32 2E 00 5E 19 A4 38 85 22 93 11 11 D3 45 |N 2..^..8."....E| 00001150: 41 52 43 48 20 57 4F 52 44 22 3B 44 45 24 00 80 |ARCH WORD";DE$..| 00001160: 19 A6 38 99 A3 36 29 22 11 11 D0 4C 45 41 53 45 |..8..6)"...LEASE| 00001170: 20 57 41 49 54 20 41 20 4D 4F 4D 45 4E 54 2E 22 | WAIT A MOMENT."| 00001180: 00 88 19 AE 38 49 B2 30 00 93 19 B8 38 81 4A B2 |....8I.0....8.J.| 00001190: 30 A4 38 00 A4 19 C2 38 41 B2 C3 28 41 24 28 49 |0.8....8A..(A$(I| 000011A0: 2C 4A 29 29 00 B2 19 CC 38 81 44 45 B2 31 A4 41 |,J))....8.DE.1.A| 000011B0: AB 33 00 D7 19 D6 38 8B C8 28 44 45 24 2C 34 29 |.3....8..(DE$,4)| 000011C0: B2 CA 28 41 24 28 49 2C 4A 29 2C 44 45 2C 34 29 |..(A$(I,J),DE,4)| 000011D0: A7 89 31 34 36 34 30 00 E2 19 E0 38 82 44 45 3A |..14640....8.DE:| 000011E0: 82 4A 00 EC 19 EA 38 49 B2 49 AA 31 00 FE 19 F4 |.J....8I.I.1....| 000011F0: 38 8B 49 B2 58 AA 31 A7 89 31 34 36 30 30 00 09 |8.I.X.1..14600..| 00001200: 1A FE 38 89 31 34 35 32 30 00 24 1A 08 39 99 22 |..8.14520.$..9."| 00001210: 11 11 D3 45 41 52 43 48 20 43 4F 4D 50 4C 45 54 |...EARCH COMPLET| 00001220: 45 44 2E 22 00 49 1A 12 39 99 22 12 D0 52 45 53 |ED.".I..9."..RES| 00001230: 53 20 C6 31 20 54 4F 20 52 45 54 55 52 4E 20 54 |S .1 TO RETURN T| 00001240: 4F 20 4D 45 4E 55 2E 92 22 00 62 1A 1C 39 A1 41 |O MENU..".b..9.A| 00001250: 4E 24 3A 8B 41 4E 24 B3 B1 22 85 22 A7 31 34 36 |N$:.AN$..".".146| 00001260: 32 30 00 73 1A 1E 39 8B 43 53 B2 31 A7 89 31 31 |20.s..9.CS.1..11| 00001270: 30 31 30 00 84 1A 20 39 8B 52 56 B2 31 A7 89 33 |010... 9.RV.1..3| 00001280: 30 30 30 30 00 8F 1A 26 39 89 31 34 30 31 30 00 |0000...&9.14010.| 00001290: 98 1A 30 39 44 53 B2 31 00 A9 1A 32 39 8B 43 53 |..09DS.1...29.CS| 000012A0: B2 31 A7 89 31 31 31 37 30 00 B4 1A 34 39 89 31 |.1..11170...49.1| 000012B0: 34 31 37 30 00 CE 1A 67 42 8F 2A 2A 46 52 4F 4D |4170...gB.**FROM| 000012C0: 20 4D 45 4E 55 20 4F 50 54 49 4F 4E 20 36 00 DC | MENU OPTION 6..| 000012D0: 1A 68 42 97 35 33 32 38 30 2C 31 30 00 07 1B 72 |.hB.53280,10...r| 000012E0: 42 99 22 93 11 11 11 11 11 11 11 11 11 22 3A 99 |B."..........":.| 000012F0: A3 39 29 22 D3 41 56 49 4E 47 20 4E 45 57 20 52 |.9)".AVING NEW R| 00001300: 45 43 4F 52 44 53 22 00 24 1B 90 42 9F 32 2C 38 |ECORDS".$..B.2,8| 00001310: 2C 32 2C 22 40 30 3A 42 4F 4F 4B 46 49 4C 45 2C |,2,"@0:BOOKFILE,| 00001320: 53 2C 57 22 00 30 1B 9A 42 49 B2 30 3A 4A B2 30 |S,W".0..BI.0:J.0| 00001330: 00 3F 1B AE 42 98 32 2C 41 24 28 49 2C 4A 29 00 |.?..B.2,A$(I,J).| 00001340: 49 1B B8 42 4A B2 4A AA 31 00 5C 1B C2 42 8B 4A |I..BJ.J.1.\..B.J| 00001350: B1 38 A7 4A B2 30 3A 49 B2 49 AA 31 00 6E 1B C6 |.8.J.0:I.I.1.n..| 00001360: 42 8B 49 B2 58 AA 31 A7 89 31 37 31 31 30 00 79 |B.I.X.1..17110.y| 00001370: 1B CC 42 89 31 37 30 37 30 00 80 1B D6 42 A0 32 |..B.17070....B.2| 00001380: 00 89 1B E0 42 89 32 30 30 00 A3 1B 1F 4E 8F 2A |....B.200....N.*| 00001390: 2A 46 52 4F 4D 20 4D 45 4E 55 20 4F 50 54 49 4F |*FROM MENU OPTIO| 000013A0: 4E 20 37 00 B0 1B 20 4E 97 35 33 32 38 30 2C 34 |N 7... N.53280,4| 000013B0: 00 D3 1B 2A 4E 99 22 93 11 11 11 22 3B A3 31 32 |...*N."....";.12| 000013C0: 29 22 D0 D2 C9 CE D4 C9 CE C7 20 CF D0 D4 C9 CF |)"........ .....| 000013D0: CE D3 22 00 EF 1B 34 4E 99 A3 31 32 29 22 B7 B7 |.."...4N..12)"..| 000013E0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 |..............".| 000013F0: 11 1C 3E 4E 99 A3 36 29 22 11 11 31 2E 20 D0 52 |..>N..6)"..1. .R| 00001400: 49 4E 54 20 41 4C 4C 20 45 4E 54 52 49 45 53 2E |INT ALL ENTRIES.| 00001410: 22 00 32 1C 48 4E 99 A3 36 29 22 11 11 32 2E 20 |".2.HN..6)"..2. | 00001420: D3 45 41 52 43 48 20 41 4E 44 20 50 52 49 4E 54 |.EARCH AND PRINT| 00001430: 2E 22 00 56 1C 52 4E 99 A3 36 29 22 11 11 33 2E |.".V.RN..6)"..3.| 00001440: 20 D2 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 | .ETURN TO MAIN | 00001450: 4D 45 4E 55 2E 22 00 89 1C 5C 4E 99 A3 37 29 22 |MENU."...\N..7)"| 00001460: 11 11 11 11 11 11 11 11 11 11 12 C3 C8 CF CF D3 |................| 00001470: C5 20 C2 D9 20 D0 D2 C5 D3 D3 C9 CE C7 20 C1 20 |. .. ........ . | 00001480: CE D5 CD C2 C5 D2 92 22 3B 00 A0 1C 66 4E A1 41 |.......";...fN.A| 00001490: 4E 24 3A 8B 41 4E 24 B2 22 22 A7 32 30 30 37 30 |N$:.AN$."".20070| 000014A0: 00 BC 1C 70 4E 8B 41 4E 24 B3 22 31 22 B0 41 4E |...pN.AN$."1".AN| 000014B0: 24 B1 22 33 22 A7 89 32 30 31 31 30 00 C9 1C 7A |$."3"..20110...z| 000014C0: 4E 4D B2 C5 28 41 4E 24 29 00 E0 1C 84 4E 91 4D |NM..(AN$)....N.M| 000014D0: 89 32 30 31 36 30 2C 32 30 35 30 30 2C 32 30 30 |.20160,20500,200| 000014E0: 00 FB 1C 8D 4E 8F 2A 2A 49 46 20 57 52 4F 4E 47 |....N.**IF WRONG| 000014F0: 20 4D 45 4E 55 20 49 4E 50 55 54 00 07 1D 8E 4E | MENU INPUT....N| 00001500: 81 54 B2 31 A4 31 30 00 3C 1D 98 4E 99 22 9E 9D |.T.1.10.<..N."..| 00001510: 9D 9D 9D 9D 9D CE D5 CD C2 C5 D2 22 3B 3A 81 59 |...........";:.Y| 00001520: B2 31 A4 31 35 30 3A 82 59 3A 99 22 1C 9D 9D 9D |.1.150:.Y:."....| 00001530: 9D 9D 9D CE D5 CD C2 C5 D2 05 22 3B 00 4C 1D A2 |..........";.L..| 00001540: 4E 81 59 B2 31 A4 31 35 30 3A 82 59 00 53 1D AC |N.Y.1.150:.Y.S..| 00001550: 4E 82 54 00 5E 1D B6 4E 89 32 30 30 37 30 00 6A |N.T.^..N.20070.j| 00001560: 1D C0 4E 49 B2 30 3A 4A B2 30 00 78 1D CA 4E 9F |..NI.0:J.0.x..N.| 00001570: 34 2C 34 2C 37 3A 9D 34 00 90 1D DE 4E 99 22 20 |4,4,7:.4....N." | 00001580: 20 20 20 20 20 20 20 22 3B 41 24 28 49 2C 4A 29 | ";A$(I,J)| 00001590: 00 9B 1D E8 4E 8B 4A B2 36 A7 99 00 A6 1D F2 4E |....N.J.6......N| 000015A0: 8B 4A B2 37 A7 99 00 B5 1D FC 4E 8B 4A B2 38 A7 |.J.7......N.J.8.| 000015B0: 99 3A 99 3A 99 00 BF 1D 06 4F 4A B2 4A AA 31 00 |.:.:.....OJ.J.1.| 000015C0: D0 1D 10 4F 8B 4A B2 B3 38 A7 89 32 30 31 39 30 |...O.J..8..20190| 000015D0: 00 DA 1D 24 4F 98 34 3A A0 34 00 09 1E 2E 4F 99 |...$O.4:.4....O.| 000015E0: 22 93 22 3B A3 39 29 3B 22 11 11 11 11 11 11 11 |".";.9);".......| 000015F0: 11 11 11 05 C1 4E 4F 54 48 45 52 20 45 4E 54 52 |.....NOTHER ENTR| 00001600: 59 3F 20 28 59 2F 4E 29 22 00 20 1E 38 4F A1 41 |Y? (Y/N)". .8O.A| 00001610: 4E 24 3A 8B 41 4E 24 B2 22 22 A7 32 30 32 38 30 |N$:.AN$."".20280| 00001620: 00 3C 1E 42 4F 8B 41 4E 24 B2 22 4E 22 B0 41 4E |.<.BO.AN$."N".AN| 00001630: 24 B2 22 CE 22 A7 89 32 30 30 30 30 00 57 1E 43 |$."."..20000.W.C| 00001640: 4F 49 B2 49 AA 31 3A 4A B2 30 3A 8B 49 B2 58 AA |OI.I.1:J.0:.I.X.| 00001650: 31 A7 89 35 31 30 30 00 66 1E 44 4F 8B 50 54 A7 |1..5100.f.DO.PT.| 00001660: 89 32 30 35 32 30 00 71 1E 46 4F 89 32 30 31 37 |.20520.q.FO.2017| 00001670: 30 00 81 1E 4C 4F 98 34 3A A0 34 3A 89 35 31 30 |0...LO.4:.4:.510| 00001680: 30 00 A0 1E E1 4F 8F 2A 2A 46 52 4F 4D 20 50 52 |0....O.**FROM PR| 00001690: 49 4E 54 49 4E 47 20 4F 50 54 49 4F 4E 20 32 2E |INTING OPTION 2.| 000016A0: 00 BA 1E 14 50 85 22 93 11 11 D3 45 41 52 43 48 |....P."....EARCH| 000016B0: 20 57 4F 52 44 22 3B 53 45 24 00 ED 1E 16 50 99 | WORD";SE$....P.| 000016C0: 22 11 11 11 1D 1D 1D 1D 9E D0 4C 45 41 53 45 20 |".........LEASE | 000016D0: 57 41 49 54 20 41 20 4D 49 4E 55 54 45 2E 05 22 |WAIT A MINUTE.."| 000016E0: 3A 8B 50 54 B2 31 A7 89 32 30 35 32 30 00 F5 1E |:.PT.1..20520...| 000016F0: 1E 50 49 B2 30 00 00 1F 28 50 81 4A B2 30 A4 38 |.PI.0...(P.J.0.8| 00001700: 00 11 1F 32 50 41 B2 C3 28 41 24 28 49 2C 4A 29 |...2PA..(A$(I,J)| 00001710: 29 00 1F 1F 3C 50 81 53 45 B2 31 A4 41 AB 33 00 |)...<P.SE.1.A.3.| 00001720: 4D 1F 46 50 8B C8 28 53 45 24 2C 34 29 B2 CA 28 |M.FP..(SE$,4)..(| 00001730: 41 24 28 49 2C 4A 29 2C 53 45 2C 34 29 A7 50 54 |A$(I,J),SE,4).PT| 00001740: B2 31 3A 4A B2 30 3A 89 32 30 31 37 30 00 58 1F |.1:J.0:.20170.X.| 00001750: 50 50 82 53 45 3A 82 4A 00 62 1F 5A 50 49 B2 49 |PP.SE:.J.b.ZPI.I| 00001760: AA 31 00 74 1F 64 50 8B 49 B2 58 AA 31 A7 89 32 |.1.t.dP.I.X.1..2| 00001770: 30 36 30 30 00 7F 1F 6E 50 89 32 30 35 32 30 00 |0600...nP.20520.| 00001780: 9A 1F 78 50 99 22 11 11 D3 45 41 52 43 48 20 43 |..xP."...EARCH C| 00001790: 4F 4D 50 4C 45 54 45 44 2E 22 00 BF 1F 82 50 99 |OMPLETED."....P.| 000017A0: 22 12 D0 52 45 53 53 20 C6 31 20 54 4F 20 52 45 |"..RESS .1 TO RE| 000017B0: 54 55 52 4E 20 54 4F 20 4D 45 4E 55 2E 92 22 00 |TURN TO MENU..".| 000017C0: D8 1F 8C 50 A1 41 4E 24 3A 8B 41 4E 24 B3 B1 22 |...P.AN$:.AN$.."| 000017D0: 85 22 A7 32 30 36 32 30 00 E3 1F 96 50 89 32 30 |.".20620....P.20| 000017E0: 30 31 30 00 FD 1F D7 59 8F 2A 2A 46 52 4F 4D 20 |010....Y.**FROM | 000017F0: 4D 45 4E 55 20 4F 50 54 49 4F 4E 20 38 00 2C 20 |MENU OPTION 8., | 00001800: D8 59 99 C7 28 31 34 32 29 22 93 11 11 11 11 4C |.Y..(142)".....L| 00001810: 4F 41 44 22 C7 28 33 34 29 22 4D 45 4E 55 22 C7 |OAD".(34)"MENU".| 00001820: 28 33 34 29 22 2C 38 11 11 11 11 22 00 44 20 E2 |(34)",8....".D .| 00001830: 59 99 22 52 55 4E 22 3A 99 22 91 91 91 91 91 91 |Y."RUN":."......| 00001840: 91 91 91 22 00 61 20 EC 59 97 36 33 31 2C 31 33 |...".a .Y.631,13| 00001850: 3A 97 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 3A |:.632,13:.198,2:| 00001860: 80 00 72 20 2F 75 8F 2A 2A 46 52 4F 4D 20 35 30 |..r /u.**FROM 50| 00001870: 30 30 00 9A 20 30 75 52 56 B2 31 3A 99 22 93 22 |00.. 0uRV.1:."."| 00001880: 3B A3 31 32 29 22 11 11 D2 C5 D6 C9 C5 D7 C9 CE |;.12)"..........| 00001890: C7 A0 CF D0 D4 C9 CF CE D3 22 00 B7 20 3A 75 99 |.........".. :u.| 000018A0: A3 31 32 29 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |.12)"...........| 000018B0: B7 B7 B7 B7 B7 B7 22 00 D2 20 44 75 99 A3 36 29 |......".. Du..6)| 000018C0: 22 11 11 31 2E 20 D2 45 56 49 45 57 20 41 4C 4C |"..1. .EVIEW ALL| 000018D0: 2E 22 00 F5 20 4E 75 99 A3 36 29 22 11 11 11 32 |.".. Nu..6)"...2| 000018E0: 2E 20 D3 45 41 52 43 48 20 41 4E 44 20 52 45 56 |. .EARCH AND REV| 000018F0: 49 45 57 2E 22 00 1A 21 58 75 99 A3 36 29 22 11 |IEW."..!Xu..6)".| 00001900: 11 11 33 2E 20 D2 45 54 55 52 4E 20 54 4F 20 4D |..3. .ETURN TO M| 00001910: 41 49 4E 20 4D 45 4E 55 2E 22 00 4C 21 62 75 99 |AIN MENU.".L!bu.| 00001920: A3 36 29 22 11 11 11 11 11 11 11 11 11 12 C3 C8 |.6)"............| 00001930: CF CF D3 C5 A0 C2 D9 A0 D0 D2 C5 D3 D3 C9 CE C7 |................| 00001940: A0 C1 A0 CE D5 CD C2 C5 D2 92 22 3B 00 63 21 6C |..........";.c!l| 00001950: 75 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 33 30 |u.AN$:.AN$."".30| 00001960: 30 36 30 00 7F 21 76 75 8B 41 4E 24 B3 22 31 22 |060..!vu.AN$."1"| 00001970: B0 41 4E 24 B1 22 33 22 A7 89 33 30 30 36 30 00 |.AN$."3"..30060.| 00001980: 8C 21 80 75 4D B2 C5 28 41 4E 24 29 00 A2 21 8A |.!.uM..(AN$)..!.| 00001990: 75 91 4D 89 35 30 30 32 2C 31 34 35 30 30 2C 32 |u.M.5002,14500,2| 000019A0: 30 30 00 E9 21 50 C3 83 22 C3 41 54 45 47 4F 52 |00..!P..".ATEGOR| 000019B0: 59 3A 22 2C 22 D4 49 54 4C 45 3A 22 2C 22 C1 55 |Y:",".ITLE:",".U| 000019C0: 54 48 4F 52 3A 22 2C 22 D3 55 42 4A 45 43 54 3A |THOR:",".UBJECT:| 000019D0: 22 2C 22 D0 55 42 4C 49 53 48 45 52 3A 22 2C 22 |",".UBLISHER:","| 000019E0: C5 44 49 54 49 4F 4E 3A 22 00 0D 22 5A C3 83 22 |.DITION:".."Z.."| 000019F0: C9 D3 C2 CE 3A 22 2C 22 C4 45 57 45 59 20 23 3A |....:",".EWEY #:| 00001A00: 22 2C 22 C3 4F 4D 4D 45 4E 54 53 3A 22 00 00 00 |",".OMMENTS:"...|
.......H$(8),A$(100,8).6....G(147);:.532
80,12:.53281,0.N....G(142)".ZZZZZZZZZZZZ
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZ";.Z....T.1.
23...(.."Z
Z";...2..T...<.."ZZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZZZZZZZZZZZZ";...F..2023,90:
.56295,13. .P.."..........":..13)"LIBRAR
Y CARDS".:.Z...13)"..............".K.D..
T.1.3000:.T.E.W..**READ DATA HEADINGS.Z.
X..T.0.8:.H$(T):.T...G..**MAIN MENU...H.
.53280,6:.53281,11:.G(14)"....";.N.R...1
1)"MENU OF ACTIVITIES".......11)".......
...........".......3)"..1. LOAD THE INFO
RMATION FROM DISK.".B....:..3)"2. REVIEW
THE INFORMATION.".B....:..3)"3. ADD A N
EW ENTRY."......:..3)"4. CHANGE SOME INF
ORMATION."......:..3)"5. DELETE AN ENTRY
.".W....:..3)"6. SAVE THE INFORMATION ON
DISK."..."..:..3)"7. PRINTING MENU.".$.
,..:..3)"8. MENU OF OTHER PROGRAMS ON DI
SK.".S.0.."..........CHOOSE BY PRESSING
A NUMBER.";.H.6..AN$:.AN$."".310...@..AN
$."1".AN$."8"..350...J.M.E(AN$).C.T..M.2
000,5000,8000,11000,14000,17000,20000,23
000...]..**IF WRONG MENU INPUT...^..T.1.
10.!.H..".......NUMBER";:.Y.1.150:.Y:.".
.......NUMBER..";.1.R..Y.1.150:.Y.8.|..T
.A....310.[.O..**FROM MENU OPTION 1.H.P.
.53280,7...Z.."..........":..17)"LOADING
".....I.0:J.0......2,8,2,"0:BOOKFILE,S,R
"......2,A$(I,J).Q....ST..0..2100... .J.
J.1...$..J.8.J.0:I.I.1...*..2060...4. 2.
....X.I:Z1.1:.200.+....**FROM MENU OPTIO
N 2.6....30000.C....".":I.0.N....J.0.8.E
....J.0..G(147)"....".U.....2)A$(I,J)...
...J.6..... ..J.7........J......I.X..510
0.C.....14)"..ANOTHER ENTRY? (Y/N)".Y...
.AN$:.AN$."".5050...D..AN$."Y".AN$."Y".I
.I.1:.5010...N..200.6...."....LAST ENTRY
. PRESS F1 TO RETURN TO MENU";.N....AN$:
.AN$..".".5110.W....200.Q.?..**FROM MENU
OPTION 3...@..G(147):.53280,5...J..:..1
3)"ADDING A RECORD"...T...13)"..........
.....":....^..T.0.8:." ";H$(T):.:.T...C.
.Z.1.J.0:.8050...E..Z1.1.I.I.1:J.0:.8050
...H.I.0:J.0.#.R.."......";.K.|.."......
........*...";A$(I,J):.8500.P.....11)"..
ANOTHER RECORD? (Y/N).";......AN$:.AN$."
".8080......AN$."N".AN$."N".X.I:.200....
.I.I.1:J.0:Z.1:.8000...4!..13)".ENTRY O.
K.? (Y/N)."...>!.AN$:.AN$."".8510...H!.A
N$."N".AN$."N".Z.1:.8000...R!J.J.1.-.\ .
J.8.J.8:.8070.7.F!.8060.Q..*.**FROM MENU
OPTION 4.^..*.53280,7...+."...";.12)".
CHANGE OPTIONS"....+..12)"..............
."....+..8)"..1. REVIEW AND CHANGE."...
+..8)"...2. SEARCH AND CHANGE."...*+..8)
"...3. RETURN TO MAIN MENU.".6.4+..6)"..
........CHOORE BY PRESSING A NUMBER.";.M
.>+.AN$:.AN$."".11070.I.H+.AN$."1".AN$."
3"..11110.V.R+M.E(AN$)...\+.M.11160,1150
0,200...E+.**IF WRONG MENU INPUT...F+.T.
1.10...P+.".......NUMBER";:.Y.1.150:.Y:.
".......NUMBER.";...Z+.Y.1.150:.Y....+.T
....+.11070....+.**FROM CHANGING MENU OP
TION 1.@..+.".":I.0:CS.0.K..+.J.0.8.B..+
.J.0..G(147)"....".|..+..6)".";J;".";A$(
I,J)....+.J.6.....J+.J.7.....T+.J.B..+..
8)"....CHANGE.. THIS ENTRY? (Y/N)".Y..+.
AN$:.AN$."".11240....+.AN$."Y".AN$."Y"..
11310....+.I.X..5100.%..,..14)".ANOTHER
ENTRY? (Y/N)".<..,.AN$:.AN$."".11280.^..
,.AN$."Y".AN$."Y".I.I.1:.11302.G.$,.200.
X.&,.CS.1..14500...(,.11170....,."...ENT
ER .NUMBER. OF LINE TO BE CHANGED.".J.8,
.AN$:.AN$."".11320...B,.AN$."0".AN$."8".
.".":.11310...L,J.E(AN$):.G(19);.#.V,DN$
."........................".?.`,.J.7..H(
DN$,13);:.11390.[.J,.J.8..H(DN$,15);:.11
390.L.T,.H(DN$,J.5);...~,..9)"
"....,."........";A$(I,J)
....,.G(19);H(DN$,18);.2);" CHANGE
ANOTHER LINE? (Y/N) "....,.AN$:.AN$."
".11420....,.AN$."Y".AN$."Y"..11310.&..,
.11270.I..,.**FROM CHANGING MENU OPTION
2.R..,CS.1.]..,.14500.W..6.**FROM MENU O
PTION 5....6.53280,2:DS.0....6."...";.12
)".DELETING OPTIONS".I.D6..12)".........
........"...N6..8)"..1. REVIEW AND DELET
E."...X6..8)"...2. SEARCH AND DELETE.".3
..6..8)"...3. RETURN TO MAIN MENU.".E..6
..6)"..........CHOOSE BY PRESSING A NUMB
ER.";.|..6.AN$:.AN$."".14070....7.AN$."1
".AN$."3"..14110....7M.E(AN$)....7.M.141
60,14500,200.W..7.**IF WRONG MENU INPUT.
...7.T.1.10...(7.".......NUMBER";:.Y.1.1
50:.Y:.".......NUMBER.";.(.27.Y.1.150:.Y
./.<7.T.:.F7.14070.^.O7.**FROM DELETING
MENU OPTION 1..K.P7.".":I.0.V.Z7.J.0.8..
.D7.J.0..G(147)"...."...N7..7)A$(I,J)...
X7.J.6......7.J.7......7.J....7..8)"....
DELETE.. THIS ENTRY? (Y/N)"... 7.AN$:.AN
$."".14240....7.AN$."Y".AN$."Y"..14310.%
..7.I.X..5100.F..7..14)".ANOTHER ENTRY?
(Y/N)".].H7.AN$:.AN$."".14280..R7.AN$."
Y".AN$."Y".I.I.1:.14302....7.200....7.DS
.1..14520....7.14170....7X.X.1:DE.I.F..7
.I.DE.X:.J.0.8....7A$(I,J).A$(I.1,J)....
8.J:.I....8..8)"..DELETED. AS REQUESTED.
.". ..8.14260.D.Q8.**FROM DEL
ETING MENU OPTION 2..^..8."...SEARCH WOR
D";DE$....8..6)"..PLEASE WAIT A MOMENT."
....8I.0....8.J.0.8...B8A.C(A$(I,J))...L
8.DE.1.A.3.W.V8.H(DE$,4).J(A$(I,J),DE,4)
..14640....8.DE:.J....8I.I.1....8.I.X.1.
.14600....8.14520.$..9."..SEARCH COMPLET
ED.".I..9.".PRESS F1 TO RETURN TO MENU..
".B..9.AN$:.AN$..".".14620.S..9.CS.1..11
010... 9.RV.1..30000...&9.14010...09DS.1
...29.CS.1..11170...49.14170.N.GB.**FROM
MENU OPTION 6...HB.53280,10...RB.".....
.....":..9)"SAVING NEW RECORDS".$..B.2,8
,2,"@0:BOOKFILE,S,W".0..BI.0:J.0.?..B.2,
A$(I,J).I..BJ.J.1.\.BB.J.8.J.0:I.I.1.N.F
B.I.X.1..17110.Y.LB.17070...VB 2....B.20
0....N.**FROM MENU OPTION 7... N.53280,4
.S.*N."....";.12)"PRINTING OPTIONS"...4N
..12)"................"...>N..6)"..1. PR
INT ALL ENTRIES.".2.HN..6)"..2. SEARCH A
ND PRINT.".V.RN..6)"..3. RETURN TO MAIN
MENU."...\N..7)"...........CHOOSE BY PRE
SSING A NUMBER.";. .FN.AN$:.AN$."".20070
...PN.AN$."1".AN$."3"..20110.I.ZNM.E(AN$
)....N.M.20160,20500,200....N.**IF WRONG
MENU INPUT....N.T.1.10.<..N.".......NUM
BER";:.Y.1.150:.Y:.".......NUMBER.";.L..
N.Y.1.150:.Y.S..N.T.^..N.20070.J..NI.0:J
.0.X.JN.4,4,7:.4....N." ";A$(I,J)
....N.J.6......N.J.7......N.J.8..:.:....
.OJ.J.1.P..O.J..8..20190.Z.$O.4: 4....O.
".";.9);"...........ANOTHER ENTRY? (Y/N)
". .8O.AN$:.AN$."".20280.<.BO.AN$."N".AN
$."N"..20000.W.COI.I.1:J.0:.I.X.1..5100.
F.DO.PT..20520.Q.FO.20170...LO.4: 4:.510
0. ..O.**FROM PRINTING OPTION 2.....P.".
..SEARCH WORD";SE$....P."........PLEASE
WAIT A MINUTE..":.PT.1..20520....PI.0...
(P.J.0.8...2PA.C(A$(I,J))...<P.SE.1.A.3.
M.FP.H(SE$,4).J(A$(I,J),SE,4).PT.1:J.0:.
20170.X.PP.SE:.J.B.ZPI.I.1.T.DP.I.X.1..2
0600..NP.20520...XP."..SEARCH COMPLETED
."....P.".PRESS F1 TO RETURN TO MENU..".
X..P.AN$:.AN$..".".20620....P.20010...WY
.**FROM MENU OPTION 8., XY.G(142)".....L
OAD"G(34)"MENU"G(34)",8....".D .Y."RUN":
.".........".A .Y.631,13:.632,13:.198,2:
..R /U.**FROM 5000.. 0URV.1:.".";.12)"..
REVIEWING OPTIONS".. :U..12)"...........
......".R DU..6)"..1. REVIEW ALL.".. NU.
.6)"...2. SEARCH AND REVIEW."..!XU..6)".
..3. RETURN TO MAIN MENU.".L!BU..6)"....
......CHOOSE BY PRESSING A NUMBER.";.C!L
U.AN$:.AN$."".30060.!VU.AN$."1".AN$."3"
..30060..!.UM.E(AN$)..!.U.M.5002,14500,2
00..!PC."CATEGORY:","TITLE:","AUTHOR:","
SUBJECT:","PUBLISHER:","EDITION:".."ZC."
ISBN:","DEWEY #:","COMMENTS:"...
> CLICK IMAGE PREVIEW FOR FULL MODAL