4KFW    [??? GEOPACK SECT COMM FGN 9 DOC
 4X=B    #   
 4XQ2    #   
 4Y9L    #   
 4YP=    #MAC  GEOPACK   
 4^8W    #STR  %B
 4^NG    #SKI
 5286          GEOPACK  %A,JSOURCE1(2),%C
 52MQ    #STR  %B
 537B    (   
 53M2    #ACC  %A
 546L    (   
 54L=          GEOPACK  0,%B,%C  
 555W          STO   0  %A   
 55KG    )   
 5656    #ACC  %A
 56JQ    #SKI
 574B    (   
 57J2    #STR  %C
 583L          LDEX  %A %B   
 58H=    #STR  %C
 592W    #SKI
 59GG    (   
 5=26    #STR  %B,%A 
 5=FQ          LDX   %A %B   
 5=^B          ERX   %A 1+%B 
 5?F2          ANDX  %A BSB18
 5?YL          ERX   %A 1+%B 
 5#D=    )   
 5#XW    )   
 5*CG    )   
 5*X6    #NOR