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

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

**Used in:** 

<code - FINDGPUT.mac.txt>
 B2=W    #MACRO         FINDGPUT 
 B2QG    #STRING        %B   
 B3=6    (   
 B3PQ    #MODIFIER      %B   
 B49B    (   
 B4P2    #STRING        %B,%A
 B58L          LDX   %A %B   
 B5N=     MOD  LDX   %A 0,%A 
 B67W    )   
 B6MG    #MODIFIER      %B   
 B776    #SKIP   
 B7LQ          LDX   %A 0(%B)
 B86B    )   
 B8L2          SRL   %A 10   
 B95L          ANDN  %A #7777
 B9K=          ADX   %A BGPUT%C  
 B=4W    #NORMAL 
</code>