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

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

**Used in:** [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:ASTONIF867|ASTONIF867]], [[george:source:CONSET864|CONSET864]], [[george:source:EDITPT867|EDITPT867]], [[george:source:EDWRITE867|EDWRITE867]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:GETFREE867|GETFREE867]], [[george:source:GETFREEB864|GETFREEB864]], [[george:source:GETWORD867|GETWORD867]], [[george:source:HOWBIG867|HOWBIG867]], [[george:source:IDFASAT867|IDFASAT867]], [[george:source:IDFCONF867|IDFCONF867]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:LISTDIRF867|LISTDIRF867]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LISTIDF867|LISTIDF867]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:MESSAB|MESSAB]], [[george:source:MESSAF|MESSAF]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERAPP864|OPERAPP864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:PCTBEGIN863|PCTBEGIN863]], [[george:source:PERCON867|PERCON867]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:RAECOMMS867|RAECOMMS867]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[george:source:TPOBJ867|TPOBJ867]], [[george:source:TROBJ867|TROBJ867]], [[george:source:WA864|WA864]], [[george:source:WHATGENS867|WHATGENS867]], [[george:source:WHATPROP865|WHATPROP865]], [[george:source:WHATRVS867|WHATRVS867]], [[george:source:WHATRVSA867|WHATRVSA867]], [[george:source:WLA867|WLA867]], [[george:source:WLAA867|WLAA867]], [[george:source:WLB867|WLB867]], [[george:source:WLC867|WLC867]], [[george:source:WLD864|WLD864]], [[george:source:WLE862|WLE862]], [[george:source:WLF862|WLF862]], [[george:source:WLG862|WLG862]], [[george:source:WLOUT865|WLOUT865]]

<code - FI.mac.txt>
 3KQ=    [   
 3L9W    [   
 3LPG    [??? FI SECT DEVT FGN 1 DOC 
 3M96    [   
 3MNQ    #MAC           FI   
 3N8B    [              ==   
 3NN2    [   
 3P7L    [ ENSURES:  
 3PM=    [     DEPTH NON-ZERO
 3Q6W    [     CURRENT STRUCTURE = CONDITIONAL   
 3QLG    [     'OR' NOT EXPECTED 
 3R66    [     'THEN' FOUND  
 3RKQ    [ COMPILES: 
 3S5B    [     'ELSE' LABEL  
 3SK2    [     LABEL FOR END OF CONDITIONAL  
 3T4L    [ SETS: 
 3TJ=    [     DEPTH DOWN, RETRACTS THE THREE STACK IDENTIFIERS  
 3W3W    [   
 3WHG    #UNS           NESTDEPTH
 3X36    (   
 3XGQ          STRUCTURE 1,OFF   
 3Y2B          FLAGTEST FI,0,NOT,1,,THEN 
 3YG2    #SKI           NESTDEPTH/9         [INCLUDE IF NESTDEPTH 9-16 INCLUSIVE 
 3Y^L    (   
 3^F=    #ALT           20?=NESTDEPTH-9  
 3^YW          NESTLABEL NIF7,FREE,NIF8,FREE 
 42DG          ALTDEPTH -1   
 42Y6    #EXI
 43CQ    )   
 43XB    [ELSE INCLUDE IF NESTDEPTH 1-8 INCLUSIVE
 44C2    #ALT           20?=NESTDEPTH-1  
 44WL          NESTLABEL NIF2,FREE,NIF3,FREE 
 45B=          ALTDEPTH -1   
 45TW    #EXI
 46*G    )   
 46T6    !! MEANINGLESS AT NESTING DEPTH ZERO !! 
 47#Q    #NOR
</code>