COMFTAB 
COMMON
  
#    COMFTAB - CHARACTER AND KEYWORD TABLE PRESET.  # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
                                                                      # 
*     COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
                                                                      # 
  
COMMON COMFTAB; 
BEGIN 
  
#   TOKEN TYPES -- CLASSIFY EVERY INTERNAL CHARACTER FOR CMD SCAN    #
#     NOTE THAT THIS IS SENSITIVE TO THE FORM OF THE INTERNAL CHARSET # 
  
  
ARRAY ALLTYPES [0:127]; 
  BEGIN 
  
  ITEM SYNTAXCHAR B(0,0,1) = [63(TRUE),FALSE,63(TRUE),FALSE]; 
  
  ITEM DELIMITER B(0,1,1) = [ 
    TRUE,  FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, TRUE,  TRUE,  TRUE,
    TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,
    TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,
    TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,
    TRUE,  FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, TRUE,  TRUE,  TRUE,  TRUE,  TRUE,
    TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,
    TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,
    TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,
    TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE,  TRUE    ]; 
  
  ITEM TYPE S:TYPST(0,6,6) = [
         S"COLON",     S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"DIGIT",
         S"DIGIT",     S"DIGIT",     S"DIGIT",     S"DIGIT",
         S"DIGIT",     S"DIGIT",     S"DIGIT",     S"DIGIT",
         S"DIGIT",     S"PLUS",      S"MINUS",     S"OTHER",
         S"DELIMIT",   S"PAREN",     S"OTHER",     S"OTHER",
         S"EQUAL",     S"OTHER",     S"OTHER",     S"OTHER",
         S"OTHER",     S"OTHER",     S"OTHER",     S"COLON",
         S"DELIMIT",   S"EQUAL",     S"OTHER",     S"OTHER",
         S"DELIMIT",   S"OTHER",     S"OTHER",     S"OTHER",
         S"OTHER",     S"DELIMIT",   S"OTHER",     S"SEMI", 
         S"OTHER",     S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"LETTER", 
         S"LETTER",    S"LETTER",    S"LETTER",    S"OTHER",
         S"OTHER",     S"OTHER",     S"OTHER",     S"OTHER",
         S"CONTROL",   S"CONTROL",   S"CONTROL",   S"CONTROL",
         S"CONTROL",   S"CONTROL",   S"CONTROL",   S"CONTROL",
         S"CONTROL",   S"CONTROL",   S"CONTROL",   S"CONTROL",
         S"CONTROL",   S"CONTROL",   S"CONTROL",   S"CONTROL",
         S"CONTROL",   S"CONTROL",   S"CONTROL",   S"CONTROL",
         S"CONTROL",   S"CONTROL",   S"CONTROL",   S"CONTROL",
         S"CONTROL",   S"CONTROL",   S"CONTROL",   S"CONTROL",
         S"CONTROL",   S"CONTROL",   S"CONTROL",   S"EOL"    ]; 
  
  ITEM XLTDSPINT U(0,12,12) = [        # XLATE DISPLAY TO INTERNAL   #
  
O"0000", O"0001", O"0002", O"0003",  # COLON A B C                   #
O"0004", O"0005", O"0006", O"0007",  #                               #
O"0010", O"0011", O"0012", O"0013",  #                               #
O"0014", O"0015", O"0016", O"0017",  #                               #
O"0020", O"0021", O"0022", O"0023",  #                               #
O"0024", O"0025", O"0026", O"0027",  #                               #
O"0030", O"0031", O"0032", O"0033",  # X Y Z 0                       #
O"0034", O"0035", O"0036", O"0037",  # 1 2 3 4                       #
O"0040", O"0041", O"0042", O"0043",  # 5 6 7 8                       #
O"0044", O"0045", O"0046", O"0047",  # 9 PLUS MINUS STAR             #
O"0050", O"0051", O"0052", O"0053",  # SLASH LPAREN RPAREN DOLLAR    #
O"0054", O"0055", O"0056", O"0057",  # EQUAL BLANK COMMA DOT         #
O"0060", O"0061", O"0062", O"0063",  # POUND LSQUARE RSQUARE PERCENT #
O"0064", O"0065", O"0066", O"0067",  # DBLQOT UNDERLINE EXCLAM AMPER #
O"0070", O"0071", O"0072", O"0073",  # QUOTE QUESTION LANGLE RANGLE  #
O"0074", O"0075", O"0076", O"0077",  # AT BAKSLASH UPARROW SEMI      #
         64(0)];                     # NON-EXISTENT IN 6-BIT CODE    #
  
  ITEM XLTDSPXP U(0,24,12) = [         # XLATE DISPLAY TO XPARNT     #
  
O"4072", O"4101", O"4102", O"4103",  # COLON A B C                   #
O"4104", O"4105", O"4106", O"4107",  #                               #
O"4110", O"4111", O"4112", O"4113",  #                               #
O"4114", O"4115", O"4116", O"4117",  #                               #
O"4120", O"4121", O"4122", O"4123",  #                               #
O"4124", O"4125", O"4126", O"4127",  #                               #
O"4130", O"4131", O"4132", O"4060",  # X Y Z 0                       #
O"4061", O"4062", O"4063", O"4064",  # 1 2 3 4                       #
O"4065", O"4066", O"4067", O"4070",  # 5 6 7 8                       #
O"4071", O"4053", O"4055", O"4052",  # 9 PLUS MINUS STAR             #
O"4057", O"4050", O"4051", O"4044",  # SLASH LPAREN RPAREN DOLLAR    #
O"4075", O"4040", O"4054", O"4056",  # EQUAL BLANK COMMA DOT         #
O"4043", O"4133", O"4135", O"4045",  # POUND LSQUARE RSQUARE PERCENT #
O"4042", O"4137", O"4041", O"4046",  # DBLQOT UNDERLINE EXCLAM AMPER #
O"4047", O"4077", O"4074", O"4076",  # QUOTE QUESTION LANGLE RANGLE  #
O"4100", O"4134", O"4136", O"4073",  # AT BAKSLASH UPARROW SEMI      #
         64(0)];                     # NON-EXISTENT IN 6-BIT CODE    #
  
  ITEM XLTINTDSP U(0,36,12) = [        # XLATE INTERNAL TO DISPLAY   #
  
O"0000", O"0001", O"0002", O"0003",  # COLON A B C                   #
O"0004", O"0005", O"0006", O"0007",  #                               #
O"0010", O"0011", O"0012", O"0013",  #                               #
O"0014", O"0015", O"0016", O"0017",  #                               #
O"0020", O"0021", O"0022", O"0023",  #                               #
O"0024", O"0025", O"0026", O"0027",  #                               #
O"0030", O"0031", O"0032", O"0033",  # X Y Z 0                       #
O"0034", O"0035", O"0036", O"0037",  # 1 2 3 4                       #
O"0040", O"0041", O"0042", O"0043",  # 5 6 7 8                       #
O"0044", O"0045", O"0046", O"0047",  # 9 PLUS MINUS STAR             #
O"0050", O"0051", O"0052", O"0053",  # SLASH LPAREN RPAREN DOLLAR    #
O"0054", O"0055", O"0056", O"0057",  # EQUAL BLANK COMMA DOT         #
O"0060", O"0061", O"0062", O"0063",  # POUND LSQUARE RSQUARE PERCENT #
O"0064", O"0065", O"0066", O"0067",  # DBLQOT UNDERLINE EXCLAM AMPER #
O"0070", O"0071", O"0072", O"0073",  # QUOTE QUESTION LANGLE RANGLE  #
O"0074", O"0075", O"0076", O"0077",  # AT BAKSLASH UPARROW SEMI      #
O"0074", O"0001", O"0002", O"0003",  # GA=CAT, LOWERCASE=UPPER #
O"0004", O"0005", O"0006", O"0007",  #                               #
O"0010", O"0011", O"0012", O"0013",  #                               #
O"0014", O"0015", O"0016", O"0017",  #                               #
O"0020", O"0021", O"0022", O"0023",  #                               #
O"0024", O"0025", O"0026", O"0027",  #                               #
O"0030", O"0031", O"0032", O"0061",  # LO=UP, OBRACE=OBRACKET # 
O"0075", O"0062", O"0076", O"0055",  # VB=RS, CB=CBRKT, TE=CX, RO=BL #
31(O"55"), O"177" ];                 # REST BLANKS EXCEPT EOL CHAR #
  
  END 
  
  
