*DECK PASS1                                                             000440
      PROC PASS1;                                                       000450
*CALL COMPASS1                                                          000460
