ELSE

(GIN Macro)

Defined in: IFMACS

Used in: ARCHIVE867, CONSET864, FORMLOOP865, GETFREE867, GETFREEB864, GETWORD867, IDFCONF867, IPBLISTA867, IPBLISTD867, LISTDIRF867, LISTNEXT867, LISTOPEN867, LISTPARS867, LISTRING864, OPER864, OPERA864, OPERAPP864, OPERIN867, PERFPASS864, SHOWCOMM864, WA864, WHATGENS867, WHATPROP865, WHATRVS867, WHATRVSA867, WLA867, WLAA867, WLB867, WLC867, WLD864, WLE862, WLF862, WLG862, WLOUT865

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