*COMDECK HMSGNVF
#     HMSGNVF - MESSAGES FOR RIGHT K-DISPLAY (HELP DISPLAY).           #
CONTROL NOLIST; 
  
# 
**    HMSGNVF CONTAINS THE MESSAGES SHOWN ON NVF'S RIGHT K-DISPLAY. 
*     THESE ARE THE *HELP* MESSAGES.
# 
  
      DEF PAGE1$    #1#;           # FIRST PAGE OF RIGHT K-DISPLAY     #
      DEF LASTPAGE$ #2#;           # LAST PAGE OF RIGHT K-DISPLAY      #
      DEF NPG$      #2#;           # NUMBER OF PAGES FOR RIGHT SCREEN  #
  
      DEF RKPAGESZ$ #116#;         # SIZE OF RIGHT K-DISPLAY IN WORDS  #
  
  
      COMMON HMSGNVF; 
  
      BEGIN      # HMSGNVF #
  
  
      ITEM CURPAGE    U;           # CURRENT PAGE FOR RIGHT K-DISPLAY  #
  
  
      ARRAY RKPAGE [PAGE1$:NPG$] S(RKPAGESZ$);  # HOP/DIS SM TO SEND   #
                                             # HELP DISPLAY PAGE 1     #
        BEGIN 
        ITEM RK$PAGEPS  U(000,00,16) = [NPG$(HOPDIS)]; # PFC/SFC VALUE #
        ITEM RK$PAGEZ1  U(000,16,42) = [NPG$(0)]; 
        ITEM RK$PAGERS  B(000,58,01) = [NPG$(TRUE)];   # RIGHT SCREEN  #
        ITEM RK$PAGEIA  B(000,59,01) = [NPG$(FALSE)];  # INPUT ALLOWED #
  
                                                 # HEADER DISPLAY      #
        ITEM RK$PAGEL01 C(01,00,20) = [NPG$("                *** ")] ;
        ITEM RK$PAGEM01 C(03,00,20) = [NPG$("NVF COMMAND LIST ***")]; 
        ITEM RK$PAGEN01 C(05,00,18) = [NPG$(" ")];
        ITEM RK$PAGEE01 U(06,48,12) = [NPG$(0)];  # LINE TERMINATOR    #
  
        ITEM RK$PAGEM02 C(07,00,40) = [NPG$(" ")];
        ITEM RK$PAGEN02 C(11,00,08) = [NPG$("  (PAGE ")]; 
        ITEM RK$PAGEO02 C(11,48,01) = ["1","2"];
        ITEM RK$PAGEP02 C(11,54,09) = [NPG$(" OF 2)   ")];
        ITEM RK$PAGEE02 U(12,48,12) = [NPG$(0)];   # LINE TERMINATOR   #
  
        ITEM RK$PAGEL03 C(13,00,30)= ["DI,AP=APPL.              DISAB", 
           #   PAGE 2              #  "ST,APS.                  SHOW "];
  
        ITEM RK$PAGEM03 C(16,00,28)= ["LE APPLICATION APPL.  (STOP ", 
           #   PAGE 2              #  "STATUS OF ALL APPLICATIONS  "];
  
        ITEM RK$PAGEE03 U(18,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL04 C(19,00,30)= ["                           IMM", 
           #   PAGE 2              #  "                           ON "];
  
        ITEM RK$PAGEM04 C(22,00,28)= ["EDIATELY.)                  ", 
           #   PAGE 2              #  "THIS HOST.                  "];
  
        ITEM RK$PAGEE04 U(24,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL05 C(25,00,30)= ["DI,HO.                   DISAB", 
           #   PAGE 2              #  "ST,APS,AC.               SHOW "];
        ITEM RK$PAGEM05 C(28,00,28)= ["LE ALL APPLICATIONS IN THE  ", 
           #   PAGE 2              #  "STATUS OF ALL ACTIVE        "];
        ITEM RK$PAGEE05 U(30,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL06 C(31,00,30)= ["                           HOS", 
           #   PAGE 2              #  "                           APP"];
        ITEM RK$PAGEM06 C(34,00,28)= ["T.                          ", 
           #   PAGE 2              #  "LICATIONS ON THIS HOST.     "];
        ITEM RK$PAGEE06 U(36,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL07 C(37,00,30)= ["EN,AP=APPL.              ENABL", 
           #   PAGE 2              #  "ST,TES(,AP/UN)=NAME.     SHOW "];
        ITEM RK$PAGEM07 C(40,00,28)= ["E APPLICATION APPL.         ", 
           #   PAGE 2              #  "STATUS OF ALL TERMINALS     "];
        ITEM RK$PAGEE07 U(42,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL08 C(43,00,30)= ["ID,AP=APPL.              IDLE ", 
           #   PAGE 2              #  "                           CON"];
        ITEM RK$PAGEM08 C(46,00,28)= ["APPLICATION APPL. (TERMINATE", 
           #   PAGE 2              #  "NECTED TO THE NAMED         "];
        ITEM RK$PAGEE08 U(48,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL09 C(49,00,30)= ["                           GRA", 
           #   PAGE 2              #  "                           APP"];
        ITEM RK$PAGEM09 C(52,00,28)= ["CEFULLY.)                   ", 
           #   PAGE 2              #  "LICATION, OR WITH THE GIVEN "];
        ITEM RK$PAGEE09 U(54,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL10 C(55,00,30)= ["ID,HO.                   IDLE ", 
           #   PAGE 2              #  "                           USE"];
        ITEM RK$PAGEM10 C(58,00,28)= ["ALL APPLICATIONS IN THE     ", 
           #   PAGE 2              #  "R NAME.                     "];
        ITEM RK$PAGEE10 U(60,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL11 C(61,00,30)= ["                           HOS", 
           #   PAGE 2              #  "ST,UNS,AP=APPL.          SHOW "];
        ITEM RK$PAGEM11 C(64,00,28)= ["T.                          ", 
           #   PAGE 2              #  "STATUS OF ALL USERS         "];
        ITEM RK$PAGEE11 U(66,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL12 C(67,00,30)= ["HI.                      DISPL", 
           #   PAGE 2              #  "                           CON"];
        ITEM RK$PAGEM12 C(70,00,28)= ["AY LAST PAGE OF RECENT      ", 
           #   PAGE 2              #  "NECTED TO APPLICATION APPL. "];
        ITEM RK$PAGEE12 U(72,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL13 C(73,00,30)= ["                           ACT", 
           #   PAGE 2              #  "*                        RETUR"];
        ITEM RK$PAGEM13 C(76,00,28)= ["IVITY HISTORY BUFFER.       ", 
           #   PAGE 2              #  "N TO NAM MODE.              "];
        ITEM RK$PAGEE13 U(78,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL14 C(79,00,30)= ["HI,ALL.                  DISPL", 
           #   PAGE 2              #  "                              "];
        ITEM RK$PAGEM14 C(82,00,30)= ["AY ALL AVAILABLE PAGES IN   ", 
           #   PAGE 2              #  "                            "];
        ITEM RK$PAGEE14 U(84,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL15 C(85,00,30)= ["                           THE", 
           #   PAGE 2              #  "                              "];
        ITEM RK$PAGEM15 C(88,00,28)= [" HISTORY BUFFER.            ", 
           #   PAGE 2              #  "                            "];
        ITEM RK$PAGEE15 U(90,48,12)= [NPG$(0)]; 
  
        ITEM RK$PAGEL16 C(91,00,30)= ["ST,(AP/TE/UN)=NAME.      SHOW ", 
           #   PAGE 2              #  "                              "];
        ITEM RK$PAGEM16 C(94,00,28)= ["STATUS OF NAMED APPLICATION,", 
           #   PAGE 2              #  "                            "];
        ITEM RK$PAGEE16 U(96,48,12)= [NPG$(0)] ;
  
        ITEM RK$PAGEL17 C(97,00,30)= ["                           TER", 
           #   PAGE 2              #  "                              "];
        ITEM RK$PAGEM17 C(100,00,28)=["MINAL, OR USER.             ", 
           #   PAGE 2              #  "                            "];
        ITEM RK$PAGEE17 U(102,48,12)=[NPG$(0)] ;
  
        ITEM RK$PAGEL18 C(103,00,30)=["                              ", 
           #   PAGE 2              #  "                              "];
        ITEM RK$PAGEM18 C(106,00,28)=["                            ", 
           #   PAGE 2              #  "                            "];
        ITEM RK$PAGEE18 U(108,48,12)=[NPG$(0)]; 
  
        ITEM RK$PAGEL19 C(109,00,20)=[" ",
           #   PAGE 2              #  " "]; 
        ITEM RK$PAGEM19 C(111,00,20)=["FOR MORE DATA, TYPE ", 
           #   PAGE 2              #  "                    "];
        ITEM RK$PAGEN19 C(113,00,18)=["(.                ", 
           #   PAGE 2              #  "                  "];
        ITEM RK$PAGEE19 U(114,48,12)=[NPG$(0)] ;
  
        ITEM SM$PAGE1E  U(115,00,60)=[NPG$(0)] ;  # END BY ZEROED WORD #
  
        END                  # NINETEEN LINES PER PAGE FOR RIGHT K-DIS #
  
      END   # HMSGNVF # 
  
CONTROL LIST; 