ARRAY TRANSINTXP [0:127]; 
  BEGIN 
  
  ITEM XLTINTXP = [                  # XLATE INTERNAL TO XPARNT      #
  
O"4072", O"4101", O"4102", O"4103",  # COLON A B C                   #
O"4104", O"4105", O"4106", O"4107",  #                               #
O"4110", O"4111", O"4112", O"4113",  #                               #
O"4114", O"4115", O"4116", O"4117",  #                               #
O"4120", O"4121", O"4122", O"4123",  #                               #
O"4124", O"4125", O"4126", O"4127",  #                               #
O"4130", O"4131", O"4132", O"4060",  # X Y Z 0                       #
O"4061", O"4062", O"4063", O"4064",  # 1 2 3 4                       #
O"4065", O"4066", O"4067", O"4070",  # 5 6 7 8                       #
O"4071", O"4053", O"4055", O"4052",  # 9 PLUS MINUS STAR             #
O"4057", O"4050", O"4051", O"4044",  # SLASH LPAREN RPAREN DOLLAR    #
O"4075", O"4040", O"4054", O"4056",  # EQUAL BLANK COMMA DOT         #
O"4043", O"4133", O"4135", O"4045",  # POUND LSQUARE RSQUARE PERCENT #
O"4042", O"4137", O"4041", O"4046",  # DBLQOT UNDERLINE EXCLAM AMPER #
O"4047", O"4077", O"4074", O"4076",  # QUOTE QUESTION LANGLE RANGLE  #
O"4100", O"4134", O"4136", O"4073",  # AT BAKSLASH UPARROW SEMI      #
O"4140", O"4141", O"4142", O"4143",  # GRAVE LOWER-A B C             #
O"4144", O"4145", O"4146", O"4147",  #                               #
O"4150", O"4151", O"4152", O"4153",  #                               #
O"4154", O"4155", O"4156", O"4157",  #                               #
O"4160", O"4161", O"4162", O"4163",  #                               #
O"4164", O"4165", O"4166", O"4167",  #                               #
O"4170", O"4171", O"4172", O"4173",  # LOWER-X Y Z LCURLY            #
O"4174", O"4175", O"4176", O"4177",  # VERTBAR RCURLY TILDA RUBOUT   #
O"4000", O"4001", O"4002", O"4003",  # CONTROL                       #
O"4004", O"4005", O"4006", O"4007",  #                               #
O"4010", O"4011", O"4012", O"4013",  #                               #
O"4014", O"4015", O"4016", O"4017",  #                               #
O"4020", O"4021", O"4022", O"4023",  #                               #
O"4024", O"4025", O"4026", O"4027",  #                               #
O"4030", O"4031", O"4032", O"4033",  #                               #
O"4034", O"4035", O"4036", O"4037"]; #                               #
  
  END 
  
  
