Previous: inqsz Up: ../plot79_i.html Next: inqtju

INQTFN

       SUBROUTINE  INQTFN (FONT,SWCHAR,IFONT)
 C$    (Inquire Text Font)
 C$    Return a font name and its corresponding switch  character.
 C$    FONT and SWCHAR must be INTEGER arrays large enough to hold
 C$    packed five-character and one-character Hollerith  strings,
 C$    respectively.  The strings returned will be blank padded to
 C$    a host fullword boundary.  The font names are as  described
 C$    in the abstract of routine SYMSF, and contain no lower-case
 C$    letters.
 C$
 C$    Since multiple  fonts  can be  in effect at one  time,  the
 C$    INTEGER argument  IFONT  selects  the  one  for  which  the
 C$    inquiry is made.  IFONT = 1 selects the current font, IFONT
 C$    = 2 the previous one,  and so on.  If  IFONT is out of  the
 C$    range 1..(maximum number of fonts currently selected), FONT
 C$    and SWCHAR  will be  set to  the strings  "UNSET" and   " "
 C$    respectively.
 C$
 C$    (14-Feb-1991)