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

**Defined in:** [[george:source:ACCESSMACROS|ACCESSMACROS]]

**Used in:** [[george:source:COPYA867|COPYA867]], [[george:source:INCMON865|INCMON865]], [[george:source:MTCHECK860|MTCHECK860]]

<code - CORRUPTB.mac.txt>
 BP9= ...#   THIS DEALS WITH FILES IN WHICH CORRUPTION HAS BEEN FOUND
 BPNW ...#MAC  CORRUPTB  
 BQ8G ...#ACC %A 
 BQN6 ...(   
 BR7Q ...      LDX   0  %A   
 BRMB ...      SMO      FX2  
 BS72 ...      STO   0  ACOMMUNE2
 BSLL ...)   
 BT6= ...#ACC %A 
 BTKW ...#SKI
 BW5G ...(   
 BWK6 ...      SMO      FX2  
 BX4Q ...      STO   %A ACOMMUNE2
 BXJB ...)   
 BY42 ...#ACC  %B
 BYHL ...(   
 B^3= ...      LDX   0  %B   
 B^GW ...      SMO      FX2  
 C22G ...      STO   0  ACOMMUNE3
 C2G6 ...)   
 C2^Q ...#ACC  %B
 C3FB ...#SKI
 C3^2 ...(   
 C4DL ...      SMO      FX2  
 C4Y= ...      STO   %B ACOMMUNE3
 C5CW ...)   
 C5XG ...      DOWN     READFAIL,1   
 C6C6 ...#NOR
</code>