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

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

**Used in:** [[george:source:FAILTWIN866|FAILTWIN866]], [[george:source:INTWIN866|INTWIN866]]

<code - IPCOPEN.mac.txt>
 6FRJ ...[??? IPCOPEN SECT COMM FGN 19 DOC   
 6G3B    #MAC  IPCOPEN   
 6GH2          LDX   0  %D   
 6H2L          SMO      FX2  
 6HG=          STO   0  ACOMMUNE1
 6H^W          LDX   0  %B   
 6JFG          ADN   0  5
 6J^6          SMO      FX2  
 6KDQ          STO   0  ACOMMUNE2
 6KYB          LDX   2  FX2  
 6LD2          SETUPCORE ACOMMUNE2(2),2,IPCD,IPCGL%A,,1  
 6LXL          SMO      FX2  
 6MC=          STO   2  ACOMMUNE3
 6MWW          LDX   2  FX2  
 6NBG          LDX   0  ACOMMUNE2(2) 
 6NW6          SBN   0  5
 6P*Q          LDN   1  %C   
 6PTB          LDX   2  ACOMMUNE3(2) 
 6Q*2          ADN   2  IPCGNAM  
 6QSL          SMO      0
 6R#=          MOVE  1  0
 6RRW          LDX   2  FX2  
 6S?G    #STR  %E
 6SR6          STOZ     ACOMMUNE3(2) 
 6T=Q    #STR  %E
 6TQB    %SKI
 6W=2    (   
 6WPL          LDN   0  1
 6X9=          STO   0  ACOMMUNE3(2) 
 6XNW    )   
 6Y8G    #STR  W,%A  
 6YN6          STOZ     ACOMMUNE4(2) 
 6^7Q    #STR  R,%A  
 6^MB    (   
 7272          LDN   0  1
 72LL          STO   0  ACOMMUNE4(2) 
 736=    )   
 73KW          DOWN     IPCGEO,1 
 745G    #STR  %E
 74K6          BRN      %E   
 754Q    #STR  %E
 75JB    #SKI
 7642          BRN      £
 76HL    #NOR
</code>