home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
DESKTOP
/
TABS_V21.ZIP
/
GSFBKPM1.FRB
(
.txt
)
< prev
next >
Wrap
FrontRunner Binary Module
|
1991-05-31
|
12KB
|
476 lines
Print Merge
SET COLOR TO &COLOR2
PRINT MERGE
MHELLO
TEMPINDEX
MDESTIN
PRN LPT1 LPT2 FILE
MCATFILTER
MSORTPOSTOTAL
Please select <S>ettings first to
setup the destination, categories,
fields and SORT ORDER.
Print Merge
MMERGECHR
MPRLN
MLINELEN
MFLDTYPE
MFIELDNO
MCHAR
BUFLEN
MLINE
MTOTALINES
MRECS
MPGLEN
MINFILE
MCONT
MFIELD
MLINE
BUFLEN
MMERGECHR
MRECS
MPGLEN
C:\
MINFILE
MANSWER
MBLANK
MCONT
MCONT
MDESTIN
<P>rint to disk file->
MOUTFILE
or <C>ancel
Please make sure the printer is on.
<P>rint or <C>ancel
Drive, Path & File name of the ASCII text file you wish to merge:
MINFILE
A:\XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
MINFILE
Reading text file ...
MINFILE
MCHAR
MCHAR
MCHAR
MCHAR
MLINE
MCHAR
MLINE
MCHAR
MCHAR
MTOTALINES
MCHAR
MCHAR
MCHAR
MTOTALINES
The Merge routine will usually handle a text file up to 176 lines,
containing several thousand characters (3 to 4 typed pages). The
file you have requested is too large to Merge. Please edit the
file, then try this <M>erge routine again. Press any key to
return to the main Print menu.
Print Merge
MMERGECHR
MPRLN
MLINELEN
MFLDTYPE
MFIELDNO
MCHAR
BUFLEN
MLINE
MTOTALINES
MRECS
MPGLEN
MINFILE
MCONT
MFIELD
MLINE
MTOTALINES
)D)+)(
MTOTALINES
MTOTALINES
MLINE
MTOTALINES
MLINE
MTOTALINES
MLINE
MTOTALINES
MLINE
MTOTALINES
Actual Page length - >
# of spaces to indent (if any) - >
MPGLEN
MPGLEN
MTOTALINES
Above information correct <Y/N/Q> ?
@\@A&
Print Merge
MMERGECHR
MPRLN
MLINELEN
MFLDTYPE
MFIELDNO
MCHAR
BUFLEN
MLINE
MTOTALINES
MRECS
MPGLEN
MINFILE
MCONT
MFIELD
MDESTIN
MOUTFILE
Replace ?
SET COLOR TO &COLOR3
File already exists.
<A>dd to the bottom, <R>eplace, or <Q>uit ?
MANSWER
MANSWER
Replace ?
Print Merge
MANSWER
MANSWER
MOUTFILE
Locating the end of file.
BUFLEN
MOUTFILE
MCONT
MDESTIN
MANSWER
MDESTIN
USE &DATAFILE INDEX &TEMPINDEX
MPRTFILTER
SET FILTER TO &mPRTFILTER .AND. (' '+RIGHT('0'+LTRIM(STR(CATEG,2)),2))$mCATFILTER
CATEG
@II)+d
MCATFILTER
Number of records output ->
MTOTALINES
MPGLEN
MPGLEN
MBLANK
FNAME
)D)+)(
FNAME
MFIELD
LNAME
)D)+)(
LNAME
MFIELD
TITLE
TITLE
MFIELD
CONAME
)D)+)(
CONAME
MFIELD
PHONE1
( ) -
PHONE1
*@)Fd
( ) -
MFIELD
PHONE2
( ) -
PHONE2
*@)Fd
( ) -
MFIELD
MFIELD
ADDL1
)D)+)(
ADDL1
MFIELD
ADDL2
)D)+)(
ADDL2
MFIELD
)D)+)(
MFIELD
STATE
STATE
MFIELD
MFIELD
ZIP_EXT
ZIP_EXT
MFIELD
NOTE1
)D)+)(
NOTE1
MFIELD
NOTE2
)D)+)(
NOTE2
MFIELD
NOTE3
)D)+)(
NOTE3
MFIELD
CATEG
iI)+3
MFIELD
BDATE
MFIELD
MISCDATE
MFIELD
MISCCHAR
)D)+)(
MISCCHAR
MFIELD
NUMINT
iI)+3
MFIELD
NUMREAL
@iI)+3
MFIELD
UPDATED
MFIELD
MCATS
CATEG
@()D)+3
MFIELD
TITLE
TITLE
FNAME
)D)+)(
FNAME
LNAME
)D)+)(
LNAME
MFIELD
TITLE
TITLE
LNAME
)D)+)(
LNAME
MFIELD
FNAME
)D)+)(
FNAME
LNAME
)D)+)(
LNAME
MFIELD
ZIP_EXT
ZIP_EXT
MFIELD
PHONE2
( ) -
PHONE2
*@)Fd
*@)Fi
MFIELD
MTOTALINES
MLINE
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
MPRLN
MPRLN
MFIELD
MPRLN
MPRLN
MPRLN
)D)+)(
MLINE
)D)+)(
MBLANK
MBLANK
MPRLN
)D)+)(
MLINE
)D)+)(
MPRLN
MLINE
MPRLN
)D)+)(
MPRLN
MBLANK
MBLANK
MBLANK
MBLANK
MBLANK
MRECS
MRECS
MRECS
MCONT
File Does not Exist. Press Q to <Q>uit, or any other key to
re-enter the Drive, Path and File name.
MCONT
MCONT
Print Merge
MMERGECHR
MPRLN
MLINELEN
MFLDTYPE
MFIELDNO
MCHAR
BUFLEN
MLINE
MTOTALINES
MRECS
MPGLEN
MINFILE
MCONT
MFIELD