WriteVert                                                      FastTTT



Purpose   To write a string vertically.

Declaration    WriteVert(X,Y,F,B: integer; ST: string);

          X is X coord of first character in string (1..25)
          Y is Y coord of first character in string (1..80)
          F is the foreground color
          B is the background color
          ST is the string or text to be displayed
Uses FastTTT.

Remarks   This odd little procedure will write a string down the
          screen rather than across the screen. If the string is too
          long to fit on the screen, it will be truncated.
Example


               Uses FastTTT;
               BEGIN
                 WRITEVERT(10,5,15,0,'Y        AXIS');
               END.