ARRAY TRANSXPINT [0:127]; 
  BEGIN 
  
  ITEM XLTXPINT = [                  # XLATE XPARNT TO INTERNAL      #
  
O"0140", O"0141", O"0142", O"0143",  # NUL SOH STX ETX               #
O"0144", O"0145", O"0146", O"0147",  # EOT ENQ ACK BEL               #
O"0150", O"0151", O"0152", O"0153",  # BS  HT  LF  VT                #
O"0154", O"0155", O"0156", O"0157",  # FF  CR  SO  SI                #
O"0160", O"0161", O"0162", O"0163",  # DLE DC1 DC2 DC3               #
O"0164", O"0165", O"0166", O"0167",  # DC4 NAK SYN ETB               #
O"0170", O"0171", O"0172", O"0173",  # CAN EM  SUB ESC               #
O"0174", O"0175", O"0176", O"0074",  # FS  GS  RS  US(CHANGED TO AT) #
O"0055", O"0066", O"0064", O"0060",  # BLANK EXCLAM DBLQOT POUND     #
O"0053", O"0063", O"0067", O"0070",  # DOLLAR PERCENT AMPER QUOTE    #
O"0051", O"0052", O"0047", O"0045",  # LPAREN RPAREN STAR PLUS       #
O"0056", O"0046", O"0057", O"0050",  # COMMA MINUS DOT SLASH         #
O"0033", O"0034", O"0035", O"0036",  # 0 1 2 3                       #
O"0037", O"0040", O"0041", O"0042",  # 4 5 6 7                       #
O"0043", O"0044", O"0000", O"0077",  # 8 9 COLON SEMI                #
O"0072", O"0054", O"0073", O"0071",  # LANGLE EQUAL RANGLE QUESTION  #
O"0074", O"0001", O"0002", O"0003",  # AT A B C                      #
O"0004", O"0005", O"0006", O"0007",  #                               #
O"0010", O"0011", O"0012", O"0013",  #                               #
O"0014", O"0015", O"0016", O"0017",  #                               #
O"0020", O"0021", O"0022", O"0023",  #                               #
O"0024", O"0025", O"0026", O"0027",  #                               #
O"0030", O"0031", O"0032", O"0061",  # X Y Z LSQUARE                 #
O"0075", O"0062", O"0076", O"0065",  # BKSLSH RSQUR UPARO UNDRLN     #
O"0100", O"0101", O"0102", O"0103",  # GRAVE LOWER-A B C             #
O"0104", O"0105", O"0106", O"0107",  #                               #
O"0110", O"0111", O"0112", O"0113",  #                               #
O"0114", O"0115", O"0116", O"0117",  #                               #
O"0120", O"0121", O"0122", O"0123",  #                               #
O"0124", O"0125", O"0126", O"0127",  #                               #
O"0130", O"0131", O"0132", O"0133",  # LOWER-X Y Z LCURLY            #
O"0134", O"0135", O"0136", O"0137"]; # VERTBAR RCURLY TILDA RUBOUT   #
  
  END 
  
