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

**Defined in:** [[george:source:MACS_SPC|MACS SPC]]

**Used in:** [[george:source:ENGAGE867|ENGAGE867]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:TIDYREAD850|TIDYREAD850]]

<code - TESTCODE.mac.txt>
 JGQQ    #MAC  TESTCODE  
 JH=B    #STR  %A
 JHQ2          SMO      %A   
 JJ9L    #STR  %A
 JJP=    #SKI
 JK8W          SMO      CPPTR(2) 
 JKNG          LDX   1  JADDP
 JL86    #STR  READER,%B 
 JLMQ          LDX   0  APCODET(1)   
 JM7B    #STR  READER,%B 
 JMM2    #SKI
 JN6L          LDX   0  APCODE(1)
 JNL=          LDX   1  FX1  
 JP5W          BZE   0  %C   
 JPKG          BRN      %D   
 JQ56    #NOR
</code>