Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!ut-emx!walt.cc.utexas.edu!anandm
From: anandm@walt.cc.utexas.edu (Anand Mandapati)
Newsgroups: comp.lang.pascal
Subject: Re: It would be convenient to have a TP UNDERLINE string function
Message-ID: <37202@ut-emx>
Date: 14 Sep 90 17:47:59 GMT
References: <24397@adm.BRL.MIL> <1990Sep5.163924.2864@uwasa.fi>
Sender: news@ut-emx
Reply-To: anandm@walt.cc.utexas.edu (Anand Mandapati)
Organization: The University of Texas at Austin, Austin, Texas
Lines: 12

I have and am working on text fonts on the EGA/VGA system.  Currently, I am
working on the italicize routines for any size font.  But, in text mode the
underline function is very easy to do.  I would post the code here, but I    
don't have it with me now.  The basic way to do it, is to load the text font
into memory using INT 10, FUNC 30 to first find the segment and offset of the
standard 8x14 or 8x16 font.  Then, for each letter, using a for-do loop,
you would just turn the bits of the last scan line(14 or 16) on, thereby 
underlining all the letters.  Actually, the easiest way to do it is to find
the memory location of the font, copy it into an array of bytes, modify it,
and then load the font back using INT 10, FUNC 10.  

Anand "I also go by Big Brother" Mandapati