*COMDECK DISTAIL
                                                                       #
***** 
*     COMMON BLOCK DISTAIL IS THE DOWNMOST LINES ON THE K-DISPLAY. IT 
* 
*         ALLWAYS STAYS THERE,AND ANY COMING MESSAGE SHALL BE PLACED
* 
*         B E T W E E N  THE LAST ONE AND DISTAIL. MOST OF IT IS PRE-SET
* 
*         DATA, EXCEPT FOR APPSIN ALERT,CURRENT APP, AND 40 CHARS OF
* 
*         LAST TYPE-IN. 
* 
*       AS IT CLOSES THE DISPLAY IT IS FINISHED WITH A ZERO WORD. 
* 
                                                                       #
      COMMON DISTAIL; 
      BEGIN 
        ARRAY DISTAIL0 S(23); 
          BEGIN 
          ITEM KDTLNAM  C(0,0,7)=["DISTAIL"]; # HEADER                 #
          ITEM KDTL01   U(0,42,18)=[O"777777"]; 
 #                                                                     #
          ITEM KDTL11   C(1,0,8)=["        "] ; #BLANK LINE            #
          ITEM KDTL12   U(48,0,12)=[0]; 
#                                                                      #
          ITEM KDTL21   C(2,0,10)=[" ALERTS   "]; 
#                                                                      #
          ITEM KAPALT1  C(3,0,7)=["       "]; # APP NAME IN ALERT ST   #
          ITEM KAPALT2  C(4,0,7)=["       "]; 
          ITEM KAPALT3  C(5,0,7)=["       "]; 
          ITEM KAPALT4  C(6,0,7)=["       "]; 
          ITEM KAPALT5  C(7,0,7)=["       "]; 
#                                              BLANK TRAILS FOR ABOVE  #
          ITEM KDTL3    C(3,42,3)=["   "];
          ITEM KDTL4    C(4,42,3)=["   "];
          ITEM KDTL5    C(5,42,3)=["   "];
          ITEM KDTL6    C(6,42,3)=["   "];
          ITEM KDTL7    U(7,42,18)=[O"550000"]; # TO TERMINATE LINE    #
#                                                                      #
          ITEM KDTLHOPM C(08,00,60);          # HOP-HOP MESSAGE        #
          ITEM KDTL8    C(08,00,10) = [" "];
          ITEM KDTL9    C(09,00,10) = [" "];
          ITEM KDTL10   C(10,00,10) = [" "];
          ITEM KDTL11$  C(11,00,10) = [" "];
          ITEM KDTL12$  C(12,00,10) = [" "];
          ITEM KDTL13$  C(13,00,10) = [" "];
          ITEM KDTL14$  U(14,00,60) = [0];
          ITEM KDTL15$1 C(15,0,1)=[" "];
          ITEM KDAPNM   C(15,6,7)=["NAM    "]; #NAME OF APP USING KDISP#
          ITEM KDTL15$2 C(15,48,2)=["  "];
          ITEM KBFD     C(16,0,40); 
          ITEM KBFD1    C(16,0,10)=["          "]; # FIRST 40 WORDS OF #
          ITEM KBFD2    C(17,0,10)=["          "]; # LAST TYPE-IN BY   #
          ITEM KBFD3    C(18,0,10)=["          "]; # OPERATOR          #
          ITEM KBFD4    C(19,0,10)=["          "];
          ITEM KDTL20   C(20,0,2)=["  "]; 
          ITEM KREPEAT  C(20,12,8)=["        "];
          ITEM KBFD21   U(21,0,60)=[0]; 
          ITEM KBFD22   U(22,0,60)=[0]; 
          END 
    END 
