DATABASE
FILE INFORMATION
FILENAME(S): DATABASE
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 1 disk(s)
FILE HASH
b01dbd0efea6916a2ebf505d9aea12a05a08bc387317fbf4e86ca42be96127b5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | DATABASE | PRG | Sailor, Ganheden | 15 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 02 00 89 35 30 30 00 1A 08 03 00 99 |.......500......|
00000010: 22 12 22 45 24 28 58 29 3A 8E 00 27 08 04 00 86 |"."E$(X):..'....|
00000020: 45 24 28 4E 29 3A 8E 00 5A 08 05 00 99 22 20 12 |E$(N):..Z...." .|
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 92 22 3A 8E 00 72 08 06 00 8B | .":..r....|
00000060: 53 4E 24 B2 C8 28 43 24 28 58 29 2C 55 29 A7 38 |SN$..(C$(X),U).8|
00000070: 30 30 00 78 08 07 00 8E 00 A3 08 08 00 85 42 24 |00.x..........B$|
00000080: 28 4A 29 3A 5A 24 28 49 29 B2 42 24 28 4A 29 3A |(J):Z$(I).B$(J):|
00000090: 8B 41 24 28 4A 29 B2 22 22 A7 41 24 28 4A 29 B2 |.A$(J)."".A$(J).|
000000A0: 22 2A 22 00 A9 08 09 00 8E 00 C2 08 0A 00 99 A3 |"*".............|
000000B0: 31 34 29 22 50 52 45 53 53 20 41 4E 59 20 4B 45 |14)"PRESS ANY KE|
000000C0: 59 22 00 D4 08 0B 00 A1 57 24 3A 8B 57 24 B2 22 |Y"......W$:.W$."|
000000D0: 22 A7 31 31 00 DA 08 0C 00 8E 00 E9 08 0E 00 84 |".11............|
000000E0: 32 2C 41 24 28 58 29 3A 8E 00 F7 08 28 00 99 22 |2,A$(X):....(.."|
000000F0: 13 22 3B 3A 4C B2 31 00 0D 09 2A 00 99 3A 4C B2 |.";:L.1...*..:L.|
00000100: 4C AA 31 3A 8B 4C B1 51 A7 89 39 31 32 00 15 09 |L.1:.L.Q..912...|
00000110: 2D 00 89 34 32 00 23 09 30 00 99 22 13 22 3B 3A |-..42.#.0..".";:|
00000120: 4C B2 31 00 39 09 31 00 99 3A 4C B2 4C AA 31 3A |L.1.9.1..:L.L.1:|
00000130: 8B 4C B1 51 A7 89 33 39 32 00 41 09 32 00 89 34 |.L.Q..392.A.2..4|
00000140: 39 00 63 09 64 00 97 42 41 2C 31 3A 97 42 4F 2C |9.c.d..BA,1:.BO,|
00000150: 36 3A 99 22 93 97 22 3A 81 4C B2 31 A4 37 3A 8D |6:."..":.L.1.7:.|
00000160: 35 3A 82 00 89 09 65 00 99 22 13 11 11 22 A3 31 |5:....e.."...".1|
00000170: 30 29 22 12 46 49 4C 45 20 43 52 45 41 54 45 20 |0)".FILE CREATE |
00000180: 53 45 43 54 49 4F 4E 11 22 00 CF 09 66 00 99 22 |SECTION."...f.."|
00000190: 1D 1D 1D 12 54 48 49 53 20 57 49 4C 4C 20 43 4C |....THIS WILL CL|
000001A0: 45 41 52 20 41 4E 59 20 45 58 49 53 54 49 4E 47 |EAR ANY EXISTING|
000001B0: 20 46 49 4C 45 53 22 3A 99 A3 31 32 29 22 12 11 | FILES":..12)"..|
000001C0: 43 4F 4E 54 49 4E 55 45 20 28 59 2F 4E 29 22 00 |CONTINUE (Y/N)".|
000001D0: E4 09 67 00 8D 31 31 3A 8B 57 24 B3 B1 22 59 22 |..g..11:.W$.."Y"|
000001E0: A7 35 30 30 00 20 0A 68 00 9C 3A 86 4E 41 24 28 |.500. .h..:.NA$(|
000001F0: 31 34 29 2C 5A 24 28 31 34 29 3A 85 22 11 11 45 |14),Z$(14):."..E|
00000200: 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 3E 22 |NTER FILE NAME>"|
00000210: 3B 4E 46 24 3A 8B 4E 46 24 B2 22 22 A7 31 30 34 |;NF$:.NF$."".104|
00000220: 00 29 0A 69 00 89 31 39 30 00 35 0A 6A 00 81 4A |.).i..190.5.j..J|
00000230: B2 31 A4 46 57 00 6E 0A 6E 00 99 22 11 45 4E 54 |.1.FW.n.n..".ENT|
00000240: 45 52 20 4E 41 4D 45 20 46 4F 52 20 46 49 45 4C |ER NAME FOR FIEL|
00000250: 44 22 4A 22 20 28 4D 41 58 20 39 20 43 48 41 52 |D"J" (MAX 9 CHAR|
00000260: 53 29 22 3A 85 4E 41 24 28 4A 29 3A 82 4A 00 AB |S)":.NA$(J):.J..|
00000270: 0A 78 00 99 A3 36 29 22 11 11 46 49 4C 45 20 43 |.x...6)"..FILE C|
00000280: 52 45 41 54 45 44 20 2D 20 50 52 45 53 53 20 41 |REATED - PRESS A|
00000290: 4E 59 20 4B 45 59 22 3A 55 46 B2 30 3A 4D 41 58 |NY KEY":UF.0:MAX|
000002A0: B2 31 3A 8D 31 31 3A 89 35 30 30 00 CE 0A BE 00 |.1:.11:.500.....|
000002B0: 85 22 11 48 4F 57 20 4D 41 4E 59 20 52 45 43 4F |.".HOW MANY RECO|
000002C0: 52 44 53 20 49 4E 20 46 49 4C 45 22 3B 4E 00 08 |RDS IN FILE";N..|
000002D0: 0B C0 00 85 22 11 48 4F 57 20 4D 41 4E 59 20 46 |....".HOW MANY F|
000002E0: 49 45 4C 44 53 20 49 4E 20 41 20 52 45 43 4F 52 |IELDS IN A RECOR|
000002F0: 44 28 4D 41 58 3D 31 30 29 22 3B 46 57 3A 8B 46 |D(MAX=10)";FW:.F|
00000300: 57 B1 31 30 A7 31 39 32 00 29 0B C2 00 81 48 B2 |W.10.192.)....H.|
00000310: 31 A4 46 57 3A 97 32 30 37 39 2C 36 34 AA 48 3A |1.FW:.2079,64.H:|
00000320: 8D 34 3A 82 3A 89 31 30 36 00 43 0B 2C 01 97 42 |.4:.:.106.C.,..B|
00000330: 4F 2C 32 3A 97 42 41 2C 39 3A 8B 46 57 B2 30 A7 |O,2:.BA,9:.FW.0.|
00000340: 35 30 30 00 78 0B 31 01 99 22 93 05 22 3A 8D 35 |500.x.1.."..":.5|
00000350: 3A 8D 35 3A 8D 35 3A 99 22 13 11 12 22 A3 31 31 |:.5:.5:."...".11|
00000360: 29 22 11 41 44 44 2F 55 50 44 41 54 45 20 53 45 |)".ADD/UPDATE SE|
00000370: 43 54 49 4F 4E 11 11 22 00 A4 0B 36 01 99 A3 34 |CTION.."...6...4|
00000380: 29 22 11 11 50 52 45 53 53 20 27 41 27 20 54 4F |)"..PRESS 'A' TO|
00000390: 20 41 44 44 2F 20 27 55 27 20 54 4F 20 55 50 44 | ADD/ 'U' TO UPD|
000003A0: 41 54 45 22 00 C1 0B 40 01 8D 31 31 3A 8B 57 24 |ATE"...@..11:.W$|
000003B0: B3 B1 22 41 22 AF 57 24 B3 B1 22 55 22 A7 33 32 |.."A".W$.."U".32|
000003C0: 30 00 D1 0B 4A 01 8B 57 24 B2 22 55 22 A7 34 30 |0...J..W$."U".40|
000003D0: 30 00 E9 0B 54 01 81 4A B2 4D 41 58 A4 4E 3A 8B |0...T..J.MAX.N:.|
000003E0: 4D 41 58 B1 4E A7 35 30 30 00 20 0C 59 01 97 42 |MAX.N.500. .Y..B|
000003F0: 41 2C 39 3A 97 42 4F 2C 39 3A 99 22 93 05 11 22 |A,9:.BO,9:."..."|
00000400: A3 35 29 22 46 49 4C 45 2D 3E 22 3B 4E 46 24 3A |.5)"FILE->";NF$:|
00000410: 99 22 11 20 52 45 43 23 22 3B 4A 3B 22 11 11 22 |.". REC#";J;".."|
00000420: 00 58 0C 5E 01 81 49 B2 31 A4 46 57 3A 97 32 31 |.X.^..I.1.FW:.21|
00000430: 37 33 2C 36 34 AA 49 3A 97 32 31 38 35 2C 36 34 |73,64.I:.2185,64|
00000440: AA 49 3A 97 32 32 30 31 2C 36 34 AA 49 3A 97 32 |.I:.2201,64.I:.2|
00000450: 31 39 32 2C 36 34 AA 49 00 8E 0C 63 01 97 36 33 |192,64.I...c..63|
00000460: 31 2C 34 32 3A 97 36 33 32 2C 31 35 37 3A 97 31 |1,42:.632,157:.1|
00000470: 39 38 2C 32 3A 99 22 45 4E 54 45 52 20 22 4E 41 |98,2:."ENTER "NA|
00000480: 24 28 49 29 A3 31 36 29 3B 3A 8D 38 3A 82 00 A5 |$(I).16);:.8:...|
00000490: 0C 81 01 8D 32 30 30 30 30 3A 99 22 13 11 11 11 |....20000:."....|
000004A0: 11 11 05 12 22 00 BB 0C 86 01 81 50 B2 31 A4 46 |...."......P.1.F|
000004B0: 57 3A 51 B2 50 AA 35 3A 89 34 38 00 DE 0C 88 01 |W:Q.P.5:.48.....|
000004C0: 99 22 1D 22 4E 41 24 28 50 29 A3 31 32 29 5A 24 |."."NA$(P).12)Z$|
000004D0: 28 50 29 3A 82 50 3A 8B 55 46 B2 31 A7 8E 00 10 |(P):.P:.UF.1....|
000004E0: 0D 8B 01 99 22 13 11 12 1D 20 49 53 20 54 48 49 |....".... IS THI|
000004F0: 53 20 43 4F 52 52 45 43 54 20 28 59 2F 4E 29 22 |S CORRECT (Y/N)"|
00000500: 3A 8D 31 31 3A 8B 57 24 B2 22 4E 22 A7 33 34 35 |:.11:.W$."N".345|
00000510: 00 54 0D 8C 01 8B 4D 41 58 B3 B1 4E A7 99 22 13 |.T....MAX..N..".|
00000520: 11 1D 12 20 41 4E 4F 54 48 45 52 20 45 4E 54 52 |... ANOTHER ENTR|
00000530: 59 3F A0 28 59 2F 4E 29 22 3A 8D 31 31 3A 8B 57 |Y?.(Y/N)":.11:.W|
00000540: 24 B2 22 4E 22 A7 4D 41 58 B2 4D 41 58 AA 31 3A |$."N".MAX.MAX.1:|
00000550: 89 35 30 30 00 6A 0D 8D 01 4D 41 58 B2 4D 41 58 |.500.j...MAX.MAX|
00000560: AA 31 3A 82 4A 3A 89 35 30 30 00 8C 0D 90 01 97 |.1:.J:.500......|
00000570: 42 41 2C 39 3A 97 42 4F 2C 39 3A 99 22 93 11 55 |BA,9:.BO,9:."..U|
00000580: 50 44 41 54 45 3E 22 3A 89 37 33 30 00 C7 0D 92 |PDATE>":.730....|
00000590: 01 97 42 41 2C 30 3A 97 42 4F 2C 39 3A 99 22 93 |..BA,0:.BO,9:.".|
000005A0: 11 1D 43 55 52 52 45 4E 54 20 43 4F 4E 54 45 4E |..CURRENT CONTEN|
000005B0: 54 53 11 22 3A 81 50 B2 31 A4 46 57 3A 97 32 30 |TS.":.P.1.FW:.20|
000005C0: 36 36 2C 36 34 AA 50 00 F1 0D 95 01 99 22 1D 05 |66,64.P......"..|
000005D0: 22 50 22 2E 20 22 4E 41 24 28 50 29 A3 31 37 29 |"P". "NA$(P).17)|
000005E0: 3B 3A 8D 33 3A 82 3A 99 3A 8D 31 30 3A 55 46 B2 |;:.3:.:.:.10:UF.|
000005F0: 31 00 2E 0E 9A 01 4A B2 58 3A 8D 33 34 35 3A 99 |1.....J.X:.345:.|
00000600: 22 13 11 12 1D 4E 45 57 20 43 4F 4E 54 45 4E 54 |"....NEW CONTENT|
00000610: 53 2D 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 |S-PRESS ANY KEY"|
00000620: 3A 8D 31 31 3A 55 46 B2 30 3A 89 35 30 30 00 55 |:.11:UF.0:.500.U|
00000630: 0E F4 01 42 4F B2 35 33 32 38 30 3A 42 41 B2 35 |...BO.53280:BA.5|
00000640: 33 32 38 31 3A 97 42 41 2C 31 3A 97 42 4F 2C 32 |3281:.BA,1:.BO,2|
00000650: 3A 99 22 93 22 00 90 0E FE 01 99 22 1C 22 3A 8D |:."."......".":.|
00000660: 35 3A 99 22 20 12 20 2A 20 20 2A 20 20 2A 20 20 |5:." . * * * |
00000670: 2A 20 44 41 54 41 20 4D 41 4E 41 47 45 52 20 49 |* DATA MANAGER I|
00000680: 20 2A 20 20 2A 20 20 2A 20 20 2A 20 22 3A 8D 35 | * * * * ":.5|
00000690: 00 A8 0E 08 02 99 22 11 1F 22 3A 81 4C B2 31 A4 |......"..":.L.1.|
000006A0: 31 31 3A 8D 35 3A 82 4C 00 BA 0E 0D 02 99 22 97 |11:.5:.L......".|
000006B0: 22 3A 8D 35 3A 8D 35 3A 8D 35 00 FE 0E 12 02 99 |":.5:.5:.5......|
000006C0: 22 1F 13 11 11 11 11 11 11 11 11 12 22 A3 31 30 |"...........".10|
000006D0: 29 22 31 2E 20 43 52 45 41 54 45 20 46 49 4C 45 |)"1. CREATE FILE|
000006E0: 11 22 3A 99 A3 31 30 29 22 12 32 2E 20 41 44 44 |.":..10)".2. ADD|
000006F0: 2F 55 50 44 41 54 45 20 49 54 45 4D 11 22 00 3B |/UPDATE ITEM.".;|
00000700: 0F 17 02 99 A3 31 30 29 22 12 33 2E 20 53 45 41 |.....10)".3. SEA|
00000710: 52 43 48 20 46 4F 52 20 49 54 45 4D 22 3A 99 A3 |RCH FOR ITEM":..|
00000720: 31 30 29 22 12 11 34 2E 20 53 41 56 45 2F 4C 4F |10)"..4. SAVE/LO|
00000730: 41 44 20 52 45 43 4F 52 44 11 22 00 71 0F 1C 02 |AD RECORD.".q...|
00000740: 99 A3 31 30 29 22 12 35 2E 20 4D 45 4D 4F 52 59 |..10)".5. MEMORY|
00000750: 20 52 45 4D 41 49 4E 49 4E 47 22 3A 99 22 1C 11 | REMAINING":."..|
00000760: 22 A3 31 39 AB C3 28 4E 46 24 29 AD 32 29 4E 46 |".19..(NF$).2)NF|
00000770: 24 00 95 0F 21 02 99 22 11 97 12 22 A3 31 30 29 |$...!.."...".10)|
00000780: 22 50 52 45 53 53 20 43 48 4F 49 43 45 20 4E 55 |"PRESS CHOICE NU|
00000790: 4D 42 45 52 22 00 B0 0F 26 02 A1 57 24 3A 8B 57 |MBER"...&..W$:.W|
000007A0: 24 B3 22 31 22 B0 57 24 B1 22 35 22 A7 35 35 30 |$."1".W$."5".550|
000007B0: 00 E7 0F 30 02 8B 57 24 B2 22 35 22 A7 99 22 11 |...0..W$."5"..".|
000007C0: 20 43 41 4C 43 55 4C 41 54 49 4E 47 11 22 3A 99 | CALCULATING.":.|
000007D0: A3 39 29 B8 28 30 29 AB 28 B8 28 30 29 B3 30 29 |.9).(0).(.(0).0)|
000007E0: AC 36 35 35 33 36 3B 00 10 10 35 02 8B 57 24 B2 |.65536;...5..W$.|
000007F0: 22 35 22 A7 99 22 42 59 54 45 53 20 52 45 4D 41 |"5".."BYTES REMA|
00000800: 49 4E 49 4E 47 11 22 3A 8D 31 30 3A 89 35 30 30 |INING.":.10:.500|
00000810: 00 34 10 3A 02 57 B2 C5 28 57 24 29 3A 91 57 89 |.4.:.W..(W$):.W.|
00000820: 31 30 30 2C 33 30 30 2C 37 30 30 2C 31 33 30 30 |100,300,700,1300|
00000830: 2C 35 30 30 00 42 10 BC 02 8B 46 57 B2 30 A7 35 |,500.B....FW.0.5|
00000840: 30 30 00 68 10 BE 02 97 42 41 2C 32 3A 97 42 4F |00.h....BA,2:.BO|
00000850: 2C 38 3A 99 22 93 05 22 3A 8D 35 3A 8D 35 3A 8D |,8:."..":.5:.5:.|
00000860: 35 3A 50 4F 24 B2 22 22 00 B4 10 C1 02 99 22 13 |5:PO$.""......".|
00000870: 11 11 22 A3 31 30 29 22 12 46 49 45 4C 44 20 53 |..".10)".FIELD S|
00000880: 45 41 52 43 48 20 53 45 43 54 49 4F 4E 11 11 11 |EARCH SECTION...|
00000890: 22 3A 99 22 50 52 49 4E 54 45 52 20 4F 55 54 50 |":."PRINTER OUTP|
000008A0: 55 54 20 28 59 2F 4E 29 22 3A 8D 31 31 3A 50 4F |UT (Y/N)":.11:PO|
000008B0: 24 B2 57 24 00 E1 10 DA 02 99 22 11 22 3A 81 49 |$.W$......".":.I|
000008C0: B2 31 A4 46 57 3A 99 A3 38 29 49 22 2E 20 22 A3 |.1.FW:..8)I". ".|
000008D0: 31 32 29 4E 41 24 28 49 29 3A 82 49 3A 99 22 11 |12)NA$(I):.I:.".|
000008E0: 22 00 09 11 DF 02 85 22 20 45 4E 54 45 52 20 49 |"......" ENTER I|
000008F0: 54 45 4D 20 46 49 45 4C 44 20 23 20 22 3B 41 3A |TEM FIELD # ";A:|
00000900: 8B 41 B1 46 57 A7 37 33 35 00 46 11 E4 02 53 4E |.A.FW.735.F...SN|
00000910: 24 B2 22 22 3A 99 22 11 20 45 4E 54 45 52 20 22 |$."":.". ENTER "|
00000920: 3B 4E 41 24 28 41 29 3B 22 20 46 4F 52 20 53 45 |;NA$(A);" FOR SE|
00000930: 41 52 43 48 22 3A 85 53 4E 24 3A 8B 53 4E 24 B2 |ARCH":.SN$:.SN$.|
00000940: 22 22 A7 37 34 30 00 83 11 EE 02 99 22 93 11 12 |"".740......"...|
00000950: 4E 4F 57 20 53 45 41 52 43 48 49 4E 47 20 46 4F |NOW SEARCHING FO|
00000960: 52 20 22 3B 53 4E 24 3B 22 92 22 3A 55 B2 C3 28 |R ";SN$;".":U..(|
00000970: 53 4E 24 29 3A 58 B2 31 3A 97 32 31 34 39 2C 36 |SN$):X.1:.2149,6|
00000980: 34 AA 41 00 99 11 F3 02 52 46 B2 30 3A 8D 36 3A |4.A.....RF.0:.6:|
00000990: 8B 52 46 B2 31 A7 39 30 30 00 B1 11 F8 02 58 B2 |.RF.1.900.....X.|
000009A0: 58 AA 31 3A 8B 58 B3 B2 4D 41 58 AB 31 A7 37 35 |X.1:.X..MAX.1.75|
000009B0: 35 00 EC 11 02 03 99 22 13 12 11 46 49 4C 45 20 |5......"...FILE |
000009C0: 45 4E 44 2A 2A 4C 49 53 54 20 54 48 49 53 20 46 |END**LIST THIS F|
000009D0: 49 45 4C 44 20 28 59 2F 4E 29 22 3A 8D 31 31 3A |IELD (Y/N)":.11:|
000009E0: 8B 57 24 B2 22 59 22 A7 31 30 31 30 00 F5 11 0C |.W$."Y".1010....|
000009F0: 03 89 35 30 30 00 00 12 20 03 52 46 B2 31 3A 8E |..500... .RF.1:.|
00000A00: 00 26 12 84 03 8D 32 30 30 30 30 3A 99 22 13 05 |.&....20000:."..|
00000A10: 12 11 1D 1D 50 52 45 53 53 20 41 4E 59 20 4B 45 |....PRESS ANY KE|
00000A20: 59 11 11 11 11 22 00 3C 12 8E 03 81 50 B2 31 A4 |Y....".<....P.1.|
00000A30: 46 57 3A 51 B2 50 AA 35 3A 89 34 30 00 67 12 90 |FW:Q.P.5:.40.g..|
00000A40: 03 97 32 30 36 36 2C 36 34 AA 50 3A 99 22 12 05 |..2066,64.P:."..|
00000A50: 1D 22 4E 41 24 28 50 29 A3 31 32 29 3B 3A 8D 33 |."NA$(P).12);:.3|
00000A60: 3A 82 50 3A 8D 31 31 00 79 12 93 03 8B 50 4F 24 |:.P:.11.y....PO$|
00000A70: B2 22 59 22 A7 32 30 30 30 00 B5 12 98 03 8B 57 |."Y".2000......W|
00000A80: B2 32 A7 99 22 13 05 12 11 1D 20 20 55 50 44 41 |.2.."..... UPDA|
00000A90: 54 45 20 54 48 49 53 20 52 45 43 4F 52 44 20 28 |TE THIS RECORD (|
00000AA0: 59 2F 4E 29 22 3A 8D 31 31 3A 8B 57 24 B2 22 59 |Y/N)":.11:.W$."Y|
00000AB0: 22 A7 34 30 32 00 DE 12 9D 03 8B 58 B3 4D 41 58 |".402......X.MAX|
00000AC0: AB 31 A7 99 22 13 11 1D 12 53 45 41 52 43 48 49 |.1.."....SEARCHI|
00000AD0: 4E 47 20 20 20 20 20 20 22 3A 89 37 36 30 00 E7 |NG ":.760..|
00000AE0: 12 A2 03 89 35 30 30 00 23 13 F2 03 97 32 30 36 |....500.#....206|
00000AF0: 36 2C 36 34 AA 41 3A 99 22 93 4D 3D 4D 45 4E 55 |6,64.A:.".M=MENU|
00000B00: 20 20 43 3D 43 4F 4E 54 11 22 3A 81 58 B2 31 A4 | C=CONT.":.X.1.|
00000B10: 4D 41 58 AB 31 3A 99 A3 37 29 58 A3 31 30 29 3B |MAX.1:..7)X.10);|
00000B20: 3A 8D 33 00 59 13 FC 03 8B 58 AD 31 38 B2 B5 28 |:.3.Y....X.18..(|
00000B30: 58 AD 31 38 29 A7 8D 31 30 3A 99 22 93 4D 3D 4D |X.18)..10:.".M=M|
00000B40: 45 4E 55 20 20 43 3D 43 4F 4E 54 11 22 3A 8B 57 |ENU C=CONT.":.W|
00000B50: 24 B2 22 4D 22 A7 35 30 30 00 60 13 01 04 82 58 |$."M".500.`....X|
00000B60: 00 90 13 0B 04 99 22 11 11 12 20 20 52 45 43 4F |......"... RECO|
00000B70: 52 44 20 45 4E 44 20 2D 20 50 52 45 53 53 20 41 |RD END - PRESS A|
00000B80: 4E 59 20 4B 45 59 22 3A 8D 31 31 3A 89 35 30 30 |NY KEY":.11:.500|
00000B90: 00 CE 13 14 05 97 42 41 2C 32 3A 97 42 4F 2C 32 |......BA,2:.BO,2|
00000BA0: 3A 99 22 93 05 22 3A 8D 35 3A 8D 35 3A 8D 35 3A |:."..":.5:.5:.5:|
00000BB0: 99 22 13 11 11 12 1D 53 41 56 45 20 4F 52 20 4C |.".....SAVE OR L|
00000BC0: 4F 41 44 20 28 53 2F 4C 29 22 3A 8D 31 31 00 F7 |OAD (S/L)":.11..|
00000BD0: 13 1E 05 8B 28 57 24 B3 B1 22 53 22 AF 57 24 B3 |....(W$.."S".W$.|
00000BE0: B1 22 4C 22 29 B0 28 4E B2 30 AF 57 24 B3 B1 22 |."L").(N.0.W$.."|
00000BF0: 4C 22 29 A7 35 30 30 00 21 14 28 05 99 22 93 11 |L").500.!.(.."..|
00000C00: 22 3A 8B 57 24 B2 22 4C 22 A7 9C 3A 86 4E 41 24 |":.W$."L"..:.NA$|
00000C10: 28 31 30 29 2C 5A 24 28 31 30 29 3A 89 31 35 30 |(10),Z$(10):.150|
00000C20: 30 00 28 14 32 05 A0 32 00 6C 14 33 05 99 22 2A |0.(.2..2.l.3.."*|
00000C30: 2A 4E 4F 57 20 53 41 56 49 4E 47 20 46 49 4C 45 |*NOW SAVING FILE|
00000C40: 2A 2A 22 3A 9F 32 2C 38 2C 32 2C 22 40 30 3A 22 |**":.2,8,2,"@0:"|
00000C50: AA 4E 46 24 AA 22 2C 53 2C 57 22 3A 97 32 32 37 |.NF$.",S,W":.227|
00000C60: 30 2C 31 35 32 3A 4D 53 B2 4D 41 58 00 7B 14 34 |0,152:MS.MAX.{.4|
00000C70: 05 8B 4D 41 58 B1 4E A7 4D 41 58 00 88 14 3B 05 |..MAX.N.MAX...;.|
00000C80: 5A 24 B2 C7 28 31 33 29 00 A9 14 3C 05 98 32 2C |Z$..(13)...<..2,|
00000C90: 4E 46 24 3B 5A 24 3B 4E 3B 5A 24 3B 4D 41 58 3B |NF$;Z$;N;Z$;MAX;|
00000CA0: 5A 24 3B 46 57 3B 5A 24 3B 00 C4 14 46 05 81 58 |Z$;FW;Z$;...F..X|
00000CB0: B2 31 A4 46 57 AB 31 3A 98 32 2C 4E 41 24 28 58 |.1.FW.1:.2,NA$(X|
00000CC0: 29 3A 82 58 00 EE 14 50 05 81 4A B2 31 A4 46 57 |):.X...P..J.1.FW|
00000CD0: 3A 97 32 32 37 33 2C 36 34 AA 4A 3A 81 58 B2 31 |:.2273,64.J:.X.1|
00000CE0: A4 4D 41 58 3A 8D 31 34 3A 82 58 3A 82 4A 00 27 |.MAX:.14:.X:.J.'|
00000CF0: 15 5A 05 99 22 11 2A 2A 46 49 4C 45 20 53 41 56 |.Z..".**FILE SAV|
00000D00: 45 44 2D 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |ED-PRESS ANY KEY|
00000D10: 2A 2A 11 22 3A A0 32 3A 8D 31 31 3A 4D 41 58 B2 |**.":.2:.11:MAX.|
00000D20: 4D 53 3A 89 35 30 30 00 66 15 DC 05 85 22 11 45 |MS:.500.f....".E|
00000D30: 4E 54 45 52 20 46 49 4C 45 4E 41 4D 45 20 54 4F |NTER FILENAME TO|
00000D40: 20 4C 4F 41 44 3E 22 3B 4E 46 24 3A 9F 32 2C 38 | LOAD>";NF$:.2,8|
00000D50: 2C 32 2C 4E 46 24 3A 97 32 32 37 30 2C 31 33 32 |,2,NF$:.2270,132|
00000D60: 3A 99 22 93 11 22 00 9C 15 E6 05 84 32 2C 4E 46 |:.".."......2,NF|
00000D70: 24 2C 4E 2C 4D 41 58 2C 46 57 3A 81 4A B2 31 A4 |$,N,MAX,FW:.J.1.|
00000D80: 46 57 3A 97 32 30 37 39 2C 36 34 AA 4A 3A 8D 34 |FW:.2079,64.J:.4|
00000D90: 3A 84 32 2C 4E 41 24 28 4A 29 3A 82 00 C8 15 F0 |:.2,NA$(J):.....|
00000DA0: 05 81 4A B2 31 A4 46 57 3A 81 58 B2 31 A4 4D 41 |..J.1.FW:.X.1.MA|
00000DB0: 58 AB 31 3A 97 32 32 37 33 2C 36 34 AA 4A 3A 8D |X.1:.2273,64.J:.|
00000DC0: 31 34 3A 82 58 3A 82 4A 00 ED 15 FA 05 A0 32 3A |14:.X:.J......2:|
00000DD0: 99 22 11 2A 2A 46 49 4C 45 20 4C 4F 41 44 45 44 |.".**FILE LOADED|
00000DE0: 2A 2A 11 22 3A 8D 31 30 3A 89 35 30 30 00 1C 16 |**.":.10:.500...|
00000DF0: D0 07 99 22 13 11 12 1D 50 52 49 4E 54 20 52 45 |..."....PRINT RE|
00000E00: 43 4F 52 44 20 28 59 2F 4E 29 22 3A 8D 31 31 3A |CORD (Y/N)":.11:|
00000E10: 8B 57 24 B3 B1 22 59 22 A7 39 32 30 00 5A 16 D5 |.W$.."Y".920.Z..|
00000E20: 07 97 32 30 36 34 2C 31 34 36 3A 9F 34 2C 34 3A |..2064,146:.4,4:|
00000E30: 9D 34 3A 81 50 B2 31 A4 46 57 3A 97 32 30 36 36 |.4:.P.1.FW:.2066|
00000E40: 2C 36 34 AA 50 3A 99 4E 41 24 28 50 29 22 2D 2D |,64.P:.NA$(P)"--|
00000E50: 2D 3E 22 3B 3A 8D 33 3A 82 50 00 72 16 DA 07 98 |->";:.3:.P.r....|
00000E60: 34 3A A0 34 3A 97 32 30 36 34 2C 31 38 3A 89 39 |4:.4:.2064,18:.9|
00000E70: 32 30 00 A2 16 0F 27 81 4A B2 32 30 34 39 A4 32 |20....'.J.2049.2|
00000E80: 32 36 30 A9 32 3A 99 4A 22 20 20 22 C2 28 4A 29 |260.2:.J" ".(J)|
00000E90: 2C 4A AA 31 22 20 20 22 C2 28 4A AA 31 29 3A 82 |,J.1" ".(J.1):.|
00000EA0: 3A 90 00 B9 16 20 4E 97 35 33 32 38 30 2C 31 34 |:.... N.53280,14|
00000EB0: 3A 97 35 33 32 38 31 2C 30 00 EB 16 29 4E 99 22 |:.53281,0...)N."|
00000EC0: 93 12 05 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000ED0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000EE0: A3 A3 A3 A3 A3 A3 A3 A3 A3 D0 22 00 1B 17 2A 4E |.........."...*N|
00000EF0: 99 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F10: 20 20 20 20 20 20 20 20 20 A7 22 00 4B 17 34 4E | .".K.4N|
00000F20: 99 22 12 CC AF AF AF AF AF AF AF AF AF AF AF AF |."..............|
00000F30: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000F40: AF AF AF AF AF AF AF AF AF BA 22 00 7D 17 3E 4E |..........".}.>N|
00000F50: 99 22 12 1F 20 20 20 20 20 20 20 20 20 20 20 1C |.".. .|
00000F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F70: 20 20 20 20 20 20 20 20 20 20 20 A7 22 00 B2 17 | ."...|
00000F80: 48 4E 99 22 12 1F 20 05 46 49 45 4C 44 1F 20 20 |HN.".. .FIELD. |
00000F90: 20 20 20 1C 20 05 43 4F 4E 54 45 4E 54 53 1C 20 | . .CONTENTS. |
00000FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FB0: A7 22 00 E2 17 52 4E 99 22 12 1F CF A3 A3 A3 A3 |."...RN.".......|
00000FC0: A3 A3 A3 A3 A3 A3 A3 1C A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000FD0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000FE0: D0 22 00 19 18 5C 4E 81 44 B2 31 A4 31 38 3A 99 |."...\N.D.1.18:.|
00000FF0: 22 12 1F 20 20 20 20 20 20 20 20 20 20 20 1C 20 |".. . |
00001000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001010: 20 20 20 20 A7 22 3A 82 44 00 4B 18 2E 4F 99 22 | .":.D.K..O."|
00001020: 12 1F CC AF AF AF AF AF AF AF AF AF AF 1C AF AF |................|
00001030: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00001040: AF AF AF AF AF AF AF BA 92 13 22 00 51 18 42 4F |..........".Q.BO|
00001050: 8E 00 00 00 |.... |
.......500......"."E$(X):..'....E$(N):..
Z...." .
.":..R....SN$.H(C$(X),U).800.X....
......B$(J):Z$(I).B$(J):.A$(J)."".A$(J).
"*".......B.....14)"PRESS ANY KEY".T....
W$:.W$."".11.Z..........2,A$(X):....(.."
.";:L.1...*..:L.L.1:.L.Q..912...-..42.#.
0..".";:L.1.9.1..:L.L.1:.L.Q..392.A.2..4
9.C.D..BA,1:.BO,6:."..":.L.1.7:.5:....E.
."...".10)".FILE CREATE SECTION.".O.F.."
....THIS WILL CLEAR ANY EXISTING FILES":
..12)"..CONTINUE (Y/N)"...G..11:.W$.."Y"
.500. .H..:.NA$(14),Z$(14):."..ENTER FIL
E NAME>";NF$:.NF$."".104.).I..190.5.J..J
.1.FW.N.N..".ENTER NAME FOR FIELD"J" (MA
X 9 CHARS)":.NA$(J):.J...X...6)"..FILE C
REATED - PRESS ANY KEY":UF.0:MAX.1:.11:.
500.N....".HOW MANY RECORDS IN FILE";N..
....".HOW MANY FIELDS IN A RECORD(MAX=10
)";FW:.FW.10.192.).B..H.1.FW:.2079,64.H:
.4:.:.106.C.,..BO,2:.BA,9:.FW.0.500.X.1.
."..":.5:.5:.5:."...".11)".ADD/UPDATE SE
CTION.."...6...4)"..PRESS 'A' TO ADD/ 'U
' TO UPDATE".A.@..11:.W$.."A".W$.."U".32
0.Q.J..W$."U".400...T..J.MAX.N:.MAX.N.50
0. .Y..BA,9:.BO,9:."...".5)"FILE->";NF$:
.". REC#";J;"..".X.^..I.1.FW:.2173,64.I:
.2185,64.I:.2201,64.I:.2192,64.I...C..63
1,42:.632,157:.198,2:."ENTER "NA$(I).16)
;:.8:.......20000:."........"......P.1.F
W:Q.P.5:.48......"."NA$(P).12)Z$(P):.P:.
UF.1........".... IS THIS CORRECT (Y/N)"
:.11:.W$."N".345.T....MAX..N..".... ANOT
HER ENTRY? (Y/N)":.11:.W$."N".MAX.MAX.1:
.500.J...MAX.MAX.1:.J:.500......BA,9:.BO
,9:."..UPDATE>":.730.G....BA,0:.BO,9:.".
..CURRENT CONTENTS.":.P.1.FW:.2066,64.P.
.....".."P". "NA$(P).17);:.3:.:.:.10:UF.
1.....J.X:.345:."....NEW CONTENTS-PRESS
ANY KEY":.11:UF.0:.500.U...BO.53280:BA.5
3281:.BA,1:.BO,2:."."......".":.5:." . *
* * * DATA MANAGER I * * * * ":.5
......"..":.L.1.11:.5:.L......".":.5:.5:
.5......"...........".10)"1. CREATE FILE
.":..10)".2. ADD/UPDATE ITEM.".;.....10)
".3. SEARCH FOR ITEM":..10)"..4. SAVE/LO
AD RECORD.".Q.....10)".5. MEMORY REMAINI
NG":."..".19.C(NF$).2)NF$...!.."...".10)
"PRESS CHOICE NUMBER"...&..W$:.W$."1".W$
."5".550...0..W$."5"..". CALCULATING.":.
.9).(0).(.(0).0).65536;...5..W$."5".."BY
TES REMAINING.":.10:.500.4.:.W.E(W$):.W.
100,300,700,1300,500.B....FW.0.500.H....
BA,2:.BO,8:."..":.5:.5:.5:PO$.""...A..".
..".10)".FIELD SEARCH SECTION...":."PRIN
TER OUTPUT (Y/N)":.11:PO$.W$...Z..".":.I
.1.FW:..8)I". ".12)NA$(I):.I:."."......"
ENTER ITEM FIELD # ";A:.A.FW.735.F...SN
$."":.". ENTER ";NA$(A);" FOR SEARCH":.S
N$:.SN$."".740......"...NOW SEARCHING FO
R ";SN$;".":U.C(SN$):X.1:.2149,64.A.....
RF.0:.6:.RF.1.900.....X.X.1:.X..MAX.1.75
5......"...FILE END**LIST THIS FIELD (Y/
N)":.11:.W$."Y".1010......500... .RF.1:.
.&....20000:."......PRESS ANY KEY....".<
....P.1.FW:Q.P.5:.40.G....2066,64.P:."..
."NA$(P).12);:.3:.P:.11.Y....PO$."Y".200
0......W.2.."..... UPDATE THIS RECORD (
Y/N)":.11:.W$."Y".402......X.MAX.1.."...
.SEARCHING ":.760......500.#....206
6,64.A:.".M=MENU C=CONT.":.X.1.MAX.1:..
7)X.10);:.3.Y....X.18..(X.18)..10:.".M=M
ENU C=CONT.":.W$."M".500.`....X......".
.. RECORD END - PRESS ANY KEY":.11:.500
.N....BA,2:.BO,2:."..":.5:.5:.5:.".....S
AVE OR LOAD (S/L)":.11......(W$.."S".W$.
."L").(N.0.W$.."L").500.!.(.."..":.W$."L
"..:.NA$(10),Z$(10):.1500.(.2. 2.L.3.."*
*NOW SAVING FILE**":.2,8,2,"@0:".NF$.",S
,W":.2270,152:MS.MAX.{.4..MAX.N.MAX...;.
Z$.G(13)...<..2,NF$;Z$;N;Z$;MAX;Z$;FW;Z$
;.D.F..X.1.FW.1:.2,NA$(X):.X...P..J.1.FW
:.2273,64.J:.X.1.MAX:.14:.X:.J.'.Z..".**
FILE SAVED-PRESS ANY KEY**.": 2:.11:MAX.
MS:.500.F....".ENTER FILENAME TO LOAD>";
NF$:.2,8,2,NF$:.2270,132:.".."......2,NF
$,N,MAX,FW:.J.1.FW:.2079,64.J:.4:.2,NA$(
J):..H....J.1.FW:.X.1.MAX.1:.2273,64.J:.
14:.X:.J..... 2:.".**FILE LOADED**.":.10
:.500...P.."....PRINT RECORD (Y/N)":.11:
.W$.."Y".920.Z.U..2064,146:.4,4:.4:.P.1.
FW:.2066,64.P:.NA$(P)"--->";:.3:.P.R.Z..
4: 4:.2064,18:.920....'.J.2049.2260.2:.J
" "B(J),J.1" "B(J.1):.:.... N.53280,14
:.53281,0...)N."........................
.................P"...*N.".
.".K.4N.".L....
..................................".}.>N
.".. .
."...HN.".. .FIELD. . .CONTENTS.
."...RN."..O............
........................P"...\N.D.1.18:.
".. . .":.
D.K..O."..L.............................
..........".Q.BO....
> CLICK IMAGE PREVIEW FOR FULL MODAL