FM94 ...[??? FILEMOVE SECT FILE FGN 20 DOC  
 FMDW    #   
 FMYG    # THIS MACROS MOVES A FILE FROM ONE LEVEL TO ANOTHER IN A GIVEN ACTIVITY
 FND6    #   
 FNXQ    #MAC           FILEMOVE 
 FPCB    #ACC  %C
 FPX2    #SKI
 FQBL    (   
 FQW=          SMO      FX2  
 FR*W          STO   %A ACOMMUNE3
 FRTG    )   
 FS*6          LDN   0  %A   
 FSSQ          SMO      FX2  
 FT#B          STO   0  ACOMMUNE1
 FTS2          LDN   0  %B   
 FW?L          SMO      FX2  
 FWR=          STO   0  ACOMMUNE2
 FX=W    #SKI  %C
 FXQG    (   
 FY=6    #ACC  %C
 FYPQ    (   
 F^9B          LDX   0  %C   
 F^P2          SMO      FX2  
 G28L          STO   0  ACOMMUNE3
 G2N=    )   
 G37W    )   
 G3MG    #SKI  %C
 G476    #SKI
 G4LQ    (   
 G56B          SMO      FX2  
 G5L2          STOZ     ACOMMUNE3
 G65L    )   
 G6K=          DOWN     CHANFILE,3   
 G74W    #NOR