*DECK  QU0105 
          IDENT  QU0105 
          TITLE  QU0105 - COMPASS INTERFACE FOR (1,5) 
          COMMENT  COMPASS INTERFACE FOR (1,5)
          LIST   F
  
          LIST   -L          *CALL TO MARCO FOLLOWS 
*CALL MACRO 
          LIST   L
          LIST   -L          *CALL TO NUMOPT FOLLOWS
*CALL NUMOPT
          LIST     L
          LIST   -L                *CALL ENVIRON FOLLOWS
*CALL ENVIRON 
          LIST   L
*CALL ATTACH
          SPACE  2
          END 
