*==============================================================
*  DBTPRINT.PRG - demo of printer driver
*                (c) 1989 BERNATH COMPUTER
*                5:51:14  10/26/1989
*==============================================================
CALL DBTOOLS WITH "7,2,0,3,0"
CALL DBTOOLS WITH "3,3,5,15,58,15,3,1,0,1"
CALL DBTOOLS WITH "1,4,8,15,3,0,PRINTER - function 11"
SET COLOR TO N/BG
@ 6,8 say "The PRINTER function allows you to easily take"
@ 7,8 say "advantage of the features of your printer from"
@ 8,8 say "within dBASE. It is also easily configurable to"
@ 9,8 say "handle different kinds of printers easily."
@ 11,8 say "Printer escape sequences are loaded from an"
@ 12,8 say "ASCII file which can be created with any text"
@ 13,8 say "editor, or created by a program supplied."
CALL DBTOOLS WITH "10,14,8,15,3"

CALL DBTOOLS WITH "3,6,10,21,70,11,0,1,0,1"
CALL DBTOOLS WITH "1,7,12,11,0,0,Syntax:"
SET COLOR TO +BG/N
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"11,0,0,filespec"+CHR(34)
@ 8,12 SAY mPARM
mPARM = "mPARM = "+CHR(34)+"11,0,1,"+CHR(34)+"+SPACE(31)"
@ 9,12 SAY mPARM
@ 10,12 SAY "CALL DBTOOLS WITH mPARM    (get printer info)"
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"11,seqcode"+CHR(34)+"   (1-48)"
@ 11,12 SAY mPARM
SET COLOR TO BG/N
@ 13,12 SAY "Before using the printer codes, they must be loaded into"
@ 14,12 say "memory, using the syntax on the first line. After loading,"
@ 15,12 say "up to 48 different escape sequences may be sent to the"
@ 16,12 say "printer using the syntax shown on the fourth line. Infor-"
@ 17,12 say "mation about the currently loaded printer can be obtained"
@ 18,12 say "using the syntax in the second line."
CALL DBTOOLS WITH "10,20,12,11,0"
CALL DBTOOLS WITH "3,9,15,19,76,15,7,1,0,1"
SET COLOR TO N/W
CALL DBTOOLS WITH "1,10,18,15,7,0,Printer Driver Definition Control Program"
@ 12,18 SAY "As an aid in creating and editing the printer definition"
@ 13,18 SAY "files, an editing program DBTPRDEF and associated data-"
@ 14,18 SAY "files PRNDEF.DBF and ESCCODES.DBF are provided. The codes"
@ 15,18 SAY "are maintained in the databases, and then the ASCII text"
@ 16,18 SAY "file is automatically created from the data."
CALL DBTOOLS WITH "10,18,18,15,7"
RETURN