*DECK PASS2 
      PROC PASS2; 
*CALL COMPASS2
