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

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

**Used in:** [[george:source:ALTINST60|ALTINST60]], [[george:source:ILLPERI70|ILLPERI70]], [[george:source:ONOFFALT60|ONOFFALT60]], [[george:source:OPILLS70|OPILLS70]], [[george:source:PRINT70|PRINT70]], [[george:source:SAVE864|SAVE864]], [[george:source:SAVEDA70|SAVEDA70]]

<code - GETWORDX.mac.txt>
 3W?N ...[??? GETWORDX SECT CENT FGN 18 DOC  
 3WHG    #   
 3X36    #   
 3XGQ    #   
 3Y2B    #     GETWORDX IS A FORM OF GETWORD WHICH ALLOWS THE TYPE OF ACCESS 
 3YG2    #              TO BE MADE TO AN AREA TO BE DEFINED BY THE CONTENTS  
 3Y^L    #              OF A WORD IT HAS BEEN DESIGNED WITH GEORGE 4 IN MIND 
 3^F=    #   
 3^YW    #MAC  GETWORDX  
 42DG          LDX   0  %A   
 42Y6    #SKI  %G
 43CQ          ORX   0  GSIGN
 43XB          SMO      FX2  
 44C2          STO   0  ACOMMUNE1
 44WL    #STR  %E
 45B=    #SKIP   
 45TW          LDN   0  1
 46*G    #STR  %E
 46T6          LDX   0  %E   
 47#Q          SMO      FX2  
 47SB          STO   0  ACOMMUNE2
 48#2          LDX   0  %C   
 48RL          SMO      FX2  
 49?=          STO   0  ACOMMUNE3
 49QW          DOWN  GETWORD,4   
 4==G    #STR  %F
 4=Q6          BRN      %F   
 4?9Q    #STR  %F
 4?PB    #STR
 4#92          NULL  
 4#NL    #STR  %D
 4*8=    (   
 4*MW          LDX   0  ACOMMUNE2(2) 
 4B7G          STO   0  %D   
 4BM6    )   
 4C6Q    #STR  2,%D  
 4CLB          LDX   0  ACOMMUNE1(2) 
 4D62    #STR  2,%D  
 4DKL    #SKIP   
 4F5=    (   
 4FJW          SMO      FX2  
 4G4G          LDX   0  ACOMMUNE1
 4GJ6    )   
 4H3Q    #STR  %B,0  
 4HHB          STO   0  %B   
 4J32    #NOR
</code>