*------------------------------------------------------------------
*  DBTATSAY.PRG - ATSAY demonstration
*                (c) 1989 BERNATH COMPUTER
*                04/23/1990
*------------------------------------------------------------------

CALL DBTOOLS WITH "15,3"                         && store existing screen
CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
CALL DBTOOLS WITH "23,1"
CALL DBTOOLS WITH "3,1,5,9,55,14,1,1,0,1"        && draw box
CALL DBTOOLS WITH "1,2,15,14,1,0,A T S A Y - function 1"   && title in box
SET COLOR TO W/B                                 && display box text
@ 3,8 SAY "ATSAY is an alternative to dBASE's @ SAY"
@ 4,8 SAY "command, which allows you to position and"
@ 5,8 SAY "display text independent of dBASE's SET COLOR"
@ 6,8 SAY "TO colors. Optionally, a line of text can be"
@ 7,8 SAY "displayed with a small shadow for effect."
CALL DBTOOLS WITH "10,8,13,14,1"                 && pause
CALL DBTOOLS WITH "3,4,7,18,74,15,3,2,0,1"      && overlay another box
SET COLOR TO +W/GB                               && display box text
@ 5,9 SAY "Syntax:"
mPARM="CALL DBTOOLS WITH "+CHR(34)+"1,<S>,row,col,FG,BG,page,text"+CHR(34)
@ 6,9 SAY mPARM
SET COLOR TO B/GB
@  7,9 SAY "where: S parameter is optional. If included, a small shadow will"
@  8,9 say "       be displayed."
@  9,9 say "       Text will print at the position specified by row and col."
@ 11,9 say "       Forground and background colors are set by the FG and BG"
@ 12,9 say "       parameters."
@ 14,9 say "       Page is the screen page 0-3, available on color monitors."
@ 15,9 say "       You may draw the screen invisibly, then activate the page"
@ 16,9 say "       with function 22."
CALL DBTOOLS WITH "10,17,30,15,3"
CALL DBTOOLS WITH "7,0,0,7,0"
CALL DBTOOLS WITH "1,S,0,5,15,1,0,A T S A Y - function 1"
CALL DBTOOLS WITH "1,2,5,0,7,0,All the text on this page is being displayed with the ATSAY function"

DO COLCHART

CALL DBTOOLS WITH "1,3,50,15,4,0,You can use it to display "
CALL DBTOOLS WITH "1,4,50,15,12,0,graphics characters  "
CALL DBTOOLS WITH "1,4,70,15,4,0, also."
CALL DBTOOLS WITH "1,6,50,0,7,0,à á ç ê ¹ Ä þ ÄÄÁÂÄ, ETC!"
CALL DBTOOLS WITH "1,S,9,50,15,5,0,S H A D O W  for effect"

CALL DBTOOLS WITH "10,24,25,0,7"
CALL DBTOOLS WITH "14,3,0"
RETURN