* Program   : SCRNATTR.PRG
* Version   : V4.2
* Author(s) : Joe Tomas 
* Date      : 07/01/86
* Notice    :
* Called by : ALL *.PRG FILES
* Call(s)   :   
* Notes     : ESTABLISHES VT-100 VIDEO SCREEN ATTRIBUTES
*	    : USE THE DBASE III @ SAY row,col "" COMMAND FOLLOWED BY
*	    : ?? video_attribute + "text".
*	    : FOR EXAMPLE:
*	    :		    @ 10,10 SAY ""  
*	    :		    ?? VBOLD + "THIS IS BOLD TEXT"
*	    :
* ==== VT100 SCREEN ATTRIBUTE CODES ====
*
PUBLIC VINV,VBOLD,VBLINK,VNORM,VWIDE,VBELL1,VBELL3,VWT,VWB,KEY
STORE CHR(27)+'[1m'        TO VBOLD
STORE CHR(27)+'[7m'        TO VINV
STORE CHR(27)+'[5m'        TO VBLINK
STORE CHR(27)+'#6'         TO VWIDE
STORE CHR(27)+'[0m'        TO VNORM
STORE CHR(27)+'#3'         TO VWT
STORE CHR(27)+'#4'         TO VWB
STORE CHR(7)+CHR(7)+CHR(7) TO VBELL3
STORE CHR(7)               TO VBELL1
SET FUNCTION 10 TO CHR(23)
RETURN