*COMDECK COMRFLSH 
#     COMRFLSH - DEFINES FLASHING B-DISPLAY MESSAGE. #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   COMRFLSH - DEFINES FLASHING B-DISPLAY MESSAGE.
* 
*     COMRFLSH DEFINES THE FLASHING B-DISPLAY MESSAGE.
* 
# 
  
      COMMON COMRFLSH;
      BEGIN  # COMRFLSH # 
  
      ARRAY [0:0] S(5); 
        BEGIN 
        ITEM MSG$NADOFF C(00,00,50);
        ITEM MSGNADOFF  C(00,00,40) = 
                        [" RHF, NAD ON ESTXXX HAS BEEN TURNED OFF."]; 
        ITEM MSGNADEST  U(01,36,18);
        ITEM MSGNADZBYT U(04,00,60) = [0];
        END 
  
      ARRAY [0:0] S(5); 
        BEGIN 
        ITEM MSG$PTHOFF C(00,00,50);
        ITEM MSGPATHOFF C(00,00,43) = 
                        ["$RHF, BAD TCU ON PATH XXX, PATH TURNED OFF."];
        ITEM MSGPATHID  C(02,12,03);
        ITEM MSGPATHZB  U(04,18,42) = [0];
        END 
  
      ARRAY [0:0] S(5); 
        BEGIN  # IDLE DOWN MESSAGE #
        ITEM MSG$IDLDWN C(00,00,30) = 
          ["$RHF, IDLE DOWN IN PROGRESS"];
        ITEM MSG$IDLZBT I(03,00,60) = [0]; # ZERO BYTE TERMINATOR # 
        ITEM MSG$IDLLGT I(04,48,12) = [30]; # LENGTH IN CHARACTERS #
        END 
  
      ARRAY [0:0] S(5); 
        BEGIN  # SHUT DOWN MESSAGE #
        ITEM MSG$SHTDWN C(00,00,30) = 
          ["$RHF, SHUT DOWN IN PROGRESS"];
        ITEM MSG$SHTZBT I(03,00,60) = [0]; # ZERO BYTE TERMINATOR # 
        ITEM MSG$SHTLGT I(04,48,12) = [30]; # LENGTH IN CHARACTERS #
        END 
  
      ARRAY [0:0] S(7); 
        BEGIN 
        ITEM CONMODEN   C(00,00,57) =     # CONVERSION ENABLED #
          [" RHF, NAD CODE CONVERSION ENABLED. (EST=XXX,NB=XX,NP=XX)"]; 
        ITEM CME$EST    C(04,00,03); # EST ORDINAL #
        ITEM CME$BUFF   C(04,42,02); # NUMBER OF BUFFERS #
        ITEM CME$PATH   C(05,18,02); # NUMBER OF PATHS #
        ITEM CME$ZBYTE  I(05,42,18) = [0];
        ITEM CME$LENGTH I(06,00,60) = [57]; 
        END 
  
      ARRAY [0:0] S(7); 
        BEGIN 
        ITEM CONMODNA   C(00,00,50) = 
          [" RHF, NAD CODE CONVERSION NOT AVAILABLE. (EST=XXX)"]; 
        ITEM CMN$EST    C(04,36,03); # EST ORDINAL #
        ITEM CMN$ZBYTE  I(05,00,60) = [0];
        ITEM CMN$LENGTH I(06,00,60) = [50]; 
        END 
  
      END  # CONRFLSH # 
                                     CONTROL LIST;
