IF

(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, MESSAC, MESSBH, MESSCG, MESSCI, MESSF, 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

IF.mac.txt

 24D6    [   
 24XQ    [ HERE FOLLOW THE USER MACROS   
 25CB    [ ===========================   
 25X2    [   
 26BL    [   
 26W=    [??? IF SECT DEVT FGN 1 DOC 
 27*W    [   
 27TG    #MAC           IF   
 28*6    [              ==   
 28SQ    [   
 29#B    [ SETS: 
 29S2    [     DEPTH UP, ADVANCES THE THREE STACK IDENTIFIERS
 2=?L    [     CURRENT STRUCTURE = CONDITIONAL   
 2=R=    [     'THEN' NOT FOUND  
 2?=W    [     'OR' NOT EXPECTED 
 2?QG    [ COMPILES: 
 2#=6    [     A JUMP OR BRANCH  
 2#PQ    [   
 2*9B    #OPT           NESTREASON=0 
 2*P2    #OPT           NESTDEPTH=0  
 2B8L    #OPT           NESTFLAG=0   
 2BN=    #OPT           NESTEITHERS=0
 2C7W          STRUCTURE 1,ON
 2CMG          ALTDEPTH +1   
 2D76    #SKI           NESTDEPTH/9         [INCLUDE IF NESTDEPTH 9-16 INCLUSIVE 
 2DLQ    (   
 2F6B          GOIFALSE NIF7,NIF6,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 2FL2    P,%Q,%R,%S,%T,%U,%V 
 2G5L    #EXI
 2GK=    )   
 2H4W    [ELSE INCLUDE IF NESTDEPTH 1-8 INCLUSIVE
 2HJG          GOIFALSE NIF2,NIF1,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%-
 2J46    P,%Q,%R,%S,%T,%U,%V 
 2JHQ    #NOR