Previous: symcs Up: ../plot79_s.html Next: symex

SYMDS

       SUBROUTINE  SYMDS (NUMSYM,LENNUM,TEXT,LSTART,LENTXT)
 C$    (Decode String)
 C$    Decode the  character  string stored  in  packed  Hollerith
 C$    characters in LENTXT characters of "TEXT(*)" beginning with
 C$    character number  "LSTART"  (counting  1,2,3,...  from  the
 C$    left), and  return  an  array  of  integer  Hershey  symbol
 C$    numbers.  A zero  symbol number will  be returned for  each
 C$    backspace character found.  At entry, the current font case
 C$    is reset to upper.
 C$    (11-SEP-85)