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)
Last modified: 1988-10-21
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 366
Valid CSS Valid XHTML 1.0 Strict