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

SET COLOR TO W+/B
SAVE SCREEN
CLEAR
FOR J=0 TO 24
V_PUTSTR(J,0,'THIS IS A TEST OF THE V_PUTBOX FUNCTION USING A N/BG BOX AND AN N/W SHADOW')
NEXT
FOR J=1 TO 4
V_PUTBOX(5,10,18,70,J,'N/BG','W/N',1)
V_PUTSTR(6,11,'First we cleared the box....')
V_PUTSTR(6+J,11,'And then we put up box type '+lstr(j))
DO CASE
CASE J=1
V_PUTSTR(6+J+1,11,"Notice that the cursor hasn't moved...")
V_PUTSTR(6+J+2,11,"because we're using the v_putstr() function.",'w+/r')
V_PUTSTR(6+J+3,11,"This lets us change the attribute of the text.")
V_PUTSTR(6+J+4,11,"...without worrying about the cursor or screen color.")
CASE J=2
V_PUTSTR(6+j+1,11,"Now I'll grab some text off the screen and put it here...")
V_PUTSTR(6+J+2,11,"by using the v_gettxt() function with coordinates 0,10,0,40")

CASE J=3
S=V_GETTXT(0,10,0,40)
V_PUTSTR(7,11,"See...here's the text in the current screen attribute.")
V_PUTSTR(8,11,S)
V_PUTATR(0,10,0,40,'W+*/G')
V_PUTSTR(9,11," I highlighted the screen area where it came from")
CASE J=4
V_PUTSTR(7,11,"And now...here's the text...in a different attribute.")
V_PUTSTR(8,11,S,'W+*/R')
ENDCASE

INKEY(0)
IF LASTKEY()=27
RESTORE SCREEN
QUIT
ENDIF
*
NEXT
V_PUTBOX(5,10,18,70,1,'N/BG','W/N',1)
V_PUTSTR(7,11,"Now I'll use the v_putattr() function to change the screen.")
INKEY(0)
V_PUTATR(3,2,20,8,'W/R')
V_PUTSTR(8,11,"See...not a single @ say in the program.")
INKEY(0)
RESTORE SCREEN