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