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

**Defined in:** [[george:source:MACROS_HL|MACROS HL]]

**Used in:** [[george:source:RESTBLOK850|RESTBLOK850]], [[george:source:UNSAVE867|UNSAVE867]]

<code - READHUNT.mac.txt>
 294J ...[??? READHUNT SECT CENT FGN 5 DOC   
 29#B    #   
 29S2    #           READHUNT MACRO  
 2=?L    #           READS A RECORD,FINDS THE READ BLOCK AND BRANCHES IF END OF  
 2=R=    #           FILE
 2?=W    #MAC           READHUNT 
 2?QG          STEP     %B   
 2#=6          BZE   3  %A   
 2#PQ    #NOR
</code>