1 C 2 C CURRENT EXITS 3 C 4 COMMON /CURXT/ XTYPE,XROOM1,XSTRNG,XACTIO,XOBJ 5 EQUIVALENCE (XFLAG,XOBJ) 6