* ====================================================================
*   DBTDEMO - dBTools Demo  VERSION 1.23S
*             (c) 1990 BERNATH COMPUTER
*             07/24/1990
* ===================================================================

SET TALK OFF
SET BELL OFF
SET CONFIRM ON
SET STATUS OFF

PUBLIC gOPT,gPATH,gPRTFILE,gPRT

* --- Load dBTools module
gPATH = TRIM(GETE("DBPATH"))
SET PATH TO &gPATH
gPATH = gPATH+"\"
DO LOADDBT                                      && load and initialize dBTools

mPARM = "12,1,"+gPATH+"DBT.IMG"                 && load opening screen image
CALL DBTOOLS WITH mPARM
CALL DBTOOLS WITH "4,0,0"                       && cursor off
CALL DBTOOLS WITH "8,7,0,15,1"                  && fade in
mEXP = gPATH+"DBTPROC"
SET PROCEDURE TO &mEXP                          && load procedure file


* ---- opening screen
CALL DBTOOLS WITH "7,2,8,7,0"                   && dithered BG
CALL DBTOOLS WITH "18"                          && twiddle
CALL DBTOOLS WITH "3,3,5,18,72,15,4,2,0,1"      && box
CALL DBTOOLS WITH "1,4,22,14,4,0,W E L C O M E   T O"
CALL DBTOOLS WITH "1,S,4,44,15,1,0,d B T o o l s !"
CALL DBTOOLS WITH "1,6,10,15,4,0,dBTools"
CALL DBTOOLS WITH "1,6,18,7,4,0,is an add on enhancement to make up for some of the"
CALL DBTOOLS WITH "1,7,10,7,4,0,deficiencies in the dBASE language. It provides twenty five"
CALL DBTOOLS WITH "1,8,10,7,4,0,screen and video functions which can make your applications "
CALL DBTOOLS WITH "1,9,10,15,12,0,ð sparkle! ð"
CALL DBTOOLS WITH "1,9,22,7,4,0,, as well as popup windows and menus, audio con-"
CALL DBTOOLS WITH "1,10,10,7,4,0,trol, and a sophisticated printer driver, all to give your"
CALL DBTOOLS WITH "1,11,10,7,4,0,applications that"
CALL DBTOOLS WITH "1,S,11,28,0,7,0,Professional Look!"
CALL DBTOOLS WITH "1,14,20,7,4,0,And all from within good ol'"
CALL DBTOOLS WITH "1,14,49,14,4,0,dBASE III+!"
CALL DBTOOLS WITH "10,17,28,0,4"

KOUNT = 1
DO WHILE KOUNT < 10
   CALL DBTOOLS WITH "16,6,8,17,71,7,4,1,1"
   CALL DBTOOLS WITH "6,3"
   CALL DBTOOLS WITH "1,17,28,7,4,0,"+SPACE(42)
   KOUNT = KOUNT + 1
ENDDO

* ---- scroll features
CALL DBTOOLS WITH "1,4,10,4,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,5,10,4,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,4,8,7,4,0,FEATURES FEATURES FEATURES FEATURES FEATURES FEATURES FEATURES"
CALL DBTOOLS WITH "1,S,16,12,0,7,0,ATSAY fast screen writes"
CALL DBTOOLS WITH "1,S,16,45,0,7,0,BLAT computer bronx cheer"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,12,0,0,Framed boxes with shadows"
CALL DBTOOLS WITH "1,S,16,45,12,0,0,Cursor attribute control"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,14,2,0,Erase text"
CALL DBTOOLS WITH "1,S,16,45,14,2,0,Delay"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,1,3,0,Dithered background"
CALL DBTOOLS WITH "1,S,16,45,1,3,0,Slideshow fades"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,11,1,0,Horizontal bar menu"
CALL DBTOOLS WITH "1,S,16,45,11,1,0,Enhanced WAIT"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,15,5,0,Printer Driver"
CALL DBTOOLS WITH "1,S,16,45,15,5,0,Read screen from file"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,14,6,0,Recolor area"
CALL DBTOOLS WITH "1,S,16,45,14,6,0,Scroll an area"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,15,0,0,Save screen"
CALL DBTOOLS WITH "1,S,16,45,15,0,0,Restore screen"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,4,7,0,Play a note"
CALL DBTOOLS WITH "1,S,16,45,4,7,0,Three note twiddle"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,11,5,0,Popup windows"
CALL DBTOOLS WITH "1,S,16,45,11,5,0,Restore a window"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,10,1,0,Vertical bar menu"
CALL DBTOOLS WITH "1,S,16,45,10,1,0,Set active display page"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "23,0"
CALL DBTOOLS WITH "1,S,16,12,0,15,0,High Intensity BG/Blink"
CALL DBTOOLS WITH "1,S,16,45,0,15,0,Set EGA palette"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "1,16,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,17,11,7,4,0,"+SPACE(59)
CALL DBTOOLS WITH "1,S,16,12,0,14,0,Trap keystrokes unambiguously"
CALL DBTOOLS WITH "6,27"
CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
CALL DBTOOLS WITH "6,27"


KOUNT = 1
DO WHILE KOUNT < 6
   CALL DBTOOLS WITH "16,6,8,17,71,7,4,2,1"
   CALL DBTOOLS WITH "6,27"
   KOUNT = KOUNT + 1
ENDDO
CALL DBTOOLS WITH "23,1"
DO DBTMAIN