*====================================================================
*   DBTWIND.PRG - Window Demonstration
*                 (c) 1989 BERNATH COMPUTER
*                 9:40:39  6/15/1990
*====================================================================

CALL DBTOOLS WITH "15,3"
CALL DBTOOLS WITH "7,0,0,7,0"
CALL DBTOOLS WITH "23,1"
CALL DBTOOLS WITH "1,S,0,28,15,4,0,W I N D O W  Demonstration"
CALL DBTOOLS WITH "21,19,3,5,13,50,10,2,2,1"
CALL DBTOOLS WITH "1,4,15,15,2,0,WINDOW - function 21"
SET COLOR TO N/G
@ 6,8 SAY "The WINDOW function allows you to popup"
@ 7,8 SAY "boxed and framed windows, first saving"
@ 8,8 SAY "the text area underneath. The area under-"
@ 9,8 SAY "neath can then be restored using UNPOP"
@ 10,8 SAY "function 19."
CALL DBTOOLS WITH "10,12,15,15,2"
CALL DBTOOLS WITH "21,21,6,10,19,70,10,0,2,1"
SET COLOR TO +G/N
CALL DBTOOLS WITH "1,7,13,10,0,0,Syntax:"
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"21,windownumber,ULR,ULC,LRR,LRC,"
@ 8,13 SAY mPARM
mPARM = "FG,BG,frame shadow"+CHR(34)
@ 9,32 SAY mPARM
SET COLOR TO G/N
@ 10,13 SAY "Windownumber is a number between 1 and 24 used to"
@ 11,13 say "reference a particular window. This number is used"
@ 12,13 say "along with function 19 to restore the area underneath."
SET COLOR TO +G/N
@ 14,13 say "CALL DBTOOLS WITH "+CHR(34)+"21,22,12,50,17,75,15,4,3,1"+CHR(34)
@ 15,30 SAY "."
@ 16,30 SAY "."
@ 17,13 SAY "CALL DBTOOLS WITH "+CHR(34)+"19,22"+CHR(34)
CALL DBTOOLS WITH "10,18,20,14,0"
CALL DBTOOLS WITH "5,18,20,18,50,0"
CALL DBTOOLS WITH "1,18,20,14,8,0,Watch these commands execute:"
CALL DBTOOLS WITH "4,0,0"
CALL DBTOOLS WITH "6,48"
CALL DBTOOLS WITH "21,22,12,50,17,75,15,4,3,1"
CALL DBTOOLS WITH "1,14,58,15,4,0,Pop it up!"
CALL DBTOOLS WITH "6,36"
CALL DBTOOLS WITH "19,22"
CALL DBTOOLS WITH "6,36"

KOUNT = 1
mK=.T.
DO WHILE KOUNT < 10
   CALL DBTOOLS WITH "21,1,5,10,10,25,15,1,1,1"
   IF mK
       CALL DBTOOLS WITH "6,18"
   ENDIF
   CALL DBTOOLS WITH "21,2,7,20,14,35,15,6,1,1"
   IF mK
       CALL DBTOOLS WITH "6,18"
   ENDIF
   CALL DBTOOLS WITH "21,3,12,40,15,75,15,3,1,1"
   IF mK
       CALL DBTOOLS WITH "6,18"
   ENDIF
   CALL DBTOOLS WITH "21,4,2,55,18,65,15,4,1,1"
   IF mK
       CALL DBTOOLS WITH "6,18"
   ENDIF
   CALL DBTOOLS WITH "21,5,17,15,22,35,15,5,1,1"
   IF mK
      CALL DBTOOLS WITH "6,18"
   ENDIF
   CALL DBTOOLS WITH "21,6,1,5,5,75,15,0,5,1"
   IF mK
      CALL DBTOOLS WITH "6,18"
   ENDIF
   CALL DBTOOLS WITH "21,7,11,25,15,45,10,2,5,1"
   IF mK
      CALL DBTOOLS WITH "6,18"
   ENDIF
   mJ=7
   DO WHILE mJ>0
      mPARM="19,"+STR(mJ,1)
      CALL DBTOOLS WITH mPARM
      IF mK
          CALL DBTOOLS WITH "6,18"
      ENDIF
      mJ=mJ-1
   ENDDO
   mK=.F.
   KOUNT=KOUNT+1
ENDDO

CALL DBTOOLS WITH "19,21"
CALL DBTOOLS WITH "6,18"
CALL DBTOOLS WITH "19,19"
CALL DBTOOLS WITH "6,18"
CALL DBTOOLS WITH "4,1,0"
CALL DBTOOLS WITH "14,3,0"
RETURN