*DECK CODE
          IDENT  CODE 
*CALL COMCODE 
