home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
DESKTOP
/
TABS_V21.ZIP
/
GSFBKTR1.FRB
(
.txt
)
< prev
next >
Wrap
FrontRunner Binary Module
|
1991-05-31
|
10KB
|
263 lines
PREVWINDOW
PREVWINDOW
Transfer
SET COLOR TO &COLOR2
TRANSFER
MOUTPATH
MOUTFILE
MINFILE
MLINPUT
PROGRAM
MNUMRECS
BUFLEN
C:\
MOUTPATH
@)F3
MOUTFILE
C:\
MINFILE
MLINPUT
MANSWER
MYNFILTER
Q@)F3
MFILTER
MNUMRECS
BUFLEN
MCONT
MCONT
This routine will either transfer data into the current
data file (Import), or transfer data from the current
data file to another file (EXPORT).
The imported file must be in comma-delimited format.
The exported file will be in comma-delimited format.
<I>mport, <E>xport, or <Q>uit ?
MCONT
MCONT
MCONT
IMPORT
SET COLOR TO &COLOR4
<C>ontinue, or <Q>uit
Drive, path & File name:
MINFILE
A:\XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
MINFILE
MINFILE
USE &DATAFILE INDEX &DATAINDEX
MCHAR
MFNUM
MCHAR
MCONT
Number of records imported ->
MCONT
MCHAR
MCHAR
MCHAR
MCHAR
MFNUM
MCHAR
MFNUM
MCHAR
MCHAR
MCHAR
MCHAR
MFNUM
MFNUM
MFNUM
MCHAR
MFNUM
MCHAR
MCHAR
MCONT
MCHAR
FNAME
LNAME
TITLE
CONAME
PHONE1
PHONE2
ADDL1
ADDL2
STATE
ZIP_EXT
NOTE1
NOTE2
NOTE3
CATEG
BDATE
/ /
CTOD(
REPLACE BDATE WITH &mDT
MISCDATE
/ /
CTOD(
REPLACE MISCDATE WITH &mDT
MISCCHAR
NUMINT
NUMREAL
UPDATED
/ /
CTOD(
REPLACE UPDATED WITH &mDT
MNUMRECS
MNUMRECS
MNUMRECS
MFNUM
MCHAR
MCHAR
MCHAR
MCHAR
MCHAR
MCHAR
MCHAR
File Does not Exist.
Press any key to continue...
IMPORT
MCONT
EXPORT
SET COLOR TO &COLOR4
<C>ontinue, or <Q>uit
MCONTINUE
MCONTINUE
MOUTPATH
I@)Fd
I@I'3
MOUTPATH
Drive & Path ->
MOUTPATH
A:\XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
MOUTPATH
MOUTPATH
MOUTPATH
MOUTPATH
MOUTPATH
Drive or Path does not exist. Please re-enter.
MCONTINUE
File Name (a PRN extention will automatically be added) ->
MOUTFILE
NNNNNNNN
MOUTFILE
MOUTFILE
MOUTFILE
MOUTFILE
MOUTPATH
MOUTFILE
MOUTFILE
MOUTFILE
Replace ?
SET COLOR TO &COLOR3
File already exists.
<A>dd to the bottom, <R>eplace, or <Q>uit ?
MANSWER
MANSWER
Replace ?
EXPORT
MANSWER
TR FILTER
Filter the records exported <Y/N> ?
MYNFILTER
MYNFILTER
MYNFILTER
Filter Setup
SET COLOR TO &COLOR5
MFLTR_OK
USE &DATAFILE INDEX &DATAINDEX
MFLTR_OK
Enter the filter you would like (up to 70 Characters)
MFILTER
MFILTER
The filter you have set is not a valid (logical) filter.
<T>ry again, or <Q>uit ?
MFLTR_OK
MFLTR_OK
MFLTR_OK
EXPORT
Filter Setup
TRANSFER
EXPORT
PREVWINDOW
TRANSFER
MFLTR_OK
SET FILTER TO &mFILTER
No records found. Press any key to continue.
Q@)F3
MFILTER
EXPORT
Filter Setup
TRANSFER
EXPORT
PREVWINDOW
TRANSFER
EXPORT
TRANSFER
MANSWER
MOUTFILE
Locating the end of file.
BUFLEN
Adding Data to the file.
MOUTFILE
USE &DATAFILE INDEX &DATAINDEX
MFILTER
SET FILTER TO &mFILTER
WRITING INFO
FNAME
)D)+d
LNAME
)D)+d
TITLE
)D)+d
CONAME
)D)+d
PHONE1
PHONE2
ADDL1
)D)+d
ADDL2
)D)+d
)D)+d
STATE
)D)+d
ZIP_EXT
NOTE1
)D)+d
NOTE2
)D)+d
NOTE3
)D)+d
CATEG
BDATE
/ /
BDATE
BDATE
iI)+d
BDATE
iI)+d
MISCDATE
/ /
MISCDATE
MISCDATE
iI)+d
MISCDATE
iI)+d
MISCCHAR
NUMINT
NUMREAL
@iI)+
UPDATED
/ /
UPDATED
UPDATED
iI)+d
UPDATED
iI)+d
READING INFO
MNUMRECS
MNUMRECS
Number of Records Exported ->
MNUMRECS
iI)+d
EXPORT
Transfer
Transfer
PREVWINDOW
PROGRAM