*DECK REG 
      PROC REG; 
*CALL COMREG
