|
|
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.