Copyright (C) 1985 BORLAND Inc Kaypro with hiliteedP .,;:=?*[]<>{} ^#V#N#F s#r#q#p #^#V 9^#Vh& |/g}/o# T]=o`9y T9^K# 8/~O6~* .##~ TRUEFALSE ##N#F* ##~++ N#F#s#r N#F#^#V Nw#Fw q#p#6 #w#w#w >!DM! <( !\ Ns#Fr User break Run-time error , PC= Not enough memory Program aborted File does not exist File not open for input File not open for output File not open Can't read from this file Can't write to this file Error in numeric format )Operation not allowed on a logical device Not allowed in the direct mode $Assign to standard files not allowed Record length mismatch Seek beyond end of file Unexpected end of file Disk write error Directory is full File size overflow File dissappeared! Unknown I/O Error: * Type any key to continue... FILE CARD DATABASE 4.6 Record Extraction Program P-------------------------------------------------------------------------------- GThis program EXTRACTs records from one database, deleting them from the Koriginal, and puts them into another. It allows you to free up space in one Ndatabase without losing your valuble data. EXTRACT.COM must be on the diskette Gyou are copying TO, and it must be run from the CURRENTLY LOGGED DRIVE. JYou will then be asked for the drive which contains the data files you are =copying FROM. Enter A:, B:, or whatever drive is appropriate. JYou then enter ONE, or TWO key words to search on, from the original file. DThe program will extract the records which match the search pattern. KIf the database you are copying TO does not exist, it will be created anew. OIf it already exists, the records will be ADDED to the existing file. This way, Myou can make several passes through the old file, adding each pass to the new file. ,Enter the drive containing the old files: __ Bad Drive designator! =Now, enter an asterisk to continue...any other key to abort: +)))) +)))) Copying from Old Record# * to New Record# * +)))) +)))) +)))) 1This database is full. Try EXTRACTing to another. Enter first key word for search #1: 4Enter second key word for search ( to ignore ) #2: >You didn`t enter a key word. Rerun the program, and try again. First key: ! Second key: ! Searching... That`s All Folks... No such key match found... 5Enter "*" for another search, any other key to exit. KEYLIST CARDFILE +)))) +)))) KEYLIST CARDFILE KEYLIST Disk file problems! KEYLIST 1This database is full. Try EXTRACTing to another. CARDFILE is ful