*------------------------------------------------------------------
*  DBTDITHR.PRG - DITHER demonstration
*                (c) 1989 BERNATH COMPUTER
*                12:45:40  10/3/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,10,57,14,1,1,0,1"        && draw box
CALL DBTOOLS WITH "1,2,15,14,1,0,D I T H E R - function 7"   && title in box
SET COLOR TO W/B                                 && display box text
@ 3,8 SAY "DITHER allows you to create over six hundred"
@ 4,8 SAY "differently colored backdrops for your screens."
@ 5,8 SAY "This is accomplished by filling the screen with"
@ 6,8 SAY "the graphics characters ° ± ² Û with various"
@ 7,8 SAY "foreground and background colors to produce the"
@ 8,8 SAY "desired shades."
CALL DBTOOLS WITH "10,9,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)+"7,chartype,FG,BG,page"+CHR(34)
@ 6,9 SAY mPARM
SET COLOR TO B/GB
@  8,12 SAY "where: Chartype = 0 : solid background color"
@  9,30 say "1 :           °"
@  10,30 say "2 :           ±"
@  11,30 say "3 :           ²"
@  12,30 say "4 : solid foreground color"
CALL DBTOOLS WITH "1,14,25,5,3,0,Watch the different shades of blue"
CALL DBTOOLS WITH "1,15,25,5,3,0,in the following demo."
CALL DBTOOLS WITH "10,17,30,15,3"
CALL DBTOOLS WITH "4,0,0"
CALL DBTOOLS WITH "7,0,9,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,1,9,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,2,9,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,3,9,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,4,9,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,1,3,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,2,3,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,3,3,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,1,11,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,2,11,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,3,11,1,0"
CALL DBTOOLS WITH "6,10"
CALL DBTOOLS WITH "7,4,11,1,0"
CALL DBTOOLS WITH "6,10"

   mBG = 0
   DO WHILE mBG < 8
      mFG = 0
      DO WHILE mFG < 8
         mPARM = "7,2,"+STR(mFG,2)+","+STR(mBG,1)+",0"
         CALL DBTOOLS WITH mPARM
         CALL DBTOOLS WITH "6,5"
         mFG = mFG + 1
      ENDDO
      mBG = mBG + 1
   ENDDO
CALL DBTOOLS WITH "3,9,20,11,65,15,6,1,0,1"
CALL DBTOOLS WITH "1,10,23,15,6,0,And that wasn't even an eigth of 'em!"
CALL DBTOOLS WITH "4,1,0"
CALL DBTOOLS WITH "10,24,25,0,7"
CALL DBTOOLS WITH "14,3,0"
RETURN