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