GROPEREC [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: GROPEREC)}}
====== GROPEREC ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_PERI|MACROS PERI]]

**Used in:** [[george:source:DUMMYA867|DUMMYA867]], [[george:source:ENGAGE867|ENGAGE867]], [[george:source:LIBREQ866|LIBREQ866]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:PARSORT867|PARSORT867]], [[george:source:SWITCH867|SWITCH867]]

<code - GROPEREC.mac.txt>
 7DRQ    #MAC  GROPEREC  
 7F?B    #STR  APINT,%B  
 7FR2    #STR
 7G=L    (   
 7GQ=          SMO      FX2  
 7H9W          STOZ     ACOMMUNE1
 7HPG          LDX   0  %C   
 7J96          SMO      FX2  
 7JNQ          STO   0  ACOMMUNE2
 7K8B    )   
 7KN2    #STR  APGEOG,%B 
 7L7L    #STR
 7LM=    (   
 7M6W          LDN   0  1
 7MLG          SMO      FX2  
 7N66          STO   0  ACOMMUNE1
 7NKQ          LDX   0  %C   
 7P5B          SMO      FX2  
 7PK2          STO   0  ACOMMUNE2
 7Q4L    )   
 7QJ=    #STR  APTYPE,%B 
 7R3W    #STR
 7RHG    (   
 7S36          LDN   0  2
 7SGQ          SMO      FX2  
 7T2B          STO   0  ACOMMUNE1
 7TG2          LDX   0  %C   
 7T^L          SMO      FX2  
 7WF=          STO   0  ACOMMUNE2
 7WYW    )   
 7XDG          DOWN     GROPE,1  
 7XY6          LDX   %A ACOMMUNE1(2) 
 7YCQ    #NOR
</code>