DBASE 128 V1.OPT
FILE INFORMATION
FILENAME(S): DBASE 128 V1.OPT
FILE TYPE(S): PRG
FILE SIZE: 17.7K
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 3 disk(s)
FILE HASH
b5950b525b5dceb9c9e734d03d9e4e096a8ca14dfe859c60501f973ef9994cad
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMM DISK USER 8 | DBASE 128 V1.OPT | PRG | UK CD | 11 | 16 | DOWNLOAD FILE |
| COMM DISK USER 8 | DBASE 128 V1.OPT | PRG | DuncanTwain | 11 | 16 | DOWNLOAD FILE |
| COMM DISK USER 8 | DBASE 128 V1.OPT | PRG | DuncanTwain | 11 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 77 40 0C 00 50 44 B2 C2 28 31 32 32 39 31 |.@w@..PD..(12291|
00000010: 29 3A E7 30 2C 31 3A E7 34 2C 31 3A 99 22 93 22 |):.0,1:.4,1:."."|
00000020: 3B 3A D7 32 36 37 30 3A 8B C2 28 31 32 32 39 30 |;:.2670:..(12290|
00000030: 29 B2 31 A7 50 43 B2 C2 28 31 32 32 38 38 29 3A |).1.PC..(12288):|
00000040: 50 57 B2 C2 28 31 32 32 38 39 29 3A 9F 32 2C 36 |PW..(12289):.2,6|
00000050: 2C 32 3A 98 32 2C C2 28 31 32 32 38 38 29 3A A0 |,2:.2,.(12288):.|
00000060: 32 3A 9F 33 2C 36 2C 33 3A 98 33 2C C2 28 31 32 |2:.3,6,3:.3,.(12|
00000070: 32 38 39 29 3A A0 33 00 B6 40 14 00 E7 30 2C 31 |289):.3..@...0,1|
00000080: 3A E7 34 2C 31 3A 99 22 13 13 13 13 05 93 22 3B |:.4,1:."......";|
00000090: 3A 97 32 36 30 34 2C 32 34 3A 8B C2 28 32 31 35 |:.2604,24:..(215|
000000A0: 29 B2 31 32 38 A7 FE 1A 32 30 2C 30 2C 35 39 2C |).128...20,0,59,|
000000B0: 33 2C 31 3A FE 25 00 17 41 1E 00 99 C7 28 31 34 |3,1:.%..A....(14|
000000C0: 32 29 3B 22 44 42 41 53 45 20 31 32 38 2E 20 20 |2);"DBASE 128. |
000000D0: 56 31 2E 31 20 20 20 20 20 20 9B 28 43 29 31 39 |V1.1 .(C)19|
000000E0: 38 39 20 52 2E 43 4C 45 4D 45 4E 54 53 9C B7 B7 |89 R.CLEMENTS...|
000000F0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000100: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000110: B7 B7 B7 B7 B7 B7 22 00 04 42 23 00 57 4C B2 33 |......"..B#.WL.3|
00000120: 3A 57 52 B2 33 36 3A 57 54 B2 33 3A 57 42 B2 31 |:WR.36:WT.3:WB.1|
00000130: 39 3A 57 43 B2 31 36 3A 57 48 24 B2 22 20 9A 20 |9:WC.16:WH$." . |
00000140: 20 20 2D 2D 2B 2D 2D 20 4D 41 49 4E 20 2D 2D 20 | --+-- MAIN -- |
00000150: 4D 45 4E 55 20 2D 2D 2B 2D 2D 9B 22 3A 8D 32 35 |MENU --+--.":.25|
00000160: 38 35 3A D7 32 36 37 30 3A 99 22 11 05 20 31 98 |85:.2670:.".. 1.|
00000170: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 99 53 45 54 2D |............SET-|
00000180: 55 50 20 41 20 4E 45 57 20 44 42 41 53 45 22 3A |UP A NEW DBASE":|
00000190: 99 22 11 05 20 32 98 2E 2E 2E 2E 2E 2E 2E 2E 2E |.".. 2..........|
000001A0: 2E 2E 99 4C 4F 41 44 20 41 20 53 41 56 45 44 20 |...LOAD A SAVED |
000001B0: 44 42 41 53 45 22 3A 99 22 11 05 20 33 98 2E 2E |DBASE":.".. 3...|
000001C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 99 44 42 41 |.............DBA|
000001D0: 53 45 20 55 54 49 4C 49 54 49 45 53 22 3A 99 22 |SE UTILITIES":."|
000001E0: 11 05 20 34 98 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |.. 4............|
000001F0: 2E 2E 2E 2E 99 45 58 49 54 20 44 42 41 53 45 20 |.....EXIT DBASE |
00000200: 31 32 38 22 00 56 42 41 00 99 22 11 05 20 35 98 |128".VBA..".. 5.|
00000210: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000220: 2E 2E 2E 2E 2E 2E 2E 2E 2E 99 48 45 4C 50 22 3A |..........HELP":|
00000230: 99 22 11 05 20 36 98 2E 2E 2E 2E 2E 2E 2E 2E 99 |.".. 6..........|
00000240: 47 45 4E 45 52 41 4C 20 43 4F 4E 46 49 47 55 52 |GENERAL CONFIGUR|
00000250: 41 54 49 4F 4E 22 00 9F 42 46 00 A1 F9 41 24 3A |ATION"..BF...A$:|
00000260: 8B 41 24 B2 22 5F 22 AF C2 28 32 31 35 29 B2 31 |.A$."_"..(215).1|
00000270: 32 38 A7 FE 1A 30 2C 32 2C 37 39 2C 32 34 2C 31 |28...0,2,79,24,1|
00000280: 3A 8A 33 35 3A D5 8B 41 24 B2 22 5F 22 A7 FE 1A |:.35:..A$."_"...|
00000290: 30 2C 32 2C 33 39 2C 32 34 2C 31 3A 8A 33 35 00 |0,2,39,24,1:.35.|
000002A0: CE 42 50 00 91 C5 28 41 24 29 89 31 30 30 2C 32 |.BP...(A$).100,2|
000002B0: 33 30 2C 33 33 35 2C 39 35 3A 8B 41 24 B2 22 35 |30,335,95:.A$."5|
000002C0: 22 A7 46 46 24 B2 22 30 22 3A 89 37 31 35 00 DF |".FF$."0":.715..|
000002D0: 42 51 00 8B 41 24 B2 22 36 22 A7 32 38 30 30 00 |BQ..A$."6".2800.|
000002E0: F8 42 55 00 8B 41 24 B2 22 48 22 A7 46 46 24 B2 |.BU..A$."H".FF$.|
000002F0: 22 31 22 3A 89 37 31 35 00 00 43 5A 00 89 37 30 |"1":.715..CZ..70|
00000300: 00 26 43 5F 00 99 22 13 13 13 13 93 05 42 41 53 |.&C_.."......BAS|
00000310: 49 43 2E 22 3B C7 28 31 34 32 29 3A 97 32 36 30 |IC.";.(142):.260|
00000320: 34 2C 32 30 3A 80 00 FE 43 64 00 57 4C B2 36 3A |4,20:...Cd.WL.6:|
00000330: 57 52 B2 33 34 3A 57 54 B2 36 3A 57 42 B2 31 38 |WR.34:WT.6:WB.18|
00000340: 3A 57 43 B2 31 34 3A 57 48 24 B2 22 20 9A 20 20 |:WC.14:WH$." . |
00000350: 20 53 45 54 2D 55 50 20 41 20 4E 45 57 20 44 42 | SET-UP A NEW DB|
00000360: 41 53 45 99 22 3A 8D 32 35 38 35 3A 86 58 24 28 |ASE.":.2585:.X$(|
00000370: 32 30 29 3A 99 22 9B 45 4E 54 45 52 20 4E 41 4D |20):.".ENTER NAM|
00000380: 45 20 4F 46 20 44 42 41 53 45 20 54 4F 20 20 20 |E OF DBASE TO |
00000390: 20 20 43 52 45 41 54 45 2E 11 22 3A 8D 32 36 36 | CREATE..":.266|
000003A0: 35 3A 44 42 24 B2 5A 24 3A 99 22 93 9E 45 4E 54 |5:DB$.Z$:."..ENT|
000003B0: 45 52 20 46 49 45 4C 44 20 4E 41 4D 45 2E 20 52 |ER FIELD NAME. R|
000003C0: 45 54 55 52 4E 20 20 20 54 4F 20 45 4E 44 20 45 |ETURN TO END E|
000003D0: 4E 54 52 49 45 53 2E 11 22 3A 81 54 B2 31 A4 32 |NTRIES..":.T.1.2|
000003E0: 30 3A 8D 32 36 36 35 3A 8B 5A 24 B2 22 22 A7 44 |0:.2665:.Z$."".D|
000003F0: 46 24 B2 C4 28 54 AB 31 29 3A 89 31 35 35 00 46 |F$..(T.1):.155.F|
00000400: 44 91 00 58 24 28 54 29 B2 5A 24 3A 82 54 3A 99 |D..X$(T).Z$:.T:.|
00000410: 22 11 9F 4D 41 58 20 46 49 45 4C 44 20 49 53 20 |"..MAX FIELD IS |
00000420: 32 30 2E 20 50 52 45 53 53 22 3A 99 22 52 45 54 |20. PRESS":."RET|
00000430: 55 52 4E 2E 22 3A 8D 32 36 36 35 3A 44 46 24 B2 |URN.":.2665:DF$.|
00000440: C4 28 54 AB 31 29 00 13 45 9B 00 57 4C B2 31 3A |.(T.1)..E..WL.1:|
00000450: 57 52 B2 33 38 3A 57 54 B2 39 3A 57 42 B2 31 36 |WR.38:WT.9:WB.16|
00000460: 3A 57 43 B2 38 3A 57 48 24 B2 22 20 9F 20 20 20 |:WC.8:WH$." . |
00000470: 20 20 20 20 20 20 20 20 44 42 41 53 45 20 49 4E | DBASE IN|
00000480: 46 4F 9E 22 3A 8D 32 35 38 35 3A 99 22 99 4E 41 |FO.":.2585:.".NA|
00000490: 4D 45 20 20 20 20 20 20 20 20 3A 20 05 22 3B 44 |ME : .";D|
000004A0: 42 24 3A 99 22 11 99 54 4F 54 41 4C 20 46 49 45 |B$:."..TOTAL FIE|
000004B0: 4C 44 53 3A 05 22 3B 44 46 24 3A 57 4C B2 31 3A |LDS:.";DF$:WL.1:|
000004C0: 57 52 B2 33 38 3A 57 54 B2 32 31 3A 57 42 B2 32 |WR.38:WT.21:WB.2|
000004D0: 33 3A 57 43 B2 38 3A 57 48 24 B2 22 22 3A 8D 32 |3:WC.8:WH$."":.2|
000004E0: 35 38 35 3A 99 22 05 4F 4B 20 54 4F 20 43 52 45 |585:.".OK TO CRE|
000004F0: 41 54 45 20 44 42 41 53 45 3F 20 28 59 2F 4E 29 |ATE DBASE? (Y/N)|
00000500: 2E 22 3B 3A A1 F9 41 24 3A 8B 41 24 B3 B1 22 59 |.";:..A$:.A$.."Y|
00000510: 22 A7 8A 00 0E 46 B9 00 99 22 93 05 20 20 20 20 |"....F...".. |
00000520: 2A 2A 2A 2A 20 43 52 45 41 54 49 4E 47 20 44 41 |**** CREATING DA|
00000530: 54 41 20 42 41 53 45 20 2A 2A 2A 2A 22 3B 3A 9F |TA BASE ****";:.|
00000540: 38 2C 50 44 2C 38 2C 28 22 40 30 3A 22 AA C8 28 |8,PD,8,("@0:"..(|
00000550: 44 42 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 |DB$." |
00000560: 20 22 2C 31 32 29 AA 22 2E 44 42 43 2C 55 2C 57 | ",12).".DBC,U,W|
00000570: 22 29 3A 98 38 2C 44 42 24 3A 98 38 2C 44 46 24 |"):.8,DB$:.8,DF$|
00000580: 3A 81 54 B2 31 A4 C5 28 44 46 24 29 3A 98 38 2C |:.T.1..(DF$):.8,|
00000590: 58 24 28 54 29 3A 82 54 3A A0 38 3A 9F 38 2C 50 |X$(T):.T:.8:.8,P|
000005A0: 44 2C 38 2C 28 22 40 30 3A 22 AA C8 28 44 42 24 |D,8,("@0:"..(DB$|
000005B0: AA 22 20 20 20 20 20 20 20 20 20 20 20 22 2C 31 |." ",1|
000005C0: 32 29 AA 22 2E 44 42 4E 2C 55 2C 57 22 29 3A 98 |2).".DBN,U,W"):.|
000005D0: 38 2C 30 3A A0 38 3A 9F 38 2C 50 44 2C 38 2C 28 |8,0:.8:.8,PD,8,(|
000005E0: 22 40 30 3A 22 AA C8 28 44 42 24 AA 22 20 20 20 |"@0:"..(DB$." |
000005F0: 20 20 20 20 20 20 20 20 22 2C 31 32 29 AA 22 2E | ",12).".|
00000600: 44 42 46 2C 55 2C 57 22 29 3A A0 38 3A 8A 00 98 |DBF,U,W"):.8:...|
00000610: 46 E6 00 57 4C B2 31 31 3A 57 52 B2 33 37 3A 57 |F..WL.11:WR.37:W|
00000620: 54 B2 39 3A 57 42 B2 31 36 3A 57 43 B2 31 34 3A |T.9:WB.16:WC.14:|
00000630: 57 48 24 B2 22 20 9A 4C 4F 41 44 20 41 20 44 42 |WH$." .LOAD A DB|
00000640: 41 53 45 99 22 3A 8D 32 35 38 35 3A 8B 50 44 B2 |ASE.":.2585:.PD.|
00000650: B3 37 A7 99 22 05 44 52 49 56 45 20 4E 4F 54 20 |.7..".DRIVE NOT |
00000660: 53 45 54 2E 20 20 41 4C 57 41 59 53 22 3A 99 22 |SET. ALWAYS":."|
00000670: 4C 4F 41 44 20 44 42 41 53 45 20 56 49 41 20 54 |LOAD DBASE VIA T|
00000680: 48 45 22 3A 99 22 4C 4F 41 44 45 52 21 22 3A FE |HE":."LOADER!":.|
00000690: 0B 33 3A 89 32 38 30 30 00 D2 46 EB 00 D7 32 36 |.3:.2800..F...26|
000006A0: 37 30 3A 99 22 9E 45 4E 54 45 52 20 44 42 41 53 |70:.".ENTER DBAS|
000006B0: 45 20 46 49 4C 45 4E 41 4D 45 2E 11 22 3A 8D 32 |E FILENAME..":.2|
000006C0: 36 36 35 3A 8B D4 28 5A 24 2C 22 2A 22 29 B1 30 |665:..(Z$,"*").0|
000006D0: A7 8A 00 55 47 FF 00 44 42 24 B2 5A 24 3A 99 22 |...UG..DB$.Z$:."|
000006E0: 05 93 53 45 41 52 43 48 49 4E 47 20 46 4F 52 20 |..SEARCHING FOR |
000006F0: 44 42 41 53 45 22 3A 99 22 46 49 4C 45 53 2E 2E |DBASE":."FILES..|
00000700: 2E 22 3A 9F 38 2C 50 44 2C 38 2C 28 22 30 3A 22 |.":.8,PD,8,("0:"|
00000710: AA C8 28 44 42 24 AA 22 20 20 20 20 20 20 20 20 |..(DB$." |
00000720: 20 20 20 22 2C 31 32 29 AA 22 2E 44 42 4E 22 29 | ",12).".DBN")|
00000730: 3A 84 38 2C 44 52 3A 9F 31 2C 38 2C 31 35 3A 84 |:.8,DR:.1,8,15:.|
00000740: 31 2C 44 52 3A A0 31 3A 8B 44 52 B2 30 A7 A0 38 |1,DR:.1:.DR.0..8|
00000750: 3A 89 32 39 35 00 9C 47 1D 01 A0 38 3A 99 22 05 |:.295..G...8:.".|
00000760: 93 46 49 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 20 |.FILE NOT FOUND |
00000770: 4F 52 22 3A 99 22 44 49 53 4B 20 45 52 52 4F 52 |OR":."DISK ERROR|
00000780: 2E 22 3A 99 22 98 50 52 45 53 53 20 52 45 54 55 |.":.".PRESS RETU|
00000790: 52 4E 2E 22 3B 3A A1 F9 41 24 3A 8A 00 75 48 27 |RN.";:..A$:..uH'|
000007A0: 01 99 22 05 93 11 20 20 20 20 20 4C 4F 41 44 49 |.."... LOADI|
000007B0: 4E 47 2E 2E 2E 22 3A 86 44 57 24 28 32 30 29 2C |NG...":.DW$(20),|
000007C0: 44 45 24 28 32 30 2C 34 29 3A 9F 38 2C 50 44 2C |DE$(20,4):.8,PD,|
000007D0: 38 2C 28 22 30 3A 22 AA C8 28 44 42 24 AA 22 20 |8,("0:"..(DB$." |
000007E0: 20 20 20 20 20 20 20 20 20 20 22 2C 31 32 29 AA | ",12).|
000007F0: 22 2E 44 42 43 22 29 3A 84 38 2C 44 4E 24 3A 84 |".DBC"):.8,DN$:.|
00000800: 38 2C 44 46 24 3A 46 49 24 B2 C8 28 44 42 24 AA |8,DF$:FI$..(DB$.|
00000810: 22 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 31 |" ",1|
00000820: 32 29 3A 81 54 B2 31 A4 C5 28 44 46 24 29 3A 84 |2):.T.1..(DF$):.|
00000830: 38 2C 44 57 24 28 54 29 3A 82 54 3A A0 38 3A 9F |8,DW$(T):.T:.8:.|
00000840: 38 2C 50 44 2C 38 2C 28 22 30 3A 22 AA C8 28 44 |8,PD,8,("0:"..(D|
00000850: 42 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 22 |B$." "|
00000860: 2C 31 32 29 AA 22 2E 44 42 4E 22 29 3A 84 38 2C |,12).".DBN"):.8,|
00000870: 44 52 3A A0 38 00 D4 48 45 01 8B 44 52 B2 30 A7 |DR:.8..HE..DR.0.|
00000880: 57 4C B2 30 3A 57 52 B2 31 35 3A 57 54 B2 31 39 |WL.0:WR.15:WT.19|
00000890: 3A 57 42 B2 32 34 3A 57 43 B2 33 3A 57 48 24 B2 |:WB.24:WC.3:WH$.|
000008A0: 22 9E 20 20 20 57 41 52 4E 49 4E 47 21 1C 22 3A |". WARNING!.":|
000008B0: 8D 32 35 38 35 3A 99 22 96 54 48 49 53 20 44 42 |.2585:.".THIS DB|
000008C0: 41 53 45 20 48 41 53 4E 4F 20 52 45 43 4F 52 44 |ASE HASNO RECORD|
000008D0: 53 2E 22 3B 00 DD 48 4A 01 89 38 31 30 00 7C 49 |S.";..HJ..810.|I|
000008E0: 4F 01 57 4C B2 35 3A 57 52 B2 33 34 3A 57 54 B2 |O.WL.5:WR.34:WT.|
000008F0: 31 31 3A 57 42 B2 32 30 3A 57 43 B2 38 3A 57 48 |11:WB.20:WC.8:WH|
00000900: 24 B2 22 9A 20 44 42 41 53 45 20 31 32 38 20 55 |$.". DBASE 128 U|
00000910: 54 49 4C 49 54 49 45 53 9E 22 3A 8D 32 35 38 35 |TILITIES.":.2585|
00000920: 3A 50 44 B2 C2 28 31 32 32 39 31 29 3A 8B C2 28 |:PD..(12291):..(|
00000930: 31 32 32 39 30 29 B2 31 A7 50 43 B2 C2 28 31 32 |12290).1.PC..(12|
00000940: 32 38 38 29 3A 50 57 B2 C2 28 31 32 32 38 39 29 |288):PW..(12289)|
00000950: 3A 9F 32 2C 36 2C 32 3A 98 32 2C C2 28 31 32 32 |:.2,6,2:.2,.(122|
00000960: 38 38 29 3A A0 32 3A 9F 33 2C 36 2C 33 3A 98 33 |88):.2:.3,6,3:.3|
00000970: 2C C2 28 31 32 32 38 39 29 3A A0 33 00 53 4A 54 |,.(12289):.3.SJT|
00000980: 01 D7 32 36 37 30 3A 99 22 05 20 31 97 2E 2E 2E |..2670:.". 1....|
00000990: 2E 2E 2E 2E 2E 99 43 48 41 4E 47 45 20 44 42 41 |......CHANGE DBA|
000009A0: 53 45 20 4E 41 4D 45 22 3A 99 22 05 20 32 97 2E |SE NAME":.". 2..|
000009B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 99 42 41 43 4B 2D 55 |..........BACK-U|
000009C0: 50 20 41 20 44 42 41 53 45 22 3A 99 22 05 20 33 |P A DBASE":.". 3|
000009D0: 97 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 99 |................|
000009E0: 41 44 44 20 41 20 46 49 45 4C 44 22 3A 99 22 05 |ADD A FIELD":.".|
000009F0: 20 34 97 2E 2E 2E 2E 2E 99 53 45 45 20 41 20 44 | 4.......SEE A D|
00000A00: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 3A 99 |ISK DIRECTORY":.|
00000A10: 22 05 20 35 97 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |". 5............|
00000A20: 99 44 45 4C 45 54 45 20 41 20 44 42 41 53 45 22 |.DELETE A DBASE"|
00000A30: 3A 99 22 05 20 36 97 2E 2E 2E 2E 2E 2E 2E 2E 2E |:.". 6..........|
00000A40: 2E 2E 9B 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E |...RETURN TO MEN|
00000A50: 55 22 3B 00 7A 4A 77 01 A1 F9 41 24 3A 91 C5 28 |U";.zJw...A$:..(|
00000A60: 41 24 29 89 36 35 35 2C 34 35 30 2C 35 32 30 2C |A$).655,450,520,|
00000A70: 37 38 30 2C 34 30 30 2C 33 35 00 C0 4A 81 01 8B |780,400,35..J...|
00000A80: 41 24 B2 22 5F 22 AF C2 28 32 31 35 29 B2 31 32 |A$."_"..(215).12|
00000A90: 38 A7 FE 1A 30 2C 32 2C 37 39 2C 32 34 2C 31 3A |8...0,2,79,24,1:|
00000AA0: 8A 33 33 35 3A D5 8B 41 24 B2 22 5F 22 A7 FE 1A |.335:..A$."_"...|
00000AB0: 30 2C 32 2C 33 39 2C 32 34 2C 31 3A 8A 33 33 35 |0,2,39,24,1:.335|
00000AC0: 00 D9 4A 86 01 8B 41 24 B2 22 48 22 A7 46 46 24 |..J...A$."H".FF$|
00000AD0: B2 22 32 22 3A 89 37 31 35 00 E2 4A 8B 01 89 33 |."2":.715..J...3|
00000AE0: 37 35 00 A5 4B 90 01 57 4C B2 31 3A 57 52 B2 33 |75..K..WL.1:WR.3|
00000AF0: 30 3A 57 54 B2 35 3A 57 42 B2 39 3A 57 43 B2 31 |0:WT.5:WB.9:WC.1|
00000B00: 34 3A 57 48 24 B2 22 99 44 45 4C 45 54 45 20 41 |4:WH$.".DELETE A|
00000B10: 20 44 42 41 53 45 99 22 3A 8D 32 35 38 35 3A 99 | DBASE.":.2585:.|
00000B20: 22 05 46 49 4C 45 4E 41 4D 45 22 3B 3A 8D 32 36 |".FILENAME";:.26|
00000B30: 36 35 3A 46 49 24 B2 C8 28 5A 24 AA 22 20 20 20 |65:FI$..(Z$." |
00000B40: 20 20 20 20 20 20 20 20 22 2C 31 32 29 AA 22 2E | ",12).".|
00000B50: 22 3A 99 22 9E 53 4F 20 59 4F 55 20 57 49 53 48 |":.".SO YOU WISH|
00000B60: 20 54 4F 20 44 45 4C 45 54 45 22 3A 99 22 41 4C | TO DELETE":."AL|
00000B70: 4C 20 42 41 43 4B 2D 55 50 53 20 41 53 57 45 4C |L BACK-UPS ASWEL|
00000B80: 4C 3F 22 3B 3A A1 F9 41 24 3A 41 44 24 B2 22 44 |L?";:..A$:AD$."D|
00000B90: 42 3F 22 3A 8B 41 24 B2 22 59 22 A7 41 44 24 B2 |B?":.A$."Y".AD$.|
00000BA0: 22 3F 3F 3F 22 00 DE 4B AE 01 99 22 05 93 43 4F |"???"..K..."..CO|
00000BB0: 4E 46 49 52 4D 20 46 49 4C 45 20 53 43 52 41 54 |NFIRM FILE SCRAT|
00000BC0: 43 48 2E 20 28 59 2F 4E 29 22 3B 3A A1 F9 41 24 |CH. (Y/N)";:..A$|
00000BD0: 3A 8B 41 24 B3 B1 22 59 22 A7 8A 33 33 35 00 2B |:.A$.."Y"..335.+|
00000BE0: 4C B3 01 99 22 93 9A 44 45 4C 45 54 49 4E 47 20 |L..."..DELETING |
00000BF0: 46 49 4C 45 53 20 4E 4F 57 2E 2E 2E 22 3B 3A 9F |FILES NOW...";:.|
00000C00: 31 2C 50 44 2C 31 35 2C 28 22 53 30 3A 22 AA 46 |1,PD,15,("S0:".F|
00000C10: 49 24 AA 41 44 24 29 3A A0 31 3A 99 22 93 99 44 |I$.AD$):.1:."..D|
00000C20: 4F 4E 45 2E 22 3B 3A 8A 33 33 35 00 AF 4C C2 01 |ONE.";:.335..L..|
00000C30: 57 4C B2 31 30 3A 57 52 B2 33 38 3A 57 54 B2 37 |WL.10:WR.38:WT.7|
00000C40: 3A 57 42 B2 31 31 3A 57 43 B2 31 34 3A 57 48 24 |:WB.11:WC.14:WH$|
00000C50: B2 22 99 42 41 43 4B 2D 55 50 20 41 20 44 42 41 |.".BACK-UP A DBA|
00000C60: 53 45 99 22 3A 8D 32 35 38 35 3A 99 22 9E 46 49 |SE.":.2585:.".FI|
00000C70: 4C 45 4E 41 4D 45 22 3B 3A 8D 32 36 36 35 3A 99 |LENAME";:.2665:.|
00000C80: 22 05 93 43 4F 4E 46 49 52 4D 20 42 41 43 4B 2D |"..CONFIRM BACK-|
00000C90: 55 50 2E 20 28 59 2F 4E 29 2E 22 3B 3A A1 F9 41 |UP. (Y/N).";:..A|
00000CA0: 24 3A 8B 41 24 B3 B1 22 59 22 A7 8A 33 33 35 00 |$:.A$.."Y"..335.|
00000CB0: 8C 4D D6 01 99 22 9E 93 2E 2E 2E 42 41 43 4B 2D |.M...".....BACK-|
00000CC0: 55 50 20 49 4E 20 50 52 4F 47 52 45 53 53 2E 2E |UP IN PROGRESS..|
00000CD0: 2E 22 3B 3A 46 49 24 B2 C8 28 5A 24 AA 22 20 20 |.";:FI$..(Z$." |
00000CE0: 20 20 20 20 20 20 20 20 20 22 2C 31 32 29 AA 22 | ",12)."|
00000CF0: 2E 22 3A 9F 31 2C 50 44 2C 31 35 3A 98 31 2C 22 |.":.1,PD,15:.1,"|
00000D00: 53 30 3A 22 AA 46 49 24 AA 22 42 44 3F 22 3A 98 |S0:".FI$."BD?":.|
00000D10: 31 2C 22 43 30 3A 22 AA 46 49 24 AA 22 42 44 43 |1,"C0:".FI$."BDC|
00000D20: 3D 22 AA 46 49 24 AA 22 44 42 43 22 3A 98 31 2C |=".FI$."DBC":.1,|
00000D30: 22 43 30 3A 22 AA 46 49 24 AA 22 42 44 46 3D 22 |"C0:".FI$."BDF="|
00000D40: AA 46 49 24 AA 22 44 42 46 22 3A 98 31 2C 22 43 |.FI$."DBF":.1,"C|
00000D50: 30 3A 22 AA 46 49 24 AA 22 42 44 4E 3D 22 AA 46 |0:".FI$."BDN=".F|
00000D60: 49 24 AA 22 44 42 4E 22 3A 84 31 2C 41 3A 8B 41 |I$."DBN":.1,A:.A|
00000D70: B1 30 A7 99 22 96 93 44 49 53 4B 20 45 52 52 4F |.0.."..DISK ERRO|
00000D80: 52 21 22 3B 3A A0 31 3A 8A 33 33 35 00 A4 4D FE |R!";:.1:.335..M.|
00000D90: 01 A0 31 3A 99 22 99 93 44 4F 4E 45 2E 22 3B 3A |..1:."..DONE.";:|
00000DA0: 8A 33 33 35 00 80 4E 08 02 57 4C B2 32 3A 57 52 |.335..N..WL.2:WR|
00000DB0: B2 32 39 3A 57 54 B2 33 3A 57 42 B2 37 3A 57 43 |.29:WT.3:WB.7:WC|
00000DC0: B2 31 34 3A 57 48 24 B2 22 99 41 44 44 20 41 20 |.14:WH$.".ADD A |
00000DD0: 46 49 45 4C 44 99 22 3A 8D 32 35 38 35 3A 86 58 |FIELD.":.2585:.X|
00000DE0: 24 28 32 30 29 3A 99 22 9E 46 49 4C 45 4E 41 4D |$(20):.".FILENAM|
00000DF0: 45 22 3B 3A 8D 32 36 36 35 3A 46 49 24 B2 C8 28 |E";:.2665:FI$..(|
00000E00: 5A 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 22 |Z$." "|
00000E10: 2C 31 32 29 3A 9F 38 2C 50 44 2C 38 2C 28 22 30 |,12):.8,PD,8,("0|
00000E20: 3A 22 AA 46 49 24 AA 22 2E 44 42 43 2C 55 2C 52 |:".FI$.".DBC,U,R|
00000E30: 22 29 3A 84 38 2C 44 4E 24 2C 44 46 24 3A 81 54 |"):.8,DN$,DF$:.T|
00000E40: B2 31 A4 C5 28 44 46 24 29 3A 84 38 2C 58 24 28 |.1..(DF$):.8,X$(|
00000E50: 54 29 3A 82 54 3A A0 38 3A 8B C5 28 44 46 24 29 |T):.T:.8:..(DF$)|
00000E60: B1 31 39 A7 99 22 05 93 41 52 45 41 44 59 20 32 |.19.."..AREADY 2|
00000E70: 30 20 46 49 45 4C 44 53 2E 22 3B 3A 8A 33 33 35 |0 FIELDS.";:.335|
00000E80: 00 6B 4F 30 02 99 22 9E 93 4E 45 57 20 46 49 45 |.kO0.."..NEW FIE|
00000E90: 4C 44 22 3B 3A 8D 32 36 36 35 3A 9F 38 2C 50 44 |LD";:.2665:.8,PD|
00000EA0: 2C 38 2C 28 22 40 30 3A 22 AA 46 49 24 AA 22 2E |,8,("@0:".FI$.".|
00000EB0: 44 42 43 2C 55 2C 57 22 29 3A 98 38 2C 44 4E 24 |DBC,U,W"):.8,DN$|
00000EC0: 3A 98 38 2C C4 28 C5 28 44 46 24 29 AA 31 29 3A |:.8,.(.(DF$).1):|
00000ED0: 81 54 B2 31 A4 C5 28 44 46 24 29 3A 98 38 2C 58 |.T.1..(DF$):.8,X|
00000EE0: 24 28 54 29 3A 82 54 3A 98 38 2C 5A 24 3A A0 38 |$(T):.T:.8,Z$:.8|
00000EF0: 3A 9F 36 2C 50 44 2C 36 2C 28 22 30 3A 22 AA 46 |:.6,PD,6,("0:".F|
00000F00: 49 24 AA 22 2E 44 42 4E 2C 55 2C 52 22 29 3A 84 |I$.".DBN,U,R"):.|
00000F10: 36 2C 4E 4F 3A A0 36 3A 9F 38 2C 50 44 2C 38 2C |6,NO:.6:.8,PD,8,|
00000F20: 22 40 30 3A 57 4F 52 4B 49 4E 47 20 20 20 20 20 |"@0:WORKING |
00000F30: 2E 54 4D 50 2C 55 2C 57 22 3A 9F 37 2C 50 44 2C |.TMP,U,W":.7,PD,|
00000F40: 37 2C 28 22 30 3A 22 AA 46 49 24 AA 22 2E 44 42 |7,("0:".FI$.".DB|
00000F50: 46 2C 55 2C 52 22 29 3A 81 54 B2 31 A4 4E 4F 3A |F,U,R"):.T.1.NO:|
00000F60: 81 52 B2 31 A4 C5 28 44 46 24 29 00 E7 4F 5D 02 |.R.1..(DF$)..O].|
00000F70: 84 37 2C 57 24 3A 98 38 2C 57 24 3A 82 52 3A 98 |.7,W$:.8,W$:.R:.|
00000F80: 38 2C 22 20 22 3A 82 54 3A A0 36 3A A0 37 3A A0 |8," ":.T:.6:.7:.|
00000F90: 38 3A 9F 31 2C 50 44 2C 31 35 3A 98 31 2C 22 53 |8:.1,PD,15:.1,"S|
00000FA0: 30 3A 22 AA 46 49 24 AA 22 2E 44 42 46 22 3A 98 |0:".FI$.".DBF":.|
00000FB0: 31 2C 22 52 30 3A 22 AA 46 49 24 AA 22 2E 44 42 |1,"R0:".FI$.".DB|
00000FC0: 46 3D 57 4F 52 4B 49 4E 47 20 20 20 20 20 2E 54 |F=WORKING .T|
00000FD0: 4D 50 22 3A A0 31 3A 99 22 9E 93 44 4F 4E 45 2E |MP":.1:."..DONE.|
00000FE0: 22 3B 3A 8A 33 33 35 00 A6 50 8F 02 57 4C B2 36 |";:.335..P..WL.6|
00000FF0: 3A 57 52 B2 33 34 3A 57 54 B2 39 3A 57 42 B2 31 |:WR.34:WT.9:WB.1|
00001000: 35 3A 57 43 B2 38 3A 57 48 24 B2 22 20 20 20 20 |5:WC.8:WH$." |
00001010: 20 9F 43 48 41 4E 47 45 20 44 42 41 53 45 20 4E | .CHANGE DBASE N|
00001020: 41 4D 45 9E 22 3A 8D 32 35 38 35 3A 99 22 05 4E |AME.":.2585:.".N|
00001030: 41 4D 45 20 20 20 20 20 3A 22 3A 99 22 05 4E 45 |AME :":.".NE|
00001040: 57 20 4E 41 4D 45 20 3A 13 22 3B 3A 81 54 B2 31 |W NAME :.";:.T.1|
00001050: A4 32 3A 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |.2:.".........";|
00001060: 3A 8D 32 36 36 35 3A 43 24 28 54 29 B2 5A 24 3A |:.2665:C$(T).Z$:|
00001070: 82 54 3A 99 22 93 43 4F 4E 46 49 52 4D 20 4E 41 |.T:.".CONFIRM NA|
00001080: 4D 45 20 43 48 41 4E 47 45 2E 20 5B 59 2F 4E 5D |ME CHANGE. [Y/N]|
00001090: 2E 22 3B 3A A1 F9 41 24 3A 8B 41 24 B3 B1 22 59 |.";:..A$:.A$.."Y|
000010A0: 22 A7 8A 33 33 35 00 63 51 AD 02 99 22 99 93 50 |"..335.cQ..."..P|
000010B0: 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 2E 22 3B |LEASE WAIT....";|
000010C0: 3A 9F 31 2C 50 44 2C 31 35 3A 98 31 2C 22 52 30 |:.1,PD,15:.1,"R0|
000010D0: 3A 22 AA C8 28 43 24 28 32 29 AA 22 20 20 20 20 |:"..(C$(2)." |
000010E0: 20 20 20 20 20 20 20 20 22 2C 31 32 29 AA 22 2E | ",12).".|
000010F0: 44 42 43 3D 22 AA C8 28 43 24 28 31 29 AA 22 20 |DBC="..(C$(1)." |
00001100: 20 20 20 20 20 20 20 20 20 20 22 2C 31 32 29 AA | ",12).|
00001110: 22 2E 44 42 43 22 3A 98 31 2C 22 52 30 3A 22 AA |".DBC":.1,"R0:".|
00001120: C8 28 43 24 28 32 29 AA 22 20 20 20 20 20 20 20 |.(C$(2)." |
00001130: 20 20 20 20 20 22 2C 31 32 29 AA 22 2E 44 42 46 | ",12).".DBF|
00001140: 3D 22 AA C8 28 43 24 28 31 29 AA 22 20 20 20 20 |="..(C$(1)." |
00001150: 20 20 20 20 20 20 20 22 2C 31 32 29 AA 22 2E 44 | ",12).".D|
00001160: 42 46 22 00 BC 51 C1 02 98 31 2C 22 52 30 3A 22 |BF"..Q...1,"R0:"|
00001170: AA C8 28 43 24 28 32 29 AA 22 20 20 20 20 20 20 |..(C$(2)." |
00001180: 20 20 20 20 20 20 22 2C 31 32 29 AA 22 2E 44 42 | ",12).".DB|
00001190: 4E 3D 22 AA C8 28 43 24 28 31 29 AA 22 20 20 20 |N="..(C$(1)." |
000011A0: 20 20 20 20 20 20 20 20 22 2C 31 32 29 AA 22 2E | ",12).".|
000011B0: 44 42 4E 22 3A A0 31 3A 8A 33 33 35 00 40 52 CB |DBN":.1:.335.@R.|
000011C0: 02 57 4C B2 30 3A 57 52 B2 33 39 3A 57 54 B2 32 |.WL.0:WR.39:WT.2|
000011D0: 3A 57 42 B2 32 34 3A 57 43 B2 36 3A 57 48 24 B2 |:WB.24:WC.6:WH$.|
000011E0: 22 9E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
000011F0: 20 20 48 45 4C 50 1E 22 3A 8D 32 35 38 35 3A 99 | HELP.":.2585:.|
00001200: 22 97 50 4C 45 41 53 45 20 57 41 49 54 2E 20 53 |".PLEASE WAIT. S|
00001210: 45 41 52 43 48 49 4E 47 20 46 4F 52 20 48 45 4C |EARCHING FOR HEL|
00001220: 50 2E 2E 2E 13 9B 22 3B 3A 8C 3A EB 3A 87 58 58 |P.....";:.:.:.XX|
00001230: 24 3A 8B 58 58 24 B2 22 23 22 AA 46 46 24 A7 ED |$:.XX$."#".FF$..|
00001240: 00 5C 52 E4 02 EC FD 58 58 24 B3 B1 22 21 22 3A |.\R....XX$.."!":|
00001250: 8B 58 58 24 B2 22 21 22 A7 37 37 30 00 74 52 E9 |.XX$."!".770.tR.|
00001260: 02 EB 3A 87 58 58 24 3A 8B 58 58 24 B2 22 2A 22 |..:.XX$:.XX$."*"|
00001270: A7 37 37 30 00 AD 52 F3 02 8B 58 58 24 B2 22 23 |.770..R...XX$."#|
00001280: 22 A7 99 22 97 4D 4F 52 45 3E 3E 20 20 50 52 45 |"..".MORE>> PRE|
00001290: 53 53 20 52 45 54 55 52 4E 2E 9B 22 3B 3A A1 F9 |SS RETURN..";:..|
000012A0: 41 24 3A 99 22 93 22 3B 3A 89 37 34 35 00 C3 52 |A$:.".";:.745..R|
000012B0: F8 02 99 58 58 24 3A EC 3A EC FD 58 58 24 B3 B1 |...XX$:.:..XX$..|
000012C0: 22 2A 22 00 0C 53 02 03 99 22 97 45 4E 44 20 4F |"*"..S...".END O|
000012D0: 46 20 48 45 4C 50 2E 20 50 52 45 53 53 20 52 45 |F HELP. PRESS RE|
000012E0: 54 55 52 4E 2E 20 20 20 20 20 20 20 20 22 3B 3A |TURN. ";:|
000012F0: A1 F9 41 24 3A 91 C5 28 46 46 24 29 AA 31 89 33 |..A$:..(FF$).1.3|
00001300: 35 2C 33 35 2C 33 33 35 2C 38 31 30 00 16 53 07 |5,35,335,810..S.|
00001310: 03 89 32 36 37 30 00 B6 53 0C 03 57 4C B2 31 31 |..2670..S..WL.11|
00001320: 3A 57 52 B2 33 39 3A 57 54 B2 32 3A 57 42 B2 32 |:WR.39:WT.2:WB.2|
00001330: 34 3A 57 43 B2 34 3A 57 48 24 B2 22 99 44 49 52 |4:WC.4:WH$.".DIR|
00001340: 45 43 54 4F 52 59 20 4F 46 20 44 49 53 4B 9F 22 |ECTORY OF DISK."|
00001350: 3A 8D 32 35 38 35 3A 99 22 98 93 55 53 45 20 4E |:.2585:."..USE N|
00001360: 4F 2D 53 43 52 4F 4C 4C 20 54 4F 20 48 41 4C 54 |O-SCROLL TO HALT|
00001370: 2E 99 11 22 3A FE 0B 31 3A EE 22 3F 3F 3F 3F 3F |...":..1:."?????|
00001380: 3F 3F 3F 3F 3F 3F 3F 2E 3F 3F 43 22 2C 55 28 50 |???????.??C",U(P|
00001390: 44 29 3A 99 22 11 9E 50 52 45 53 53 20 52 45 54 |D):."..PRESS RET|
000013A0: 55 52 4E 2E 22 3B 3A A1 F9 41 24 3A 8A 33 33 35 |URN.";:..A$:.335|
000013B0: 3A 89 32 36 37 30 00 99 54 2A 03 D7 32 36 37 30 |:.2670..T*..2670|
000013C0: 3A 57 4C B2 31 33 3A 57 52 B2 33 38 3A 57 54 B2 |:WL.13:WR.38:WT.|
000013D0: 37 3A 57 42 B2 32 30 3A 57 43 B2 31 36 3A 57 48 |7:WB.20:WC.16:WH|
000013E0: 24 B2 22 9A 44 42 41 53 45 20 41 4C 54 45 52 41 |$.".DBASE ALTERA|
000013F0: 54 49 4F 4E 53 20 4D 45 4E 55 9B 22 3A 8D 32 35 |TIONS MENU.":.25|
00001400: 38 35 3A 99 22 11 05 20 31 97 2E 2E 2E 2E 9E 45 |85:.".. 1......E|
00001410: 58 49 54 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |XIT TO MAIN MENU|
00001420: 22 3A 99 22 05 20 32 97 2E 2E 9E 53 45 41 52 43 |":.". 2....SEARC|
00001430: 48 20 46 4F 52 20 41 20 52 45 43 4F 52 44 22 3A |H FOR A RECORD":|
00001440: 99 22 05 20 33 97 2E 2E 2E 2E 2E 2E 2E 2E 2E 9E |.". 3...........|
00001450: 41 44 44 20 41 20 52 45 43 4F 52 44 22 3A 99 22 |ADD A RECORD":."|
00001460: 05 20 34 97 2E 2E 2E 2E 2E 2E 9E 44 45 4C 45 54 |. 4........DELET|
00001470: 45 20 41 20 52 45 43 4F 52 44 22 3A 99 22 05 20 |E A RECORD":.". |
00001480: 35 97 2E 9E 53 48 4F 57 20 46 49 4C 45 20 53 54 |5...SHOW FILE ST|
00001490: 41 54 49 53 54 49 43 53 22 00 F7 54 48 03 99 22 |ATISTICS"..TH.."|
000014A0: 05 20 36 97 2E 2E 2E 2E 2E 2E 2E 2E 9E 45 44 49 |. 6..........EDI|
000014B0: 54 20 41 20 52 45 43 4F 52 44 22 3A 99 22 05 20 |T A RECORD":.". |
000014C0: 37 97 2E 2E 2E 2E 2E 2E 2E 9E 50 52 49 4E 54 20 |7.........PRINT |
000014D0: 41 20 52 45 43 4F 52 44 22 3A 99 22 05 20 38 97 |A RECORD":.". 8.|
000014E0: 2E 2E 2E 2E 2E 2E 2E 9E 50 52 49 4E 54 20 54 48 |........PRINT TH|
000014F0: 45 20 46 49 4C 45 22 00 15 55 57 03 A1 F9 41 24 |E FILE"..UW...A$|
00001500: 3A 8B 41 24 B2 22 48 22 A7 46 46 24 B2 22 33 22 |:.A$."H".FF$."3"|
00001510: 3A 89 37 31 35 00 5B 55 61 03 8B 41 24 B2 22 5F |:.715.[Ua..A$."_|
00001520: 22 AF C2 28 32 31 35 29 B2 31 32 38 A7 FE 1A 30 |"..(215).128...0|
00001530: 2C 32 2C 37 39 2C 32 34 2C 31 3A 89 38 31 30 3A |,2,79,24,1:.810:|
00001540: D5 8B 41 24 B2 22 5F 22 A7 FE 1A 30 2C 32 2C 33 |..A$."_"...0,2,3|
00001550: 39 2C 32 34 2C 31 3A 89 38 31 30 00 8C 55 66 03 |9,24,1:.810..Uf.|
00001560: 91 C5 28 41 24 29 89 38 38 30 2C 39 30 35 2C 31 |..(A$).880,905,1|
00001570: 31 33 35 2C 31 32 32 35 2C 31 33 34 30 2C 31 33 |135,1225,1340,13|
00001580: 37 35 2C 31 35 36 30 2C 31 35 38 35 00 95 55 6B |75,1560,1585..Uk|
00001590: 03 89 38 35 35 00 1E 56 70 03 57 4C B2 33 3A 57 |..855..Vp.WL.3:W|
000015A0: 52 B2 33 38 3A 57 54 B2 35 3A 57 42 B2 39 3A 57 |R.38:WT.5:WB.9:W|
000015B0: 43 B2 32 3A 57 48 24 B2 22 45 58 49 54 20 54 4F |C.2:WH$."EXIT TO|
000015C0: 20 4D 41 49 4E 20 4D 45 4E 55 22 3A 8D 32 35 38 | MAIN MENU":.258|
000015D0: 35 3A 99 22 05 57 41 52 4E 49 4E 47 3A 11 22 3A |5:.".WARNING:.":|
000015E0: 99 22 93 9E 43 4F 4E 46 49 52 4D 20 45 4E 54 52 |."..CONFIRM ENTR|
000015F0: 59 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 20 |Y TO MAIN MENU. |
00001600: 28 59 2F 4E 29 22 3B 3A A1 F9 41 24 3A 8B 41 24 |(Y/N)";:..A$:.A$|
00001610: B2 22 59 22 A7 8A 33 35 3A D5 89 38 31 30 00 E1 |."Y"..35:..810..|
00001620: 56 89 03 FE 1A 30 2C 32 2C 33 39 2C 32 34 2C 31 |V....0,2,39,24,1|
00001630: 3A 57 4C B2 33 3A 57 52 B2 33 37 3A 57 54 B2 32 |:WL.3:WR.37:WT.2|
00001640: 3A 57 42 B2 38 3A 57 43 B2 34 3A 57 48 24 B2 22 |:WB.8:WC.4:WH$."|
00001650: 1E 53 45 41 52 43 48 20 46 4F 52 20 41 20 52 45 |.SEARCH FOR A RE|
00001660: 43 4F 52 44 9F 22 3A 8D 32 35 38 35 3A 99 22 99 |CORD.":.2585:.".|
00001670: 45 4E 54 45 52 20 53 45 41 52 43 48 20 53 54 52 |ENTER SEARCH STR|
00001680: 49 4E 47 2C 20 55 53 49 4E 47 20 2A 20 46 4F 52 |ING, USING * FOR|
00001690: 20 57 49 4C 44 20 43 41 52 44 2E 22 3B 3A 57 4C | WILD CARD.";:WL|
000016A0: B2 30 3A 57 52 B2 33 39 3A 57 54 B2 31 32 3A 57 |.0:WR.39:WT.12:W|
000016B0: 42 B2 31 34 3A 57 43 B2 31 34 3A 57 48 24 B2 22 |B.14:WC.14:WH$."|
000016C0: 22 3A 8D 32 35 38 35 3A 81 54 B2 31 A4 C5 28 44 |":.2585:.T.1..(D|
000016D0: 46 24 29 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 22 2A |F$):.Z$."".Z$."*|
000016E0: 22 00 14 57 A7 03 99 FB 22 9E 23 23 23 23 23 23 |"..W....".######|
000016F0: 23 23 23 23 23 23 22 3B 44 57 24 28 54 29 3B 3A |######";DW$(T);:|
00001700: 8D 32 36 36 35 3A 44 45 24 28 54 2C 30 29 B2 5A |.2665:DE$(T,0).Z|
00001710: 24 3A 82 54 00 E6 57 B1 03 99 22 05 93 50 4C 45 |$:.T..W..."..PLE|
00001720: 41 53 45 20 57 41 49 54 2E 2E 2E 22 3B 3A 81 54 |ASE WAIT...";:.T|
00001730: B2 31 A4 C5 28 44 46 24 29 3A 57 49 24 B2 44 45 |.1..(DF$):WI$.DE|
00001740: 24 28 54 2C 30 29 3A 8D 32 37 34 35 3A 81 52 B2 |$(T,0):.2745:.R.|
00001750: 31 A4 33 3A 44 45 24 28 54 2C 52 29 B2 57 49 24 |1.3:DE$(T,R).WI$|
00001760: 28 52 29 3A 82 52 3A 82 54 3A 9F 38 2C 50 44 2C |(R):.R:.T:.8,PD,|
00001770: 38 2C 28 22 30 3A 22 AA 46 49 24 AA 22 2E 44 42 |8,("0:".FI$.".DB|
00001780: 46 22 29 3A 81 54 B2 31 A4 44 52 3A 81 57 B2 31 |F"):.T.1.DR:.W.1|
00001790: A4 C5 28 44 46 24 29 3A 84 38 2C 44 45 24 28 57 |..(DF$):.8,DE$(W|
000017A0: 2C 34 29 3A 82 57 3A 51 5A B2 30 3A 81 52 B2 31 |,4):.W:QZ.0:.R.1|
000017B0: A4 C5 28 44 46 24 29 3A 81 45 B2 31 A4 33 3A 8B |..(DF$):.E.1.3:.|
000017C0: 44 45 24 28 52 2C 30 29 B2 22 22 B0 44 45 24 28 |DE$(R,0)."".DE$(|
000017D0: 52 2C 30 29 B2 22 2A 22 A7 51 5A B2 51 5A AA 31 |R,0)."*".QZ.QZ.1|
000017E0: 3A 89 31 30 31 30 00 1D 58 E8 03 8B D4 28 44 45 |:.1010..X....(DE|
000017F0: 24 28 52 2C 34 29 2C 44 45 24 28 52 2C 45 29 29 |$(R,4),DE$(R,E))|
00001800: B1 30 B0 44 45 24 28 52 2C 34 29 B2 22 2D 22 A7 |.0.DE$(R,4)."-".|
00001810: 51 5A B2 51 5A AA 31 3A 89 31 30 31 30 00 24 58 |QZ.QZ.1:.1010.$X|
00001820: ED 03 82 45 00 3C 58 F2 03 82 52 3A 8B 51 5A B2 |...E.<X...R:.QZ.|
00001830: C5 28 44 46 24 29 A7 8D 31 30 32 35 00 7A 58 F7 |.(DF$)..1025.zX.|
00001840: 03 82 54 3A 57 4F B2 30 3A A0 38 3A 99 22 93 9B |..T:WO.0:.8:."..|
00001850: 23 20 45 4E 44 20 4F 46 20 46 49 4C 45 20 23 20 |# END OF FILE # |
00001860: 97 50 52 45 53 53 20 52 45 54 55 52 4E 2E 22 3B |.PRESS RETURN.";|
00001870: 3A A1 F9 41 24 3A 89 38 31 30 00 B2 58 01 04 8B |:..A$:.810..X...|
00001880: 57 4F B2 30 A7 57 4C B2 30 3A 57 52 B2 33 39 3A |WO.0.WL.0:WR.39:|
00001890: 57 54 B2 32 3A 57 42 B2 32 34 3A 57 43 B2 31 34 |WT.2:WB.24:WC.14|
000018A0: 3A 57 48 24 B2 22 22 3A 8D 32 35 38 35 3A 57 4F |:WH$."":.2585:WO|
000018B0: B2 31 00 10 59 06 04 99 22 93 22 3B 3A 81 59 B2 |.1..Y...".";:.Y.|
000018C0: 31 A4 C5 28 44 46 24 29 3A 99 FB 22 9E 23 23 23 |1..(DF$):..".###|
000018D0: 23 23 23 23 23 23 23 23 23 05 3A 9B 22 3B 44 57 |#########.:.";DW|
000018E0: 24 28 59 29 3B 3A 99 44 45 24 28 59 2C 34 29 3A |$(Y);:.DE$(Y,4):|
000018F0: 82 59 3A 99 22 97 4E 3D 4E 45 58 54 20 3A 20 51 |.Y:.".N=NEXT : Q|
00001900: 3D 45 4E 44 20 3A 20 50 3D 50 52 49 4E 54 22 3B |=END : P=PRINT";|
00001910: 00 23 59 1A 04 A1 F9 41 24 3A 8B 41 24 B2 22 4E |.#Y....A$:.A$."N|
00001920: 22 A7 8E 00 34 59 24 04 8B 41 24 B2 22 50 22 A7 |"...4Y$..A$."P".|
00001930: 31 30 37 35 00 4C 59 29 04 8B 41 24 B3 B1 22 51 |1075.LY)..A$.."Q|
00001940: 22 A7 57 4F B2 30 3A 89 31 30 35 30 00 58 59 2E |".WO.0:.1050.XY.|
00001950: 04 A0 38 3A 89 38 31 30 00 D1 59 33 04 57 4C B2 |..8:.810..Y3.WL.|
00001960: 33 3A 57 52 B2 33 37 3A 57 54 B2 31 30 3A 57 42 |3:WR.37:WT.10:WB|
00001970: B2 31 35 3A 57 43 B2 34 3A 57 48 24 B2 22 9A 50 |.15:WC.4:WH$.".P|
00001980: 52 49 4E 54 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |RINT INFORMATION|
00001990: 9F 22 3A 8D 32 35 38 35 3A 99 22 99 45 4E 54 45 |.":.2585:.".ENTE|
000019A0: 52 20 44 45 56 49 43 45 20 54 4F 20 50 52 49 4E |R DEVICE TO PRIN|
000019B0: 54 20 54 4F 2E 20 28 34 2C 35 2C 36 29 22 3B 3A |T TO. (4,5,6)";:|
000019C0: A1 F9 41 3A 8B 41 B1 33 B0 41 B3 37 A7 31 31 30 |..A:.A.3.A.7.110|
000019D0: 35 00 F4 59 42 04 99 22 05 93 20 20 20 20 20 20 |5..YB..".. |
000019E0: 20 20 20 20 20 2A 2A 20 41 42 4F 52 54 45 44 20 | ** ABORTED |
000019F0: 2A 2A 22 3B 00 2D 5A 47 04 57 4C B2 33 3A 57 52 |**";.-ZG.WL.3:WR|
00001A00: B2 33 37 3A 57 54 B2 31 30 3A 57 42 B2 31 35 3A |.37:WT.10:WB.15:|
00001A10: 57 43 B2 31 3A 57 48 24 B2 22 20 22 3A 8D 32 35 |WC.1:WH$." ":.25|
00001A20: 38 35 3A 57 4F B2 30 3A 89 31 30 32 35 00 B9 5A |85:WO.0:.1025..Z|
00001A30: 51 04 99 22 05 50 4C 45 41 53 45 20 57 41 49 54 |Q..".PLEASE WAIT|
00001A40: 2E 2E 2E 20 50 52 49 4E 54 49 4E 47 2E 2E 2E 22 |... PRINTING..."|
00001A50: 3B 3A 9F 34 2C 41 3A 98 34 3A 81 47 B2 31 A4 C5 |;:.4,A:.4:.G.1..|
00001A60: 28 44 46 24 29 3A 98 34 2C FB 22 23 23 23 23 23 |(DF$):.4,."#####|
00001A70: 23 23 23 23 23 23 23 3A 23 23 23 23 23 23 23 23 |#######:########|
00001A80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00001A90: 23 23 23 22 3B 44 57 24 28 47 29 2C 44 45 24 28 |###";DW$(G),DE$(|
00001AA0: 47 2C 34 29 3A 82 47 3A 98 34 3A A0 34 3A 99 22 |G,4):.G:.4:.4:."|
00001AB0: 93 22 3B 3A 89 31 30 39 35 00 9B 5B 6F 04 57 4C |.";:.1095..[o.WL|
00001AC0: B2 32 3A 57 52 B2 33 36 3A 57 54 B2 34 3A 57 42 |.2:WR.36:WT.4:WB|
00001AD0: B2 39 3A 57 43 B2 35 3A 57 48 24 B2 22 9E 41 44 |.9:WC.5:WH$.".AD|
00001AE0: 44 20 41 20 52 45 43 4F 52 44 9C 22 3A 8D 32 35 |D A RECORD.":.25|
00001AF0: 38 35 3A 99 22 9F 45 4E 54 45 52 20 49 4E 46 4F |85:.".ENTER INFO|
00001B00: 52 4D 41 54 49 4F 4E 20 46 4F 52 20 45 41 43 48 |RMATION FOR EACH|
00001B10: 20 46 49 45 4C 44 22 3B 3A 57 4C B2 30 3A 57 52 | FIELD";:WL.0:WR|
00001B20: B2 33 39 3A 57 54 B2 31 32 3A 57 42 B2 31 35 3A |.39:WT.12:WB.15:|
00001B30: 57 43 B2 31 34 3A 57 48 24 B2 22 22 3A 8D 32 35 |WC.14:WH$."":.25|
00001B40: 38 35 3A 81 54 B2 31 A4 C5 28 44 46 24 29 3A 99 |85:.T.1..(DF$):.|
00001B50: FB 22 93 99 23 23 23 23 23 23 23 23 23 23 23 23 |."..############|
00001B60: 22 3B 44 57 24 28 54 29 3B 3A 8D 32 36 36 35 3A |";DW$(T);:.2665:|
00001B70: 44 45 24 28 54 2C 30 29 B2 C8 28 5A 24 2C 32 34 |DE$(T,0)..(Z$,24|
00001B80: 29 3A 8B 44 45 24 28 54 2C 30 29 B2 22 22 A7 44 |):.DE$(T,0)."".D|
00001B90: 45 24 28 54 2C 30 29 B2 22 2D 22 00 1A 5C 88 04 |E$(T,0)."-"..\..|
00001BA0: 82 54 3A 57 4C B2 30 3A 57 52 B2 33 39 3A 57 54 |.T:WL.0:WR.39:WT|
00001BB0: B2 32 3A 57 42 B2 32 34 3A 57 43 B2 34 3A 57 48 |.2:WB.24:WC.4:WH|
00001BC0: 24 B2 22 22 3A 8D 32 35 38 35 3A 81 54 B2 31 A4 |$."":.2585:.T.1.|
00001BD0: C5 28 44 46 24 29 3A 99 FB 22 99 23 23 23 23 23 |.(DF$):..".#####|
00001BE0: 23 23 23 23 23 23 23 05 3A 9E 23 23 23 23 23 23 |#######.:.######|
00001BF0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00001C00: 23 23 23 23 23 23 22 3B 44 57 24 28 54 29 2C 44 |######";DW$(T),D|
00001C10: 45 24 28 54 2C 30 29 3A 82 54 00 8F 5C 97 04 99 |E$(T,0):.T..\...|
00001C20: 22 9B 54 48 49 53 20 49 4E 46 4F 52 4D 41 54 49 |".THIS INFORMATI|
00001C30: 4F 4E 20 43 4F 52 52 45 43 54 3F 20 28 59 2F 4E |ON CORRECT? (Y/N|
00001C40: 29 2E 91 22 3A A1 F9 41 24 3A 8B 41 24 B2 22 4E |)..":..A$:.A$."N|
00001C50: 22 A7 99 22 9B 44 4F 20 59 4F 55 20 57 49 53 48 |"..".DO YOU WISH|
00001C60: 20 54 4F 20 52 45 2D 54 59 50 45 2C 20 4F 52 20 | TO RE-TYPE, OR |
00001C70: 51 55 49 54 92 3F 20 28 52 2F 51 29 22 3B 3A A1 |QUIT.? (R/Q)";:.|
00001C80: F9 53 24 3A 8B 53 24 B2 22 51 22 A7 38 31 30 00 |.S$:.S$."Q".810.|
00001C90: A0 5C A1 04 8B 41 24 B2 22 4E 22 A7 31 31 33 35 |.\...A$."N".1135|
00001CA0: 00 B2 5C A6 04 8B 41 24 B3 B1 22 59 22 A7 31 31 |..\...A$.."Y".11|
00001CB0: 37 35 00 79 5D AB 04 99 22 9B 50 4C 45 41 53 45 |75.y]...".PLEASE|
00001CC0: 20 57 41 49 54 2E 2E 2E 20 53 41 56 49 4E 47 20 | WAIT... SAVING |
00001CD0: 54 4F 20 44 49 53 4B 2E 2E 2E 22 3B 3A 9F 38 2C |TO DISK...";:.8,|
00001CE0: 50 44 2C 38 2C 28 22 30 3A 22 AA 46 49 24 AA 22 |PD,8,("0:".FI$."|
00001CF0: 2E 44 42 46 2C 55 2C 41 22 29 3A 81 54 B2 31 A4 |.DBF,U,A"):.T.1.|
00001D00: C5 28 44 46 24 29 3A 98 38 2C 44 45 24 28 54 2C |.(DF$):.8,DE$(T,|
00001D10: 30 29 3A 82 54 3A A0 38 3A 9F 38 2C 50 44 2C 38 |0):.T:.8:.8,PD,8|
00001D20: 2C 28 22 40 30 3A 22 AA 46 49 24 AA 22 2E 44 42 |,("@0:".FI$.".DB|
00001D30: 4E 2C 55 2C 57 22 29 3A 98 38 2C 28 44 52 AA 31 |N,U,W"):.8,(DR.1|
00001D40: 29 3A A0 38 3A 44 52 B2 44 52 AA 31 3A 57 4C B2 |):.8:DR.DR.1:WL.|
00001D50: 30 3A 57 52 B2 33 39 3A 57 54 B2 32 3A 57 42 B2 |0:WR.39:WT.2:WB.|
00001D60: 32 34 3A 57 43 B2 31 3A 57 48 24 B2 22 22 3A 8D |24:WC.1:WH$."":.|
00001D70: 32 35 38 35 3A 89 38 31 30 00 33 5E C9 04 57 4C |2585:.810.3^..WL|
00001D80: B2 32 3A 57 52 B2 33 36 3A 57 54 B2 34 3A 57 42 |.2:WR.36:WT.4:WB|
00001D90: B2 39 3A 57 43 B2 35 3A 57 48 24 B2 22 9E 44 45 |.9:WC.5:WH$.".DE|
00001DA0: 4C 45 54 45 20 41 20 52 45 43 4F 52 44 9C 22 3A |LETE A RECORD.":|
00001DB0: 8D 32 35 38 35 3A 99 22 05 50 4C 45 41 53 45 20 |.2585:.".PLEASE |
00001DC0: 57 41 49 54 2E 2E 2E 22 3B 3A 9F 38 2C 50 44 2C |WAIT...";:.8,PD,|
00001DD0: 38 2C 28 22 30 3A 22 AA 46 49 24 AA 22 2E 44 42 |8,("0:".FI$.".DB|
00001DE0: 46 2C 55 2C 52 22 29 3A FE 0B 31 3A 57 4C B2 30 |F,U,R"):..1:WL.0|
00001DF0: 3A 57 52 B2 33 39 3A 57 54 B2 32 3A 57 42 B2 32 |:WR.39:WT.2:WB.2|
00001E00: 34 3A 57 43 B2 37 3A 57 48 24 B2 22 9E 44 45 4C |4:WC.7:WH$.".DEL|
00001E10: 45 54 45 20 41 20 52 45 43 4F 52 44 9C 22 3A 8D |ETE A RECORD.":.|
00001E20: 32 35 38 35 3A 81 54 B2 31 A4 44 52 3A 99 22 05 |2585:.T.1.DR:.".|
00001E30: 93 22 3B 00 B7 5E E2 04 81 45 B2 31 A4 C5 28 44 |.";..^...E.1..(D|
00001E40: 46 24 29 3A 84 38 2C 44 45 24 28 45 2C 30 29 3A |F$):.8,DE$(E,0):|
00001E50: 99 FB 22 99 23 23 23 23 23 23 23 23 23 23 23 23 |..".############|
00001E60: 05 3A 9E 23 23 23 23 23 23 23 23 23 23 23 23 23 |.:.#############|
00001E70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 22 3B |##############";|
00001E80: 44 57 24 28 45 29 2C 44 45 24 28 45 2C 30 29 3A |DW$(E),DE$(E,0):|
00001E90: 82 45 3A 99 22 9B 20 20 20 20 20 44 3D 44 45 4C |.E:.". D=DEL|
00001EA0: 45 54 45 20 3A 20 4E 3D 4E 45 58 54 20 3A 20 51 |ETE : N=NEXT : Q|
00001EB0: 3D 51 55 49 54 91 22 00 D0 5E EC 04 A1 F9 41 24 |=QUIT."..^....A$|
00001EC0: 3A 8B 41 24 B2 22 51 22 A7 A0 38 3A 89 38 31 30 |:.A$."Q"..8:.810|
00001ED0: 00 16 5F F6 04 8B 41 24 B2 22 4E 22 A7 82 54 3A |.._...A$."N"..T:|
00001EE0: A0 38 3A 99 22 9B 23 20 45 4E 44 20 4F 46 20 46 |.8:.".# END OF F|
00001EF0: 49 4C 45 20 23 20 20 98 50 52 45 53 53 20 52 45 |ILE # .PRESS RE|
00001F00: 54 55 52 4E 2E 20 20 20 20 20 22 3B 3A A1 F9 41 |TURN. ";:..A|
00001F10: 24 3A 89 38 31 30 00 28 5F FB 04 8B 41 24 B3 B1 |$:.810.(_...A$..|
00001F20: 22 44 22 A7 31 32 36 30 00 A1 5F 00 05 99 22 05 |"D".1260.._...".|
00001F30: 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 20 52 45 |PLEASE WAIT.. RE|
00001F40: 4D 4F 56 49 4E 47 20 52 45 43 4F 52 44 2E 2E 2E |MOVING RECORD...|
00001F50: 91 22 3A A0 38 3A 9F 38 2C 50 44 2C 38 2C 28 22 |.":.8:.8,PD,8,("|
00001F60: 30 3A 22 AA 46 49 24 AA 22 2E 44 42 46 2C 55 2C |0:".FI$.".DBF,U,|
00001F70: 52 22 29 3A 9F 37 2C 50 44 2C 37 2C 28 22 40 30 |R"):.7,PD,7,("@0|
00001F80: 3A 57 4F 52 4B 49 4E 47 20 20 20 20 20 2E 54 4D |:WORKING .TM|
00001F90: 50 2C 55 2C 57 22 29 3A 8B 54 B2 31 A7 31 33 30 |P,U,W"):.T.1.130|
00001FA0: 35 00 CC 5F 14 05 81 57 B2 31 A4 54 AB 31 3A 81 |5.._...W.1.T.1:.|
00001FB0: 51 B2 31 A4 C5 28 44 46 24 29 3A 84 38 2C 41 24 |Q.1..(DF$):.8,A$|
00001FC0: 3A 98 37 2C 41 24 3A 82 51 3A 82 57 00 F0 5F 19 |:.7,A$:.Q:.W.._.|
00001FD0: 05 81 52 B2 31 A4 C5 28 44 46 24 29 3A 84 38 2C |..R.1..(DF$):.8,|
00001FE0: 41 24 3A 82 52 3A 8B 54 B2 44 52 A7 31 33 32 30 |A$:.R:.T.DR.1320|
00001FF0: 00 1C 60 23 05 81 57 B2 54 AA 31 A4 44 52 3A 81 |..`#..W.T.1.DR:.|
00002000: 51 B2 31 A4 C5 28 44 46 24 29 3A 84 38 2C 41 24 |Q.1..(DF$):.8,A$|
00002010: 3A 98 37 2C 41 24 3A 82 51 3A 82 57 00 C7 60 28 |:.7,A$:.Q:.W..`(|
00002020: 05 A0 38 3A A0 37 3A 9F 31 2C 50 44 2C 31 35 3A |..8:.7:.1,PD,15:|
00002030: 98 31 2C 22 53 30 3A 22 AA 46 49 24 AA 22 2E 44 |.1,"S0:".FI$.".D|
00002040: 42 46 22 3A 98 31 2C 22 52 30 3A 22 AA 46 49 24 |BF":.1,"R0:".FI$|
00002050: AA 22 2E 44 42 46 3D 57 4F 52 4B 49 4E 47 20 20 |.".DBF=WORKING |
00002060: 20 20 20 2E 54 4D 50 22 3A A0 31 3A 44 52 B2 44 | .TMP":.1:DR.D|
00002070: 52 AB 31 3A 9F 38 2C 50 44 2C 38 2C 28 22 40 30 |R.1:.8,PD,8,("@0|
00002080: 3A 22 AA 46 49 24 AA 22 2E 44 42 4E 2C 55 2C 57 |:".FI$.".DBN,U,W|
00002090: 22 29 3A 98 38 2C 44 52 3A A0 38 3A 99 22 9E 44 |"):.8,DR:.8:.".D|
000020A0: 4F 4E 45 2E 20 20 20 20 20 20 20 20 20 20 20 20 |ONE. |
000020B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020C0: 22 3B 3A 89 38 31 30 00 BF 61 3C 05 57 4C B2 32 |";:.810..a<.WL.2|
000020D0: 3A 57 52 B2 33 37 3A 57 54 B2 32 3A 57 42 B2 32 |:WR.37:WT.2:WB.2|
000020E0: 34 3A 57 43 B2 38 3A 57 48 24 B2 22 46 49 4C 45 |4:WC.8:WH$."FILE|
000020F0: 20 53 54 41 54 49 53 54 49 43 53 20 4F 4E 3A 99 | STATISTICS ON:.|
00002100: 22 AA 46 49 24 AA 22 9E 22 3A 8D 32 35 38 35 3A |".FI$.".":.2585:|
00002110: 99 22 99 11 46 55 4C 4C 20 4E 41 4D 45 3A 20 9B |."..FULL NAME: .|
00002120: 22 3B 44 4E 24 3A 99 22 99 11 54 4F 54 41 4C 20 |";DN$:."..TOTAL |
00002130: 52 45 43 4F 52 44 53 3A 9B 22 3B 44 52 3A 99 22 |RECORDS:.";DR:."|
00002140: 99 11 54 4F 54 41 4C 20 46 49 45 4C 44 53 20 3A |..TOTAL FIELDS :|
00002150: 9B 20 22 3B 44 46 24 3A 99 22 11 99 46 49 45 4C |. ";DF$:."..FIEL|
00002160: 44 20 4C 49 53 54 3A 2D 11 9B 22 3A 81 54 B2 31 |D LIST:-..":.T.1|
00002170: A4 C5 28 44 46 24 29 3A 99 FB 22 20 20 23 23 23 |..(DF$):.." ###|
00002180: 23 23 23 23 23 23 23 23 23 20 20 20 22 3B 44 57 |######### ";DW|
00002190: 24 28 54 29 3B 3A 82 54 3A 99 C7 28 31 33 29 3B |$(T);:.T:..(13);|
000021A0: 22 98 12 50 52 45 53 53 92 20 12 52 45 54 55 52 |"..PRESS. .RETUR|
000021B0: 4E 2E 92 22 3B 3A A1 F9 41 24 3A 89 38 31 30 00 |N..";:..A$:.810.|
000021C0: 7B 62 5F 05 57 4C B2 31 30 3A 57 52 B2 32 39 3A |{b_.WL.10:WR.29:|
000021D0: 57 54 B2 36 3A 57 42 B2 31 30 3A 57 43 B2 38 3A |WT.6:WB.10:WC.8:|
000021E0: 57 48 24 B2 22 45 44 49 54 20 41 20 52 45 43 4F |WH$."EDIT A RECO|
000021F0: 52 44 22 3A 8D 32 35 38 35 3A 99 22 05 50 4C 45 |RD":.2585:.".PLE|
00002200: 41 53 45 20 57 41 49 54 2E 2E 2E 2E 22 3B 3A 9F |ASE WAIT....";:.|
00002210: 38 2C 50 44 2C 38 2C 28 22 30 3A 22 AA 46 49 24 |8,PD,8,("0:".FI$|
00002220: AA 22 2E 44 42 46 2C 55 2C 52 22 29 3A FE 0B 31 |.".DBF,U,R"):..1|
00002230: 3A 57 4C B2 30 3A 57 52 B2 33 39 3A 57 54 B2 32 |:WL.0:WR.39:WT.2|
00002240: 3A 57 42 B2 32 34 3A 57 43 B2 38 3A 57 48 24 B2 |:WB.24:WC.8:WH$.|
00002250: 22 22 3A 8D 32 35 38 35 3A 81 54 B2 31 A4 44 52 |"":.2585:.T.1.DR|
00002260: 3A 81 45 B2 31 A4 C5 28 44 46 24 29 3A 84 38 2C |:.E.1..(DF$):.8,|
00002270: 44 45 24 28 45 2C 30 29 3A 82 45 00 FA 62 78 05 |DE$(E,0):.E..bx.|
00002280: 99 22 05 93 22 3B 3A 81 45 B2 31 A4 C5 28 44 46 |."..";:.E.1..(DF|
00002290: 24 29 3A 99 FB 22 9E 23 23 23 23 23 23 23 23 23 |$):..".#########|
000022A0: 23 23 23 05 3A 99 23 23 23 23 23 23 23 23 23 23 |###.:.##########|
000022B0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 22 |###############"|
000022C0: 3B 44 57 24 28 45 29 2C 44 45 24 28 45 2C 30 29 |;DW$(E),DE$(E,0)|
000022D0: 3A 82 45 3A 99 22 9B 20 20 20 20 20 45 3D 45 44 |:.E:.". E=ED|
000022E0: 49 54 20 20 3A 20 20 4E 3D 4E 45 58 54 20 20 3A |IT : N=NEXT :|
000022F0: 20 20 51 3D 51 55 49 54 91 22 00 13 63 87 05 A1 | Q=QUIT."..c...|
00002300: F9 41 24 3A 8B 41 24 B2 22 51 22 A7 A0 38 3A 89 |.A$:.A$."Q"..8:.|
00002310: 38 31 30 00 24 63 91 05 8B 41 24 B2 22 45 22 A7 |810.$c...A$."E".|
00002320: 31 34 34 35 00 36 63 96 05 8B 41 24 B3 B1 22 4E |1445.6c...A$.."N|
00002330: 22 A7 31 34 31 35 00 75 63 9B 05 82 54 3A 99 22 |".1415.uc...T:."|
00002340: 97 45 4E 44 20 4F 46 20 46 49 4C 45 2E 20 20 50 |.END OF FILE. P|
00002350: 52 45 53 53 20 52 45 54 55 52 4E 2E 20 20 20 20 |RESS RETURN. |
00002360: 20 20 20 20 20 20 91 22 3A A0 38 3A A1 F9 41 24 | .":.8:..A$|
00002370: 3A 89 38 31 30 00 5C 64 A5 05 99 22 93 22 3B 3A |:.810.\d...".";:|
00002380: 81 45 B2 31 A4 C5 28 44 46 24 29 3A 99 FB 22 9E |.E.1..(DF$):..".|
00002390: 23 23 23 23 23 23 23 23 23 23 23 23 05 3A 99 23 |############.:.#|
000023A0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000023B0: 23 23 23 23 23 23 23 23 23 23 22 3B 44 57 24 28 |##########";DW$(|
000023C0: 45 29 2C 44 45 24 28 45 2C 30 29 3A 82 45 3A 99 |E),DE$(E,0):.E:.|
000023D0: 22 97 45 4E 54 45 52 20 4E 45 57 20 44 45 54 41 |".ENTER NEW DETA|
000023E0: 49 4C 53 2E 20 20 20 20 20 20 20 20 20 20 20 20 |ILS. |
000023F0: 20 20 20 20 20 13 9F 22 3B 3A 81 45 B2 31 A4 C5 | ..";:.E.1..|
00002400: 28 44 46 24 29 3A 97 32 31 2C 31 3A 85 22 1D 1D |(DF$):.21,1:."..|
00002410: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 44 45 24 |...........";DE$|
00002420: 28 45 2C 30 29 3A 97 32 31 2C 30 3A 99 C7 28 31 |(E,0):.21,0:..(1|
00002430: 33 29 3B 3A 82 45 3A 81 45 B2 31 A4 C5 28 44 46 |3);:.E:.E.1..(DF|
00002440: 24 29 3A 8B 44 45 24 28 45 2C 30 29 B2 22 22 A7 |$):.DE$(E,0)."".|
00002450: 44 45 24 28 45 2C 30 29 B2 22 2D 22 00 8D 64 B4 |DE$(E,0)."-"..d.|
00002460: 05 82 45 3A 99 22 9B 50 52 45 53 53 2D 20 20 53 |..E:.".PRESS- S|
00002470: 3D 53 41 56 45 2C 20 51 3D 51 55 49 54 20 4F 52 |=SAVE, Q=QUIT OR|
00002480: 20 52 3D 52 45 2D 53 54 41 52 54 91 22 00 A6 64 | R=RE-START."..d|
00002490: BE 05 A1 F9 41 24 3A 8B 41 24 B2 22 51 22 A7 A0 |....A$:.A$."Q"..|
000024A0: 38 3A 89 38 31 30 00 B8 64 C8 05 8B 41 24 B2 22 |8:.810..d...A$."|
000024B0: 52 22 A7 89 31 34 30 30 00 CA 64 CD 05 8B 41 24 |R"..1400..d...A$|
000024C0: B3 B1 22 53 22 A7 31 34 37 30 00 4F 65 D2 05 A0 |.."S".1470.Oe...|
000024D0: 38 3A 99 22 9B 53 41 56 49 4E 47 20 4E 45 57 20 |8:.".SAVING NEW |
000024E0: 52 45 43 4F 52 44 20 54 4F 20 44 49 53 4B 2E 2E |RECORD TO DISK..|
000024F0: 2E 20 20 20 20 20 20 20 20 20 20 20 91 22 3A 9F |. .":.|
00002500: 38 2C 50 44 2C 38 2C 28 22 30 3A 22 AA 46 49 24 |8,PD,8,("0:".FI$|
00002510: AA 22 2E 44 42 46 2C 55 2C 52 22 29 3A 9F 37 2C |.".DBF,U,R"):.7,|
00002520: 50 44 2C 37 2C 28 22 40 30 3A 57 4F 52 4B 49 4E |PD,7,("@0:WORKIN|
00002530: 47 20 20 20 20 20 2E 54 4D 50 2C 55 2C 57 22 29 |G .TMP,U,W")|
00002540: 3A 8B 44 52 B2 31 B0 54 B2 31 A7 31 35 32 35 00 |:.DR.1.T.1.1525.|
00002550: 7A 65 E6 05 81 52 B2 31 A4 54 AB 31 3A 81 45 B2 |ze...R.1.T.1:.E.|
00002560: 31 A4 C5 28 44 46 24 29 3A 84 38 2C 41 24 3A 98 |1..(DF$):.8,A$:.|
00002570: 37 2C 41 24 3A 82 45 3A 82 52 00 AB 65 F5 05 81 |7,A$:.E:.R..e...|
00002580: 45 B2 31 A4 C5 28 44 46 24 29 3A 84 38 2C 43 43 |E.1..(DF$):.8,CC|
00002590: 24 3A 98 37 2C 44 45 24 28 45 2C 30 29 3A 82 45 |$:.7,DE$(E,0):.E|
000025A0: 3A 8B 54 B2 44 52 A7 31 35 34 30 00 D7 65 FF 05 |:.T.DR.1540..e..|
000025B0: 81 52 B2 54 AA 31 A4 44 52 3A 81 45 B2 31 A4 C5 |.R.T.1.DR:.E.1..|
000025C0: 28 44 46 24 29 3A 84 38 2C 41 24 3A 98 37 2C 41 |(DF$):.8,A$:.7,A|
000025D0: 24 3A 82 45 3A 82 52 00 9C 66 04 06 A0 38 3A A0 |$:.E:.R..f...8:.|
000025E0: 37 3A 9F 31 2C 50 44 2C 31 35 3A 98 31 2C 22 53 |7:.1,PD,15:.1,"S|
000025F0: 30 3A 22 AA 46 49 24 AA 22 2E 44 42 46 22 3A 98 |0:".FI$.".DBF":.|
00002600: 31 2C 22 52 30 3A 22 AA 46 49 24 AA 22 2E 44 42 |1,"R0:".FI$.".DB|
00002610: 46 3D 57 4F 52 4B 49 4E 47 20 20 20 20 20 2E 54 |F=WORKING .T|
00002620: 4D 50 22 3A A0 31 3A 9F 38 2C 50 44 2C 38 2C 28 |MP":.1:.8,PD,8,(|
00002630: 22 30 3A 22 AA 46 49 24 AA 22 2E 44 42 46 2C 55 |"0:".FI$.".DBF,U|
00002640: 2C 52 22 29 3A 81 45 B2 31 A4 54 AB 31 3A 81 57 |,R"):.E.1.T.1:.W|
00002650: B2 31 A4 C5 28 44 46 24 29 3A 84 38 2C 41 24 3A |.1..(DF$):.8,A$:|
00002660: 82 57 3A 82 45 3A 99 22 9B 44 4F 4E 45 2E 20 20 |.W:.E:.".DONE. |
00002670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002690: 22 3B 3A FE 0B 31 3A 89 31 34 33 35 00 0E 67 18 |";:..1:.1435..g.|
000026A0: 06 57 4C B2 31 30 3A 57 52 B2 32 39 3A 57 54 B2 |.WL.10:WR.29:WT.|
000026B0: 36 3A 57 42 B2 31 30 3A 57 43 B2 31 34 3A 57 48 |6:WB.10:WC.14:WH|
000026C0: 24 B2 22 50 52 49 4E 54 20 41 20 52 45 43 4F 52 |$."PRINT A RECOR|
000026D0: 44 22 3A 8D 32 35 38 35 3A 99 22 05 50 4C 45 41 |D":.2585:.".PLEA|
000026E0: 53 45 20 57 41 49 54 2E 2E 2E 2E 22 3B 3A 81 54 |SE WAIT....";:.T|
000026F0: B2 31 A4 C5 28 44 46 24 29 3A 44 45 24 28 54 2C |.1..(DF$):DE$(T,|
00002700: 30 29 B2 22 2A 22 3A 82 54 3A 89 39 34 35 00 72 |0)."*":.T:.945.r|
00002710: 67 31 06 57 4C B2 38 3A 57 52 B2 33 31 3A 57 54 |g1.WL.8:WR.31:WT|
00002720: B2 36 3A 57 42 B2 31 30 3A 57 43 B2 31 34 3A 57 |.6:WB.10:WC.14:W|
00002730: 48 24 B2 22 50 52 49 4E 54 20 44 42 41 53 45 22 |H$."PRINT DBASE"|
00002740: 3A 8D 32 35 38 35 3A 99 22 99 93 45 4E 54 45 52 |:.2585:."..ENTER|
00002750: 20 44 45 56 49 43 45 20 28 34 2F 35 2F 36 29 22 | DEVICE (4/5/6)"|
00002760: 3B 3A A1 F9 41 3A 8B 41 B3 34 B0 41 B1 36 A7 38 |;:..A:.A.4.A.6.8|
00002770: 31 30 00 9F 67 40 06 99 22 05 93 50 4C 45 41 53 |10..g@.."..PLEAS|
00002780: 45 20 57 41 49 54 2E 2E 2E 22 3B 3A 8B 41 B2 36 |E WAIT...";:.A.6|
00002790: A7 9F 33 2C 36 2C 33 3A 98 33 2C 30 3A A0 33 00 |..3,6,3:.3,0:.3.|
000027A0: 98 68 4A 06 9F 34 2C 41 3A 9F 38 2C 50 44 2C 38 |.hJ..4,A:.8,PD,8|
000027B0: 2C 28 22 30 3A 22 AA 46 49 24 AA 22 2E 44 42 46 |,("0:".FI$.".DBF|
000027C0: 2C 55 2C 52 22 29 3A 98 34 2C 22 44 42 41 53 45 |,U,R"):.4,"DBASE|
000027D0: 20 46 49 4C 45 3A 20 22 AA 46 49 24 3A 98 34 3A | FILE: ".FI$:.4:|
000027E0: 81 54 B2 31 A4 44 52 3A 81 52 B2 31 A4 C5 28 44 |.T.1.DR:.R.1..(D|
000027F0: 46 24 29 3A 84 38 2C 58 24 3A 41 24 B2 C8 28 44 |F$):.8,X$:A$..(D|
00002800: 57 24 28 52 29 AA 22 20 20 20 20 20 20 20 20 20 |W$(R)." |
00002810: 20 20 20 20 22 2C 31 32 29 AA 22 3A 22 AA C8 28 | ",12).":"..(|
00002820: 58 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 |X$." |
00002830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002840: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 32 | ",2|
00002850: 36 29 AA 22 20 22 3A 98 34 2C 41 24 3B 3A 82 52 |6)." ":.4,A$;:.R|
00002860: 3A 98 34 2C C7 28 31 33 29 3A 82 54 3A 9F 33 2C |:.4,.(13):.T:.3,|
00002870: 36 2C 33 3A 98 33 2C C2 28 31 32 32 38 39 29 3A |6,3:.3,.(12289):|
00002880: A0 33 3A A0 34 3A A0 38 3A 99 22 05 93 44 4F 4E |.3:.4:.8:."..DON|
00002890: 45 2E 22 3A 89 38 31 30 00 78 69 7C 06 83 22 23 |E.":.810.xi|.."#|
000028A0: 31 22 3A 83 22 20 20 20 20 20 20 20 20 20 20 4D |1":." M|
000028B0: 41 49 4E 20 4D 45 4E 55 20 4F 50 54 49 4F 4E 53 |AIN MENU OPTIONS|
000028C0: 20 20 20 20 20 20 20 20 20 20 22 3A 83 22 2D 2D | ":."--|
000028D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000028E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000028F0: 2D 2D 2D 22 3A 83 22 43 52 45 41 54 45 20 41 20 |---":."CREATE A |
00002900: 44 41 54 41 20 42 41 53 45 3A 2D 22 2C 22 22 3A |DATA BASE:-","":|
00002910: 83 22 49 46 20 59 4F 55 20 57 49 53 48 20 54 4F |."IF YOU WISH TO|
00002920: 20 43 52 45 41 54 45 20 41 20 4E 45 57 20 44 41 | CREATE A NEW DA|
00002930: 54 41 22 3A 83 22 42 41 53 45 2C 20 53 45 4C 45 |TA":."BASE, SELE|
00002940: 43 54 20 54 48 49 53 20 4F 50 54 49 4F 4E 2E 22 |CT THIS OPTION."|
00002950: 2C 22 22 3A 83 22 59 4F 55 20 57 49 4C 4C 20 54 |,"":."YOU WILL T|
00002960: 48 45 4E 20 42 45 20 50 52 4F 4D 50 54 45 44 20 |HEN BE PROMPTED |
00002970: 46 4F 52 20 54 48 45 22 00 71 6A 9F 06 83 22 46 |FOR THE".qj..."F|
00002980: 49 4C 45 4E 41 4D 45 20 4F 46 20 54 48 45 20 4E |ILENAME OF THE N|
00002990: 45 57 20 44 41 54 41 20 42 41 53 45 2E 20 20 4F |EW DATA BASE. O|
000029A0: 4E 43 45 22 3A 83 22 59 4F 55 20 48 41 56 45 20 |NCE":."YOU HAVE |
000029B0: 45 4E 54 45 52 45 45 44 20 54 48 45 20 4E 45 57 |ENTEREED THE NEW|
000029C0: 20 46 49 4C 45 4E 41 4D 45 2C 22 3A 83 22 49 54 | FILENAME,":."IT|
000029D0: 20 57 49 4C 4C 20 52 45 51 55 45 53 54 20 46 49 | WILL REQUEST FI|
000029E0: 45 4C 44 20 54 49 54 4C 45 53 2F 4E 41 4D 45 53 |ELD TITLES/NAMES|
000029F0: 2E 22 3A 83 22 45 4E 54 45 52 20 54 48 45 20 4E |.":."ENTER THE N|
00002A00: 41 4D 45 53 2C 20 50 52 45 53 53 49 4E 47 20 52 |AMES, PRESSING R|
00002A10: 45 54 55 52 4E 22 3A 83 22 41 46 54 45 52 20 45 |ETURN":."AFTER E|
00002A20: 41 43 48 20 45 4E 54 52 59 2E 20 20 54 4F 20 45 |ACH ENTRY. TO E|
00002A30: 4E 44 20 45 4E 54 45 52 49 4E 47 22 3A 83 22 46 |ND ENTERING":."F|
00002A40: 49 45 4C 44 20 54 49 54 4C 45 53 2C 20 4A 55 53 |IELD TITLES, JUS|
00002A50: 54 20 50 52 45 53 53 20 52 45 54 55 52 4E 20 41 |T PRESS RETURN A|
00002A60: 54 22 3A 83 22 54 48 45 20 50 52 4F 4D 50 54 2E |T":."THE PROMPT.|
00002A70: 22 00 55 6B C2 06 83 22 23 22 3A 83 22 59 4F 55 |".Uk..."#":."YOU|
00002A80: 20 57 49 4C 4C 20 54 48 45 4E 20 42 45 20 53 48 | WILL THEN BE SH|
00002A90: 4F 57 4E 20 54 48 45 20 4E 41 4D 45 20 41 4E 44 |OWN THE NAME AND|
00002AA0: 22 3A 83 22 4E 55 4D 42 45 52 20 4F 46 20 46 49 |":."NUMBER OF FI|
00002AB0: 45 4C 44 53 20 59 4F 55 52 20 4E 45 57 20 44 41 |ELDS YOUR NEW DA|
00002AC0: 54 41 22 3A 83 22 42 41 53 45 20 57 49 4C 4C 20 |TA":."BASE WILL |
00002AD0: 48 41 56 45 2E 20 20 50 52 45 53 53 20 27 59 27 |HAVE. PRESS 'Y'|
00002AE0: 20 48 45 52 45 2C 20 41 4E 44 22 3A 83 22 59 4F | HERE, AND":."YO|
00002AF0: 55 52 20 44 41 54 41 20 42 41 53 45 20 43 4F 4E |UR DATA BASE CON|
00002B00: 46 49 47 55 52 41 54 49 4F 4E 20 57 49 4C 4C 20 |FIGURATION WILL |
00002B10: 42 45 22 3A 83 22 53 41 56 45 44 20 54 4F 20 44 |BE":."SAVED TO D|
00002B20: 49 53 4B 2E 22 2C 22 23 22 3A 83 22 20 20 20 3D |ISK.","#":." =|
00002B30: 3D 20 20 4C 4F 41 44 20 41 20 53 41 56 45 44 20 |= LOAD A SAVED |
00002B40: 44 41 54 41 20 42 41 53 45 20 20 3D 3D 20 20 20 |DATA BASE == |
00002B50: 20 22 2C 22 22 00 36 6C E5 06 83 22 4F 4E 43 45 | ","".6l..."ONCE|
00002B60: 20 59 4F 55 20 48 41 56 45 20 43 52 45 41 54 45 | YOU HAVE CREATE|
00002B70: 44 20 41 20 44 41 54 41 20 42 41 53 45 2C 20 4F |D A DATA BASE, O|
00002B80: 52 22 3A 83 22 59 4F 55 20 57 49 53 48 20 54 4F |R":."YOU WISH TO|
00002B90: 20 45 44 49 54 2F 56 49 45 57 20 41 20 44 41 54 | EDIT/VIEW A DAT|
00002BA0: 41 20 42 41 53 45 2C 22 3A 83 22 59 4F 55 20 4D |A BASE,":."YOU M|
00002BB0: 55 53 54 20 55 53 45 20 54 48 49 53 20 4F 50 54 |UST USE THIS OPT|
00002BC0: 49 4F 4E 20 54 4F 20 4C 4F 41 44 20 54 48 45 22 |ION TO LOAD THE"|
00002BD0: 3A 83 22 44 42 41 53 45 20 46 52 4F 4D 20 44 49 |:."DBASE FROM DI|
00002BE0: 53 4B 2E 22 2C 22 22 3A 83 22 4F 4E 43 45 20 54 |SK.","":."ONCE T|
00002BF0: 48 45 20 4F 50 54 49 4F 4E 20 48 41 53 20 42 45 |HE OPTION HAS BE|
00002C00: 45 4E 20 43 48 4F 53 45 4E 2C 20 59 4F 55 22 3A |EN CHOSEN, YOU":|
00002C10: 83 22 57 49 4C 4C 20 42 45 20 52 45 51 55 49 52 |."WILL BE REQUIR|
00002C20: 45 44 20 54 4F 20 45 4E 54 45 52 20 54 48 45 20 |ED TO ENTER THE |
00002C30: 46 49 4C 45 2D 22 00 2F 6D 03 07 83 22 4E 41 4D |FILE-"./m..."NAM|
00002C40: 45 20 4F 46 20 54 48 45 20 44 42 41 53 45 20 59 |E OF THE DBASE Y|
00002C50: 4F 55 20 57 49 53 48 20 54 4F 20 56 49 45 57 2F |OU WISH TO VIEW/|
00002C60: 22 3A 83 22 45 44 49 54 2E 22 2C 22 22 3A 83 22 |":."EDIT.","":."|
00002C70: 54 48 45 20 44 42 41 53 45 20 43 4F 4E 46 49 47 |THE DBASE CONFIG|
00002C80: 55 52 41 54 49 4F 4E 20 57 49 4C 4C 20 42 45 22 |URATION WILL BE"|
00002C90: 3A 83 22 4C 4F 41 44 45 44 20 53 4F 54 48 41 54 |:."LOADED SOTHAT|
00002CA0: 20 59 4F 55 20 43 41 4E 20 56 49 45 57 2F 45 44 | YOU CAN VIEW/ED|
00002CB0: 49 54 22 3A 83 22 54 48 45 20 44 42 41 53 45 2E |IT":."THE DBASE.|
00002CC0: 22 2C 22 23 22 3A 83 22 4F 4E 43 45 20 54 48 45 |","#":."ONCE THE|
00002CD0: 20 43 4F 4E 46 49 47 20 48 41 53 20 42 45 45 4E | CONFIG HAS BEEN|
00002CE0: 20 4C 4F 41 44 45 44 2C 22 3A 83 22 59 4F 55 20 | LOADED,":."YOU |
00002CF0: 57 49 4C 4C 20 45 4E 54 45 52 20 49 4E 54 4F 20 |WILL ENTER INTO |
00002D00: 41 4E 4F 54 48 45 52 20 4D 45 4E 55 22 3A 83 22 |ANOTHER MENU":."|
00002D10: 53 59 53 54 45 4D 2E 20 20 49 4E 46 4F 52 4D 41 |SYSTEM. INFORMA|
00002D20: 54 49 4F 4E 20 46 4F 52 20 54 48 45 53 45 22 00 |TION FOR THESE".|
00002D30: 07 6E 2B 07 83 22 4F 50 54 49 4F 4E 53 2C 20 41 |.n+.."OPTIONS, A|
00002D40: 52 45 20 4F 4E 20 54 48 45 20 48 45 4C 50 20 50 |RE ON THE HELP P|
00002D50: 41 47 45 22 3A 83 22 41 56 41 49 4C 41 42 4C 45 |AGE":."AVAILABLE|
00002D60: 20 54 48 45 52 45 2E 22 2C 22 23 22 3A 83 22 20 | THERE.","#":." |
00002D70: 20 20 20 20 20 20 3D 3D 20 20 55 54 49 4C 49 54 | == UTILIT|
00002D80: 49 45 53 20 4D 45 4E 55 20 20 3D 3D 20 20 20 20 |IES MENU == |
00002D90: 20 20 20 20 22 2C 22 22 3A 83 22 54 48 49 53 20 | ","":."THIS |
00002DA0: 4D 45 4E 55 20 4C 49 53 54 53 20 53 4F 4D 45 20 |MENU LISTS SOME |
00002DB0: 55 53 45 46 55 4C 20 55 54 49 4C 49 54 49 45 53 |USEFUL UTILITIES|
00002DC0: 22 3A 83 22 46 4F 52 20 54 48 45 20 55 50 2D 4B |":."FOR THE UP-K|
00002DD0: 45 45 50 20 4F 46 20 59 4F 55 52 20 44 42 41 53 |EEP OF YOUR DBAS|
00002DE0: 45 2E 22 2C 22 22 3A 83 22 55 54 49 4C 49 54 49 |E.","":."UTILITI|
00002DF0: 45 53 20 54 48 41 54 20 45 58 49 53 54 20 41 52 |ES THAT EXIST AR|
00002E00: 45 3A 2D 22 2C 22 22 00 F3 6E 49 07 83 22 44 42 |E:-",""..nI.."DB|
00002E10: 41 53 45 20 42 41 43 4B 2D 55 50 2C 20 57 48 49 |ASE BACK-UP, WHI|
00002E20: 43 48 20 41 4C 4C 4F 57 53 20 59 4F 55 20 54 4F |CH ALLOWS YOU TO|
00002E30: 22 3A 83 22 4B 45 45 50 20 42 41 43 4B 2D 55 50 |":."KEEP BACK-UP|
00002E40: 53 20 4F 46 20 59 4F 55 52 20 44 42 41 53 45 2C |S OF YOUR DBASE,|
00002E50: 20 4A 55 53 54 22 3A 83 22 49 4E 2D 43 41 53 45 | JUST":."IN-CASE|
00002E60: 20 54 48 45 20 46 49 4C 45 20 42 45 43 4F 4D 45 | THE FILE BECOME|
00002E70: 53 20 43 4F 52 52 55 50 54 45 44 2E 22 2C 22 22 |S CORRUPTED.",""|
00002E80: 3A 83 22 4F 54 48 45 52 20 55 53 45 46 55 4C 20 |:."OTHER USEFUL |
00002E90: 55 54 49 4C 49 54 49 45 53 20 49 4E 43 4C 55 44 |UTILITIES INCLUD|
00002EA0: 45 20 41 22 3A 83 22 46 41 43 49 4C 49 54 59 20 |E A":."FACILITY |
00002EB0: 54 4F 20 41 44 44 2C 20 4F 52 20 44 45 4C 45 54 |TO ADD, OR DELET|
00002EC0: 45 20 41 20 46 49 45 4C 44 22 3A 83 22 54 48 41 |E A FIELD":."THA|
00002ED0: 54 20 45 58 49 53 54 53 20 4F 4E 20 41 20 53 41 |T EXISTS ON A SA|
00002EE0: 56 45 44 20 44 41 54 41 20 42 41 53 45 2E 22 2C |VED DATA BASE.",|
00002EF0: 22 23 22 00 E9 6F 67 07 83 22 57 49 4C 4C 20 41 |"#"..og.."WILL A|
00002F00: 4C 4C 20 54 48 45 20 4F 50 54 49 4F 4E 53 20 4F |LL THE OPTIONS O|
00002F10: 4E 20 54 48 49 53 20 4D 45 4E 55 2C 22 3A 83 22 |N THIS MENU,":."|
00002F20: 59 4F 55 20 57 49 4C 4C 20 4E 45 41 52 4C 59 20 |YOU WILL NEARLY |
00002F30: 41 4C 57 41 59 53 20 42 45 20 50 52 4F 4D 50 54 |ALWAYS BE PROMPT|
00002F40: 45 44 22 3A 83 22 46 4F 52 20 41 20 46 49 4C 45 |ED":."FOR A FILE|
00002F50: 20 4E 41 4D 45 2E 20 20 48 45 52 45 20 59 4F 55 | NAME. HERE YOU|
00002F60: 20 53 48 4F 55 4C 44 22 3A 83 22 45 4E 54 45 52 | SHOULD":."ENTER|
00002F70: 20 54 48 45 20 44 42 41 53 45 20 46 49 4C 45 20 | THE DBASE FILE |
00002F80: 4E 41 4D 45 20 54 48 41 54 20 59 4F 55 22 3A 83 |NAME THAT YOU":.|
00002F90: 22 54 4F 20 43 48 41 4E 47 45 2E 22 2C 22 22 3A |"TO CHANGE.","":|
00002FA0: 83 22 41 53 20 57 49 54 48 20 41 4C 4C 20 49 4D |."AS WITH ALL IM|
00002FB0: 50 4F 52 54 41 4E 54 20 46 49 4C 45 53 2C 20 59 |PORTANT FILES, Y|
00002FC0: 4F 55 22 3A 83 22 54 52 59 20 41 4E 44 20 4D 41 |OU":."TRY AND MA|
00002FD0: 4B 45 20 52 45 47 55 4C 41 52 20 42 41 43 4B 2D |KE REGULAR BACK-|
00002FE0: 55 50 53 2C 20 41 4E 44 22 00 DD 70 8A 07 83 22 |UPS, AND"..p..."|
00002FF0: 57 48 45 4E 20 55 53 49 4E 47 20 54 48 45 53 45 |WHEN USING THESE|
00003000: 20 55 54 49 4C 49 54 49 45 53 2C 20 4A 55 53 54 | UTILITIES, JUST|
00003010: 20 49 4E 22 3A 83 22 41 4E 59 54 48 49 4E 47 20 | IN":."ANYTHING |
00003020: 53 48 4F 55 4C 44 20 47 4F 20 57 52 4F 4E 47 2E |SHOULD GO WRONG.|
00003030: 22 2C 22 23 22 3A 83 22 20 20 20 20 20 20 20 20 |","#":." |
00003040: 20 3D 3D 20 20 45 58 49 54 20 54 4F 20 42 41 53 | == EXIT TO BAS|
00003050: 49 43 20 20 3D 3D 20 20 20 20 20 20 20 20 20 20 |IC == |
00003060: 22 2C 22 22 3A 83 22 54 48 49 53 20 57 49 4C 4C |","":."THIS WILL|
00003070: 20 45 58 49 54 20 44 42 41 53 45 20 31 32 38 2E | EXIT DBASE 128.|
00003080: 20 20 49 46 20 59 4F 55 20 57 49 53 48 22 3A 83 | IF YOU WISH":.|
00003090: 22 54 4F 20 52 45 2D 52 55 4E 20 44 42 41 53 45 |"TO RE-RUN DBASE|
000030A0: 20 31 32 38 2C 20 4A 55 53 54 20 54 59 50 45 20 | 128, JUST TYPE |
000030B0: 27 52 55 4E 27 20 41 4E 44 22 3A 83 22 50 52 45 |'RUN' AND":."PRE|
000030C0: 53 53 20 54 48 45 20 52 45 54 55 52 4E 20 4B 45 |SS THE RETURN KE|
000030D0: 59 2E 22 2C 22 2A 22 3A 83 22 23 30 22 00 C0 71 |Y.","*":."#0"..q|
000030E0: AD 07 83 22 20 20 20 20 20 20 20 20 20 20 20 48 |..." H|
000030F0: 4F 57 20 54 4F 20 55 53 45 20 48 45 4C 50 20 20 |OW TO USE HELP |
00003100: 20 20 20 20 20 20 20 20 22 3A 83 22 3D 3D 3D 3D | ":."====|
00003110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003130: 3D 22 3A 83 22 54 48 52 45 45 20 48 45 4C 50 20 |=":."THREE HELP |
00003140: 53 45 43 54 49 4F 4E 53 20 41 52 45 20 41 56 41 |SECTIONS ARE AVA|
00003150: 49 4C 41 42 4C 45 22 3A 83 22 4F 4E 45 20 46 4F |ILABLE":."ONE FO|
00003160: 52 20 45 41 43 48 20 4D 45 4E 55 3A 2D 22 2C 22 |R EACH MENU:-","|
00003170: 22 3A 83 22 20 20 20 20 20 20 4D 41 49 4E 20 4D |":." MAIN M|
00003180: 45 4E 55 22 3A 83 22 20 20 20 20 20 20 55 54 49 |ENU":." UTI|
00003190: 4C 49 54 49 45 53 20 4D 45 4E 55 22 3A 83 22 20 |LITIES MENU":." |
000031A0: 20 20 20 20 20 44 42 41 53 45 20 41 4C 54 45 52 | DBASE ALTER|
000031B0: 41 54 49 4F 4E 53 20 4D 45 4E 55 22 3A 83 22 22 |ATIONS MENU":.""|
000031C0: 00 B4 72 D5 07 83 22 54 4F 20 41 43 43 45 53 53 |..r..."TO ACCESS|
000031D0: 20 54 48 45 53 45 20 4D 45 4E 55 53 2C 20 50 52 | THESE MENUS, PR|
000031E0: 45 53 53 20 27 48 27 22 3A 83 22 57 48 49 4C 45 |ESS 'H'":."WHILE|
000031F0: 20 4F 4E 20 54 48 45 20 41 50 50 52 4F 50 52 49 | ON THE APPROPRI|
00003200: 41 54 45 20 4D 45 4E 55 2E 22 2C 22 22 3A 83 22 |ATE MENU.","":."|
00003210: 45 51 2D 22 3A 83 22 20 20 50 52 45 53 53 49 4E |EQ-":." PRESSIN|
00003220: 47 20 48 20 4F 4E 20 54 48 45 20 55 54 49 4C 49 |G H ON THE UTILI|
00003230: 54 49 45 53 20 4D 45 4E 55 22 3A 83 22 20 20 57 |TIES MENU":." W|
00003240: 49 4C 4C 20 42 52 49 4E 47 20 55 50 20 48 45 4C |ILL BRING UP HEL|
00003250: 50 20 4F 4E 20 54 48 45 22 3A 83 22 20 20 55 54 |P ON THE":." UT|
00003260: 49 4C 49 54 49 45 53 20 4C 49 53 54 45 44 20 49 |ILITIES LISTED I|
00003270: 4E 20 54 48 41 54 20 4D 45 4E 55 2E 22 3A 83 22 |N THAT MENU.":."|
00003280: 22 2C 22 2A 22 3A 83 22 23 32 22 3A 83 22 20 20 |","*":."#2":." |
00003290: 20 20 20 20 20 20 20 20 20 55 54 49 4C 49 54 49 | UTILITI|
000032A0: 45 53 20 4D 45 4E 55 20 20 20 20 20 20 20 20 20 |ES MENU |
000032B0: 20 20 20 22 00 A4 73 02 08 83 22 C4 C4 C4 C4 C4 | "..s...".....|
000032C0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000032D0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000032E0: 22 3A 83 22 43 48 41 4E 47 45 20 44 42 41 53 45 |":."CHANGE DBASE|
000032F0: 20 4E 41 4D 45 22 3A 83 22 3D 3D 3D 3D 3D 3D 3D | NAME":."=======|
00003300: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A 83 22 54 48 |==========":."TH|
00003310: 49 53 20 57 49 4C 4C 20 52 45 4E 41 4D 45 20 41 |IS WILL RENAME A|
00003320: 4C 4C 20 54 48 45 20 52 45 4C 41 56 45 4E 54 22 |LL THE RELAVENT"|
00003330: 3A 83 22 46 49 4C 45 53 20 54 4F 20 41 20 44 45 |:."FILES TO A DE|
00003340: 53 49 52 45 44 20 46 49 4C 45 20 4E 41 4D 45 2E |SIRED FILE NAME.|
00003350: 22 2C 22 22 3A 83 22 59 4F 55 20 57 49 4C 4C 20 |","":."YOU WILL |
00003360: 42 45 20 50 52 4F 4D 50 54 45 44 20 46 4F 52 20 |BE PROMPTED FOR |
00003370: 54 48 45 20 43 55 52 52 45 4E 54 22 3A 83 22 46 |THE CURRENT":."F|
00003380: 49 4C 45 20 4E 41 4D 45 2C 20 41 4E 44 20 44 45 |ILE NAME, AND DE|
00003390: 53 49 52 45 44 20 4E 41 4D 45 20 46 4F 52 20 54 |SIRED NAME FOR T|
000033A0: 48 49 53 22 00 84 74 25 08 83 22 44 42 41 53 45 |HIS"..t%.."DBASE|
000033B0: 2E 22 2C 22 22 2C 22 23 22 3A 83 22 42 41 43 4B |.","","#":."BACK|
000033C0: 2D 55 50 20 41 20 44 42 41 53 45 22 3A 83 22 3D |-UP A DBASE":."=|
000033D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A |==============":|
000033E0: 83 22 49 54 20 49 53 20 53 55 47 47 45 53 54 45 |."IT IS SUGGESTE|
000033F0: 44 20 54 4F 20 4D 41 4B 45 20 52 45 47 55 4C 41 |D TO MAKE REGULA|
00003400: 52 22 3A 83 22 42 41 43 4B 2D 55 50 53 20 4F 46 |R":."BACK-UPS OF|
00003410: 20 59 4F 55 52 20 44 42 41 53 45 53 27 2C 20 45 | YOUR DBASES', E|
00003420: 53 50 45 43 49 41 4C 4C 59 22 3A 83 22 57 48 45 |SPECIALLY":."WHE|
00003430: 4E 20 27 41 44 44 49 4E 47 20 41 20 46 49 45 4C |N 'ADDING A FIEL|
00003440: 44 27 2C 20 4F 52 20 4C 4F 4E 47 20 54 45 52 4D |D', OR LONG TERM|
00003450: 22 3A 83 22 45 44 49 54 49 4E 47 2E 22 2C 22 22 |":."EDITING.",""|
00003460: 3A 83 22 57 48 45 4E 20 54 48 45 20 4F 50 54 49 |:."WHEN THE OPTI|
00003470: 4F 4E 20 49 4E 20 53 45 4C 45 43 54 45 44 2C 20 |ON IN SELECTED, |
00003480: 59 4F 55 22 00 6F 75 4D 08 83 22 41 52 45 20 52 |YOU".ouM.."ARE R|
00003490: 45 51 55 49 52 45 44 20 54 4F 20 45 4E 54 45 52 |EQUIRED TO ENTER|
000034A0: 20 54 48 45 20 46 49 4C 45 20 4E 41 4D 45 22 3A | THE FILE NAME":|
000034B0: 83 22 4F 46 20 54 48 45 20 44 42 41 53 45 20 54 |."OF THE DBASE T|
000034C0: 4F 20 42 41 43 4B 2D 55 50 2E 20 54 48 45 20 53 |O BACK-UP. THE S|
000034D0: 59 53 54 45 4D 22 3A 83 22 57 49 4C 4C 20 44 4F |YSTEM":."WILL DO|
000034E0: 20 54 48 45 20 52 45 53 54 2E 22 2C 22 22 2C 22 | THE REST.","","|
000034F0: 23 22 3A 83 22 41 44 44 20 41 20 46 49 45 4C 44 |#":."ADD A FIELD|
00003500: 22 3A 83 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |":."==========="|
00003510: 3A 83 22 49 46 2C 20 41 46 54 45 52 20 43 52 45 |:."IF, AFTER CRE|
00003520: 41 54 49 4E 47 20 59 4F 55 20 44 42 41 53 45 2C |ATING YOU DBASE,|
00003530: 20 59 4F 55 22 3A 83 22 44 45 43 49 44 45 20 59 | YOU":."DECIDE Y|
00003540: 4F 55 20 4E 45 45 44 20 41 4E 20 45 58 54 52 41 |OU NEED AN EXTRA|
00003550: 20 46 49 45 4C 44 2C 22 3A 83 22 55 53 45 20 54 | FIELD,":."USE T|
00003560: 48 49 53 20 4F 50 54 49 4F 4E 2E 22 2C 22 22 00 |HIS OPTION.","".|
00003570: 69 76 75 08 83 22 4F 4E 43 45 20 59 4F 55 27 56 |ivu.."ONCE YOU'V|
00003580: 45 20 45 4E 54 45 52 20 54 48 45 20 46 49 4C 45 |E ENTER THE FILE|
00003590: 20 4E 41 4D 45 2C 22 3A 83 22 59 4F 55 27 4C 4C | NAME,":."YOU'LL|
000035A0: 20 42 45 20 41 53 4B 45 44 20 46 4F 52 20 54 48 | BE ASKED FOR TH|
000035B0: 45 20 4E 45 57 20 46 49 45 4C 44 22 3A 83 22 4E |E NEW FIELD":."N|
000035C0: 41 4D 45 2E 20 4F 4E 43 45 20 54 48 49 53 20 49 |AME. ONCE THIS I|
000035D0: 53 20 45 4E 54 45 52 45 44 2C 20 41 4E 44 22 3A |S ENTERED, AND":|
000035E0: 83 22 59 4F 55 20 43 4F 4E 46 49 52 4D 20 54 48 |."YOU CONFIRM TH|
000035F0: 45 20 4F 50 45 52 41 54 49 4F 4E 2C 20 54 48 45 |E OPERATION, THE|
00003600: 22 3A 83 22 53 59 53 54 45 4D 20 57 49 4C 4C 20 |":."SYSTEM WILL |
00003610: 41 44 44 20 41 20 46 49 45 4C 44 20 54 4F 20 54 |ADD A FIELD TO T|
00003620: 48 45 22 3A 83 22 43 4F 4E 46 49 47 20 46 49 4C |HE":."CONFIG FIL|
00003630: 45 2C 20 54 48 45 4E 20 45 4E 54 45 52 20 41 20 |E, THEN ENTER A |
00003640: 42 4C 41 4E 4B 22 3A 83 22 45 4E 54 52 59 20 46 |BLANK":."ENTRY F|
00003650: 4F 52 20 45 56 45 52 20 52 45 43 4F 52 44 20 53 |OR EVER RECORD S|
00003660: 54 4F 52 45 44 20 4F 4E 22 00 55 77 98 08 83 22 |TORED ON".Uw..."|
00003670: 44 49 53 4B 2E 22 2C 22 22 2C 22 23 22 3A 83 22 |DISK.","","#":."|
00003680: 53 45 45 20 41 20 44 49 53 4B 20 44 49 52 45 43 |SEE A DISK DIREC|
00003690: 54 4F 52 59 22 3A 83 22 3D 3D 3D 3D 3D 3D 3D 3D |TORY":."========|
000036A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A 83 22 |============":."|
000036B0: 44 49 53 50 4C 41 59 53 20 54 48 45 20 44 49 52 |DISPLAYS THE DIR|
000036C0: 45 43 54 4F 52 59 20 4F 46 20 54 48 45 22 3A 83 |ECTORY OF THE":.|
000036D0: 22 44 49 53 4B 20 43 55 52 52 45 4E 54 4C 59 20 |"DISK CURRENTLY |
000036E0: 49 4E 20 44 52 49 56 45 20 28 44 45 56 3A 38 29 |IN DRIVE (DEV:8)|
000036F0: 2E 22 3A 83 22 22 2C 22 23 22 3A 83 22 44 45 4C |.":."","#":."DEL|
00003700: 45 54 45 20 41 20 44 42 41 53 45 22 3A 83 22 3D |ETE A DBASE":."=|
00003710: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A 83 |=============":.|
00003720: 22 54 48 49 53 20 57 49 4C 4C 20 44 45 4C 45 54 |"THIS WILL DELET|
00003730: 45 20 41 20 44 42 41 53 45 20 54 48 41 54 22 3A |E A DBASE THAT":|
00003740: 83 22 45 58 49 53 54 53 20 4F 4E 20 44 49 53 4B |."EXISTS ON DISK|
00003750: 2E 22 2C 22 22 00 50 78 CA 08 83 22 41 46 54 45 |.","".Px..."AFTE|
00003760: 52 20 45 4E 54 45 52 49 4E 47 20 54 48 45 20 46 |R ENTERING THE F|
00003770: 49 4C 45 4E 41 4D 45 2C 22 3A 83 22 59 4F 55 20 |ILENAME,":."YOU |
00003780: 57 49 4C 4C 20 42 45 20 43 4F 4E 46 52 55 4E 54 |WILL BE CONFRUNT|
00003790: 45 44 20 57 49 54 48 22 3A 83 22 27 42 41 43 4B |ED WITH":."'BACK|
000037A0: 2D 55 50 53 20 41 53 20 57 45 4C 4C 3F 27 2E 20 |-UPS AS WELL?'. |
000037B0: 41 4E 53 57 45 52 49 4E 47 22 3A 83 22 27 59 27 |ANSWERING":."'Y'|
000037C0: 45 53 20 54 4F 20 54 48 49 53 20 57 49 4C 4C 20 |ES TO THIS WILL |
000037D0: 44 45 4C 45 54 45 20 41 4C 4C 22 3A 83 22 46 49 |DELETE ALL":."FI|
000037E0: 4C 45 20 45 4E 54 52 49 45 53 2C 20 49 4E 43 4C |LE ENTRIES, INCL|
000037F0: 55 53 49 4E 47 20 42 41 43 4B 2D 55 50 53 2C 22 |USING BACK-UPS,"|
00003800: 3A 83 22 46 52 4F 4D 20 44 49 53 4B 2E 22 2C 22 |:."FROM DISK.","|
00003810: 22 3A 83 22 4E 45 56 45 52 20 55 53 45 20 27 2A |":."NEVER USE '*|
00003820: 27 20 28 57 49 4C 44 20 43 41 52 44 29 20 49 4E |' (WILD CARD) IN|
00003830: 22 3A 83 22 46 49 4C 45 20 4E 41 4D 45 53 2C 20 |":."FILE NAMES, |
00003840: 45 53 50 45 43 49 41 4C 4C 59 20 57 48 45 4E 22 |ESPECIALLY WHEN"|
00003850: 00 3E 79 F2 08 83 22 44 45 4C 45 54 49 4E 47 20 |.>y..."DELETING |
00003860: 46 49 4C 45 53 2E 22 2C 22 22 2C 22 2A 22 3A 83 |FILES.","","*":.|
00003870: 22 23 33 22 3A 83 22 20 20 20 20 20 20 20 44 42 |"#3":." DB|
00003880: 41 53 45 20 41 4C 54 45 52 41 54 49 4F 4E 53 20 |ASE ALTERATIONS |
00003890: 4D 45 4E 55 20 20 20 20 20 20 20 20 22 3A 83 22 |MENU ":."|
000038A0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000038B0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000038C0: C4 C4 C4 C4 C4 22 3A 83 22 45 58 49 54 20 54 4F |.....":."EXIT TO|
000038D0: 20 4D 41 49 4E 20 4D 45 4E 55 22 3A 83 22 3D 3D | MAIN MENU":."==|
000038E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==============="|
000038F0: 3A 83 22 52 45 54 55 52 4E 53 20 54 4F 20 4D 41 |:."RETURNS TO MA|
00003900: 49 4E 20 4D 45 4E 55 2C 20 57 48 45 52 45 20 59 |IN MENU, WHERE Y|
00003910: 4F 55 20 43 41 4E 22 3A 83 22 4C 4F 41 44 2C 20 |OU CAN":."LOAD, |
00003920: 4F 52 20 55 53 45 20 55 54 49 4C 49 54 49 45 53 |OR USE UTILITIES|
00003930: 20 49 4E 20 55 54 49 4C 49 54 49 45 53 22 00 1E | IN UTILITIES"..|
00003940: 7A 1A 09 83 22 4D 45 4E 55 2E 22 2C 22 22 2C 22 |z..."MENU.","","|
00003950: 23 22 3A 83 22 53 45 41 52 43 48 20 46 4F 52 20 |#":."SEARCH FOR |
00003960: 41 20 52 45 43 4F 52 44 22 3A 83 22 3D 3D 3D 3D |A RECORD":."====|
00003970: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==============="|
00003980: 3A 83 22 54 48 49 53 20 4F 50 54 49 4F 4E 53 20 |:."THIS OPTIONS |
00003990: 4C 45 54 53 20 59 4F 55 20 53 45 41 52 43 48 20 |LETS YOU SEARCH |
000039A0: 59 4F 55 52 22 3A 83 22 44 42 41 53 45 20 46 4F |YOUR":."DBASE FO|
000039B0: 52 20 44 45 53 49 52 45 44 20 52 45 43 4F 52 44 |R DESIRED RECORD|
000039C0: 20 43 4F 4E 54 45 4E 54 53 22 2C 22 22 3A 83 22 | CONTENTS","":."|
000039D0: 45 47 2D 22 3A 83 22 20 20 20 59 4F 55 52 20 44 |EG-":." YOUR D|
000039E0: 42 41 53 45 53 27 20 46 49 52 53 54 20 46 49 45 |BASES' FIRST FIE|
000039F0: 4C 44 20 49 53 22 3A 83 22 20 20 20 4E 41 4D 45 |LD IS":." NAME|
00003A00: 2E 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 46 49 |. YOU WANT TO FI|
00003A10: 4E 44 20 41 4C 4C 20 46 49 45 4C 44 53 22 00 06 |ND ALL FIELDS"..|
00003A20: 7B 42 09 83 22 20 20 20 57 49 54 48 20 27 42 4C |{B.." WITH 'BL|
00003A30: 4F 47 47 53 27 20 49 4E 20 54 48 45 20 4E 41 4D |OGGS' IN THE NAM|
00003A40: 45 2F 46 49 45 4C 44 2E 22 3A 83 22 20 20 20 54 |E/FIELD.":." T|
00003A50: 48 49 53 20 57 4F 55 4C 44 20 42 45 20 44 4F 4E |HIS WOULD BE DON|
00003A60: 45 20 42 59 2E 2E 2E 22 2C 22 22 3A 83 22 20 20 |E BY...","":." |
00003A70: 20 4E 41 4D 45 20 3A 20 2A 42 4C 4F 47 47 53 2A | NAME : *BLOGGS*|
00003A80: 22 2C 22 22 3A 83 22 50 52 45 53 53 49 4E 47 20 |","":."PRESSING |
00003A90: 52 45 54 55 52 4E 20 4F 4E 20 49 54 27 53 20 4F |RETURN ON IT'S O|
00003AA0: 57 4E 20 42 59 20 41 22 3A 83 22 46 49 45 4C 44 |WN BY A":."FIELD|
00003AB0: 2C 20 57 49 4C 4C 20 41 43 54 20 41 53 20 41 20 |, WILL ACT AS A |
00003AC0: 57 49 4C 44 20 43 41 52 44 20 46 4F 52 22 3A 83 |WILD CARD FOR":.|
00003AD0: 22 54 48 45 20 57 48 4F 4C 45 20 46 49 45 4C 44 |"THE WHOLE FIELD|
00003AE0: 2E 22 2C 22 23 22 3A 83 22 41 44 44 20 41 20 52 |.","#":."ADD A R|
00003AF0: 45 43 4F 52 44 22 3A 83 22 3D 3D 3D 3D 3D 3D 3D |ECORD":."=======|
00003B00: 3D 3D 3D 3D 3D 22 00 FE 7B 6A 09 83 22 55 53 45 |====="..{j.."USE|
00003B10: 20 54 48 49 53 20 4F 50 54 49 4F 4E 20 54 4F 20 | THIS OPTION TO |
00003B20: 41 44 44 20 41 20 52 45 43 4F 52 44 20 54 4F 22 |ADD A RECORD TO"|
00003B30: 3A 83 22 59 4F 55 52 20 44 42 41 53 45 2E 22 2C |:."YOUR DBASE.",|
00003B40: 22 22 2C 22 23 22 3A 83 22 44 45 4C 45 54 45 20 |"","#":."DELETE |
00003B50: 41 20 52 45 43 4F 52 44 22 3A 83 22 3D 3D 3D 3D |A RECORD":."====|
00003B60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A 83 22 54 |===========":."T|
00003B70: 48 49 53 20 4F 50 54 49 4F 4E 20 57 49 4C 4C 20 |HIS OPTION WILL |
00003B80: 44 45 4C 45 54 45 20 41 20 52 45 43 4F 52 44 22 |DELETE A RECORD"|
00003B90: 3A 83 22 54 48 41 54 20 4C 49 45 53 20 49 4E 20 |:."THAT LIES IN |
00003BA0: 59 4F 55 52 20 44 42 41 53 45 2E 20 53 45 4C 45 |YOUR DBASE. SELE|
00003BB0: 43 54 22 3A 83 22 55 53 49 4E 47 20 27 4E 27 20 |CT":."USING 'N' |
00003BC0: 46 4F 52 20 4E 45 58 54 2C 20 27 44 27 20 46 4F |FOR NEXT, 'D' FO|
00003BD0: 52 20 22 3A 83 22 44 45 4C 45 54 45 2C 20 41 4E |R ":."DELETE, AN|
00003BE0: 44 20 27 51 27 20 54 4F 20 51 55 49 54 20 4F 50 |D 'Q' TO QUIT OP|
00003BF0: 54 49 4F 4E 2E 22 3A 83 22 22 2C 22 23 22 00 F4 |TION.":."","#"..|
00003C00: 7C 97 09 83 22 53 48 4F 57 20 46 49 4C 45 20 53 ||..."SHOW FILE S|
00003C10: 54 41 54 49 53 54 49 43 53 22 3A 83 22 3D 3D 3D |TATISTICS":."===|
00003C20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003C30: 3D 22 3A 83 22 54 48 49 53 20 57 49 4C 4C 20 44 |=":."THIS WILL D|
00003C40: 49 53 50 4C 41 59 20 48 4F 57 20 4D 41 4E 59 20 |ISPLAY HOW MANY |
00003C50: 46 49 45 4C 44 53 2C 22 3A 83 22 52 45 43 4F 52 |FIELDS,":."RECOR|
00003C60: 44 53 2C 20 41 4E 44 20 46 49 45 4C 44 20 4E 41 |DS, AND FIELD NA|
00003C70: 4D 45 53 20 59 4F 55 20 44 42 41 53 45 22 3A 83 |MES YOU DBASE":.|
00003C80: 22 48 41 53 2E 22 2C 22 22 2C 22 23 22 3A 83 22 |"HAS.","","#":."|
00003C90: 45 44 49 54 20 41 20 52 45 43 4F 52 44 22 3A 83 |EDIT A RECORD":.|
00003CA0: 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A |"=============":|
00003CB0: 83 22 41 20 54 59 50 45 20 4D 49 53 54 41 4B 45 |."A TYPE MISTAKE|
00003CC0: 2C 20 4E 45 57 20 44 45 54 41 49 4C 53 2E 2E 3F |, NEW DETAILS..?|
00003CD0: 22 3A 83 22 54 48 49 53 20 4F 50 54 49 4F 4E 20 |":."THIS OPTION |
00003CE0: 57 49 4C 4C 20 4C 45 54 20 59 4F 55 20 45 44 49 |WILL LET YOU EDI|
00003CF0: 54 20 41 22 00 E5 7D C4 09 83 22 52 45 43 4F 52 |T A"..}..."RECOR|
00003D00: 44 2C 20 54 48 45 4E 20 41 4C 54 45 52 20 54 48 |D, THEN ALTER TH|
00003D10: 45 20 43 4F 4E 54 45 4E 54 53 22 3A 83 22 54 48 |E CONTENTS":."TH|
00003D20: 41 54 20 52 45 43 4F 52 44 20 4F 4E 20 44 49 53 |AT RECORD ON DIS|
00003D30: 4B 2E 22 2C 22 22 2C 22 23 22 3A 83 22 50 52 49 |K.","","#":."PRI|
00003D40: 4E 54 20 41 20 52 45 43 4F 52 44 22 3A 83 22 3D |NT A RECORD":."=|
00003D50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A 83 |=============":.|
00003D60: 22 54 48 49 53 20 4F 50 54 49 4F 4E 20 57 49 4C |"THIS OPTION WIL|
00003D70: 4C 20 4C 45 54 20 59 4F 55 20 53 43 41 4E 22 3A |L LET YOU SCAN":|
00003D80: 83 22 54 48 52 4F 55 47 48 54 20 41 20 44 42 41 |."THROUGHT A DBA|
00003D90: 53 45 2C 20 50 52 49 4E 54 49 4E 47 22 3A 83 22 |SE, PRINTING":."|
00003DA0: 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 54 48 41 54 |INFORMATION THAT|
00003DB0: 20 59 4F 55 20 52 45 51 55 49 52 45 2E 22 2C 22 | YOU REQUIRE.","|
00003DC0: 22 2C 22 23 22 3A 83 22 50 52 49 4E 54 20 41 20 |","#":."PRINT A |
00003DD0: 46 49 4C 45 22 3A 83 22 3D 3D 3D 3D 3D 3D 3D 3D |FILE":."========|
00003DE0: 3D 3D 3D 3D 22 00 9B 7E F1 09 83 22 54 48 49 53 |===="..~..."THIS|
00003DF0: 20 57 49 4C 4C 20 50 52 49 4E 54 20 54 48 45 20 | WILL PRINT THE |
00003E00: 57 48 4F 4C 45 20 44 42 41 53 45 22 3A 83 22 46 |WHOLE DBASE":."F|
00003E10: 49 4C 45 2E 22 2C 22 22 3A 83 22 49 46 20 59 4F |ILE.","":."IF YO|
00003E20: 55 20 41 52 45 20 50 52 49 4E 54 49 4E 47 20 49 |U ARE PRINTING I|
00003E30: 4E 20 44 45 56 49 43 45 22 3A 83 22 36 20 28 50 |N DEVICE":."6 (P|
00003E40: 4C 4F 54 54 45 52 29 2C 20 54 48 45 20 50 4C 4F |LOTTER), THE PLO|
00003E50: 54 54 45 52 20 57 49 4C 4C 22 3A 83 22 42 45 20 |TTER WILL":."BE |
00003E60: 52 45 2D 43 4F 4E 46 49 47 55 52 45 44 20 54 4F |RE-CONFIGURED TO|
00003E70: 20 50 52 49 4E 54 20 49 4E 20 38 30 22 3A 83 22 | PRINT IN 80":."|
00003E80: 43 4F 4C 4F 55 4D 20 4D 4F 44 45 2E 22 2C 22 22 |COLOUM MODE.",""|
00003E90: 2C 22 2A 22 3A 83 22 21 22 3A 80 00 BF 7E 19 0A |,"*":."!":...~..|
00003EA0: 3A 3A 8B C2 28 32 31 35 29 B2 31 32 38 A7 57 4C |::..(215).128.WL|
00003EB0: B2 57 4C AA 32 30 3A 57 52 B2 57 52 AA 32 30 00 |.WL.20:WR.WR.20.|
00003EC0: D5 7E 23 0A 8B 57 43 B1 30 B0 57 43 B3 31 37 A7 |.~#..WC.0.WC.17.|
00003ED0: E7 35 2C 57 43 00 25 7F 28 0A 58 24 B2 22 22 3A |.5,WC.%.(.X$."":|
00003EE0: 81 54 54 B2 57 4C A4 57 52 AB 32 3A 58 24 B2 58 |.TT.WL.WR.2:X$.X|
00003EF0: 24 AA 22 C0 22 3A 82 54 54 3A FE 1A 57 4C 2C 57 |$.".":.TT:..WL,W|
00003F00: 54 2C 57 52 2C 57 42 2C 31 3A 8B C2 28 32 31 35 |T,WR,WB,1:..(215|
00003F10: 29 B2 31 32 38 A7 FE 1A 57 4C 2C 57 54 2C 57 52 |).128...WL,WT,WR|
00003F20: AA 31 2C 57 42 00 31 7F 32 0A 8B 57 57 B2 31 A7 |.1,WB.1.2..WW.1.|
00003F30: 8E 00 47 7F 37 0A 99 22 B0 22 3B 58 24 3B 22 AE |..G.7..".";X$;".|
00003F40: 22 3A 89 32 36 35 30 00 8D 7F 41 0A 81 54 54 B2 |":.2650...A..TT.|
00003F50: 57 54 A4 57 42 AB 32 3A 99 22 DD 22 3B A6 C3 28 |WT.WB.2:.".";..(|
00003F60: 58 24 29 29 3B 22 DD 22 3A 82 54 54 3A 99 22 AD |X$));".":.TT:.".|
00003F70: 22 3B 58 24 3B 3A 8B C2 28 32 31 35 29 B2 31 32 |";X$;:..(215).12|
00003F80: 38 A7 99 22 BD 22 3B 3A 89 32 36 34 35 00 A4 7F |8..".";:.2645...|
00003F90: 50 0A 97 57 42 AC 34 30 AA 57 52 AA 31 30 32 34 |P..WB.40.WR.1024|
00003FA0: 2C 31 32 35 00 C2 7F 55 0A FE 1A 57 4C AA 31 2C |,125...U...WL.1,|
00003FB0: 57 54 AA 31 2C 57 52 AB 31 2C 57 42 AB 31 2C 31 |WT.1,WR.1,WB.1,1|
00003FC0: 3A 8E 00 D3 7F 5A 0A 8B 57 48 24 B2 22 22 A7 32 |:....Z..WH$."".2|
00003FD0: 36 32 35 00 32 80 5F 0A 57 47 B2 C3 28 58 24 29 |625.2._.WG..(X$)|
00003FE0: 3A 99 22 DD 22 3B A6 C3 28 58 24 29 29 3B 22 DD |:.".";..(X$));".|
00003FF0: 22 3A 99 22 91 1D 22 3B CA 28 57 48 24 2C 31 2C |":."..";.(WH$,1,|
00004000: 57 47 29 3A 99 22 AB 22 3B 3A 81 57 51 B2 31 A4 |WG):.".";:.WQ.1.|
00004010: C3 28 58 24 29 3A 99 22 C0 22 3B 3A 82 57 51 3A |.(X$):.".";:.WQ:|
00004020: 99 22 B3 22 3A 57 54 B2 57 54 AA 32 3A 89 32 36 |.".":WT.WT.2:.26|
00004030: 32 35 00 7F 80 69 0A 99 C7 28 32 37 29 3B 22 41 |25...i...(27);"A|
00004040: 22 3B 3A 97 32 31 2C 31 3A 85 22 9B 3A 5F 9D 05 |";:.21,1:.".:_..|
00004050: 22 3B 5A 24 3A 97 32 31 2C 30 3A 99 C7 28 32 37 |";Z$:.21,0:..(27|
00004060: 29 3B 22 43 22 3B C7 28 31 33 29 3B 3A 5A 24 B2 |);"C";.(13);:Z$.|
00004070: C8 28 5A 24 2C C3 28 5A 24 29 AB 31 29 3A 8E 00 |.(Z$,.(Z$).1):..|
00004080: 97 80 6E 0A 3A 3A D7 32 36 37 30 3A 8B 45 4C B2 |..n.::.2670:.EL.|
00004090: 31 36 A7 32 38 30 30 00 B1 80 78 0A 8B 45 4C B1 |16.2800...x..EL.|
000040A0: 32 36 37 30 AF 45 4C B3 32 37 39 39 A7 32 37 32 |2670.EL.2799.272|
000040B0: 30 00 EF 80 7D 0A 99 22 13 13 13 13 96 22 3B 3A |0...}..".....";:|
000040C0: 81 54 B2 31 A4 35 3A 99 C7 28 32 37 29 3B 22 57 |.T.1.5:..(27);"W|
000040D0: 22 3B 3A 82 54 3A 8B C2 28 32 31 35 29 B2 31 32 |";:.T:..(215).12|
000040E0: 38 A7 FE 1A 32 30 2C 30 2C 37 39 2C 34 2C 31 00 |8...20,0,79,4,1.|
000040F0: B6 81 87 0A 97 32 34 31 2C 32 35 3A 99 22 96 20 |.....241,25:.". |
00004100: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00004110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00004120: C0 C0 C0 C0 C0 AE 22 3A 97 32 34 31 2C 32 35 3A |......":.241,25:|
00004130: 99 22 96 20 DD 20 53 4F 46 54 57 41 52 45 20 45 |.". . SOFTWARE E|
00004140: 52 52 4F 52 2E 20 50 52 45 53 53 20 41 20 4B 45 |RROR. PRESS A KE|
00004150: 59 20 54 4F 20 20 20 20 20 DD 22 3A 97 32 34 31 |Y TO .":.241|
00004160: 2C 32 35 3A 99 22 96 20 DD 20 52 45 2D 52 55 4E |,25:.". . RE-RUN|
00004170: 2E 22 A6 32 38 29 3B 22 DD 22 3A 97 32 34 31 2C |.".28);".":.241,|
00004180: 32 35 3A 99 FB 22 96 20 DD 20 45 52 52 4F 52 20 |25:..". . ERROR |
00004190: 49 4E 46 4F 52 4D 41 54 49 4F 4E 2D 20 23 23 23 |INFORMATION- ###|
000041A0: 23 23 23 23 2F 23 23 23 20 20 20 20 20 DD 22 3B |####/### .";|
000041B0: 45 4C 2C 45 52 52 00 FF 81 9B 0A 97 32 34 31 2C |EL,ERR......241,|
000041C0: 32 35 3A 99 22 96 20 AD C0 C0 C0 C0 C0 C0 C0 C0 |25:.". .........|
000041D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000041E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 91 22 3A |..............":|
000041F0: 9F 32 2C 50 44 2C 31 35 2C 22 49 22 3A A0 32 00 |.2,PD,15,"I":.2.|
00004200: 11 82 A0 0A A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 |.....A$:.A$.."".|
00004210: 8A 00 39 82 A5 0A 81 4C 50 B2 31 A4 31 35 30 3A |..9....LP.1.150:|
00004220: 82 4C 50 3A 99 C7 28 31 34 29 3B 3A A1 41 24 3A |.LP:..(14);:.A$:|
00004230: 8B 41 24 B3 B1 22 22 A7 8A 00 5A 82 AF 0A 81 4C |.A$..""...Z....L|
00004240: 50 B2 31 A4 31 35 30 3A 82 4C 50 3A 99 C7 28 31 |P.1.150:.LP:..(1|
00004250: 34 32 29 3B 3A 89 32 37 32 30 00 B0 82 B9 0A 3A |42);:.2720.....:|
00004260: 3A 81 52 52 B2 31 A4 33 3A 57 49 24 28 52 52 29 |:.RR.1.3:WI$(RR)|
00004270: B2 22 22 3A 82 52 52 3A 57 49 24 B2 57 49 24 AA |."":.RR:WI$.WI$.|
00004280: 22 2A 22 3A 81 57 49 B2 31 A4 33 3A 41 B2 D4 28 |"*":.WI.1.3:A..(|
00004290: 57 49 24 2C 22 2A 22 29 3A 8B 41 B2 30 AF 57 49 |WI$,"*"):.A.0.WI|
000042A0: B2 31 A7 57 49 24 28 57 49 29 B2 57 49 24 3A 8E |.1.WI$(WI).WI$:.|
000042B0: 00 BB 82 D7 0A 8B 41 B2 30 A7 8E 00 F5 82 DC 0A |......A.0.......|
000042C0: 57 49 24 28 57 49 29 B2 CA 28 57 49 24 2C 31 2C |WI$(WI)..(WI$,1,|
000042D0: D4 28 57 49 24 2C 22 2A 22 29 AB 31 29 3A 57 49 |.(WI$,"*").1):WI|
000042E0: 24 B2 CA 28 57 49 24 2C 41 AA 31 2C 38 30 29 3A |$..(WI$,A.1,80):|
000042F0: 82 57 49 3A 8E 00 3D 83 F0 0A 57 4C B2 32 3A 57 |.WI:..=...WL.2:W|
00004300: 52 B2 33 37 3A 57 54 B2 38 3A 57 42 B2 32 34 3A |R.37:WT.8:WB.24:|
00004310: 57 43 B2 31 34 3A 57 48 24 B2 22 20 20 20 20 9A |WC.14:WH$." .|
00004320: 47 45 4E 45 52 41 4C 20 43 4F 4E 46 49 47 55 52 |GENERAL CONFIGUR|
00004330: 41 54 49 4F 4E 99 22 3A 8D 32 35 38 35 00 78 83 |ATION.":.2585.x.|
00004340: F5 0A 99 22 93 11 9E 43 4F 4E 46 49 47 20 50 4C |..."...CONFIG PL|
00004350: 4F 54 54 45 52 3F 20 20 20 3A 20 05 22 3B 3A 8B |OTTER? : .";:.|
00004360: C2 28 31 32 32 39 30 29 B2 31 A7 99 22 59 45 53 |.(12290).1.."YES|
00004370: 22 3A D5 99 22 4E 4F 22 00 B1 83 FF 0A 99 22 11 |":.."NO"......".|
00004380: 9E 50 4C 4F 54 54 45 52 20 43 4F 4C 4F 55 52 20 |.PLOTTER COLOUR |
00004390: 20 20 20 3A 20 05 22 3B 3A 50 B2 C2 28 31 32 32 | : .";:P..(122|
000043A0: 38 38 29 3A 8B 50 B2 30 A7 99 22 42 4C 41 43 4B |88):.P.0.."BLACK|
000043B0: 22 00 C3 83 06 0B 8B 50 B2 31 A7 99 22 47 52 45 |"......P.1.."GRE|
000043C0: 45 4E 22 00 D3 83 07 0B 8B 50 B2 32 A7 99 22 52 |EN"......P.2.."R|
000043D0: 45 44 22 00 E4 83 08 0B 8B 50 B2 33 A7 99 22 42 |ED"......P.3.."B|
000043E0: 4C 55 45 22 00 2F 84 0E 0B 99 22 11 9E 50 4C 4F |LUE"./...."..PLO|
000043F0: 54 54 45 52 20 57 49 44 54 48 20 20 20 20 20 3A |TTER WIDTH :|
00004400: 20 9B 20 20 20 43 4F 4C 4F 55 4D 53 05 9D 9D 9D | . COLOUMS....|
00004410: 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 50 B2 C2 28 31 32 |.......";:P..(12|
00004420: 32 38 39 29 3A 8B 50 B2 30 A7 99 22 38 30 22 00 |289):.P.0.."80".|
00004430: 3E 84 14 0B 8B 50 B2 31 A7 99 22 34 30 22 00 4D |>....P.1.."40".M|
00004440: 84 15 0B 8B 50 B2 32 A7 99 22 32 30 22 00 5C 84 |....P.2.."20".\.|
00004450: 16 0B 8B 50 B2 33 A7 99 22 31 30 22 00 C8 84 1D |...P.3.."10"....|
00004460: 0B 99 22 11 99 44 52 49 56 45 20 4E 55 4D 42 45 |.."..DRIVE NUMBE|
00004470: 52 20 20 20 20 20 20 3A 05 22 3B C2 28 31 32 32 |R :.";.(122|
00004480: 39 31 29 3A 99 22 98 11 50 52 45 53 53 20 50 2C |91):."..PRESS P,|
00004490: 43 2C 57 2C 44 20 52 45 53 50 45 43 54 49 56 45 |C,W,D RESPECTIVE|
000044A0: 4C 59 20 54 4F 20 20 20 20 20 49 4E 43 52 45 41 |LY TO INCREA|
000044B0: 53 45 20 20 4F 50 54 49 4F 4E 2E 20 20 45 20 54 |SE OPTION. E T|
000044C0: 4F 20 45 4E 44 2E 22 3B 00 ED 84 27 0B A1 F9 41 |O END.";...'...A|
000044D0: 24 3A 8B 41 24 B2 22 57 22 A7 51 B2 31 32 32 38 |$:.A$."W".Q.1228|
000044E0: 39 3A 8D 32 39 30 30 3A 89 32 38 30 35 00 0D 85 |9:.2900:.2805...|
000044F0: 2E 0B 8B 41 24 B2 22 43 22 A7 51 B2 31 32 32 38 |...A$."C".Q.1228|
00004500: 38 3A 8D 32 39 30 30 3A 89 32 38 30 35 00 40 85 |8:.2900:.2805.@.|
00004510: 31 0B 8B 41 24 B2 22 50 22 A7 97 31 32 32 39 30 |1..A$."P"..12290|
00004520: 2C C2 28 31 32 32 39 30 29 AA 31 3A 8B C2 28 31 |,.(12290).1:..(1|
00004530: 32 32 39 30 29 B2 32 A7 97 31 32 32 39 30 2C 30 |2290).2..12290,0|
00004540: 00 51 85 32 0B 8B 41 24 B2 22 50 22 A7 32 38 30 |.Q.2..A$."P".280|
00004550: 35 00 85 85 36 0B 8B 41 24 B2 22 44 22 A7 97 31 |5...6..A$."D"..1|
00004560: 32 32 39 31 2C C2 28 31 32 32 39 31 29 AA 31 3A |2291,.(12291).1:|
00004570: 8B C2 28 31 32 32 39 31 29 B2 31 32 A7 97 31 32 |..(12291).12..12|
00004580: 32 39 31 2C 38 00 96 85 37 0B 8B 41 24 B2 22 44 |291,8...7..A$."D|
00004590: 22 A7 32 38 30 35 00 AE 85 40 0B 8B 41 24 B2 22 |".2805...@..A$."|
000045A0: 45 22 A7 32 39 31 30 3A D5 89 32 38 35 35 00 C1 |E".2910:..2855..|
000045B0: 85 54 0B 8B C2 28 51 29 B2 33 A7 97 51 2C 30 3A |.T...(Q).3..Q,0:|
000045C0: 8E 00 D1 85 55 0B 97 51 2C C2 28 51 29 AA 31 3A |....U..Q,.(Q).1:|
000045D0: 8E 00 4E 86 5E 0B 99 22 05 93 44 4F 20 59 4F 55 |..N.^.."..DO YOU|
000045E0: 2E 2E 2E 11 22 3A 99 22 9B 31 2E 2E 2E 2E 9E 53 |....":.".1.....S|
000045F0: 41 56 45 20 4E 45 57 20 43 4F 4E 46 49 47 20 54 |AVE NEW CONFIG T|
00004600: 4F 20 44 49 53 4B 22 3A 99 22 9B 32 2E 2E 2E 2E |O DISK":.".2....|
00004610: 9E 43 4F 4E 46 49 47 20 54 48 49 53 20 53 45 53 |.CONFIG THIS SES|
00004620: 53 49 4F 4E 20 4F 4E 4C 59 22 3A 99 22 98 11 11 |SION ONLY":."...|
00004630: 50 4C 45 41 53 45 20 53 45 4C 45 43 54 20 45 49 |PLEASE SELECT EI|
00004640: 54 48 45 52 20 31 2C 20 4F 52 20 32 2E 22 00 61 |THER 1, OR 2.".a|
00004650: 86 72 0B A1 F9 41 24 3A 8B 41 24 B2 22 32 22 A7 |.r...A$:.A$."2".|
00004660: 8A 00 73 86 7C 0B 8B 41 24 B3 B1 22 31 22 A7 32 |..s.|..A$.."1".2|
00004670: 39 33 30 00 D3 86 86 0B 99 22 96 11 11 50 4C 45 |930......"...PLE|
00004680: 41 53 45 20 57 41 49 54 2E 2E 2E 22 3A 9F 38 2C |ASE WAIT...":.8,|
00004690: C2 28 31 32 32 39 31 29 2C 38 2C 22 40 30 3A 43 |.(12291),8,"@0:C|
000046A0: 4F 4E 46 49 47 20 20 20 20 20 20 2E 43 46 47 2C |ONFIG .CFG,|
000046B0: 55 2C 57 22 3A 81 54 B2 31 32 32 38 38 A4 31 32 |U,W":.T.12288.12|
000046C0: 32 39 31 3A 98 38 2C C2 28 54 29 3A 82 54 3A A0 |291:.8,.(T):.T:.|
000046D0: 38 3A 8A 00 00 00 |8:.... |
.@W@..PD.B(12291):.0,1:.4,1:.".";:W2670:
.B(12290).1.PC.B(12288):PW.B(12289):.2,6
,2:.2,B(12288): 2:.3,6,3:.3,B(12289): 3.
.@...0,1:.4,1:."......";:.2604,24:.B(215
).128...20,0,59,3,1:.%..A...G(142);"DBAS
E 128. V1.1 .(C)1989 R.CLEMENTS...
......................................".
.B#.WL.3:WR.36:WT.3:WB.19:WC.16:WH$." .
--+-- MAIN -- MENU --+--.":.2585:W2670
:.".. 1.............SET-UP A NEW DBASE":
.".. 2.............LOAD A SAVED DBASE":.
".. 3................DBASE UTILITIES":."
.. 4.................EXIT DBASE 128".VBA
..".. 5...........................HELP":
.".. 6..........GENERAL CONFIGURATION"..
BF...A$:.A$."_".B(215).128...0,2,79,24,1
:.35:U.A$."_"...0,2,39,24,1:.35.NBP..E(A
$).100,230,335,95:.A$."5".FF$."0":.715..
BQ..A$."6".2800..BU..A$."H".FF$."1":.715
..CZ..70.&C_.."......BASIC.";G(142):.260
4,20:...CD.WL.6:WR.34:WT.6:WB.18:WC.14:W
H$." . SET-UP A NEW DBASE.":.2585:.X$(
20):.".ENTER NAME OF DBASE TO CREATE
..":.2665:DB$.Z$:."..ENTER FIELD NAME. R
ETURN TO END ENTRIES..":.T.1.20:.2665:
.Z$."".DF$.D(T.1):.155.FD..X$(T).Z$:.T:.
"..MAX FIELD IS 20. PRESS":."RETURN.":.2
665:DF$.D(T.1)..E..WL.1:WR.38:WT.9:WB.16
:WC.8:WH$." . DBASE INFO.":.25
85:.".NAME : .";DB$:."..TOTAL FIE
LDS:.";DF$:WL.1:WR.38:WT.21:WB.23:WC.8:W
H$."":.2585:.".OK TO CREATE DBASE? (Y/N)
.";:..A$:.A$.."Y"....F...".. **** CRE
ATING DATA BASE ****";:.8,PD,8,("@0:".H(
DB$." ",12).".DBC,U,W"):.8,DB
$:.8,DF$:.T.1.E(DF$):.8,X$(T):.T: 8:.8,P
D,8,("@0:".H(DB$." ",12).".DBN
,U,W"):.8,0: 8:.8,PD,8,("@0:".H(DB$."
",12).".DBF,U,W"): 8:...F..WL.11
:WR.37:WT.9:WB.16:WC.14:WH$." .LOAD A DB
ASE.":.2585:.PD..7..".DRIVE NOT SET. AL
WAYS":."LOAD DBASE VIA THE":."LOADER!":.
.3:.2800.RF..W2670:.".ENTER DBASE FILENA
ME..":.2665:.T(Z$,"*").0...UG..DB$.Z$:."
..SEARCHING FOR DBASE":."FILES...":.8,PD
,8,("0:".H(DB$." ",12).".DBN")
:.8,DR:.1,8,15:.1,DR: 1:.DR.0. 8:.295..G
.. 8:."..FILE NOT FOUND OR":."DISK ERROR
.":.".PRESS RETURN.";:..A$:..UH'.."...
LOADING...":.DW$(20),DE$(20,4):.8,PD,
8,("0:".H(DB$." ",12).".DBC"):
.8,DN$:.8,DF$:FI$.H(DB$." ",1
2):.T.1.E(DF$):.8,DW$(T):.T: 8:.8,PD,8,(
"0:".H(DB$." ",12).".DBN"):.8,
DR: 8.THE..DR.0.WL.0:WR.15:WT.19:WB.24:W
C.3:WH$.". WARNING!.":.2585:.".THIS DB
ASE HASNO RECORDS.";..HJ..810.|IO.WL.5:W
R.34:WT.11:WB.20:WC.8:WH$.". DBASE 128 U
TILITIES.":.2585:PD.B(12291):.B(12290).1
.PC.B(12288):PW.B(12289):.2,6,2:.2,B(122
88): 2:.3,6,3:.3,B(12289): 3.SJT.W2670:.
". 1..........CHANGE DBASE NAME":.". 2..
..........BACK-UP A DBASE":.". 3........
........ADD A FIELD":.". 4.......SEE A D
ISK DIRECTORY":.". 5.............DELETE
A DBASE":.". 6.............RETURN TO MEN
U";.ZJW...A$:.E(A$).655,450,520,780,400,
35..J...A$."_".B(215).128...0,2,79,24,1:
.335:U.A$."_"...0,2,39,24,1:.335.YJ...A$
."H".FF$."2":.715..J...375..K..WL.1:WR.3
0:WT.5:WB.9:WC.14:WH$.".DELETE A DBASE."
:.2585:.".FILENAME";:.2665:FI$.H(Z$."
",12).".":.".SO YOU WISH TO DELE
TE":."ALL BACK-UPS ASWELL?";:..A$:AD$."D
B?":.A$."Y".AD$."???"..K..."..CONFIRM FI
LE SCRATCH. (Y/N)";:..A$:.A$.."Y"..335.+
L..."..DELETING FILES NOW...";:.1,PD,15,
("S0:".FI$.AD$): 1:."..DONE.";:.335..LB.
WL.10:WR.38:WT.7:WB.11:WC.14:WH$.".BACK-
UP A DBASE.":.2585:.".FILENAME";:.2665:.
"..CONFIRM BACK-UP. (Y/N).";:..A$:.A$.."
Y"..335..MV..".....BACK-UP IN PROGRESS..
.";:FI$.H(Z$." ",12).".":.1,PD
,15:.1,"S0:".FI$."BD?":.1,"C0:".FI$."BDC
=".FI$."DBC":.1,"C0:".FI$."BDF=".FI$."DB
F":.1,"C0:".FI$."BDN=".FI$."DBN":.1,A:.A
.0.."..DISK ERROR!";: 1:.335..M.. 1:."..
DONE.";:.335..N..WL.2:WR.29:WT.3:WB.7:WC
.14:WH$.".ADD A FIELD.":.2585:.X$(20):."
.FILENAME";:.2665:FI$.H(Z$." "
,12):.8,PD,8,("0:".FI$.".DBC,U,R"):.8,DN
$,DF$:.T.1.E(DF$):.8,X$(T):.T: 8:.E(DF$)
.19.."..AREADY 20 FIELDS.";:.335.KO0..".
.NEW FIELD";:.2665:.8,PD,8,("@0:".FI$.".
DBC,U,W"):.8,DN$:.8,D(E(DF$).1):.T.1.E(D
F$):.8,X$(T):.T:.8,Z$: 8:.6,PD,6,("0:".F
I$.".DBN,U,R"):.6,NO: 6:.8,PD,8,"@0:WORK
ING .TMP,U,W":.7,PD,7,("0:".FI$.".DB
F,U,R"):.T.1.NO:.R.1.E(DF$)..O]..7,W$:.8
,W$:.R:.8," ":.T: 6: 7: 8:.1,PD,15:.1,"S
0:".FI$.".DBF":.1,"R0:".FI$.".DBF=WORKIN
G .TMP": 1:."..DONE.";:.335..P..WL.6
:WR.34:WT.9:WB.15:WC.8:WH$." .CHANGE
DBASE NAME.":.2585:.".NAME :":.".NE
W NAME :.";:.T.1.2:.".........";:.2665:C
$(T).Z$:.T:.".CONFIRM NAME CHANGE. [Y/N]
.";:..A$:.A$.."Y"..335.CQ..."..PLEASE WA
IT....";:.1,PD,15:.1,"R0:".H(C$(2)."
",12).".DBC=".H(C$(1)."
",12).".DBC":.1,"R0:".H(C$(2)."
",12).".DBF=".H(C$(1)." "
,12).".DBF"..QA..1,"R0:".H(C$(2)."
",12).".DBN=".H(C$(1)."
",12).".DBN": 1:.335.@RK.WL.0:WR.39:WT.2
:WB.24:WC.6:WH$.". HELP."
:.2585:.".PLEASE WAIT. SEARCHING FOR HEL
P.....";:.:.:.XX$:.XX$."#".FF$...\R....X
X$.."!":.XX$."!".770.TR...:.XX$:.XX$."*"
.770..R...XX$."#"..".MORE>> PRESS RETUR
N..";:..A$:.".";:.745.CR...XX$:.:..XX$..
"*"..S...".END OF HELP. PRESS RETURN.
";:..A$:.E(FF$).1.35,35,335,810..S.
..2670..S..WL.11:WR.39:WT.2:WB.24:WC.4:W
H$.".DIRECTORY OF DISK.":.2585:."..USE N
O-SCROLL TO HALT...":..1:."????????????.
??C",U(PD):."..PRESS RETURN.";:..A$:.335
:.2670..T*.W2670:WL.13:WR.38:WT.7:WB.20:
WC.16:WH$.".DBASE ALTERATIONS MENU.":.25
85:.".. 1......EXIT TO MAIN MENU":.". 2.
...SEARCH FOR A RECORD":.". 3...........
ADD A RECORD":.". 4........DELETE A RECO
RD":.". 5...SHOW FILE STATISTICS"..TH.."
. 6..........EDIT A RECORD":.". 7.......
..PRINT A RECORD":.". 8.........PRINT TH
E FILE"..UW...A$:.A$."H".FF$."3":.715.[U
A..A$."_".B(215).128...0,2,79,24,1:.810:
U.A$."_"...0,2,39,24,1:.810..UF..E(A$).8
80,905,1135,1225,1340,1375,1560,1585..UK
..855..VP.WL.3:WR.38:WT.5:WB.9:WC.2:WH$.
"EXIT TO MAIN MENU":.2585:.".WARNING:.":
."..CONFIRM ENTRY TO MAIN MENU. (Y/N)";:
..A$:.A$."Y"..35:U.810..V....0,2,39,24,1
:WL.3:WR.37:WT.2:WB.8:WC.4:WH$.".SEARCH
FOR A RECORD.":.2585:.".ENTER SEARCH STR
ING, USING * FOR WILD CARD.";:WL.0:WR.39
:WT.12:WB.14:WC.14:WH$."":.2585:.T.1.E(D
F$):.Z$."".Z$."*"..W....".############";
DW$(T);:.2665:DE$(T,0).Z$:.T..W..."..PLE
ASE WAIT...";:.T.1.E(DF$):WI$.DE$(T,0):.
2745:.R.1.3:DE$(T,R).WI$(R):.R:.T:.8,PD,
8,("0:".FI$.".DBF"):.T.1.DR:.W.1.E(DF$):
.8,DE$(W,4):.W:QZ.0:.R.1.E(DF$):.E.1.3:.
DE$(R,0)."".DE$(R,0)."*".QZ.QZ.1:.1010..
X...T(DE$(R,4),DE$(R,E)).0.DE$(R,4)."-".
QZ.QZ.1:.1010.$X...E.<X...R:.QZ.E(DF$)..
1025.ZX...T:WO.0: 8:."..# END OF FILE #
.PRESS RETURN.";:..A$:.810..X...WO.0.WL.
0:WR.39:WT.2:WB.24:WC.14:WH$."":.2585:WO
.1..Y...".";:.Y.1.E(DF$):..".###########
#.:.";DW$(Y);:.DE$(Y,4):.Y:.".N=NEXT : Q
=END : P=PRINT";.#Y....A$:.A$."N"...4Y$.
.A$."P".1075.LY)..A$.."Q".WO.0:.1050.XY.
. 8:.810.QY3.WL.3:WR.37:WT.10:WB.15:WC.4
:WH$.".PRINT INFORMATION.":.2585:.".ENTE
R DEVICE TO PRINT TO. (4,5,6)";:..A:.A.3
.A.7.1105..YB..".. ** ABORTED
**";.-ZG.WL.3:WR.37:WT.10:WB.15:WC.1:WH$
." ":.2585:WO.0:.1025..ZQ..".PLEASE WAIT
... PRINTING...";:.4,A:.4:.G.1.E(DF$):.4
,."############:########################
###";DW$(G),DE$(G,4):.G:.4: 4:.".";:.109
5..[O.WL.2:WR.36:WT.4:WB.9:WC.5:WH$.".AD
D A RECORD.":.2585:.".ENTER INFORMATION
FOR EACH FIELD";:WL.0:WR.39:WT.12:WB.15:
WC.14:WH$."":.2585:.T.1.E(DF$):.."..####
########";DW$(T);:.2665:DE$(T,0).H(Z$,24
):.DE$(T,0)."".DE$(T,0)."-"..\...T:WL.0:
WR.39:WT.2:WB.24:WC.4:WH$."":.2585:.T.1.
E(DF$):..".############.:.##############
##############";DW$(T),DE$(T,0):.T..\...
".THIS INFORMATION CORRECT? (Y/N)..":..A
$:.A$."N"..".DO YOU WISH TO RE-TYPE, OR
QUIT.? (R/Q)";:..S$:.S$."Q".810. \...A$.
"N".1135..\...A$.."Y".1175.Y]...".PLEASE
WAIT... SAVING TO DISK...";:.8,PD,8,("0
:".FI$.".DBF,U,A"):.T.1.E(DF$):.8,DE$(T,
0):.T: 8:.8,PD,8,("@0:".FI$.".DBN,U,W"):
.8,(DR.1): 8:DR.DR.1:WL.0:WR.39:WT.2:WB.
24:WC.1:WH$."":.2585:.810.3^I.WL.2:WR.36
:WT.4:WB.9:WC.5:WH$.".DELETE A RECORD.":
.2585:.".PLEASE WAIT...";:.8,PD,8,("0:".
FI$.".DBF,U,R"):..1:WL.0:WR.39:WT.2:WB.2
4:WC.7:WH$.".DELETE A RECORD.":.2585:.T.
1.DR:."..";..^...E.1.E(DF$):.8,DE$(E,0):
..".############.:.#####################
######";DW$(E),DE$(E,0):.E:.". D=DEL
ETE : N=NEXT : Q=QUIT.".P^....A$:.A$."Q"
. 8:.810.._...A$."N"..T: 8:.".# END OF F
ILE # .PRESS RETURN. ";:..A$:.810.(
_...A$.."D".1260.._...".PLEASE WAIT.. RE
MOVING RECORD....": 8:.8,PD,8,("0:".FI$.
".DBF,U,R"):.7,PD,7,("@0:WORKING .TM
P,U,W"):.T.1.1305.L_...W.1.T.1:.Q.1.E(DF
$):.8,A$:.7,A$:.Q:.W.._...R.1.E(DF$):.8,
A$:.R:.T.DR.1320..`#..W.T.1.DR:.Q.1.E(DF
$):.8,A$:.7,A$:.Q:.W.G`(. 8: 7:.1,PD,15:
.1,"S0:".FI$.".DBF":.1,"R0:".FI$.".DBF=W
ORKING .TMP": 1:DR.DR.1:.8,PD,8,("@0
:".FI$.".DBN,U,W"):.8,DR: 8:.".DONE.
";:.810..A<.WL.2
:WR.37:WT.2:WB.24:WC.8:WH$."FILE STATIST
ICS ON:.".FI$.".":.2585:."..FULL NAME: .
";DN$:."..TOTAL RECORDS:.";DR:."..TOTAL
FIELDS :. ";DF$:."..FIELD LIST:-..":.T.1
.E(DF$):.." ############ ";DW$(T);:.T
:.G(13);"..PRESS. .RETURN..";:..A$:.810.
{B_.WL.10:WR.29:WT.6:WB.10:WC.8:WH$."EDI
T A RECORD":.2585:.".PLEASE WAIT....";:.
8,PD,8,("0:".FI$.".DBF,U,R"):..1:WL.0:WR
.39:WT.2:WB.24:WC.8:WH$."":.2585:.T.1.DR
:.E.1.E(DF$):.8,DE$(E,0):.E..BX.."..";:.
E.1.E(DF$):..".############.:.##########
###############";DW$(E),DE$(E,0):.E:.".
E=EDIT : N=NEXT : Q=QUIT."..C...
.A$:.A$."Q". 8:.810.$C...A$."E".1445.6C.
..A$.."N".1415.UC...T:.".END OF FILE. P
RESS RETURN. .": 8:..A$:.810.\D
...".";:.E.1.E(DF$):..".############.:.#
##########################";DW$(E),DE$(E
,0):.E:.".ENTER NEW DETAILS.
..";:.E.1.E(DF$):.21,1:."..........
...";DE$(E,0):.21,0:.G(13);:.E:.E.1.E(DF
$):.DE$(E,0)."".DE$(E,0)."-"..D...E:.".P
RESS- S=SAVE, Q=QUIT OR R=RE-START."..D
....A$:.A$."Q". 8:.810..DH..A$."R"..1400
.JDM..A$.."S".1470.OER. 8:.".SAVING NEW
RECORD TO DISK... .":.8,PD,8,(
"0:".FI$.".DBF,U,R"):.7,PD,7,("@0:WORKIN
G .TMP,U,W"):.DR.1.T.1.1525.ZE...R.1
.T.1:.E.1.E(DF$):.8,A$:.7,A$:.E:.R..E...
E.1.E(DF$):.8,CC$:.7,DE$(E,0):.E:.T.DR.1
540.WE...R.T.1.DR:.E.1.E(DF$):.8,A$:.7,A
$:.E:.R..F.. 8: 7:.1,PD,15:.1,"S0:".FI$.
".DBF":.1,"R0:".FI$.".DBF=WORKING .T
MP": 1:.8,PD,8,("0:".FI$.".DBF,U,R"):.E.
1.T.1:.W.1.E(DF$):.8,A$:.W:.E:.".DONE.
";:..1:.
1435..G..WL.10:WR.29:WT.6:WB.10:WC.14:WH
$."PRINT A RECORD":.2585:.".PLEASE WAIT.
...";:.T.1.E(DF$):DE$(T,0)."*":.T:.945.R
G1.WL.8:WR.31:WT.6:WB.10:WC.14:WH$."PRIN
T DBASE":.2585:."..ENTER DEVICE (4/5/6)"
;:..A:.A.4.A.6.810..G@.."..PLEASE WAIT..
.";:.A.6..3,6,3:.3,0: 3..HJ..4,A:.8,PD,8
,("0:".FI$.".DBF,U,R"):.4,"DBASE FILE: "
.FI$:.4:.T.1.DR:.R.1.E(DF$):.8,X$:A$.H(D
W$(R)." ",12).":".H(X$."
",2
6)." ":.4,A$;:.R:.4,G(13):.T:.3,6,3:.3,B
(12289): 3: 4: 8:."..DONE.":.810.XI|.."#
1":." MAIN MENU OPTIONS
":."----------------------------------
---":."CREATE A DATA BASE:-","":."IF YOU
WISH TO CREATE A NEW DATA":."BASE, SELE
CT THIS OPTION.","":."YOU WILL THEN BE P
ROMPTED FOR THE".QJ..."FILENAME OF THE N
EW DATA BASE. ONCE":."YOU HAVE ENTEREED
THE NEW FILENAME,":."IT WILL REQUEST FI
ELD TITLES/NAMES.":."ENTER THE NAMES, PR
ESSING RETURN":."AFTER EACH ENTRY. TO E
ND ENTERING":."FIELD TITLES, JUST PRESS
RETURN AT":."THE PROMPT.".UKB.."#":."YOU
WILL THEN BE SHOWN THE NAME AND":."NUMB
ER OF FIELDS YOUR NEW DATA":."BASE WILL
HAVE. PRESS 'Y' HERE, AND":."YOUR DATA
BASE CONFIGURATION WILL BE":."SAVED TO D
ISK.","#":." == LOAD A SAVED DATA BAS
E == ","".6L..."ONCE YOU HAVE CREATE
D A DATA BASE, OR":."YOU WISH TO EDIT/VI
EW A DATA BASE,":."YOU MUST USE THIS OPT
ION TO LOAD THE":."DBASE FROM DISK.","":
."ONCE THE OPTION HAS BEEN CHOSEN, YOU":
."WILL BE REQUIRED TO ENTER THE FILE-"./
M..."NAME OF THE DBASE YOU WISH TO VIEW/
":."EDIT.","":."THE DBASE CONFIGURATION
WILL BE":."LOADED SOTHAT YOU CAN VIEW/ED
IT":."THE DBASE.","#":."ONCE THE CONFIG
HAS BEEN LOADED,":."YOU WILL ENTER INTO
ANOTHER MENU":."SYSTEM. INFORMATION FOR
THESE"..N+.."OPTIONS, ARE ON THE HELP P
AGE":."AVAILABLE THERE.","#":." ==
UTILITIES MENU == ","":."THIS
MENU LISTS SOME USEFUL UTILITIES":."FOR
THE UP-KEEP OF YOUR DBASE.","":."UTILITI
ES THAT EXIST ARE:-",""..NI.."DBASE BACK
-UP, WHICH ALLOWS YOU TO":."KEEP BACK-UP
S OF YOUR DBASE, JUST":."IN-CASE THE FIL
E BECOMES CORRUPTED.","":."OTHER USEFUL
UTILITIES INCLUDE A":."FACILITY TO ADD,
OR DELETE A FIELD":."THAT EXISTS ON A SA
VED DATA BASE.","#"..OG.."WILL ALL THE O
PTIONS ON THIS MENU,":."YOU WILL NEARLY
ALWAYS BE PROMPTED":."FOR A FILE NAME.
HERE YOU SHOULD":."ENTER THE DBASE FILE
NAME THAT YOU":."TO CHANGE.","":."AS WIT
H ALL IMPORTANT FILES, YOU":."TRY AND MA
KE REGULAR BACK-UPS, AND"..P..."WHEN USI
NG THESE UTILITIES, JUST IN":."ANYTHING
SHOULD GO WRONG.","#":." == EXI
T TO BASIC == ","":."THIS WILL
EXIT DBASE 128. IF YOU WISH":."TO RE-R
UN DBASE 128, JUST TYPE 'RUN' AND":."PRE
SS THE RETURN KEY.","*":."#0"..Q..."
HOW TO USE HELP ":."====
=================================":."THR
EE HELP SECTIONS ARE AVAILABLE":."ONE FO
R EACH MENU:-","":." MAIN MENU":."
UTILITIES MENU":." DBASE ALTER
ATIONS MENU":.""..RU.."TO ACCESS THESE M
ENUS, PRESS 'H'":."WHILE ON THE APPROPRI
ATE MENU.","":."EQ-":." PRESSING H ON T
HE UTILITIES MENU":." WILL BRING UP HEL
P ON THE":." UTILITIES LISTED IN THAT M
ENU.":."","*":."#2":." UTILITI
ES MENU "..S..."DDDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDD":."CHANGE DBASE
NAME":."=================":."THIS WILL
RENAME ALL THE RELAVENT":."FILES TO A DE
SIRED FILE NAME.","":."YOU WILL BE PROMP
TED FOR THE CURRENT":."FILE NAME, AND DE
SIRED NAME FOR THIS"..T%.."DBASE.","","#
":."BACK-UP A DBASE":."===============":
."IT IS SUGGESTED TO MAKE REGULAR":."BAC
K-UPS OF YOUR DBASES', ESPECIALLY":."WHE
N 'ADDING A FIELD', OR LONG TERM":."EDIT
ING.","":."WHEN THE OPTION IN SELECTED,
YOU".OUM.."ARE REQUIRED TO ENTER THE FIL
E NAME":."OF THE DBASE TO BACK-UP. THE S
YSTEM":."WILL DO THE REST.","","#":."ADD
A FIELD":."===========":."IF, AFTER CRE
ATING YOU DBASE, YOU":."DECIDE YOU NEED
AN EXTRA FIELD,":."USE THIS OPTION.","".
IVU.."ONCE YOU'VE ENTER THE FILE NAME,":
."YOU'LL BE ASKED FOR THE NEW FIELD":."N
AME. ONCE THIS IS ENTERED, AND":."YOU CO
NFIRM THE OPERATION, THE":."SYSTEM WILL
ADD A FIELD TO THE":."CONFIG FILE, THEN
ENTER A BLANK":."ENTRY FOR EVER RECORD S
TORED ON".UW..."DISK.","","#":."SEE A DI
SK DIRECTORY":."====================":."
DISPLAYS THE DIRECTORY OF THE":."DISK CU
RRENTLY IN DRIVE (DEV:8).":."","#":."DEL
ETE A DBASE":."==============":."THIS WI
LL DELETE A DBASE THAT":."EXISTS ON DISK
.","".PXJ.."AFTER ENTERING THE FILENAME,
":."YOU WILL BE CONFRUNTED WITH":."'BACK
-UPS AS WELL?'. ANSWERING":."'Y'ES TO TH
IS WILL DELETE ALL":."FILE ENTRIES, INCL
USING BACK-UPS,":."FROM DISK.","":."NEVE
R USE '*' (WILD CARD) IN":."FILE NAMES,
ESPECIALLY WHEN".>Y..."DELETING FILES.",
"","*":."#3":." DBASE ALTERATIONS
MENU ":."DDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDD":."EXIT TO MAIN MENU":."==
===============":."RETURNS TO MAIN MENU,
WHERE YOU CAN":."LOAD, OR USE UTILITIES
IN UTILITIES"..Z..."MENU.","","#":."SEA
RCH FOR A RECORD":."==================="
:."THIS OPTIONS LETS YOU SEARCH YOUR":."
DBASE FOR DESIRED RECORD CONTENTS","":."
EG-":." YOUR DBASES' FIRST FIELD IS":.
" NAME. YOU WANT TO FIND ALL FIELDS"..
{B.." WITH 'BLOGGS' IN THE NAME/FIELD.
":." THIS WOULD BE DONE BY...","":."
NAME : *BLOGGS*","":."PRESSING RETURN O
N IT'S OWN BY A":."FIELD, WILL ACT AS A
WILD CARD FOR":."THE WHOLE FIELD.","#":.
"ADD A RECORD":."============"..{J.."USE
THIS OPTION TO ADD A RECORD TO":."YOUR
DBASE.","","#":."DELETE A RECORD":."====
===========":."THIS OPTION WILL DELETE A
RECORD":."THAT LIES IN YOUR DBASE. SELE
CT":."USING 'N' FOR NEXT, 'D' FOR ":."DE
LETE, AND 'Q' TO QUIT OPTION.":."","#"..
|..."SHOW FILE STATISTICS":."===========
=========":."THIS WILL DISPLAY HOW MANY
FIELDS,":."RECORDS, AND FIELD NAMES YOU
DBASE":."HAS.","","#":."EDIT A RECORD":.
"=============":."A TYPE MISTAKE, NEW DE
TAILS..?":."THIS OPTION WILL LET YOU EDI
T A"..}D.."RECORD, THEN ALTER THE CONTEN
TS":."THAT RECORD ON DISK.","","#":."PRI
NT A RECORD":."==============":."THIS OP
TION WILL LET YOU SCAN":."THROUGHT A DBA
SE, PRINTING":."INFORMATION THAT YOU REQ
UIRE.","","#":."PRINT A FILE":."========
===="..~..."THIS WILL PRINT THE WHOLE DB
ASE":."FILE.","":."IF YOU ARE PRINTING I
N DEVICE":."6 (PLOTTER), THE PLOTTER WIL
L":."BE RE-CONFIGURED TO PRINT IN 80":."
COLOUM MODE.","","*":."!":...~..::.B(215
).128.WL.WL.20:WR.WR.20.U~#..WC.0.WC.17.
.5,WC.%(.X$."":.TT.WL.WR.2:X$.X$.".":.T
T:..WL,WT,WR,WB,1:.B(215).128...WL,WT,WR
.1,WB.12..WW.1...G7..".";X$;".":.2650.
.A..TT.WT.WB.2:.".";.C(X$));".":.TT:.".
";X$;:.B(215).128..".";:.2645..P..WB.40
.WR.1024,125.BU...WL.1,WT.1,WR.1,WB.1,1
:..SZ..WH$."".2625.2._.WG.C(X$):.".";.C
(X$));".":."..";J(WH$,1,WG):.".";:.WQ.1.
C(X$):.".";:.WQ:.".":WT.WT.2:.2625..I..
G(27);"A";:.21,1:.".:_..";Z$:.21,0:.G(27
);"C";G(13);:Z$.H(Z$,C(Z$).1):....N.::W2
670:.EL.16.2800...X..EL.2670.EL.2799.272
0...}..".....";:.T.1.5:.G(27);"W";:.T:.B
(215).128...20,0,79,4,1......241,25:.".
......................................":
.241,25:.". . SOFTWARE ERROR. PRESS A KE
Y TO .":.241,25:.". . RE-RUN.".28);"
.":.241,25:..". . ERROR INFORMATION- ###
####/### .";EL,ERR......241,25:.". .
......................................":
.2,PD,15,"I": 2... ..A$:.A$..""...9....L
P.1.150:.LP:.G(14);:.A$:.A$..""...Z....L
P.1.150:.LP:.G(142);:.2720.....::.RR.1.3
:WI$(RR)."":.RR:WI$.WI$."*":.WI.1.3:A.T(
WI$,"*"):.A.0.WI.1.WI$(WI).WI$:....W..A.
0.......WI$(WI).J(WI$,1,T(WI$,"*").1):WI
$.J(WI$,A.1,80):.WI:..=...WL.2:WR.37:WT.
8:WB.24:WC.14:WH$." .GENERAL CONFIGUR
ATION.":.2585.X...."...CONFIG PLOTTER?
: .";:.B(12290).1.."YES":U."NO"......".
.PLOTTER COLOUR : .";:P.B(12288):.P.0
.."BLACK".C....P.1.."GREEN".S....P.2.."R
ED"......P.3.."BLUE"./...."..PLOTTER WID
TH : . COLOUMS...........";:P.B(12
289):.P.0.."80".>....P.1.."40".M....P.2.
."20".\....P.3.."10".H...."..DRIVE NUMBE
R :.";B(12291):."..PRESS P,C,W,D RE
SPECTIVELY TO INCREASE OPTION. E T
O END.";...'...A$:.A$."W".Q.12289:.2900:
.2805......A$."C".Q.12288:.2900:.2805.@.
1..A$."P"..12290,B(12290).1:.B(12290).2.
.12290,0.Q.2..A$."P".2805...6..A$."D"..1
2291,B(12291).1:.B(12291).12..12291,8...
7..A$."D".2805...@..A$."E".2910:U.2855.A
.T..B(Q).3..Q,0:..Q.U..Q,B(Q).1:..N.^.."
..DO YOU....":.".1.....SAVE NEW CONFIG T
O DISK":.".2.....CONFIG THIS SESSION ONL
Y":."...PLEASE SELECT EITHER 1, OR 2.".A
.R...A$:.A$."2"...S.|..A$.."1".2930.S...
."...PLEASE WAIT...":.8,B(12291),8,"@0:C
ONFIG .CFG,U,W":.T.12288.12291:.8,B
(T):.T: 8:....
> CLICK IMAGE PREVIEW FOR FULL MODAL