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

**Defined in:** [[george:source:MACROS_IH|MACROS IH]]

**Used in:** [[george:source:WTSTAT867|WTSTAT867]]

<code - EXTRACODE.mac.txt>
 3YG2    #   
 3Y^L    #MAC EXTRACODE  
 3^F=    #MEND DOIHEMS   
 3^YW    #TRA K90DOIHEMS 
 42DG                   +G400HOOKNO+1
 42Y6    #TRA 5*G400HOOKNO+1+K90DOIHEMS  
 43CQ                   4H%B 
 43XB                   12H%A
 44C2                   %C   
 44WL    #END
 45B=    #ALT  G400HOOKNO=G400HOOKNO+1   
 45TW    #NOR
</code>