home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
DATABASE
/
FILCRD46.LBR
/
EXTRACT.CZM
/
EXTRACT.COM
(
.txt
)
Wrap
Turbo Pascal Compiled 8bit CP/M-80 COM
|
2000-06-30
|
14KB
|
103 lines
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/<oz
T9^K#
oGOW_g
`1pF,
LSTCAUX
>~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 (<RET> 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