|
|
1.1 ! root 1: C ! 2: C ROOMS ! 3: C ! 4: COMMON /ROOMS/ RLNT,RDESC2,RDESC1(200),REXIT(200), ! 5: & RACTIO(200),RVAL(200),RFLAG(200) ! 6: INTEGER RRAND(200) ! 7: EQUIVALENCE (RVAL,RRAND) ! 8: INTEGER EQR(200,5) ! 9: EQUIVALENCE (RDESC1, EQR)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.