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

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

**Used in:** [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:CONSET864|CONSET864]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:GETFREE867|GETFREE867]], [[george:source:GETFREEB864|GETFREEB864]], [[george:source:GETWORD867|GETWORD867]], [[george:source:IDFCONF867|IDFCONF867]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:LISTDIRF867|LISTDIRF867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERAPP864|OPERAPP864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[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 - ELSE.mac.txt>
 34MB    [   
 3572    [   
 35LL    [??? ELSE SECT DEVT FGN 1 DOC   
 366=    [   
 36KW    #MAC           ELSE 
 375G    [              ==== 
 37K6    [   
 384Q    [     DEPTH NON-ZERO
 38JB    [     CURRENT STRUCTURE = CONDITIONAL   
 3942    [     'OR' NOT EXPECTED 
 39HL    [     'THEN' FOUND  
 3=3=    [ COMPILES: 
 3=GW    [     BRN TO END OF CONDITIONAL 
 3?2G    [     'ELSE' LABEL  
 3?G6    [   
 3?^Q    #UNS           NESTDEPTH
 3#FB    (   
 3#^2          STRUCTURE 1,CHECK 
 3*DL          FLAGTEST ELSE,0,NOT,1,,THEN   
 3*Y=    #SKI           NESTDEPTH/9         [INCLUDE IF NESTDEPTH 9-16 INCLUSIVE 
 3BCW    (   
 3BXG    #ALT           20?=NESTDEPTH-9  
 3CC6          NESTBRANCH RN,NIF8
 3CWQ    #ALT           20?=NESTDEPTH-9  
 3DBB          NESTLABEL NIF7,FRE
 3DW2    #EXI
 3F*L    )   
 3FT=    #ALT           20?=NESTDEPTH-1  
 3G#W          NESTBRANCH RN,NIF3
 3GSG    #ALT           20?=NESTDEPTH-1  
 3H#6          NESTLABEL NIF2,FRE
 3HRQ    #EXI
 3J?B    )   
 3JR2    !! MEANINGLESS AT NESTING DEPTH ZERO !! 
 3K=L    #NOR
</code>