THEN

(GIN Macro)

Defined in: IFMACS

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

THEN.mac.txt

 2K3B    [   
 2KH2    [   
 2L2L    [??? THEN SECT DEVT FGN 1 DOC   
 2LG=    [   
 2L^W    #MAC           THEN 
 2MFG    [              ==== 
 2M^6    [   
 2NDQ    [ ENSURES:  
 2NYB    [     DEPTH NON-ZERO
 2PD2    [     CURRENT STRUCTURE = CONDITIONAL   
 2PXL    [     'OR' NOT EXPECTED 
 2QC=    [     'THEN' NOT FOUND  
 2QWW    [ COMPILES: 
 2RBG    [     'THEN' LABEL  
 2RW6    [   
 2S*Q    #UNS           NESTDEPTH
 2STB    (   
 2T*2          STRUCTURE 1,CHECK 
 2TSL          FLAGTEST THEN,0,NOT,0,NOT,THEN
 2W#=    #ALT           NESTFLAG=NESTFLAG^1  
 2WRW    #SKI           NESTDEPTH/9  
 2X?G    (   
 2XR6    #ALT           20?=NESTDEPTH-9  
 2Y=Q          NESTLABEL NIF6,FREE   
 2YQB    #EXI
 2^=2    )   
 2^PL    #ALT           20?=NESTDEPTH-1  
 329=          NESTLABEL NIF1,FREE   
 32NW    #EXI
 338G    )   
 33N6    !! MEANINGLESS AT NESTING DEPTH ZERO !!!
 347Q    #NOR