?HCD ...[??? GETACTX SECT CENT FGN 32 DOC   
 ?HM=    #   
 ?J6W    #MAC  GETACTX   
 ?JLG          GETCORAL %B,X,HMANDAT+HACTY+0%C:0 
 ?K66          FINDCORE 1
 ?KKQ          STO   %A ATYPE(1) 
 ?L5B          ADN   1  ACTRING  
 ?LK2          ENRING   1,ACTRING+BPTR(2)
 ?M4L          CHAIN    FPTR(2),BPTR(2)  
 ?M9S ...#UNS  ICT   
 ?MC2 ...      APGAX  %A 
 ?MJ=    #NOR