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

**Defined in:** [[george:source:MACS_PW|MACS PW]]

**Used in:** [[george:source:ATTJOUNL861|ATTJOUNL861]], [[george:source:ATTRIBUT867|ATTRIBUT867]], [[george:source:COREALLH860|COREALLH860]], [[george:source:ENGAGE867|ENGAGE867]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:FREEPER867|FREEPER867]], [[george:source:GETFREEB864|GETFREEB864]], [[george:source:IDFPROP867|IDFPROP867]], [[george:source:IPBCONS867|IPBCONS867]], [[george:source:IPBERROR867|IPBERROR867]], [[george:source:IPBINB867|IPBINB867]], [[george:source:IPBJOURN867|IPBJOURN867]], [[george:source:IPBSCANB867|IPBSCANB867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:MAKEVCC867|MAKEVCC867]], [[george:source:MONFIL865|MONFIL865]], [[george:source:MONJRNAL850|MONJRNAL850]], [[george:source:MOPCOM867|MOPCOM867]], [[george:source:MOPCOMB865|MOPCOMB865]], [[george:source:MULTIPLX864|MULTIPLX864]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:OUTPER867|OUTPER867]], [[george:source:PAGES867|PAGES867]], [[george:source:PCTCON8|PCTCON8]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:PERFLOGS866|PERFLOGS866]], [[george:source:REDON867|REDON867]], [[george:source:RELPER867|RELPER867]], [[george:source:REPERT867|REPERT867]], [[george:source:RIGHT867|RIGHT867]], [[george:source:SETUPB867|SETUPB867]], [[george:source:TERM867|TERM867]], [[george:source:WHATPERX867|WHATPERX867]], [[george:source:WLD864|WLD864]]

<code - GEOPACK.mac.txt>
 4KFW    [??? GEOPACK SECT COMM FGN 9 DOC
 4X=B    #   
 4XQ2    #   
 4Y9L    #   
 4YP=    #MAC  GEOPACK   
 4^8W    #STR  %B
 4^NG    #SKI
 5286          GEOPACK  %A,JSOURCE1(2),%C
 52MQ    #STR  %B
 537B    (   
 53M2    #ACC  %A
 546L    (   
 54L=          GEOPACK  0,%B,%C  
 555W          STO   0  %A   
 55KG    )   
 5656    #ACC  %A
 56JQ    #SKI
 574B    (   
 57J2    #STR  %C
 583L          LDEX  %A %B   
 58H=    #STR  %C
 592W    #SKI
 59GG    (   
 5=26    #STR  %B,%A 
 5=FQ          LDX   %A %B   
 5=^B          ERX   %A 1+%B 
 5?F2          ANDX  %A BSB18
 5?YL          ERX   %A 1+%B 
 5#D=    )   
 5#XW    )   
 5*CG    )   
 5*X6    #NOR
</code>