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

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

**Used in:** [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERAPP864|OPERAPP864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[george:source:WA864|WA864]], [[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:WLOUT865|WLOUT865]]

<code - ELSF.mac.txt>
 47SB    [   
 48#2    [   
 48RL    [??? ELSF SECT DEVT FGN 1 DOC   
 49?=    [   
 49QW    #MAC           ELSF 
 4==G    [              ==== 
 4=Q6    [   
 4?9Q    [ ENSURES:  
 4?PB    [     DEPTH NON-ZERO
 4#92    [     CURRENT STRUCTURE = CONDITIONAL   
 4#NL    [     'OR' NOT EXPECTED 
 4*8=    [     'THEN' FOUND  
 4*MW    [ SETS: 
 4B7G    [     'THEN' NOT FOUND  
 4BM6    [ COMPILES: 
 4C6Q    [     BRN TO END OF CONDITIONAL 
 4CLB    [     'ELSE' LABEL  
 4D62    [     A JUMP OR BRANCH  
 4DKL    [   
 4F5=    #UNS           NESTDEPTH
 4FJW    (   
 4G4G          STRUCTURE 1,CHECK 
 4GJ6          FLAGTEST ELSF,0,NOT,1,,THEN   
 4H3Q    #ALT           NESTFLAG=NESTFLAG$1 [CLEAR 'THEN'
 4HHB    #SKI           NESTDEPTH/9  
 4J32    (   
 4JGL    #ALT           20?=NESTDEPTH-9  
 4K2=          NESTBRANCH RN,NIF8
 4KFW    #ALT           20?=NESTDEPTH-9  
 4K^G          NESTLABEL NIF7,FREE   
 4LF6    #ALT           20?=NESTDEPTH-9  
 4LYQ          GOIFALSE NIF7,NIF6,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 4MDB    P,%Q,%R,%S,%T,%U,%V 
 4MY2    #EXI
 4NCL    )   
 4NX=    #ALT           20?=NESTDEPTH-1  
 4PBW          NESTBRANCH RN,NIF3
 4PWG    #ALT           20?=NESTDEPTH-1  
 4QB6          NESTLABEL NIF2,FREE   
 4QTQ    #ALT           20?=NESTDEPTH-1  
 4R*B          GOIFALSE NIF2,NIF1,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 4RT2    P,%Q,%R,%S,%T,%U,%V 
 4S#L    #EXI
 4SS=    )   
 4T?W    !! MEANINGLESS AT NESTING DEPTH ZERO !! 
 4TRG    #NOR
</code>