(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
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