|
|
1.1 root 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)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.