*DECK PASS2                                                             000470
      PROC PASS2;                                                       000480
*CALL COMPASS2                                                          000490
