8JCS ...[??? MFREECEL SECT COMM FGN 25 DOC  
 8JDB    #MAC  MFREECELL 
 8JY2          LDX   0  BRECNO(%A)   
 8KCL          SMO      FX2  
 8KX=          STO   0  ACOMMUNE3           [STO REC.NO. 
 8LBW          SMO      FX2  
 8LWG          STO   %B ACOMMUNE2
 8MB6          DOWN     IDFSEG,23
 8MTQ          LDX   %B ACOMMUNE2(2)        [LD. VALUE %B
 8N*B          NEW      %A   
 8NT2    #NOR