integer             MAXTOK
      parameter           (MAXTOK = 10)
      character*(MAXTOK)  
*     intervening comment
*     intervening comment
     x   toklst
      end