-   62
	integer*4 ximode
	common/ximode/ximode
-  264
	ximode=0
- 7944
C ***<<< XVXTCD COMMON START >>>***
	CHARACTER*1 OARRY(100)
	InTeGer*4 OSWIT,OCNTR
C	COMMON/OAR/OSWIT,OCNTR,OARRY
C COMMON OAR SWITCHES OUTPUT OFF IF OSWIT=2
	integer*4 icolsw,itchan
	common/icols/icolsw,itchan
	InTeGer*4 IPS1,IPS2,MODFLG
C	COMMON/ICPOS/IPS1,IPS2,MODFLG
   	InTeGer*4 XTCFG,IPSET,XTNCNT
   	CHARACTER*1 XTNCMD(80)
C   	COMMON/XCMD/XTNCNT,XTNCMD,XTCFG,IPSET
C VARY FLAG ITERATION COUNT
	INTEGER KALKIT
C	COMMON/VARYIT/KALKIT
	InTeGer*4 FORMFG,RCFGX,PZAP,RCONE
	InTeGer*4 RCMODE,IRCE1,IRCE2
C	COMMON/FFGG/FORMFG,RCFGX,PZAP,RCONE,RCMODE,IRCE1,
C     1  IRCE2
C FORMFG FLAGS FORMAT OF DISPLAY GLOBALLY
C RCFGX FLAGS WHETHER TO DO AUTO RECALCULATION. IF 1, INHIBITS
C AUTO RECALC (USE R COMMAND TO DO A CALC.). 17 COMMAND TURNS
C RCFGX ON.
C PZAP CONTROLS WHETHER TO REDRAW SCREEN. IF ZERO, NORMAL. IF 1
C (NONZERO ANYHOW), INHIBITS RE DISPLAY. V COMMAND RESETS TO 0
C  AND VM INHIBITS. (SETS TO 1).
	INTEGER*4 FH
C FILE HANDLE FOR CONSOLE I/O (RAW)
C	COMMON/CONSFH/FH
	CHARACTER*1 ARGSTR(52,4)
C	COMMON/ARGSTR/ARGSTR
	COMMON/XVXTCD/OSWIT,OCNTR,OARRY,IPS1,IPS2,MODFLG,
     1  XTNCNT,XTNCMD,XTCFG,IPSET,KALKIT,
     2  FORMFG,RCFGX,PZAP,RCONE,RCMODE,IRCE1,
     3  IRCE2,FH,ARGSTR
C ***<<< XVXTCD COMMON END >>>***
- 8203
	integer*4 ximode
	common/ximode/ximode
- 8267
	XIMODE=IMODE
-11885
C VI toggles mouse support
-16468,16468
	CALL SWRT('V27-06B',7)
-21438
	character*1 revit(4)
-21484
	DATA REVIT/' ','[','7','m'/
-21508
	revit(1)=char(27)
-21573,21573
        call cmove(FH,lasty,lastx)
-21674
	if(modflg.eq.1)call swrt(revit,4)
-21683
	if(modflg.eq.1)call swrt(revit,4)
-21692
	if(modflg.eq.1)call swrt(revit,4)
-21705,21706
	IF(NN.EQ.0)CALL swrt(BonY,12)
	IF(NN.NE.0)CALL swrt(BonR,12)
	if(modflg.eq.1)call swrt(revit,4)
-21711
	call swrt(normit,4)
/