[comp.lang.pascal] It would be convenient to have a TP UNDERLINE string

rio@tension.me.utoronto.ca (Oscar del Rio) (09/07/90)

In article <24401@adm.BRL.MIL> J_SCHULL@acc.haverford.edu (Jonathan Schull) writes:
>
>I get underlining on an IBM monochrome monitor, on a herc card,
>and on a multi-synch VGA emulating herc by setting
>   TextColor(9); TextBackground(0);
>                   or
>   TextColor(1); TextBackground(0);

This is another (much faster) way to do it:

Instead of
    TextColor(x); TextBackground(y);    { x,y = any color }

just write
    TextAttr := y shl 4 + x;