# 
      THE KEYST STATUS MUST PARALLEL THE TABLE. 
  
      THE PROCESSSW SWITCH IN EDITOR PARALLELS ALLCMDS.  THEREFORE, 
        IT IS ESSENTIAL THAT THE TABLE CONTAIN COMMANDS FIRST.
  
      DON'T FORGET TO INCREASE NUMKWDS. 
# 
  
ARRAY ALLCMDS [0:NUMKWDS] ; 
 BEGIN
  ITEM KEYWORD C(0,0,10) = [
         "ALTER     ",  # MODIFY OR APPEND TEXT ON LINE(S)      # 
         "BACK      ",  # EXCHANGE CURRENT WITH STORED POSITION # 
         "COPY      ",  # COPY LINES OF TEXT                    # 
         "DELETE    ",  # DELETE LINES                          # 
         "DATA      ",  # DATA KEY - STORE CURRENT POSITION     # 
         "EDIT      ",  # EDIT KEY - RESUME WITH TOP FILE       # 
         "FSE       ",  # FILE REDEFINITION                     # 
         "GET       ",  # GET AND DISPLAY INFORMATION           # 
         "HELP      ",  # TYPE FSEHELP FILE                     # 
         "INSERT    ",  # INSERT LINES                          # 
         "LOCATE    ",  # LOCATE COMMAND                        # 
         "MOVE      ",  # MOVE LINES OF TEXT                    # 
         "PRINT     ",  # PRINT LINES                           # 
         "QUIT      ",  # TERMINATE EDIT SESSION SEVERAL WAYS   # 
         "REPLACE   ",  # REPLACE ONE STRING/ELLIPSIS W/ OTHER  # 
         "SET       ",  # ASSIGN VARIOUS MODES AND PARAMETERS   # 
         "TEACH     ",  # VARIATION ON HELP                     # 
         "UNDO      ",  # MIRACULOUSLY FORGIVE US OF OUR SINS   # 
         "VIEW      ",  # DISPLAY PAGE OF TEXT                  # 
  
         "ALL       ",  # VARIOUS STANDARD SYNTAX ELEMENTS      # 
         "BLANK     ",
         "CURRENT   ",
         "END       ",
         "FIRST     ",
         "HOME      ",
         "IN        ",
         "LAST      ",
         "MARK      ",
         "NEXT      ",
         "PREVIOUS  ",
         "QUIET     ",
         "REPEAT    ",
         "SCREEN    ",
         "TO        ",
         "UPPER     ",
         "WORD      ",
         "X         ",
         "Y         ",
         "Z         ",
  
         "ANNOUNCE  ",    # "SET" KEYWORDS #
         "CHAR      ",
         "DCOLON    ",
         "ECHO      ",
         "FILENAME  ",
         "HEADER    ",
         "INCREMENT ",
         "JUMP      ",
         "KEY       ",
         "LINE      ",
         "MARK      ",
         "NUMBER    ",
         "NO        ",     # NO MUST COME AFTER NUMBERS # 
         "PROMPT    ",
         "REWRITE   ",
         "SCREEN    ",
         "TABS      ",
         "UNDO      ",
         "VIEW      ",
         "WORD      ",
         "X         ",
         "Y         ",
         "YES       ",     # YES MUST COME AFTER Y #
         "Z         ",
  
         "ASCII     ",   # SPECIAL KEYWORDS # 
         "ASCII8    ",   # ASCII8 MUST COME AFTER ASCII # 
         "8         ",   # ADJACENT TO ASCII8 SINCE ABBREV. # 
         "CHAR      ",
         "DISPLAY   ",
         "FILL      ",
         "GET       ",
         "MARK      ",
         "NORMAL    ",
         "READ      ",
         "SPLIT     ",
  
         "COLUMN    ",   # SET VIEW SPECIAL KEYWORDS  # 
         "EDIT      ",
         "IN        ",
         "LINE      ",
         "OFFSET    ",
         "SPLIT     ",
         "WARN      ",
  
         "CENTER    ",   # WORD PROCESSING SUBCOMMANDS #
         "DELETE    ",
         "END       ",
         "INSERT    ",
         "FILL      ",
         "JOIN      ",
         "POS       ",
         "SPLIT     ",
  
         "LABEL     ",       # "SET KEY" KEYWORDS # 
         "SHIFT     ",
  
         "AUTO      ",       # SET NUMBERS KEYWORDS # 
         "BASIC     ",
         "FORTRAN   ",
         "NONE      ",
  
         "QUIET     ",         # QUIT KEYWORDS #
         "PROC      ",
         "REPLACE   ",
         "UNDO      ",
  
         "CONTROL   ",         # SET CHAR KEYWORDS #
         "TAB       ",
  
         "NOSHIFT   ",       # SET PROMPT KEYWORDS# 
         "SHIFT     "]; 
  
  
 END
  
  
