%N grsymk %F $MIR/src/grsymk.f
%D Convert character number into symbol number
%B
      SUBROUTINE GRSYMK (CODE, FONT, SYMBOL)
      INTEGER CODE, FONT, SYMBOL

 This routine returns the Hershey symbol number (SYMBOL) corresponding
 to ASCII code CODE in font FONT.

 Characters 0-31 are the same in all fonts, and are the standard
 graph markers. Characters 32-127 are standard representations of
 the ASCII codes. Characters 128-255 are reserved for the upper
 half of the ISO Latin-1 character set. Characters 256-303 are
 used for the greek alphabet.

 Arguments:
  CODE   (input)  : the extended ASCII code number.
  FONT   (input)  : the font to be used 31 (range 1-4).
  SYMBOL (output) : the number of the symbol to be plotted.
