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)
Last modified: 1988-10-21
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 394
Valid CSS Valid XHTML 1.0 Strict