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

*====================================================================
* DBTSAVE.PRG - Save/Restore and Read screen Demonstration
* (c) 1989 BERNATH COMPUTER
* 12:49:11 10/3/1989
*====================================================================

CALL DBTOOLS WITH "21,1,0,0,24,79,15,7,0,0"
CALL DBTOOLS WITH "3,3,5,13,51,10,2,2,0,1"
CALL DBTOOLS WITH "1,4,15,15,2,0,READSCR - function 12"
CALL DBTOOLS WITH "1,5,15,15,2,0,RESTORE - function 14"
SET COLOR TO N/G
@ 6,8 SAY "The READSCR function allows you to read"
@ 7,8 SAY "a binary file containing a snapshot of a"
@ 8,8 SAY "screen into memory. It can be popped up"
@ 9,8 SAY "later using either the FADE or RESTORE"
@ 10,8 SAY "function."
CALL DBTOOLS WITH "10,12,15,15,2"
CALL DBTOOLS WITH "3,6,10,17,70,10,0,2,0,1"
SET COLOR TO +G/N
CALL DBTOOLS WITH "1,7,13,10,0,0,Syntax:"
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"12,slotnumber,filespec"+CHR(34)+" (READSCR)"
@ 8,13 SAY mPARM
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"14,slotnumber,page"+CHR(34)+" (RESTORE)"
@ 9,13 SAY mPARM
SET COLOR TO G/N
@ 10,13 SAY "Slotnumber is between 1 and 3."
@ 12,13 say "The file specified by"
CALL DBTOOLS WITH "1,12,35,10,0,0,filespec"
@ 12,44 say "must contain a 4000 byte"
@ 13,13 say "snapshot of video memory. It may be created with a text"
@ 14,13 say "MODE paint program, or captured from a displayed screen"
@ 15,13 say "using a capture program."
CALL DBTOOLS WITH "10,16,20,10,0"
CALL DBTOOLS WITH "12,2,"+gPATH+"DBT.IMG"
CALL DBTOOLS WITH "12,3,"+gPATH+"PC.IMG"
CALL DBTOOLS WITH "3,8,30,12,75,10,1,4,0,1"
SET COLOR TO G/B
@ 9,33 SAY "Two screen images were just read into"
@ 10,33 SAY "RAM. Now we will use the RESTORE function"
@ 11,33 SAY "to rapidly switch between them."
CALL DBTOOLS WITH "6,64"
KOUNT = 1
DO WHILE KOUNT < 40
CALL DBTOOLS WITH "14,2,0"
CALL DBTOOLS WITH "14,3,0"
KOUNT = KOUNT + 1
ENDDO
CALL DBTOOLS WITH "6,18"
CALL DBTOOLS WITH "7,0,0,7,0"
CALL DBTOOLS WITH "3,3,5,13,51,10,2,2,0,1"
CALL DBTOOLS WITH "1,4,15,15,2,0,SAVESCR - function 15"
SET COLOR TO N/G
@ 6,8 SAY "The SAVESCR function allows you to store"
@ 7,8 SAY "a snapshot of the current screen into RAM."
@ 8,8 SAY "Various things can be written over it, and"
@ 9,8 SAY "then the original screen can be restored"
@ 10,8 SAY "using either FADE or RESTORE."
CALL DBTOOLS WITH "10,12,15,15,2"
CALL DBTOOLS WITH "3,6,10,12,70,10,0,2,0,1"
SET COLOR TO +G/N
CALL DBTOOLS WITH "1,7,13,10,0,0,Syntax:"
mPARM = "CALL DBTOOLS WITH "+CHR(34)+"15,slotnumber"+CHR(34)+" (SAVESCR)"
@ 8,13 SAY mPARM
SET COLOR TO G/N
@ 10,13 SAY "Slotnumber is between 1 and 3."
CALL DBTOOLS WITH "10,11,20,10,0"
CALL DBTOOLS WITH "15,2"
CALL DBTOOLS WITH "3,10,30,14,75,10,1,4,0,1"
SET COLOR TO G/B
@ 11,33 SAY "We just saved the current screen in RAM."
@ 12,33 SAY "Now we'll mess it up, and then restore"
@ 13,33 SAY "it."
CALL DBTOOLS WITH "6,64"
CALL DBTOOLS WITH "3,5,20,9,43,11,4,1,0,1"
SET COLOR TO GB/R
@ 6,22 SAY "Junque Junque Junque"
@ 7,22 SAY "Junque Junque Junque"
@ 8,22 SAY "Junque Junque Junque"
CALL DBTOOLS WITH "3,15,10,22,65,4,3,2,0,0"
CALL DBTOOLS WITH "1,18,20,15,1,0,ððððððððððððððððððððððððððððððððððððððððððððððððððððð"
CALL DBTOOLS WITH "1,S,16,25,14,6,0,Aren't we having fun making a mess of things?"
CALL DBTOOLS WITH "13,15,40,20,50,8,0"
CALL DBTOOLS WITH "6,80"
CALL DBTOOLS WITH "14,2,0"
CALL DBTOOLS WITH "3,10,30,14,75,10,1,4,0,1"
CALL DBTOOLS WITH "1,12,45,2,1,0,And back again!"
CALL DBTOOLS WITH "18"
CALL DBTOOLS WITH "6,48"
call dbtools with "19,1"
RETURN