{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CLEANUP)}}
====== CLEANUP ======
(GIN Macro)

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:COMPROB867|COMPROB867]], [[george:source:CONTINUE867|CONTINUE867]], [[george:source:GOTO867|GOTO867]], [[george:source:QUIT4|QUIT4]]

<code - CLEANUP.mac.txt>
 =G8Y ...[??? CLEANUP SECT CENT FGN 21 DOC   
 =GDQ    #   
 =GYB    [     THIS MACRO DELETES ALL CP LEVELS UPTO A CERTAIN LEVEL.
 =HD2    [     THIS LEVEL IS SPECIFIED AS  A PARAMETER OF THE MACRO  
 =HXL    #MAC  CLEANUP   
 =JC=          LDX   2  FX2  
 =JWW          STOZ     EXT+3(2) 
 =KBG          LDN   1  %B   
 =KW6          DCH   1  EXT+3(2) 
 =L*Q          LDX   1  %A   
 =LTB          ORS   1  EXT+3(2) 
 =M*2          DOWN     CLEAN,1  
 =MSL    #NOR
</code>