1: C 2: C OBJECTS 3: C 4: COMMON /OBJCTS/ OLNT,ODESC1(220),ODESC2(220),ODESCO(220), 5: & OACTIO(220),OFLAG1(220),OFLAG2(220),OFVAL(220), 6: & OTVAL(220),OSIZE(220),OCAPAC(220),OROOM(220), 7: & OADV(220),OCAN(220),OREAD(220) 8: INTEGER EQO(220,14) 9: EQUIVALENCE (ODESC1, EQO) 10: C 11: COMMON /OROOM2/ R2LNT,OROOM2(20),RROOM2(20)