Category : Pascal Source Code
Archive   : USNGTP.ZIP
Filename : CLR-ATTR.INC

 
Output of file : CLR-ATTR.INC contained in archive : USNGTP.ZIP

{ CDS-ATTR.INC Video attribute control routines system. }

{ Video attribute codes. COLOR VERSION }

const REVERSE_VID = $1F; { Reverse video attribute }
BRIGHT_VID = $71; { Normal video attribute }
DIM_VID = $70; { Low video attribute }
VID_SEG = $B800; { Segment address of video memory. }
VID_OFFS = $0000; { Offset address of video memory. }
SCR_EXT = '.TSC'; { File exetension for mono screen files. }

procedure Norm_Video;
begin
TextColor(1); TextBackground(7);
end; { Norm_Video }

procedure Low_Video;
begin
TextColor(0); TextBackground(7);
end; { Norm_Video }

procedure Blink_Video;
begin
TextColor(24); TextBackground(0);
end { Blink_Video };

procedure Rev_Video;
begin
TextColor(15); TextBackground(1);
end { Rev_Video };