DATA'BASE'MGR
FILE INFORMATION
FILENAME(S): DATA'BASE'MGR
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-12-01 01:48:19
APPEARS ON: 3 disk(s)
FILE HASH
98e7c536ba37e42a4e5749d2e99faae8fcf6fddb4dce98f6d95402abac60af67
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMAL 2 | DATA'BASE'MGR | PRG | hedning, Mattias H00r | 17 | 1 | DOWNLOAD FILE |
| CCS COMAL 2 | DATA'BASE'MGR | PRG | hedning, Mattias H00r | 17 | 1 | DOWNLOAD FILE |
| COMAL B | DATA'BASE'MGR | PRG | hedning, Helsinborg | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 52 16 C9 17 5E 1A 00 0A 1D 00 20 44 45 4C 45 54 |R...^..... DELET|
00000010: 45 20 22 30 3A 44 41 54 41 27 42 41 53 45 27 4D |E "0:DATA'BASE'M|
00000020: 47 52 22 00 14 24 00 20 20 42 59 20 D2 2E D3 48 |GR"..$. BY ...H|
00000030: 49 4E 47 4C 45 44 45 43 4B 45 52 20 26 20 D3 2E |INGLEDECKER & ..|
00000040: D3 4D 55 4C 4C 45 4E 00 1E 1D 00 20 53 41 56 45 |.MULLEN.... SAVE|
00000050: 20 20 20 22 30 3A 44 41 54 41 27 42 41 53 45 27 | "0:DATA'BASE'|
00000060: 4D 47 52 22 00 28 04 00 00 32 06 7F 01 81 00 3C |MGR".(...2.....<|
00000070: 04 95 00 46 0B 5F 02 00 93 4B 65 60 61 00 50 2C |...F._...Ke`a.P,|
00000080: 5F 03 23 20 20 20 20 C4 41 54 41 20 C2 41 53 45 |_.# .ATA .ASE|
00000090: 20 CD 41 4E 41 47 45 52 20 2D 20 C3 4F 4D 41 4C | .ANAGER - .OMAL|
000000A0: 20 D6 30 2E 31 34 65 60 61 00 5A 06 5F 60 61 00 | .0.14e`a.Z._`a.|
000000B0: 64 11 5F 02 00 12 63 67 03 03 42 59 3A 65 60 61 |d._...cg..BY:e`a|
000000C0: 00 6E 06 5F 60 61 00 78 30 5F 03 27 20 D2 4F 42 |.n._`a.x0_.' .OB|
000000D0: 45 52 54 20 D3 48 49 4E 47 4C 45 44 45 43 4B 45 |ERT .HINGLEDECKE|
000000E0: 52 20 41 4E 44 20 D3 54 45 56 45 20 D3 4D 55 4C |R AND .TEVE .MUL|
000000F0: 4C 45 4E 65 60 61 00 82 14 82 02 10 00 02 00 01 |LENe`a..........|
00000100: 84 02 00 03 85 88 5F 60 61 89 00 8C 24 5F 02 00 |......_`a...$_..|
00000110: 07 63 67 03 16 46 31 20 2D 20 C3 52 45 41 54 45 |.cg..F1 - .REATE|
00000120: 20 41 20 44 41 54 41 42 41 53 45 65 60 61 00 96 | A DATABASEe`a..|
00000130: 21 5F 02 00 07 63 67 03 13 46 33 20 2D 20 D5 53 |!_...cg..F3 - .S|
00000140: 45 20 41 20 44 41 54 41 42 41 53 45 65 60 61 00 |E A DATABASEe`a.|
00000150: A0 23 5F 02 00 07 63 67 03 15 46 35 20 2D 20 D0 |.#_...cg..F5 - .|
00000160: 55 52 47 45 20 41 20 44 41 54 41 42 41 53 45 65 |URGE A DATABASEe|
00000170: 60 61 00 AA 21 5F 02 00 07 63 67 03 13 46 37 20 |`a..!_...cg..F7 |
00000180: 2D 20 CC 49 53 54 20 44 41 54 41 42 41 53 45 53 |- .IST DATABASES|
00000190: 65 60 61 00 B4 1E 5F 02 00 07 63 67 03 10 46 38 |e`a..._...cg..F8|
000001A0: 20 2D 20 C5 4E 44 20 50 52 4F 47 52 41 4D 65 60 | - .ND PROGRAMe`|
000001B0: 61 00 BE 14 82 02 10 00 02 00 01 84 02 00 02 85 |a...............|
000001C0: 88 5F 60 61 89 00 C8 1D 5F 02 00 0C 63 67 03 0F |._`a...._...cg..|
000001D0: D9 4F 55 52 20 C4 45 43 49 53 49 4F 4E 20 3F 65 |.OUR .ECISION ?e|
000001E0: 60 61 00 D2 04 95 00 DC 07 09 03 F9 3C 00 E6 11 |`a..........<...|
000001F0: DA 06 03 03 05 85 86 87 88 8C 36 96 28 8B 00 F0 |..........6.(...|
00000200: 1D 5F 02 00 93 4B 65 66 03 0E D0 4C 45 41 53 45 |._...Kef...LEASE|
00000210: 20 57 41 49 54 2E 2E 2E 65 60 61 00 FA 09 A1 06 | WAIT...e`a.....|
00000220: 03 A3 6A 8B 01 04 0D A4 F7 8B 03 01 85 A6 A7 7D |..j............}|
00000230: 8B 01 0E 06 7F 04 81 01 18 0D A4 F7 8B 03 01 86 |................|
00000240: A6 A7 9B 8B 01 22 11 D2 03 09 30 3A 44 42 41 53 |....."....0:DBAS|
00000250: 45 31 34 D4 D3 01 2C 0D A4 F7 8B 03 01 87 A6 A7 |E14...,.........|
00000260: AE 8B 01 36 06 7F 05 81 01 40 0D A4 F7 8B 03 01 |...6.....@......|
00000270: 88 A6 A7 C1 8B 01 4A 06 7F 06 81 01 54 0D A4 F7 |......J.....T...|
00000280: 8B 03 01 8C A6 A7 00 00 01 5E 29 5F 02 00 93 4B |.........^)_...K|
00000290: 65 66 03 1A C2 59 45 20 46 52 4F 4D 20 54 48 45 |ef...YE FROM THE|
000002A0: 20 C4 41 54 41 20 C2 41 53 45 20 CD 47 52 65 60 | .ATA .ASE .GRe`|
000002B0: 61 01 68 04 A9 01 72 0D DA 06 03 03 01 8C 2D 96 |a.h...r.......-.|
000002C0: B4 89 01 7C 04 A0 01 86 04 00 01 90 09 70 01 52 |...|.........p.R|
000002D0: 8D 00 7B 01 9A 0C 8C 8F 07 00 02 00 28 93 C5 01 |..{.........(...|
000002E0: A4 0C 8C 8F 08 00 02 00 28 93 C5 01 AE 10 8C 8F |........(.......|
000002F0: 09 01 02 00 14 92 02 00 23 93 C5 01 B8 10 8C 8F |........#.......|
00000300: 0A 01 02 00 14 92 02 00 23 93 C5 01 C2 0C 8C 8D |........#.......|
00000310: 0B 01 02 00 14 92 C5 01 CC 0C 8C 8D 0C 01 02 00 |................|
00000320: 14 92 C5 01 D6 0C 8C 8D 0D 01 02 00 14 92 C5 01 |................|
00000330: E0 10 8C 8F 0E 01 02 00 14 92 02 00 01 93 C5 01 |................|
00000340: EA 0C 8C 8F 0F 00 02 00 03 93 C5 01 F4 0C 8C 8F |................|
00000350: 03 00 02 00 01 93 C5 01 FE 0C 8C 8F 10 00 02 00 |................|
00000360: 0F 93 C5 02 08 0C 8C 8F 11 00 02 00 0F 93 C5 02 |................|
00000370: 12 0C 8C 8F 12 00 02 00 0F 93 C5 02 1C 0C 8C 8F |................|
00000380: 13 00 02 00 14 93 C5 02 26 0C 8C 8F 14 00 02 00 |........&.......|
00000390: 24 93 C5 02 30 30 09 08 03 28 20 20 20 20 20 20 |$...00...( |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 3C 02 3A 09 07 15 02 00 01 3A 02 44 09 07 | <.:......:.D..|
000003D0: 16 02 00 00 3A 02 4E 09 07 17 02 00 00 3A 02 58 |....:.N......:.X|
000003E0: 14 8C 8F 18 00 02 00 10 93 8F 19 00 02 00 04 93 |................|
000003F0: 94 C5 02 62 14 8C 8F 1A 00 02 00 10 93 8F 1B 00 |...b............|
00000400: 02 00 01 93 94 C5 02 6C 06 7F 1C 81 02 76 05 7D |.......l.....v.}|
00000410: 01 02 80 04 00 02 8A 09 70 04 80 8D 00 7B 02 94 |........p....{..|
00000420: 10 07 15 02 00 01 3A 07 17 02 00 00 3A 42 02 9E |......:.....:B..|
00000430: 06 7F 1D 81 02 A8 06 7F 1E 81 02 B2 05 7D 04 02 |.............}..|
00000440: BC 04 00 02 C6 09 70 1D 78 92 00 7B 02 D0 09 07 |......p.x..{....|
00000450: 15 02 00 01 3A 02 DA 09 07 17 02 00 00 3A 02 E4 |....:........:..|
00000460: 04 95 02 EE 04 95 02 F8 04 95 03 02 04 95 03 0C |................|
00000470: 0B 5F 02 00 93 4B 65 60 61 03 16 1F 5F 02 00 0B |._...Ke`a..._...|
00000480: 63 66 03 11 C3 52 45 41 54 45 20 41 20 C4 41 54 |cf...REATE A .AT|
00000490: 41 42 41 53 45 65 60 61 03 20 06 5F 60 61 03 2A |ABASEe`a. ._`a.*|
000004A0: 20 5F 03 17 D2 45 43 4F 52 44 20 53 50 41 43 45 | _...ECORD SPACE|
000004B0: 20 41 56 41 49 4C 41 42 4C 45 3A 65 66 61 03 34 | AVAILABLE:efa.4|
000004C0: 14 5F 03 03 23 23 23 62 02 00 FE 04 17 29 D6 D7 |._..###b.....)..|
000004D0: 60 61 03 3E 06 5F 60 61 03 48 25 5F 03 13 C5 4E |`a.>._`a.H%_...N|
000004E0: 54 45 52 20 4E 41 4D 45 20 4F 46 20 46 49 45 4C |TER NAME OF FIEL|
000004F0: 44 65 67 04 15 64 66 03 01 3A 65 60 61 03 52 17 |Deg..df..:e`a.R.|
00000500: 7F 1F 03 01 20 0F 03 01 42 0F 0C 09 07 15 1C 12 |.... ...B.......|
00000510: 02 00 23 13 03 5C 06 5F 60 61 03 66 2E 5F 03 25 |..#..\._`a.f._.%|
00000520: C2 41 53 45 44 20 4F 4E 20 46 49 45 4C 44 20 4E |.ASED ON FIELD N|
00000530: 41 4D 45 20 54 48 45 20 4D 41 58 49 4D 55 4D 20 |AME THE MAXIMUM |
00000540: 46 49 45 4C 44 65 60 61 03 70 21 5F 03 0C 53 49 |FIELDe`a.p!_..SI|
00000550: 5A 45 20 43 41 4E 20 42 45 20 65 66 02 00 24 0C |ZE CAN BE ef..$.|
00000560: 09 07 15 1C 51 29 64 60 61 03 7A 06 5F 60 61 03 |....Q)d`a.z._`a.|
00000570: 84 21 5F 03 14 C5 4E 54 45 52 20 53 49 5A 45 20 |.!_...NTER SIZE |
00000580: 4F 46 20 46 49 45 4C 44 3A 65 67 04 15 64 67 61 |OF FIELD:eg..dga|
00000590: 03 8E 0C B5 0A 0B 07 15 1C B6 B8 BB 03 98 06 5F |..............._|
000005A0: 60 61 03 A2 17 68 0C 09 07 15 1C 51 0A 0B 07 15 |`a...h.....Q....|
000005B0: 16 27 02 00 24 30 69 B1 8F 03 AC 06 5F 60 61 03 |.'..$0i....._`a.|
000005C0: B6 4C 5F 03 43 C6 49 45 4C 44 20 4E 41 4D 45 20 |.L_.C.IELD NAME |
000005D0: 41 4E 44 20 46 49 45 4C 44 20 53 49 5A 45 20 54 |AND FIELD SIZE T|
000005E0: 4F 47 45 54 48 45 52 20 4D 55 53 54 20 42 45 20 |OGETHER MUST BE |
000005F0: 4C 45 53 53 20 54 48 41 4E 20 4F 4E 45 20 4C 49 |LESS THAN ONE LI|
00000600: 4E 45 20 4C 4F 4E 47 2E 65 60 61 03 C0 06 5F 60 |NE LONG.e`a..._`|
00000610: 61 03 CA 18 5F 03 0F D0 4C 45 41 53 45 20 52 45 |a..._...LEASE RE|
00000620: 2D 45 4E 54 45 52 65 60 61 03 D4 06 5F 60 61 03 |-ENTERe`a..._`a.|
00000630: DE 24 5F 03 1B D0 52 45 53 53 20 53 50 41 43 45 |.$_...RESS SPACE|
00000640: 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E |BAR TO CONTINUE.|
00000650: 65 60 61 03 E8 04 95 03 F2 07 09 03 F9 3C 03 FC |e`a..........<..|
00000660: 0D DA 06 03 03 01 20 2D 96 99 8F 04 06 04 6F 04 |...... -......o.|
00000670: 10 17 DA 0C 09 07 15 1C 51 0A 0B 07 15 16 27 02 |........Q.....'.|
00000680: 00 25 2A 96 B0 8D 04 1A 23 5F 03 1A C5 4E 54 45 |.%*.....#_...NTE|
00000690: 52 20 46 49 45 4C 44 20 54 59 50 45 20 28 C1 2C |R FIELD TYPE (.,|
000006A0: CE 2C C2 29 20 3F 65 60 61 04 24 23 5F 03 1A 20 |.,.) ?e`a.$#_.. |
000006B0: 20 C1 2D 41 4C 50 48 41 20 CE 2D 4E 55 4D 45 52 | .-ALPHA .-NUMER|
000006C0: 49 43 20 C2 2D 42 4F 54 48 65 60 61 04 2E 04 95 |IC .-BOTHe`a....|
000006D0: 04 38 07 09 03 F9 3C 04 42 12 DA 06 03 03 06 41 |.8....<.B......A|
000006E0: 4E 42 C1 CE C2 36 96 12 90 04 4C 0B 0C 0E 07 15 |NB...6....L.....|
000006F0: 1C 06 03 3C 04 56 06 5F 60 61 04 60 29 5F 0C 09 |...<.V._`a.`)_..|
00000700: 07 15 16 65 66 03 01 3A 65 66 03 01 5B 65 66 0C |...ef..:ef..[ef.|
00000710: 08 02 00 01 1F 0A 0B 07 15 16 13 65 66 03 01 5D |...........ef..]|
00000720: 65 60 61 04 6A 06 5F 60 61 04 74 1B 5F 03 12 C9 |e`a.j._`a.t._...|
00000730: 53 20 54 48 49 53 20 43 4F 52 52 45 43 54 20 3F |S THIS CORRECT ?|
00000740: 20 65 60 61 04 7E 04 95 04 88 07 09 03 F9 3C 04 | e`a.~........<.|
00000750: 92 10 DA 06 03 03 04 D9 59 CE 4E 36 96 8A 90 04 |........Y.N6....|
00000760: 9C 0E DA 06 03 03 02 D9 59 36 96 AC 8D 04 A6 0E |........Y6......|
00000770: 07 17 04 17 0A 0B 07 15 16 27 3A 04 B0 09 07 15 |.........':.....|
00000780: 02 00 01 3D 04 BA 0D 68 04 15 02 00 14 2C 69 E0 |...=...h.....,i.|
00000790: 90 04 C4 09 09 03 03 01 45 3C 04 CE 06 6E 53 91 |........E<...nS.|
000007A0: 04 D8 06 5F 60 61 04 E2 15 5F 03 0C C5 2D 45 4E |..._`a..._...-EN|
000007B0: 44 20 52 45 43 4F 52 44 65 60 61 04 EC 1A 5F 03 |D RECORDe`a..._.|
000007C0: 11 C3 2D 43 4F 4E 54 49 4E 55 45 20 52 45 43 4F |..-CONTINUE RECO|
000007D0: 52 44 65 60 61 04 F6 06 5F 60 61 05 00 17 5F 03 |RDe`a..._`a..._.|
000007E0: 0E D9 4F 55 52 20 43 48 4F 49 43 45 20 3F 20 65 |..OUR CHOICE ? e|
000007F0: 60 61 05 0A 04 95 05 14 07 09 03 F9 3C 05 1E 10 |`a..........<...|
00000800: DA 06 03 03 04 C5 45 C3 43 36 96 38 91 05 28 04 |......E.C6.8..(.|
00000810: 6F 05 32 0E DA 06 03 03 02 45 C5 36 96 A8 8D 05 |o.2......E.6....|
00000820: 3C 0D 68 04 17 02 00 FE 30 69 B9 91 05 46 3E 5F |<.h.....0i...F>_|
00000830: 03 35 54 4F 4F 20 4D 41 4E 59 20 43 48 41 52 41 |.5TOO MANY CHARA|
00000840: 43 54 45 52 53 20 46 4F 52 20 52 45 43 4F 52 44 |CTERS FOR RECORD|
00000850: 20 50 4C 45 41 53 45 20 52 45 2D 49 4E 50 55 54 | PLEASE RE-INPUT|
00000860: 20 52 45 43 4F 52 44 65 60 61 05 50 09 07 15 02 | RECORDe`a.P....|
00000870: 00 01 3A 05 5A 04 6F 05 64 14 DA 04 17 02 00 FF |..:.Z.o.d.......|
00000880: 2A 04 17 02 00 00 30 38 96 A4 8D 05 6E 04 95 05 |*.....08....n...|
00000890: 78 0B 5F 02 00 93 4B 65 60 61 05 82 1F 5F 02 00 |x._...Ke`a..._..|
000008A0: 0B 63 66 03 11 C3 52 45 41 54 45 20 41 20 C4 41 |.cf...REATE A .A|
000008B0: 54 41 42 41 53 45 65 60 61 05 8C 06 5F 60 61 05 |TABASEe`a..._`a.|
000008C0: 96 06 5F 60 61 05 A0 2C 5F 03 23 31 30 20 43 48 |.._`a..,_.#10 CH|
000008D0: 41 52 41 43 54 45 52 53 20 4D 41 58 49 4D 55 4D |ARACTERS MAXIMUM|
000008E0: 20 46 4F 52 20 46 49 4C 45 20 4E 41 4D 45 65 60 | FOR FILE NAMEe`|
000008F0: 61 05 AA 06 5F 60 61 05 B4 25 7F 1F 03 12 C5 4E |a..._`a..%.....N|
00000900: 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 3F 20 |TER FILE NAME ? |
00000910: 0F 03 01 42 0F 09 10 12 02 00 0A 13 05 BE 16 DA |...B............|
00000920: 09 10 51 02 00 0B 2A 09 10 51 02 00 00 30 38 96 |..Q...*..Q...08.|
00000930: D1 91 05 C8 05 7D 1D 05 D2 04 00 05 DC 09 70 1E |.....}........p.|
00000940: 84 93 00 7B 05 E6 0C 07 20 04 15 02 00 01 29 3A |...{.... .....):|
00000950: 05 F0 09 07 21 02 00 00 3A 05 FA 09 07 22 02 00 |....!...:...."..|
00000960: 00 3A 06 04 09 07 23 02 00 00 3A 06 0E 06 7F 24 |.:....#...:....$|
00000970: 81 06 18 06 5F 60 61 06 22 04 95 06 2C 28 5F 03 |...._`a."...,(_.|
00000980: 1F 41 50 50 52 4F 58 49 4D 41 54 45 20 52 45 43 |.APPROXIMATE REC|
00000990: 4F 52 44 53 20 54 4F 20 42 45 20 55 53 45 44 3A |ORDS TO BE USED:|
000009A0: 65 67 61 06 36 09 B5 07 25 B6 B8 BB 06 40 25 68 |ega.6...%....@%h|
000009B0: 04 25 02 01 90 30 6A 5F 03 14 D4 4F 4F 20 4D 41 |.%...0j_...OO MA|
000009C0: 4E 59 20 2D 20 52 45 2D 49 4E 50 55 54 21 65 60 |NY - RE-INPUT!e`|
000009D0: 61 06 4A 0D DA 04 25 02 01 91 2A 96 BD 92 06 54 |a.J...%...*....T|
000009E0: 1A DB 02 00 03 DC 06 10 03 05 27 44 41 54 41 28 |..........'DATA(|
000009F0: DD 04 17 02 00 01 27 E1 06 5E 0F 82 02 5E 93 02 |......'..^...^..|
00000A00: 00 01 84 04 25 85 87 06 68 13 5F 02 00 03 C8 04 |....%...h._.....|
00000A10: 02 C9 CB 02 00 20 4B 65 66 61 06 72 07 8A 02 3E |..... Kefa.r...>|
00000A20: 93 06 7C 17 5F 02 00 03 C8 04 02 02 00 01 27 C9 |..|._.........'.|
00000A30: CB 02 00 FF 4B 65 60 61 06 86 08 CF 02 00 03 D0 |....Ke`a........|
00000A40: 06 90 05 7D 1E 06 9A 04 00 06 A4 09 70 24 80 94 |...}........p$..|
00000A50: 00 7B 06 AE 14 DB 02 00 01 DC 06 10 03 05 27 44 |.{............'D|
00000A60: 49 43 54 28 DD DF 06 B8 0E 5F 02 00 01 C8 CB 04 |ICT(....._......|
00000A70: 21 64 60 61 06 C2 0E 5F 02 00 01 C8 CB 04 17 64 |!d`a..._.......d|
00000A80: 60 61 06 CC 0E 5F 02 00 01 C8 CB 04 22 64 60 61 |`a..._......"d`a|
00000A90: 06 D6 0E 5F 02 00 01 C8 CB 04 23 64 60 61 06 E0 |..._......#d`a..|
00000AA0: 0F 82 26 71 94 02 00 01 84 04 20 85 87 06 EA 11 |..&q...... .....|
00000AB0: 5F 02 00 01 C8 CB 0C 09 07 26 16 65 60 61 06 F4 |_........&.e`a..|
00000AC0: 11 5F 02 00 01 C8 CB 0A 0B 07 26 16 64 60 61 06 |._........&.d`a.|
00000AD0: FE 11 5F 02 00 01 C8 CB 0C 0E 07 26 16 65 60 61 |.._........&.e`a|
00000AE0: 07 08 0F 0A 0C 07 26 1C 02 00 01 04 16 27 3A 07 |......&......':.|
00000AF0: 12 11 0A 0D 07 26 1C 0A 0B 07 26 16 04 16 27 3A |.....&....&...':|
00000B00: 07 1C 0B 07 16 0A 0B 07 26 16 3D 07 26 11 5F 02 |........&.=.&._.|
00000B10: 00 01 C8 CB 0A 0C 07 26 16 64 60 61 07 30 11 5F |.......&.d`a.0._|
00000B20: 02 00 01 C8 CB 0A 0D 07 26 16 64 60 61 07 3A 07 |........&.d`a.:.|
00000B30: 8A 26 E2 93 07 44 08 CF 02 00 01 D0 07 4E 05 7D |.&...D.......N.}|
00000B40: 24 07 58 04 00 07 62 09 70 05 0C 95 00 7B 07 6C |$.X...b.p....{.l|
00000B50: 06 7F 27 81 07 76 0F 68 06 10 03 03 45 4E 44 33 |..'..v.h....END3|
00000B60: 69 08 95 07 80 10 09 11 06 10 03 05 27 44 49 43 |i...........'DIC|
00000B70: 54 28 3C 07 8A 0E 09 13 03 03 53 30 3A 06 11 28 |T(<.......S0:..(|
00000B80: 3C 07 94 06 06 13 7E 07 9E 10 09 12 06 10 03 05 |<.....~.........|
00000B90: 27 44 41 54 41 28 3C 07 A8 0E 09 13 03 03 53 30 |'DATA(<.......S0|
00000BA0: 3A 06 12 28 3C 07 B2 06 06 13 7E 07 BC 19 5F 06 |:..(<.....~..._.|
00000BB0: 10 65 67 03 0C 20 44 45 4C 45 54 45 44 20 2E 2E |.eg.. DELETED ..|
00000BC0: 2E 65 60 61 07 C6 04 6F 07 D0 05 7D 05 07 DA 04 |.e`a...o...}....|
00000BD0: 00 07 E4 11 70 1F 9E 95 04 74 09 74 28 77 03 72 |....p....t.t(w.r|
00000BE0: 29 7C 07 EE 07 07 2A 45 3A 07 F8 07 02 00 00 46 |)|....*E:......F|
00000BF0: 08 02 09 5F 06 09 65 67 61 08 0C 0B 5F 03 02 5B |..._..ega..._..[|
00000C00: A4 65 66 61 08 16 17 82 15 0F 00 02 00 02 84 04 |.efa............|
00000C10: 29 85 88 5F 03 01 20 65 66 61 89 08 20 0A 5F 03 |).._.. efa.. ._.|
00000C20: 01 5D 65 66 61 08 2A 1B 82 15 13 00 02 00 01 84 |.]efa.*.........|
00000C30: 04 29 02 00 01 27 85 88 5F 03 01 9D 65 66 61 89 |.)...'.._...efa.|
00000C40: 08 34 0E 7F 2B 09 03 12 09 28 12 07 29 16 08 3E |.4..+....(..)..>|
00000C50: 06 5F 60 61 08 48 06 04 2A 46 08 52 05 7D 1F 08 |._`a.H..*F.R.}..|
00000C60: 5C 04 00 08 66 0F 70 2B BE 98 03 77 07 74 2C 72 |\...f.p+...w.t,r|
00000C70: 29 7C 08 70 14 8C 8F 28 00 02 00 50 93 8F 2D 00 |)|.p...(...P..-.|
00000C80: 02 00 01 93 94 C5 08 7A 07 07 2A 45 3A 08 84 07 |.......z..*E:...|
00000C90: 02 00 00 46 08 8E 08 09 07 03 00 3C 08 98 09 A1 |...F.......<....|
00000CA0: 06 2C A3 E9 95 08 A2 0D A4 C7 96 03 01 41 A6 A7 |.,...........A..|
00000CB0: 37 96 08 AC 41 09 28 03 39 41 42 43 44 45 46 47 |7...A.(.9ABCDEFG|
00000CC0: 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 |HIJKLMNOPQRSTUVW|
00000CD0: 58 59 5A 20 C1 C2 C3 C4 C5 C6 C7 C8 C9 CA CB CC |XYZ ............|
00000CE0: CD CE CF D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 DA 2C 2E |..............,.|
00000CF0: 27 20 3C 08 B6 0D A4 C7 96 03 01 4E A6 A7 57 96 |' <........N..W.|
00000D00: 08 C0 13 09 28 03 0B 2D 30 31 32 33 34 35 36 37 |....(..-01234567|
00000D10: 38 39 3C 08 CA 0D A4 C7 96 03 01 42 A6 A7 B9 96 |89<........B....|
00000D20: 08 D4 49 09 28 03 41 41 42 43 44 45 46 47 48 49 |..I.(.AABCDEFGHI|
00000D30: 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 |JKLMNOPQRSTUVWXY|
00000D40: 5A 20 30 31 32 33 34 35 36 37 38 39 C1 C2 C3 C4 |Z 0123456789....|
00000D50: C5 C6 C7 C8 C9 CA CB CC CD CE CF D0 D1 D2 D3 D4 |................|
00000D60: D5 D6 D7 D8 D9 DA 2C 2E 3C 08 DE 0C 09 28 06 28 |......,.<....(.(|
00000D70: 03 01 27 28 3C 08 E8 06 A8 C7 96 08 F2 08 09 28 |..'(<..........(|
00000D80: 06 2C 3C 08 FC 04 A9 09 06 0E 07 2E 44 3A 07 2F |.,<.........D:./|
00000D90: 02 00 00 3A 42 09 10 04 95 09 1A 15 7F 30 09 2D |...:B........0.-|
00000DA0: 12 06 28 02 00 0D 4B 28 02 00 14 4B 28 15 09 24 |..(...K(...K(..$|
00000DB0: 09 A1 06 2D A3 FB 96 09 2E 1F A4 AB 98 02 00 0D |...-............|
00000DC0: 4B A6 A7 21 97 00 20 43 41 52 52 49 41 47 45 20 |K..!.. CARRIAGE |
00000DD0: 52 45 54 55 52 4E 09 38 07 07 2E 43 3A 09 42 1A |RETURN.8...C:.B.|
00000DE0: A4 AB 98 02 00 14 4B A6 A7 15 98 00 20 44 45 4C |......K..... DEL|
00000DF0: 45 54 45 20 4B 45 59 09 4C 2C 68 04 2F 69 11 98 |ETE KEY.L,h./i..|
00000E00: 00 20 4F 4E 4C 59 20 44 4F 20 49 46 20 41 4C 52 |. ONLY DO IF ALR|
00000E10: 45 41 44 59 20 48 41 56 45 20 53 4F 4D 45 54 48 |EADY HAVE SOMETH|
00000E20: 49 4E 47 09 56 2B 07 2F 02 00 01 40 00 20 53 55 |ING.V+./...@. SU|
00000E30: 42 54 52 41 43 54 20 31 20 46 52 4F 4D 20 4E 55 |BTRACT 1 FROM NU|
00000E40: 4D 42 45 52 20 49 4E 20 53 54 52 49 4E 47 09 60 |MBER IN STRING.`|
00000E50: 10 68 04 2F 04 29 02 00 01 29 2C 69 AE 97 09 6A |.h./.)...),i...j|
00000E60: 0C 5F 03 03 9D A4 9D 65 66 61 09 74 06 6E E8 97 |._.....efa.t.n..|
00000E70: 09 7E 34 5F 03 05 20 9D 9D A4 9D 65 66 61 00 20 |.~4_.. ....efa. |
00000E80: 45 52 41 53 45 20 43 48 41 52 41 43 54 45 52 20 |ERASE CHARACTER |
00000E90: 20 20 20 20 20 20 20 20 20 46 52 4F 4D 20 53 43 | FROM SC|
00000EA0: 52 45 45 4E 09 88 04 6F 09 92 25 09 07 0C 07 02 |REEN...o..%.....|
00000EB0: 00 01 1F 04 2F 13 3C 00 20 41 44 4A 55 53 54 20 |..../.<. ADJUST |
00000EC0: 41 43 54 55 41 4C 20 53 54 52 49 4E 47 09 9C 04 |ACTUAL STRING...|
00000ED0: 6F 09 A6 06 A8 AB 98 09 B0 0C 68 04 2F 04 29 2A |o.........h./.)*|
00000EE0: 69 A7 98 09 BA 25 09 07 06 07 06 2D 28 3C 00 20 |i....%.....-(<. |
00000EF0: 41 44 44 20 56 41 4C 49 44 20 43 48 41 52 20 54 |ADD VALID CHAR T|
00000F00: 4F 20 53 54 52 49 4E 47 09 C4 1E 07 2F 02 00 01 |O STRING..../...|
00000F10: 3D 00 20 41 44 4A 55 53 54 20 53 54 52 49 4E 47 |=. ADJUST STRING|
00000F20: 20 43 4F 55 4E 54 09 CE 2B 5F 06 2D 65 67 03 03 | COUNT..+_.-eg..|
00000F30: 9D A4 9D 65 66 61 00 20 50 52 49 4E 54 20 54 48 |...efa. PRINT TH|
00000F40: 45 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |E VALID CHARACTE|
00000F50: 52 09 D8 12 68 04 2F 04 29 2C 6A 5F 03 02 5D 9D |R...h./.),j_..].|
00000F60: 65 66 61 09 E2 04 6F 09 EC 04 A9 09 F6 09 DA 04 |efa...o.........|
00000F70: 2E 96 D9 96 0A 00 06 04 2A 46 0A 0A 05 7D 2B 0A |........*F...}+.|
00000F80: 14 06 00 20 2D 0A 1E 0D 70 30 ED 98 02 77 31 74 |... -...p0...w1t|
00000F90: 28 7C 0A 28 04 95 0A 32 07 09 31 F9 3C 0A 3C 0C |(|.(...2..1.<.<.|
00000FA0: DA 06 31 06 28 36 96 D6 98 0A 46 05 7D 30 0A 50 |..1.(6....F.}0.P|
00000FB0: 04 00 0A 5A 09 70 27 24 9A 00 7B 0A 64 04 95 0A |...Z.p'$..{.d...|
00000FC0: 6E 27 7F 1F 03 14 C5 4E 54 45 52 20 44 41 54 41 |n'.....NTER DATA|
00000FD0: 42 41 53 45 20 4E 41 4D 45 3A 0F 03 01 42 0F 09 |BASE NAME:...B..|
00000FE0: 10 12 02 00 0A 13 0A 78 14 DB 02 00 01 DC 06 10 |.......x........|
00000FF0: 03 05 27 44 49 43 54 28 DD DE 0A 82 07 09 07 80 |..'DICT(........|
00001000: 3C 0A 8C 1F DA 0C 07 02 00 01 1F 02 00 02 13 03 |<...............|
00001010: 02 30 30 2D 06 10 03 03 45 4E 44 2D 39 96 FF 98 |.00-....END-9...|
00001020: 0A 96 08 CF 02 00 01 D0 0A A0 0F 68 06 10 03 03 |...........h....|
00001030: 45 4E 44 33 69 20 9A 0A AA 06 7F 32 81 0A B4 1A |END3i .....2....|
00001040: DB 02 00 03 DC 06 10 03 05 27 44 41 54 41 28 DD |.........'DATA(.|
00001050: 04 17 02 00 01 27 E1 0A BE 07 09 07 80 3C 0A C8 |.....'.......<..|
00001060: 08 CF 02 00 03 D0 0A D2 16 68 0C 07 02 00 01 1F |.........h......|
00001070: 02 00 02 13 03 02 30 30 33 69 1C 9A 0A DC 41 5F |......003i....A_|
00001080: 03 38 52 41 4E 44 4F 4D 20 46 49 4C 45 20 4E 4F |.8RANDOM FILE NO|
00001090: 54 20 46 4F 55 4E 44 2E 20 C4 4F 20 43 52 45 41 |T FOUND. .O CREA|
000010A0: 54 45 20 41 20 44 41 54 41 42 41 53 45 20 49 4E |TE A DATABASE IN|
000010B0: 20 4D 41 49 4E 20 4D 45 4E 55 65 60 61 0A E6 10 | MAIN MENUe`a...|
000010C0: 82 02 15 9A 02 00 01 84 02 03 E8 85 87 0A F0 04 |................|
000010D0: F4 0A FA 07 8A 02 01 9A 0B 04 04 6F 0B 0E 04 6F |...........o...o|
000010E0: 0B 18 05 7D 27 0B 22 04 00 0B 2C 09 70 32 24 9B |...}'."...,.p2$.|
000010F0: 00 7B 0B 36 09 07 15 02 00 00 3A 0B 40 14 DB 02 |.{.6......:.@...|
00001100: 00 01 DC 06 10 03 05 27 44 49 43 54 28 DD DE 0B |.......'DICT(...|
00001110: 4A 0E B5 02 00 01 C8 CB CC 07 21 B8 BB 0B 54 0E |J.........!...T.|
00001120: B5 02 00 01 C8 CB CC 07 17 B8 BB 0B 5E 0E B5 02 |............^...|
00001130: 00 01 C8 CB CC 07 22 B8 BB 0B 68 0E B5 02 00 01 |......"...h.....|
00001140: C8 CB CC 07 23 B8 BB 0B 72 0C 97 02 00 01 5D 37 |....#...r.....]7|
00001150: 98 F8 9A 0B 7C 0C 07 15 04 15 02 00 01 27 3A 0B |....|........':.|
00001160: 86 11 B5 02 00 01 C8 CB CC 0C 09 07 15 1C BA BB |................|
00001170: 0B 90 11 B5 02 00 01 C8 CB CC 0A 0B 07 15 1C B8 |................|
00001180: BB 0B 9A 11 B5 02 00 01 C8 CB CC 0C 0E 07 15 1C |................|
00001190: BA BB 0B A4 11 B5 02 00 01 C8 CB CC 0A 0C 07 15 |................|
000011A0: 1C B8 BB 0B AE 11 B5 02 00 01 C8 CB CC 0A 0D 07 |................|
000011B0: 15 1C B8 BB 0B B8 06 9B 8B 9A 0B C2 08 CF 02 00 |................|
000011C0: 01 D0 0B CC 08 07 20 04 15 3A 0B D6 0B 8C 8F 33 |...... ..:.....3|
000011D0: 00 04 17 93 C5 0B E0 0B 8C 8F 34 00 04 17 93 C5 |..........4.....|
000011E0: 0B EA 05 7D 32 0B F4 04 00 0B FE 09 70 06 8C 9B |...}2.......p...|
000011F0: 00 7B 0C 08 08 03 02 49 30 7E 0C 12 06 7F 35 81 |.{.....I0~....5.|
00001200: 0C 1C 06 5F 60 61 0C 26 29 5F 03 20 C5 4E 44 20 |..._`a.&)_. .ND |
00001210: 4F 46 20 4C 49 53 54 49 4E 47 2E 2E 2E 20 D0 52 |OF LISTING... .R|
00001220: 45 53 53 20 C1 4E 59 20 CB 45 59 21 65 60 61 0C |ESS .NY .EY!e`a.|
00001230: 30 04 95 0C 3A 07 09 1B F9 3C 0C 44 0E DA 06 1B |0...:....<.D....|
00001240: 02 00 00 4B 33 96 73 9B 0C 4E 05 7D 06 0C 58 04 |...K3.s..N.}..X.|
00001250: 00 0C 62 09 70 35 ED 9B 00 7B 0C 6C 06 7F 36 81 |..b.p5...{.l..6.|
00001260: 0C 76 1C 07 37 02 00 00 3A 00 20 46 4F 52 20 38 |.v..7...:. FOR 8|
00001270: 20 42 4C 4F 43 4B 20 43 59 43 4C 45 0C 80 15 07 | BLOCK CYCLE....|
00001280: 38 02 02 98 3A 00 31 35 34 31 20 42 4C 4F 43 4B |8...:.1541 BLOCK|
00001290: 53 0C 8A 04 95 0C 94 06 7F 39 81 0C 9E 09 DA 04 |S........9......|
000012A0: 3A 96 D5 9B 0C A8 05 CF D1 0C B2 05 7D 35 0C BC |:...........}5..|
000012B0: 04 00 0C C6 09 70 36 9F 9C 00 7B 0C D0 09 07 3B |.....p6...{....;|
000012C0: 02 00 02 3A 0C DA 07 07 3A 44 3A 0C E4 0D DB 04 |...:....:D:.....|
000012D0: 3B DC 03 02 24 30 DD DE 0C EE 0F 7F 3C 02 00 8E |;...$0......<...|
000012E0: 0D 07 3B 10 07 3A 16 0C F8 12 7F 3D 09 18 12 02 |..;..:.....=....|
000012F0: 00 10 0D 07 3B 10 07 3A 16 0D 02 0F 7F 3C 02 00 |....;..:.....<..|
00001300: 02 0D 07 3B 10 07 3A 16 0D 0C 12 7F 3D 09 19 12 |...;..:.....=...|
00001310: 02 00 02 0D 07 3B 10 07 3A 16 0D 16 0B 5F 02 00 |.....;..:...._..|
00001320: 93 4B 65 60 61 0D 20 21 5F 03 14 C4 41 54 41 20 |.Ke`a. !_...ATA |
00001330: 42 41 53 45 53 20 4F 4E 20 44 49 53 4B 3A 20 65 |BASES ON DISK: e|
00001340: 66 06 18 65 60 61 0D 2A 06 5F 60 61 0D 34 0F 7F |f..e`a.*._`a.4..|
00001350: 3C 02 00 5C 0D 07 3B 10 07 3A 16 0D 3E 05 7D 36 |<..\..;..:..>.}6|
00001360: 0D 48 04 00 0D 52 09 70 39 D2 9C 00 7B 0D 5C 06 |.H...R.p9...{.\.|
00001370: 7F 3E 81 0D 66 06 7F 3F 81 0D 70 06 7F 40 81 0D |.>..f..?..p..@..|
00001380: 7A 09 07 41 02 00 01 3D 0D 84 06 7F 42 81 0D 8E |z..A...=....B...|
00001390: 05 7D 39 0D 98 04 00 0D A2 09 70 3E 22 9D 00 7B |.}9.......p>"..{|
000013A0: 0D AC 0E 07 43 0A 44 07 3B 10 07 3A 16 3A 0D B6 |....C.D.;..:.:..|
000013B0: 0F 7F 3C 02 00 02 0D 07 3B 10 07 3A 16 0D C0 21 |..<.....;..:...!|
000013C0: 68 04 43 02 00 81 2A 04 43 02 00 84 30 39 6A 07 |h.C...*.C...09j.|
000013D0: 43 02 00 80 3A 00 46 49 58 20 54 59 50 45 0D CA |C...:.FIX TYPE..|
000013E0: 05 7D 3E 0D D4 04 00 0D DE 09 70 3F D3 9D 00 7B |.}>.......p?...{|
000013F0: 0D E8 12 7F 3D 09 1A 12 02 00 10 0D 07 3B 10 07 |....=........;..|
00001400: 3A 16 0D F2 2D 00 4E 45 58 54 20 43 4F 4E 56 45 |:...-.NEXT CONVE|
00001410: 52 54 20 53 48 49 46 54 20 53 50 41 43 45 53 20 |RT SHIFT SPACES |
00001420: 54 4F 20 4E 4F 52 4D 41 4C 20 53 50 41 43 45 0D |TO NORMAL SPACE.|
00001430: FC 10 82 02 9C 9D 02 00 01 84 09 1A 51 85 87 0E |............Q...|
00001440: 06 19 68 0C 1A 07 02 16 49 02 00 A0 2C 6A 0C 1A |..h.....I...,j..|
00001450: 07 02 1C 02 00 20 4B 3C 0E 10 07 8A 02 73 9D 0E |..... K<.....s..|
00001460: 1A 0F 7F 3C 02 00 09 0D 07 3B 10 07 3A 16 0E 24 |...<.....;..:..$|
00001470: 21 68 03 05 27 44 41 54 41 06 1A 36 6A 5F 0C 1A |!h..'DATA..6j_..|
00001480: 02 00 01 1F 09 1A 51 02 00 06 29 13 65 60 61 0E |......Q...).e`a.|
00001490: 2E 05 7D 3F 0E 38 04 00 0E 42 09 70 40 05 9E 00 |..}?.8...B.p@...|
000014A0: 7B 0E 4C 0E 07 45 0A 44 07 3B 10 07 3A 16 3A 0E |{.L..E.D.;..:.:.|
000014B0: 56 12 07 45 02 01 00 0A 44 07 3B 10 07 3A 16 24 |V..E....D.;..:.$|
000014C0: 3D 0E 60 05 7D 40 0E 6A 04 00 0E 74 09 70 42 5B |=.`.}@.j...t.pB[|
000014D0: 9E 00 7B 0E 7E 07 07 46 43 3A 0E 88 09 07 37 02 |..{.~..FC:....7.|
000014E0: 00 01 3D 0E 92 0D 68 04 37 02 00 08 2C 69 44 9E |..=...h.7...,iD.|
000014F0: 0E 9C 09 07 37 02 00 00 3A 0E A6 07 07 46 44 3A |....7...:....FD:|
00001500: 0E B0 04 6F 0E BA 13 68 04 46 6A 7F 3C 02 00 02 |...o...h.Fj.<...|
00001510: 0D 07 3B 10 07 3A 16 0E C4 05 7D 42 0E CE 04 00 |..;..:....}B....|
00001520: 0E D8 0D E9 44 AA 9E 02 72 47 75 3A 7C 0E E2 0B |....D...rGu:|...|
00001530: E4 02 07 EA E5 04 47 E6 0E EC 08 E7 02 07 E9 E8 |......G.........|
00001540: 0E F6 0A 07 3A 02 00 90 D8 3A 0F 00 1C EF 02 07 |....:....:......|
00001550: E8 D8 F2 00 56 41 4C 55 45 20 4F 46 20 43 48 41 |....VALUE OF CHA|
00001560: 52 41 43 54 45 52 0F 0A 05 EC 44 0F 14 04 00 0F |RACTER....D.....|
00001570: 1E 09 70 1C 23 9F 00 7C 0F 28 10 83 48 DE 9E 02 |..p.#..|.(..H...|
00001580: 07 E8 84 02 07 F7 85 87 0F 32 08 AF 07 2C B0 B3 |.........2...,..|
00001590: 0F 3C 0A E4 05 48 E5 04 2C E6 0F 46 07 8B 48 BC |.<...H..,..F..H.|
000015A0: 9E 0F 50 1F AA AD 00 00 AD 00 A2 AD 00 00 AD 00 |..P.............|
000015B0: 20 AD 00 C6 AD 00 FF AD 00 20 AD 00 CF AB 04 9F | ........ ......|
000015C0: 0F 5A 1F AA AD 00 FF AD 00 8D AD 00 E8 AD 00 07 |.Z..............|
000015D0: AD 00 20 AD 00 CC AD 00 FF AD 00 60 AB 00 00 0F |.. ........`....|
000015E0: 64 05 7D 1C 0F 6E 04 00 0F 78 0F 70 3C 56 9F 03 |d.}..n...x.p<V..|
000015F0: 72 49 72 47 75 3A 7C 0F 82 1B 83 15 0F 00 02 00 |rIrGu:|.........|
00001600: 01 84 04 49 85 88 07 4A 0A 44 07 47 10 07 3A 16 |...I...J.D.G..:.|
00001610: 3A 89 0F 8C 05 7D 3C 0F 96 04 00 0F A0 11 70 3D |:....}<.......p=|
00001620: 97 9F 04 77 4B 72 49 72 47 75 3A 7C 0F AA 08 09 |...wKrIrGu:|....|
00001630: 4B 03 00 3C 0F B4 1F 83 15 0F 00 02 00 01 84 04 |K..<............|
00001640: 49 85 88 0C 4B 08 15 1D 0A 44 07 47 10 07 3A 16 |I...K....D.G..:.|
00001650: 4B 3C 89 0F BE 05 7D 3D 14 10 8C 00 00 10 99 AE |K<....}=........|
00001660: 00 00 12 5B AF 00 00 14 5B 8D 00 00 14 89 94 00 |...[....[.......|
00001670: 00 14 2D 9B 00 00 12 65 B7 00 00 12 39 B7 00 00 |..-....e....9...|
00001680: 92 32 B7 00 00 92 1F B4 00 00 90 0C B1 00 00 90 |.2..............|
00001690: A1 B0 00 00 90 36 B0 00 00 92 CB AF 00 00 12 60 |.....6.........`|
000016A0: AF 00 00 12 48 AF 00 00 12 35 AF 00 00 12 22 AF |....H....5....".|
000016B0: 00 00 12 0A AF 00 00 12 E2 AE 00 00 10 DD AE 00 |................|
000016C0: 00 10 D8 AE 00 00 10 D3 AE 00 00 12 BF AE 00 00 |................|
000016D0: 12 B7 AE 00 00 12 A3 AE 00 00 12 9E AE 00 00 14 |................|
000016E0: B3 9E 00 00 14 89 8D 00 00 14 81 92 00 00 14 15 |................|
000016F0: 95 00 00 10 94 AE 00 00 10 8F AE 00 00 10 8A AE |................|
00001700: 00 00 10 85 AE 00 00 14 8D 93 00 00 10 7B AE 00 |.............{..|
00001710: 00 10 80 AE 00 00 14 F6 98 00 00 00 00 00 00 00 |................|
00001720: 00 00 00 00 00 00 00 00 00 00 14 A7 95 00 00 00 |................|
00001730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001740: 00 00 00 14 C9 98 00 00 00 00 00 00 00 14 2D 9A |..............-.|
00001750: 00 00 00 00 00 00 00 00 00 00 00 00 14 95 9B 00 |................|
00001760: 00 14 F6 9B 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001770: 14 A8 9C 00 00 00 00 00 00 00 00 00 00 00 00 14 |................|
00001780: 2C 9F 00 00 14 5F 9F 00 00 14 DB 9C 00 00 14 2B |,...._.........+|
00001790: 9D 00 00 14 DC 9D 00 00 00 00 00 00 00 14 0E 9E |................|
000017A0: 00 00 00 00 00 00 00 15 64 9E 00 00 00 00 00 00 |........d.......|
000017B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000017C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 |................|
000017D0: 49 4E 49 54 49 41 4C 49 5A 45 27 56 41 52 49 41 |INITIALIZE'VARIA|
000017E0: 42 4C 45 53 01 49 05 52 45 50 4C 59 0F 43 52 45 |BLES.I.REPLY.CRE|
000017F0: 41 54 45 27 44 41 54 41 42 41 53 45 0E 50 55 52 |ATE'DATABASE.PUR|
00001800: 47 45 27 44 41 54 41 42 41 53 45 0B 44 49 52 27 |GE'DATABASE.DIR'|
00001810: 4C 49 53 54 49 4E 47 01 41 05 53 50 41 43 45 06 |LISTING.A.SPACE.|
00001820: 50 52 4F 4D 50 54 05 46 49 45 4C 44 06 4C 45 4E |PROMPT.FIELD.LEN|
00001830: 47 54 48 02 53 50 02 45 50 04 54 59 50 45 06 41 |GTH.SP.EP.TYPE.A|
00001840: 4E 53 57 45 52 08 46 49 4C 45 4E 41 4D 45 09 44 |NSWER.FILENAME.D|
00001850: 49 43 54 27 4E 41 4D 45 09 44 41 54 41 27 4E 41 |ICT'NAME.DATA'NA|
00001860: 4D 45 0C 44 49 53 4B 27 43 4F 4D 4D 41 4E 44 06 |ME.DISK'COMMAND.|
00001870: 53 54 52 49 4E 47 01 58 04 4C 45 4E 54 0D 42 55 |STRING.X.LENT.BU|
00001880: 46 46 45 52 27 4C 45 4E 47 54 48 09 44 49 53 4B |FFER'LENGTH.DISK|
00001890: 27 4E 41 4D 45 07 44 49 53 4B 27 49 44 09 54 48 |'NAME.DISK'ID.TH|
000018A0: 49 53 27 46 49 4C 45 04 54 45 58 54 0D 44 49 53 |IS'FILE.TEXT.DIS|
000018B0: 4B 27 47 45 54 27 49 4E 49 54 0B 45 4E 54 45 52 |K'GET'INIT.ENTER|
000018C0: 27 46 49 45 4C 44 0A 50 52 49 4E 54 27 46 49 4C |'FIELD.PRINT'FIL|
000018D0: 45 06 41 43 43 45 50 54 0D 4E 42 52 27 4F 46 27 |E.ACCEPT.NBR'OF'|
000018E0: 46 49 45 4C 44 53 0E 48 49 47 48 45 53 54 27 52 |FIELDS.HIGHEST'R|
000018F0: 45 43 4F 52 44 0A 53 4F 52 54 27 46 49 45 4C 44 |ECORD.SORT'FIELD|
00001900: 12 4C 41 53 54 27 52 45 43 4F 52 44 27 53 4F 52 |.LAST'RECORD'SOR|
00001910: 54 45 44 09 53 41 56 45 27 44 49 43 54 06 41 4D |TED.SAVE'DICT.AM|
00001920: 4F 55 4E 54 03 46 4C 44 0F 56 45 52 49 46 59 27 |OUNT.FLD.VERIFY'|
00001930: 44 41 54 41 42 41 53 45 05 56 41 4C 49 44 03 4D |DATABASE.VALID.M|
00001940: 41 58 01 5A 05 46 45 54 43 48 01 56 01 42 04 44 |AX.Z.FETCH.V.B.D|
00001950: 4F 4E 45 03 4E 55 4D 09 47 45 54 27 56 41 4C 49 |ONE.NUM.GET'VALI|
00001960: 44 01 43 09 4C 4F 41 44 27 44 49 43 54 06 52 45 |D.C.LOAD'DICT.RE|
00001970: 43 4F 52 44 09 55 50 50 45 52 43 41 53 45 08 52 |CORD.UPPERCASE.R|
00001980: 45 41 44 27 44 49 52 0F 52 45 41 44 27 44 49 52 |EAD'DIR.READ'DIR|
00001990: 27 48 45 41 44 45 52 0B 42 4C 4F 43 4B 27 43 4F |'HEADER.BLOCK'CO|
000019A0: 55 4E 54 0B 42 4C 4F 43 4B 53 27 46 52 45 45 09 |UNT.BLOCKS'FREE.|
000019B0: 4E 45 58 54 27 46 49 4C 45 08 46 49 4C 45 27 45 |NEXT'FILE.FILE'E|
000019C0: 4E 44 0B 4D 41 53 54 45 52 27 46 49 4C 45 0D 44 |ND.MASTER'FILE.D|
000019D0: 49 53 4B 27 47 45 54 27 53 4B 49 50 0F 44 49 53 |ISK'GET'SKIP.DIS|
000019E0: 4B 27 47 45 54 27 53 54 52 49 4E 47 08 47 45 54 |K'GET'STRING.GET|
000019F0: 27 54 59 50 45 08 47 45 54 27 4E 41 4D 45 0A 47 |'TYPE.GET'NAME.G|
00001A00: 45 54 27 42 4C 4F 43 4B 53 0A 46 49 4C 45 27 43 |ET'BLOCKS.FILE'C|
00001A10: 4F 55 4E 54 0F 43 48 45 43 4B 27 44 49 52 27 43 |OUNT.CHECK'DIR'C|
00001A20: 59 43 4C 45 09 54 48 49 53 27 54 59 50 45 08 44 |YCLE.THIS'TYPE.D|
00001A30: 49 53 4B 27 47 45 54 06 42 4C 4F 43 4B 53 0A 42 |ISK'GET.BLOCKS.B|
00001A40: 4C 4F 43 4B 27 46 4C 41 47 08 46 49 4C 45 27 4E |LOCK'FLAG.FILE'N|
00001A50: 55 4D 03 4C 4F 43 05 43 4F 55 4E 54 01 59 04 49 |UM.LOC.COUNT.Y.I|
00001A60: 54 45 4D 00 00 |TEM.. |
R.I.^..... DELETE "0:DATA'BASE'MGR"..$.
BY R.SHINGLEDECKER & S.SMULLEN.... SAVE
"0:DATA'BASE'MGR".(...2....<...F._..
.KE`A.P,_.# DATA BASE MANAGER - COMAL
V0.14E`A.Z._`A.D._...CG..BY:E`A.N._`A.X
0_.' ROBERT SHINGLEDECKER AND STEVE SMUL
LENE`A................_`A...$_...CG..F1
- CREATE A DATABASEE`A..!_...CG..F3 - US
E A DATABASEE`A. #_...CG..F5 - PURGE A D
ATABASEE`A..!_...CG..F7 - LIST DATABASES
E`A..._...CG..F8 - END PROGRAME`A.......
........._`A..H._...CG..YOUR DECISION ?E
`A.R........<...Z.........6.(...._...KEF
..PLEASE WAIT...E`A.......J............}
....................".R..0:DBASE14TS.,.
...........6....@.........A..J....T...
.........^)_...KEF..BYE FROM THE DATA BA
SE MGRE`A.H...R.Z.....-....|. .......P.R
..{.........(.E.........(.E.............
#.E.............#.E.B.........E.L.......
..E.V.........E...............E.........
..E...........E...........E...........E.
..........E...........E.&.......$.E.00..
.(
<.:......:.D......:.N......:.X........
.........E.B.................E.L....V.}
........P....{........:.....:B........
.....}......F.P.X..{.P......:.Z......:..
................._...KE`A..._...CF..CREA
TE A DATABASEE`A. ._`A.* _..RECORD SPACE
AVAILABLE:EFA.4._..###B.....)VW`A.>._`A
.H%_..ENTER NAME OF FIELDEG..DF..:E`A.R.
... ...B.........#..\._`A.F._.%BASED ON
FIELD NAME THE MAXIMUM FIELDE`A.P!_..SI
ZE CAN BE EF..$.....Q)D`A.Z._`A..!_..ENT
ER SIZE OF FIELD:EG..DGA..............._
`A...H.....Q.....'..$0I....._`A..L_.CFIE
LD NAME AND FIELD SIZE TOGETHER MUST BE
LESS THAN ONE LINE LONG.E`A..._`A.J._..P
LEASE RE-ENTERE`A.T._`A..$_..PRESS SPACE
BAR TO CONTINUE.E`A..........<...Z.... -
......O...Z.....Q.....'..%*.....#_..ENTE
R FIELD TYPE (A,N,B) ?E`A.$#_.. A-ALPHA
N-NUMERIC B-BOTHE`A.....8....<.B.Z....A
NBANB6....L........<.V._`A.`)_.....EF..:
EF..[EF............EF..]E`A.J._`A.T._..I
S THIS CORRECT ? E`A.~........<...Z....Y
YNN6......Z....YY6...............':.....
...=...H.....,I...D.....E<.N.NS..X._`A..
._..E-END RECORDE`A..._..C-CONTINUE RECO
RDE`A..._`A..._..YOUR CHOICE ? E`A......
....<...Z....EECC6.8..(.O.2.Z....EE6....
<.H.....0I...F>_.5TOO MANY CHARACTERS FO
R RECORD PLEASE RE-INPUT RECORDE`A.P....
..:.Z.O.D.Z.....*.....08....N...X._...KE
`A..._...CF..CREATE A DATABASEE`A..._`A.
.._`A. ,_.#10 CHARACTERS MAXIMUM FOR FIL
E NAMEE`A..._`A..%...ENTER FILE NAME ?
...B...........Z..Q...*..Q...08.Q..H.}..
R.....P....{.... .....):....!...:...."..
.:....#...:...$...._`A."...,(_..APPROXI
MATE RECORDS TO BE USED:EGA.6...%....@%H
.%...0J_..TOO MANY - RE-INPUT!E`A.J.Z.%.
..*....T..........'DATA(......'..^...^..
....%...H._...H..IK.. KEFA.R...>..|._...
H.....'IK...KE`A...O...P...}........P$..
.{............'DICT(....._...HK.!D`A.B._
...HK..D`A.L._...HK."D`A.V._...HK.#D`A..
..&Q...... ....._...HK...&.E`A..._...HK.
..&.D`A..._...HK...&.E`A......&......':.
.....&....&...':........&.=.&._...HK...&
.D`A.0._...HK...&.D`A.:..&...D.O...P.N.}
$.X...B.P....{.L.'..V.H....END3I.......
....'DICT(<.......S0:..(<.....~.........
'DATA(<.......S0:..(<.....~..._..EG.. DE
LETED ...E`A.F.O.P.}..Z.....P....T.T(W.R
)|....*E:......F..._..EGA..._..[.EFA....
........).._.. EFA.. ._..]EFA.*.........
.)...'.._...EFA..4.+....(..)..>._`A.H..
*F.R.}..\...F.P+...W.T,R)|.P...(...P..-.
.....E.Z..*E:......F.......<.....,......
.G...A..7...A.(.9ABCDEFGHIJKLMNOPQRSTUVW
XYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ,.' <....G
...N..W.....(..-0123456789<.J..G...B....
.TI.(.AABCDEFGHIJKLMNOPQRSTUVWXYZ 012345
6789ABCDEFGHIJKLMNOPQRSTUVWXYZ,.<....(.(
..'(<....G.....(.,<.........D:./...:B...
....0.-..(...K(...K(..$...-............
K..!.. CARRIAGE RETURN.8...C:.B.......K.
.... DELETE KEY.L,H./I... ONLY DO IF ALR
EADY HAVE SOMETHING.V+./...@. SUBTRACT 1
FROM NUMBER IN STRING.`.H./.)...),I...J
._.....EFA.T.N...~4_.. ....EFA. ERASE CH
ARACTER FROM SCREEN...O..%.....
..../.<. ADJUST ACTUAL STRING...O.......
..H./.)*I....%.....-(<. ADD VALID CHAR T
O STRING.D../...=. ADJUST STRING COUNT.N
+_.-EG.....EFA. PRINT THE VALID CHARACTE
R.X.H./.),J_..].EFA...O.......Z...Y.....
*F...}+.... -...P0...W1T(|.(...2..1.<.<.
Z.1.(6.V..F.}0.P...Z.P'$..{.D...N'...EN
TER DATABASE NAME:...B.........X........
..'DICT(........<...Z............00-....
END-9......O...P. .H....END3I ....2....
.........'DATA(......'.......<.H.O...P.R
.H............003I....A_.8RANDOM FILE NO
T FOUND. DO CREATE A DATABASE IN MAIN ME
NUE`A..............................O...O
...}'."...,.P2$..{.6......:.@..........'
DICT(...J.....HKL.!...T.....HKL.....^...
..HKL."...H.....HKL.#...R.....]7....|...
.....':.......HKL..............HKL......
........HKL..............HKL............
..HKL..............B.O...P.L.. ..:.V...3
....E.....4....E...}2.......P....{.....I
0~...5...._`A.&)_. END OF LISTING... PR
ESS ANY KEY!E`A.0...:....<.D.Z.....K3.S.
.N.}..X...B.P5...{.L.6..V..7...:. FOR 8
BLOCK CYCLE....8...:.1541 BLOCKS.......
9....Z.:.U....OQ...}5.....F.P6...{.P..;
...:.Z..:D:.....;...$0.....<.....;..:..
..=........;..:....<.....;..:....=...
.....;..:...._...KE`A. !_..DATA BASES ON
DISK: EF..E`A.*._`A.4.<..\..;..:..>.}6
.H...R.P9R..{.\.>..F.?..P.@..Z..A...=
...B....}9.......P>"..{....C.D.;..:.:..
.<.....;..:...!H.C...*.C...09J.C...:.FI
X TYPE.J.}>.T.....P?S..{...=........;..
:...-.NEXT CONVERT SHIFT SPACES TO NORMA
L SPACE.............Q.....H.....I.. ,J..
..... K<.....S....<.....;..:..$!H..'DAT
A..6J_........Q...).E`A...}?.8...B.P@...
{.L..E.D.;..:.:.V..E....D.;..:.$=.`.}@.J
...T.PB[..{.~..FC:....7...=...H.7...,ID.
....7...:....FD:...O...H.FJ<.....;..:..
D.}B.N...X..D...RGU:|.........G.........
....:...X:.......X..VALUE OF CHARACTER..
..D.......P.#..|.(..H............2...,..
.<...H..,..F..H...P............. ..F....
. ..O....Z................ ..L.....`....
D.}..N...X.P<V..RIRGU:|............I...J
.D.G..:.:....}<..... .P=...WKRIRGU:|....
K..<............I...K....D.G..:.K<....}=
...........[....[.........-....E....9...
.2...................6....K....`....H...
.5...."...................X....S........
........................................
.....................{..................
....................................I...
......-.................................
................,...._.........+........
................D.......................
................INITIALIZE'VARIABLES.I.R
EPLY.CREATE'DATABASE.PURGE'DATABASE.DIR'
LISTING.A.SPACE.PROMPT.FIELD.LENGTH.SP.E
P.TYPE.ANSWER.FILENAME.DICT'NAME.DATA'NA
ME.DISK'COMMAND.STRING.X.LENT.BUFFER'LEN
GTH.DISK'NAME.DISK'ID.THIS'FILE.TEXT.DIS
K'GET'INIT.ENTER'FIELD.PRINT'FILE.ACCEPT
.NBR'OF'FIELDS.HIGHEST'RECORD.SORT'FIELD
.LAST'RECORD'SORTED.SAVE'DICT.AMOUNT.FLD
.VERIFY'DATABASE.VALID.MAX.Z.FETCH.V.B.D
ONE.NUM.GET'VALID.C.LOAD'DICT.RECORD.UPP
ERCASE.READ'DIR.READ'DIR'HEADER.BLOCK'CO
UNT.BLOCKS'FREE.NEXT'FILE.FILE'END.MASTE
R'FILE.DISK'GET'SKIP.DISK'GET'STRING.GET
'TYPE.GET'NAME.GET'BLOCKS.FILE'COUNT.CHE
CK'DIR'CYCLE.THIS'TYPE.DISK'GET.BLOCKS.B
LOCK'FLAG.FILE'NUM.LOC.COUNT.Y.ITEM..
> CLICK IMAGE PREVIEW FOR FULL MODAL