FWHD ...[??? GETCLB SECT CENT FGN 21 DOC
 FWR=    #MAC  GETCLB
 FX=W          SETNCORE +AVELINE+ALB,%A,CLB  
 FXQG          LDN   6  A1(%A)   
 FY=6          LDN   7  A1+1(%A) 
 FYPQ          STOZ     A1(%A)   
 F^9B          MOVE  6  ALB-1
 F^P2    #NOR