Path: utzoo!utgpu!news-server.csri.toronto.edu!me!mipscan
Newsgroups: comp.lang.pascal
From: rio@tension.me.utoronto.ca (Oscar del Rio)
Subject: Re: It would be convenient to have a TP UNDERLINE string
Message-ID: <90Sep6.153234edt.62@tension.me.utoronto.ca>
Organization: University of Toronto, Mechanical Engineering, Canada
References: <24401@adm.BRL.MIL>
Date: 7 Sep 90 13:28:00 GMT

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;