*COMDECK COM99A 
          CONTROL NOLIST;    #COM99A# 
#*******************************************************************# 
     DEF  IDUM #ESPLC#;       #DUMY ENTRY FLAG# 
     DEF  NAM1 #NAME#;
     DEF  SSERA  #S"ADR"#;
     DEF  SPARA  #S"RSLT"#; 
     DEF  SBASED #S"QTYPE$"#; 
     DEF RLX  #2#;
#*******************************************************************# 
     DEF  BLKW
               #"          "#;     #BLANK WORD# 
     DEF WBITS
               #60#; #BITS/WORD#
     DEF  WBYT
               #10#;     #BYTES/WORD# 
     DEF  WLIN
               #13#;          #WDS/LINE # 
#*******************************************************************# 
     DEF  PLTXT 
               #O"30"#;       #TYPE X # 
     DEF  PLTWK 
               #O"31"#;       #WEAK EXTERNAL# 
     DEF  PLTOC 
               #O"17"#;       #TYPE O # 
     DEF  PLTIG 
               #O"11"#;       #TYPE I # 
     DEF  PLTRL 
                   #O"22"#;        #  TYPE  R  #
     DEF  PLTDB 
               #O"04"#;       #TYPE D # 
     DEF  PLTBL 
               #O"02"#;       #TYPE B # 
     DEF  PLTST 
               #O"23"#;       #TYPE S # 
     DEF  PLTBC 
               #O"10"#;       #TYPE H # 
     DEF  PLTUN 
               #O"25"#;       #TYPE U # 
     DEF PLTPR
               #O"20"#;       #TYPE P # 
     DEF PLTSR
               #O"23"#;       #TYPE S # 
     DEF PLTBS
               #O"02"#;       #TYPE B # 
     DEF  PLTHL 
               #O"10"#;       #TYPE H # 
     DEF  PLTTR 
               #O"24"#;       #TYPE T # 
     DEF  PLTFX 
               #O"01"#;       #TYPE A # 
#*******************************************************************# 
#*******************************************************************# 
     XREF BEGIN 
          PROC DMSG;
          ITEM LGO C(10);     #PROG NAME# 
    #XREF#END 
#*******************************************************************# 
      DEF PNAM
               #LGO#;         #PROGRAM NAME#
      DEF LMAP
               #B<35,1>OPTION EQ 1#;     #MAP     X=1#
#*******************************************************************# 
     DEF ESTB #4000#; 
      COMMON COM99A;
          BEGIN#BCMABA# 
     ARRAY ASTB [0:ESTB]  S(1); #NAM SORT TABLE#
          ITEM STB I(0,0,WBITS);
          END  #BCMABA# 
#*******************************************************************# 
     ARRAY ADCV [0:5] S(1);   #DECIMAL CONVERSION#
          ITEM DCV I(0,0,WBITS);
#*******************************************************************# 
     ITEM NP,BABX   ; 
     ITEM I,J,K,
          IJ,IK,IL, 
          IJK,IKK   ; 
     ITEM IKKL;     #DIGIT COUNT# 
     ITEM KB,KW;
#*******************************************************************# 
          CONTROL LIST;      #COM99A# 
