[Back to COLOR SWAG index]  [Back to Main SWAG index]  [Original]

{
> I have seen a lot of applications that use highintensity background
> colors in Text mode.  How do they do it??????
}

Uses Crt ;

Procedure DisableHiBackGround(SetHi : Boolean); Assembler;
Asm
     Mov  AX, $1003
     Mov  BL, SetHi
     Int  $10
end ;

begin
     ClrScr;
     TextAttr := White + (LightRed ShL 4);
     DisableHiBackGround(True) ;
     Write('Blinking...[Enter]') ;
     ReadLn ;
     DisableHiBackGround(False) ;
     Write('      WOW !!!     ') ;
     ReadLn ;
end.

[Back to COLOR SWAG index]  [Back to Main SWAG index]  [Original]