*COMDECK ERLEVS                                                               NEWDECK 
          CONTROL NOLIST;    #ERLEVS#                                    NEWDECK
#----------------------------------------------------------------------# NEWDECK
#                                                                      # NEWDECK
#     COMMON BLOCK ERLEVS                                              # NEWDECK
#                                                                      # NEWDECK
#     PURPOSE - CONTAINS DIAGNOSTIC ERROR LEVELS, 3 BITS EACH, PACKED  # NEWDECK
#               20 PER WORD. ELEV IS PRESET BY COMPASS ROUTINE ERLEV.  # NEWDECK
#                                                                      # NEWDECK
#----------------------------------------------------------------------# NEWDECK
                                                                         NEWDECK
      COMMON ERLEVS;                                                     NEWDECK
        ARRAY [0:3] S(1);          # DIAGNOSTIC ERROR LEVELS           # NEWDECK
          BEGIN                                                          NEWDECK
          ITEM ELEV          U(00,00,60);                                NEWDECK
          END                                                            NEWDECK
          CONTROL LIST;      #ERLEVS#                                    NEWDECK
