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) 10