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

**Defined in:** [[george:source:WORK-MACROS|WORK-MACROS]]

**Used in:** [[george:source:OPENWORK866|OPENWORK866]], [[george:source:ORELEND860|ORELEND860]]

<code - FINDWN.mac.txt>
 4?^8 ...[??? FINDWN SECT FILE FGN 4 DOC 
 4#92    #MAC  FINDWN
 4#DS ...#SKI  %A
 4#NL ...(   
 4#YD ...#SKI  %A-1  
 4*8= ...      LDX   1  %A   
 4*D4 ...)   
 4*MW    #SKI  %A
 4B7G    #SKI
 4BM6    (   
 4C6Q          SMO      FX2  
 4CLB          LDN   1  BWORKRING
 4D62    )   
 4DKL          HUNT     2,FILE,FABSNB
 4F5=          LDX   2  A1+4(2)  
 4FJW    #SKI  %B-3  
 4G4G          STO   3  GEN0 
 4GJ6          LDX   3  1
 4H3Q    M1FINDWN
 4HHB          LDX   1  0(1) 
 4J32          BXE   1  3,M2FINDWN   
 4J*C ...      ADN   1  FCBRING  
 4JMS ...      LDX   3  1
 4K29 ...M4FINDWN
 4K#L ...      BXU   2  FLOC1-FCBRING(1),M6FINDWN
 4KM3 ...#SKI  %C
 4K^D ...#SKI
 4L?T ...(   
 4LL= ...#STR  %D
 4LYM ...(   
 4M?4 ...      LDX   0  %D         [1MEANS TO BE ERASED ALLOWED  
 4MKF ...      BNZ   0  M5FINDWN 
 4MXW ...)   
 4N=? ...      LDX   0  FCOMM-FCBRING(1) 
 4NJN ...      ANDN  0  1            [TO BE ERASED FILES NOT ALLOWED 
 4NX5 ...      BNZ   0  M6FINDWN 
 4P9G ...M5FINDWN
 4PHX ...)   
 4PWG    #SKI  %B-1  
 4QB6          LDX   %B 1
 4QKY ...      SBN   %B  FCBRING 
 4QTQ          SETREP   OK   
 4R*B          BRN      M3FINDWN 
 4RGJ ...M6FINDWN
 4RMQ ...      NEXTFCB 1,WORK,M4FINDWN,3         [TRY NEXT FCB   
 4RT2    M2FINDWN
 4S#L          SETREP   NOTFOUND 
 4SS=    M3FINDWN
 4T?W    #SKI  %B-1  
 4TRG          LDX   1  FX1  
 4W?6    #SKI  %B-2  
 4WQQ          LDX   2  FX2  
 4X=B    #SKI  %B-3  
 4XQ2          LDX   3  GEN0 
 4Y9L    #NOR
</code>