home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Phoenix CD 2.0
/
Phoenix_CD.cdr
/
24b
/
machinfo.zip
/
CHARATTR.TUR
< prev
next >
Wrap
Text File
|
1986-04-27
|
1KB
|
65 lines
{ CHARATTR.TUR
By: Drew O. Letcher
Iowa City, IA
April, 1986
These routines will work on both the monochrome and color monitors.
Though, monochrome underline will blue on the color monitor.
IF you use these routines don't use the TURBO procedures NormVideo and
LowVideo in your routines.
}
{ Typed } CONST
TColor : byte = white;
BColor : byte = black;
PROCEDURE HighIntensity;
BEGIN
NormVideo;
TColor := white;
BColor := black;
TextColor( TColor );
TextBackground( BColor );
END;
PROCEDURE LowIntensity;
BEGIN
LowVideo;
TColor := lightgray;
BColor := black;
TextColor( TColor );
TextBackground( BColor );
END;
PROCEDURE Blinking;
BEGIN
TColor := TColor OR Blink; { Blink is a Turbo predeclared CONST }
TextColor( TColor );
END;
PROCEDURE ReverseVideo;
BEGIN
TColor := TColor AND $F8;
BColor := BColor OR $07;
TextColor( TColor );
TextBackground( BColor );
END;
PROCEDURE UnderlineVideo;
BEGIN
TColor := TColor AND $88;
TColor := TColor OR $01;
TextColor( TColor );
END;
PROCEDURE HideVideo;
BEGIN
TextColor( black );
TextBackGround( black );
END;