GETWORDX

(GIN Macro)

Defined in: MACROS GLJ

Used in: ALTINST60, ILLPERI70, ONOFFALT60, OPILLS70, PRINT70, SAVE864, SAVEDA70

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