*DECK PASS1 
      PROC PASS1; 
*CALL COMPASS1
