GETWORD [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: GETWORD)}}
====== GETWORD ======
(GIN Macro)

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

**Used in:** [[george:source:ANTIC867|ANTIC867]], [[george:source:BEXTSJ84|BEXTSJ84]], [[george:source:CAFSPERI867|CAFSPERI867]], [[george:source:CHINERR867|CHINERR867]], [[george:source:CHNUMCON867|CHNUMCON867]], [[george:source:CHTAB|CHTAB]], [[george:source:CLOSBAC867|CLOSBAC867]], [[george:source:CLOSDEL867|CLOSDEL867]], [[george:source:COMPRO867|COMPRO867]], [[george:source:CONTEND867|CONTEND867]], [[george:source:CORE867|CORE867]], [[george:source:EXINONE867|EXINONE867]], [[george:source:EXINTO867|EXINTO867]], [[george:source:FAIL5|FAIL5]], [[george:source:GETONA867|GETONA867]], [[george:source:GIVE867|GIVE867]], [[george:source:IFNUMS867|IFNUMS867]], [[george:source:INKS|INKS]], [[george:source:IPCOPENA83|IPCOPENA83]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:NEXTUNIT867|NEXTUNIT867]], [[george:source:OLMTB867|OLMTB867]], [[george:source:OLMTC85|OLMTC85]], [[george:source:OLMTE85|OLMTE85]], [[george:source:ONOFFALT60|ONOFFALT60]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:PERION867|PERION867]], [[george:source:PROGISH850|PROGISH850]], [[george:source:PROSTART867|PROSTART867]], [[george:source:READSPEC867|READSPEC867]], [[george:source:RENAMEX867|RENAMEX867]], [[george:source:SAVE864|SAVE864]], [[george:source:SAVEDA70|SAVEDA70]], [[george:source:SCEXEND867|SCEXEND867]], [[george:source:SCHDJOBA867|SCHDJOBA867]], [[george:source:SPERION867|SPERION867]], [[george:source:SQOPEN867|SQOPEN867]], [[george:source:STEPBACK1|STEPBACK1]]

<code - GETWORD.mac.txt>
 2PMS ...[??? GETWORD SECT CENT FGN 18 DOC   
 2PXL    #MAC  GETWORD   
 2QC=          LDX   0  %A   
 2QWW    #SKI  %G
 2RBG          ORX   0  GSIGN
 2RW6          SMO      FX2  
 2S*Q          STO   0  ACOMMUNE1
 2STB    #SKI  %E
 2T*2    #SKI
 2TSL    (   
 2W#=          LDN   0  1
 2WRW          SMO      FX2  
 2X?G          STO   0  ACOMMUNE2           [DEFAULT SIZE OF AREA
 2XR6    )   
 2Y=Q    #SKI  %E
 2YQB    (   
 2^=2          LDX   0  %E   
 2^PL          SMO      FX2  
 329=          STO   0  ACOMMUNE2
 32NW    )   
 338G    #STR  %C,WRITE  
 33N6          DOWN     GETWORD,1           [READ ENTRY  
 347Q    #STR  %C,WRITE  
 34MB    #SKI
 3572          DOWN     GETWORD,2           [WRITE ENTRY 
 35LL    #STR  %F
 366=          BRN      %F   
 36KW    #STR  %F
 375G    #STR
 37K6          NULL  
 384Q    #STR  %D
 38JB    (   
 3942          LDX   0  ACOMMUNE2(2) 
 39HL          STO   0  %D   
 3=3=    )   
 3=GW    #STR  2,%D  
 3?2G          LDX   0  ACOMMUNE1(2) 
 3?G6    #STR  2,%D  
 3?^Q    #SKI
 3#FB    (   
 3#^2          SMO      FX2  
 3*DL          LDX   0  ACOMMUNE1
 3*Y=    )   
 3BCW    #STR  %B,0  
 3BXG          STO   0  %B   
 3CC6    #NOR
</code>