ARRAY CMDFLAGS [-1:MAXCMDS];
  BEGIN 
  
  # OKEND CONTROLS "END" KEYWORD - ALTER ONLY # 
  ITEM OKEND     B(0,0,1)=[FALSE,TRUE,18(FALSE)]; 
  
  # OKEXTEND CONTROLS CURSOR BEYOND EOF - COPY/INSERT/MOVE #
  ITEM OKEXTEND  B(0,1,1)=[3(FALSE),TRUE,6(FALSE),TRUE,FALSE, 
                           TRUE,7(FALSE)];
  
  # OKHOME CONTROLS "HOME" KEYWORD - VIEW ONLY #
  ITEM OKHOME    B(0,3,1)=[19(FALSE),TRUE]; 
  
  # OKMOVE VERIFIES COMMAND IS COPY/MOVE #
  ITEM OKMOVE    B(0,4,1)=[3(FALSE),TRUE,8(FALSE),TRUE,7(FALSE)]; 
  
  # OKREVERSE FOR REVERSE MOTION - INSERT/LOCATE/QUIT/REPLACE/VIEW #
  ITEM OKREVERSE B(0,5,1)=[10(FALSE),2(TRUE),2(FALSE),
                           2(TRUE),3(FALSE),TRUE];
  
  # OKSEARCH VERIFIES COMMAND IS LOCATE OR REPLACE #
  ITEM OKSEARCH  B(0,6,1)=[11(FALSE),TRUE,3(FALSE),TRUE,4(FALSE)];
  
  # OKTARGET CONTROLS "TO" KEYWORD - COPY/INSERT/MOVE # 
  ITEM OKTARGET  B(0,7,1)=[3(FALSE),TRUE,6(FALSE),TRUE,FALSE, 
                           TRUE,7(FALSE)];
  
  # OKUPPER CONTROLS "UPPER" KEYWORD - LOCATE/REPLACE ONLY #
  ITEM OKUPPER   B(0,8,1)=[11(FALSE),TRUE,3(FALSE),TRUE,4(FALSE)];
  
  END 
  
  
