home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
rettig.zip
/
TRSOURCE.EXE
/
TR_SATTR.PRG
< prev
next >
Wrap
Text File
|
1990-10-22
|
598b
|
21 lines
*********
* Function : SCRATTR
* By : Tom Rettig
* Placed in the public domain by Tom Rettig Associates, 10/22/1990.
*
* Syntax: SCRATTR()
* Return: Current SET COLOR values
*********
FUNCTION SCRATTR
*
MEMVAR attribute
PRIVATE attribute
attribute = BIOSATTR() && assembly language function
RETURN TRIM( SUBSTR( "N B G BG R RB GR W N+ B+ G+ BG+ R+RB+GR+W+ ",;
(attribute % 16)*3+1, 3 ) ) + "/" +;
SUBSTR( "N B G BG R RB GR W N* B* G* BG* R*RB*GR*W* ",;
INT(attribute/16)*3+1, 3 )
* eofunc scrattr