PARAMETER (MAX_TOKE=20)
      COMMON / FIFE_SYSTEM / VERSION, LINE, SLINE, TOKEN(MAX_TOKE), 
     $  DONE, NTOKE
      CHARACTER *45 VERSION
      CHARACTER *132 LINE, SLINE
      CHARACTER *20 TOKEN
      LOGICAL DONE