1*35973Sbostic C 2*35973Sbostic C FLAGS 3*35973Sbostic C 4*35973Sbostic LOGICAL TROLLF,CAGESF,BUCKTF,CAROFF,CAROZF,LWTIDF 5*35973Sbostic LOGICAL DOMEF,GLACRF,ECHOF,RIDDLF,LLDF,CYCLOF 6*35973Sbostic LOGICAL MAGICF,LITLDF,SAFEF,GNOMEF,GNODRF,MIRRMF 7*35973Sbostic LOGICAL EGYPTF,ONPOLF,BLABF,BRIEFF,SUPERF,BUOYF 8*35973Sbostic LOGICAL GRUNLF,GATEF,RAINBF,CAGETF,EMPTHF,DEFLAF 9*35973Sbostic LOGICAL GLACMF,FROBZF,ENDGMF,BADLKF,THFENF,SINGSF 10*35973Sbostic LOGICAL MRPSHF,MROPNF,WDOPNF,MR1F,MR2F,INQSTF 11*35973Sbostic LOGICAL FOLLWF,SPELLF,CPOUTF,CPUSHF 12*35973Sbostic COMMON /FINDEX/ TROLLF,CAGESF,BUCKTF,CAROFF,CAROZF,LWTIDF, 13*35973Sbostic & DOMEF,GLACRF,ECHOF,RIDDLF,LLDF,CYCLOF, 14*35973Sbostic & MAGICF,LITLDF,SAFEF,GNOMEF,GNODRF,MIRRMF, 15*35973Sbostic & EGYPTF,ONPOLF,BLABF,BRIEFF,SUPERF,BUOYF, 16*35973Sbostic & GRUNLF,GATEF,RAINBF,CAGETF,EMPTHF,DEFLAF, 17*35973Sbostic & GLACMF,FROBZF,ENDGMF,BADLKF,THFENF,SINGSF, 18*35973Sbostic & MRPSHF,MROPNF,WDOPNF,MR1F,MR2F,INQSTF, 19*35973Sbostic & FOLLWF,SPELLF,CPOUTF,CPUSHF 20*35973Sbostic COMMON /FINDEX/ BTIEF,BINFF 21*35973Sbostic COMMON /FINDEX/ RVMNT,RVCLR,RVCYC,RVSND,RVGUA 22*35973Sbostic COMMON /FINDEX/ ORRUG,ORCAND,ORMTCH,ORLAMP 23*35973Sbostic COMMON /FINDEX/ MDIR,MLOC,POLEUF 24*35973Sbostic COMMON /FINDEX/ QUESNO,NQATT,CORRCT 25*35973Sbostic COMMON /FINDEX/ LCELL,PNUMB,ACELL,DCELL,CPHERE 26*35973Sbostic 27*35973Sbostic LOGICAL FLAGS(46) 28*35973Sbostic EQUIVALENCE (FLAGS(1),TROLLF) 29*35973Sbostic INTEGER SWITCH(22) 30*35973Sbostic EQUIVALENCE (SWITCH(1), BTIEF) 31