*DECK TNUMOPT 
      PROC TNUMOPT; 
      BEGIN 
      CONTROL STEXT ; 
*CALL NUMOPT
      END 
      TERM
