Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBT10.ZIP
Filename : DBTOTHER.PRG

*===================================================================
* DBTOTHER.PRG - demo of cursor, delay, pause
* (c) 1989 BERNATH COMPUTER
* 6:51:43 9/20/1989
*==================================================================
PARAMETERS CHOICE

CALL DBTOOLS WITH "15,3"
CALL DBTOOLS WITH "7,4,14,0,0"

DO CASE
CASE CHOICE = 1
CALL DBTOOLS WITH "3,3,5,11,50,14,6,2,0,1"
CALL DBTOOLS WITH "1,4,10,14,6,0,CURSOR - function 4"
SET COLOR TO +W/GR
@ 6,8 SAY "The CURSOR function allows you to turn"
@ 7,8 SAY "the curson on or off, and to change it"
@ 8,8 SAY "from a normal to a fat cursor."
CALL DBTOOLS WITH "10,10,10,14,6"
CALL DBTOOLS WITH "3,6,10,16,65,14,0,1,0,0"
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"4,off/on,normal/fat"+CHR(34)
SET COLOR TO +GR/N
@ 7,13 SAY "Syntax:"
@ 8,13 SAY mPARM
SET COLOR TO W/N
@ 10,13 SAY "Set the parameters to 0 to turn off the cursor or"

@ 11,13 SAY "set it to normal size, or set it to 1 to turn on"
@ 12,13 SAY "the cursor or set it to fat size."
CALL DBTOOLS WITH "10,15,15,14,0"
CALL DBTOOLS WITH "3,10,20,12,50,15,4,2,0,1"
CALL DBTOOLS WITH "1,11,23,15,4,0,Cursor on, normal"
CALL DBTOOLS WITH "6,48"
CALL DBTOOLS WITH "5,11,23,11,49,4"
SET COLOR TO +W/R
CALL DBTOOLS WITH "1,11,23,15,4,0,Turning off the cursor"
CALL DBTOOLS WITH "6,26"
CALL DBTOOLS WITH "4,0,0"
CALL DBTOOLS WITH "5,11,23,11,49,4"
CALL DBTOOLS WITH "1,11,23,15,4,0,Cursor is off"
CALL DBTOOLS WITH "6,48"
CALL DBTOOLS WITH "5,11,23,11,49,4"
CALL DBTOOLS WITH "1,11,23,15,4,0,Cursor on, fat"
CALL DBTOOLS WITH "4,1,1"
CALL DBTOOLS WITH "6,48"
CALL DBTOOLS WITH "5,11,23,11,49,4"
CALL DBTOOLS WITH "4,1,0"
CALL DBTOOLS WITH "1,11,23,15,4,0,Back to normal"
CALL DBTOOLS WITH "6,48"
CASE CHOICE = 2
CALL DBTOOLS WITH "3,3,5,13,50,14,6,2,0,1"
CALL DBTOOLS WITH "1,4,12,14,6,0,DELAY - function 6"
SET COLOR TO +W/GR
@ 6,8 SAY "The DELAY function allows you to put"
@ 7,8 SAY "timed WAIT's in your program. The pro-"
@ 8,8 SAY "gram will suspend all operations until"
@ 9,8 SAY "the specified time interval has passed."
CALL DBTOOLS WITH "10,11,11,14,6"
CALL DBTOOLS WITH "3,6,10,16,65,14,0,1,0,1"
SET COLOR TO +GR/N
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"6,delaytime"+CHR(34)
@ 7,13 SAY "Syntax:"
@ 8,13 SAY mPARM
SET COLOR TO W/N
@ 10,13 SAY "The delaytime parameter is in units of clock tics,"
@ 11,13 SAY "which is 1/18th second on a PC (ie, 18 = 1 second)."
CALL DBTOOLS WITH "10,15,15,14,0"
CALL DBTOOLS WITH "3,10,20,12,45,15,4,2,0,1"
KOUNT = 10
DO WHILE KOUNT >= 0
mPARM = "1,11,25,15,4,0,Countdown: "+STR(KOUNT,2)
CALL DBTOOLS WITH mPARM
CALL DBTOOLS WITH "17,400,1"
KOUNT = KOUNT - 1
CALL DBTOOLS WITH "6,18"
ENDDO
CALL DBTOOLS WITH "18"
CASE CHOICE = 3
CALL DBTOOLS WITH "3,3,5,14,50,14,6,2,0,1"
CALL DBTOOLS WITH "1,4,12,14,6,0,PAUSE - function 10"
SET COLOR TO +W/GR
@ 6,8 SAY "The PAUSE function is a more elegant"
@ 7,8 SAY "alternative to dBASE's WAIT command,"
@ 8,8 SAY "providing a means to set the cursor"
@ 9,8 SAY "position and color attributes the mes-"
@ 10,8 SAY "sage will display in. After receiving"
@ 11,8 SAY "a keystroke, the message is blanked."
CALL DBTOOLS WITH "10,13,15,14,6"
CALL DBTOOLS WITH "3,6,10,13,65,14,0,1,0,1"
SET COLOR TO +GR/N
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"10,row,col,FG,BG"+CHR(34)
@ 7,13 SAY "Syntax:"
@ 8,13 say mPARM
SET COLOR TO W/N
@ 9,13 SAY "Note the use of PAUSE at the bottom of this window."
CALL DBTOOLS WITH "10,11,15,14,0"
CALL DBTOOLS WITH "6,36"
ENDCASE

CALL DBTOOLS WITH "14,3,0"
RETURN