*------------------------------------------------------------------
*  DBTRECLR.PRG - RECOLOR demonstration
*                (c) 1989 BERNATH COMPUTER
*                17:56:27  9/12/1989
*------------------------------------------------------------------

CALL DBTOOLS WITH "15,3"                         && store existing screen
CALL DBTOOLS WITH "7,0,15,2,0"                   && dithered background
CALL DBTOOLS WITH "3,1,5,8,45,14,1,1,0,1"        && draw box
CALL DBTOOLS WITH "1,2,12,14,1,0,R E C O L O R - function 13"   && title in box
SET COLOR TO W/B                                 && display box text
@ 3,8 SAY "RECOLOR allows you to change the"
@ 4,8 SAY "color attributes of an area without"
@ 5,8 say "changing the text."
CALL DBTOOLS WITH "10,7,13,14,1"                 && pause
CALL DBTOOLS WITH "3,4,7,14,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)+"13,ULR,ULC,LRR,LRC,FG,BG"+CHR(34)
@ 6,9 SAY mPARM
SET COLOR TO B/GB
@  8,11 SAY "where: ULR,ULC,LRR, and LRC specify the corners of the area"
@  9,11 say "       to be recolored."
@ 11,11 say "       FG and BG specify the color attributes to change to."
CALL DBTOOLS WITH "10,13,30,15,3"
SET COLOR TO W/N,N/W,,N
CLEAR
KOUNT = 2
DO WHILE KOUNT < 23
   @ KOUNT,9 SAY "dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools"
   KOUNT = KOUNT + 1
ENDDO
KOUNT = 0
mPOS = 0
DO WHILE KOUNT < 16
   mPOS = mPOS + 1
   IF mPOS > 8
      mPOS = 1
   ENDIF
   DO RECCOL WITH mPOS, KOUNT, 8
   KOUNT = KOUNT + 1
ENDDO
CALL DBTOOLS WITH "10,24,25,0,7"
CALL DBTOOLS WITH "14,3,0"
RETURN