*DECK MOVE
          IDENT  MOVE 
*CALL COMMOVE 
