IF [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: IF)}}
====== IF ======
(GIN Macro)

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

**Used in:** [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:ASTONIF867|ASTONIF867]], [[george:source:CONSET864|CONSET864]], [[george:source:EDITPT867|EDITPT867]], [[george:source:EDWRITE867|EDWRITE867]], [[george:source:FORMLOOP865|FORMLOOP865]], [[george:source:GETFREE867|GETFREE867]], [[george:source:GETFREEB864|GETFREEB864]], [[george:source:GETWORD867|GETWORD867]], [[george:source:HOWBIG867|HOWBIG867]], [[george:source:IDFASAT867|IDFASAT867]], [[george:source:IDFCONF867|IDFCONF867]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:LISTDIRF867|LISTDIRF867]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LISTIDF867|LISTIDF867]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:MESSAC|MESSAC]], [[george:source:MESSBH|MESSBH]], [[george:source:MESSCG|MESSCG]], [[george:source:MESSCI|MESSCI]], [[george:source:MESSF|MESSF]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERAPP864|OPERAPP864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:PCTBEGIN863|PCTBEGIN863]], [[george:source:PERCON867|PERCON867]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:RAECOMMS867|RAECOMMS867]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[george:source:TPOBJ867|TPOBJ867]], [[george:source:TROBJ867|TROBJ867]], [[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 - 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
</code>