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