home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB123 / scrnattr.prg < prev    next >
Text File  |  1995-05-28  |  906b  |  29 lines
  1. * Program   : SCRNATTR.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas 
  4. * Date      : 07/01/86
  5. * Notice    :
  6. * Called by : ALL *.PRG FILES
  7. * Call(s)   :   
  8. * Notes     : ESTABLISHES VT-100 VIDEO SCREEN ATTRIBUTES
  9. *        : USE THE DBASE III @ SAY row,col "" COMMAND FOLLOWED BY
  10. *        : ?? video_attribute + "text".
  11. *        : FOR EXAMPLE:
  12. *        :            @ 10,10 SAY ""  
  13. *        :            ?? VBOLD + "THIS IS BOLD TEXT"
  14. *        :
  15. * ==== VT100 SCREEN ATTRIBUTE CODES ====
  16. *
  17. PUBLIC VINV,VBOLD,VBLINK,VNORM,VWIDE,VBELL1,VBELL3,VWT,VWB,KEY
  18. STORE CHR(27)+'[1m'        TO VBOLD
  19. STORE CHR(27)+'[7m'        TO VINV
  20. STORE CHR(27)+'[5m'        TO VBLINK
  21. STORE CHR(27)+'#6'         TO VWIDE
  22. STORE CHR(27)+'[0m'        TO VNORM
  23. STORE CHR(27)+'#3'         TO VWT
  24. STORE CHR(27)+'#4'         TO VWB
  25. STORE CHR(7)+CHR(7)+CHR(7) TO VBELL3
  26. STORE CHR(7)               TO VBELL1
  27. SET FUNCTION 10 TO CHR(23)
  28. RETURN
  29.