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)