CHCHCOORCOMP

(George Source)
Macros used: CLINK
22FL    #   
22^=    #     THIS SUBFILE BELONGS TO RUTH HEAP 
23DW    #   
23YG    #           HOLDS IDENTIFIERS AND INCLUDES FOR CHCH AND COOR
24D6    #   
24XQ    #OPT  HLINK=2-CLONK                [LENGTH OF LINK  
25CB    #OPT  IGP=0                        [GETPROC SKIP
25X2    #SKI  CLINK<1$1 
26BL    #INC  CHCH70
26W=    #INC  COOR70
27*W    #SKI  CLINK<1$1 
27TG    (   
28*6    #INC  CHAPTAB   
28SQ    #INC  CHAPTABA  
29#B    )   
29S2    #SKI  CLINK 
2=?L    (   
2=R=    #INC  CHCH80
2?=W    #INC  CHTABLE   
2?QG    )   
^^^^ ...71641573000100000000