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

**Defined in:** [[george:source:ACCESSMACROS|ACCESSMACROS]]

**Used in:** [[george:source:LEXIFIND5|LEXIFIND5]], [[george:source:USELEX5|USELEX5]]

<code - SCURFUB.mac.txt>
 B3^J ...[??? SCURFUB SECT FILE FGN 19 DOC   
 B49B    #     THIS  MACRO SETS %A POINTING TO THE CURRENT USAGE BLOCK OF THE
 B4P2    #     FILE OPEN AT DEPTH [%B] & JUMPS TO %C IF THE BLOCK'S NOT THERE
 B58L    #MAC SCURFUB
 B5N=    #STR  %B
 B67W          SFSTACK  %B,1,2   
 B6MG    #STR  %B
 B776    #SKI
 B7LQ    (   
 B86B          TOPFCA  1 
 B8L2          PSTAC   2,1   
 B95L    )   
 B9K=          LDX   0  FREADBLOCK(1)
 B=4W          BPZ   0  M1SCURFUB
 B=JG          LDN   0  FBLKS
 B?46          STO   0  FREADBLOCK(1)
 B?HQ    M1SCURFUB   
 B#3B          LDX   0  2
 B#H2          BFCBX   2,2   
 B*2L          ADX   2  FREADBLOCK(1)
 B*G=          LDX   1  0
 B*^W          SFUB  1,0(2),%A,%C
 BBFG    #STR  %A,1  
 BB^6    #SKI
 BCDQ    #OPT  M2SCURFUB=1   
 BCYB    #STR  %A,2  
 BDD2    #SKI
 BDXL    #OPT  M2SCURFUB=2   
 BFC=    #OPT  M2SCURFUB=0   
 BFWW    #SKI  M2SCURFUB$1   
 BGBG          LDX   1  FX1  
 BGW6    #SKI  M2SCURFUB$2   
 BH*Q          LDX   2  FX2  
 BHTB    #FRE  M2SCURFUB 
 BJ*2    #NOR
</code>