ARRAY KEYBOUNDS [1:11] P(2);
  BEGIN 
  ITEM FIRSTKEYWD   (0) = [ KEYST"ACMD", KEYST"APRM", KEYST"SETA",
                            KEYST"XASC", KEYST"VCOL", KEYST"WCEN",
                            KEYST"KLAB", KEYST"NAUT", KEYST"QQUI",
                            KEYST"CCTL", KEYST"PNDK"];
  ITEM LASTKEYWD    (1) = [ KEYST"VCMD", KEYST"ZPRM", KEYST"SETZ",
                            KEYST"XSPL", KEYST"VWAR", KEYST"WSPL",
                            KEYST"KSHI", KEYST"NONE", KEYST"QUND",
                            KEYST"CTAB", KEYST"PYDK"];
  END 
  
  
#   STATISTICS BUFFERS FOR MULTI-EDITOR INSTRUMENTATION   # 
  
CONTROL IFEQ MULTI,1; 
  CONTROL IFEQ METERING,1;
    ITEM BGNSTATS;
  
    ARRAY INSTDATA [1:NUMSTATS]; ITEM STATWORD (0)=[NUMSTATS(0)]; 
  
    #  ARRAYS TO COLLECT DISTRIBUTIONS OF RESPONSE TIMES, THINK     # 
    #  TIMES, CIO COUNTS PER TRANSACTIO, TRANSACTIONS PER SESSION,  # 
    #  FILE SIZES, AND "SIC" MESSAGE LENGTHS.                       # 
  
    ARRAY DISTRSTM [1:5]; ITEM RSTM (0)=[5(0)]; 
    ARRAY DISTTKTM [1:5]; ITEM TKTM (0)=[5(0)]; 
    ARRAY DISTCICT [1:5]; ITEM CICT (0)=[5(0)]; 
    ARRAY DISTTRCT [1:5]; ITEM TRCT (0)=[5(0)]; 
    ARRAY DISTFLSZ [1:5]; ITEM FLSZ (0)=[5(0)]; 
    ARRAY DISTMGSZ [1:5]; ITEM MGSZ (0)=[5(0)]; 
    ITEM ENDSTATS;
  CONTROL FI; 
CONTROL FI; 
  
END                          # OF COMMON COMFTAB  # 
                                               CONTROL LIST;
