	SUBROUTINE VTMODE(IDSPLY)
C
C	FUNCTION::	PRINTS TEXT WITH IN A 
C			DISPLAY MODE GOVERNED BY IDSPLY
C	ARGUMENTS::
C		IDSPLY  (IN ORDER TO INVOKE COMBINATION OF OPTIONS
C			USE THE SUM OF THE CODES)
C		  0	RESETS TO NORMAL
C		  1	BOLD
C		  2	UNDERSCORE
C		  4	BLINK
C		  8	REVERSE
C
C
	BYTE CHAR(2),C(4),C0(5)
	DATA C0/27,'[','0','m',0/
	DATA C/0,';','m',0/
	DATA CHAR/27,'['/
	CALL OUTSTR(C0)
	IFLAG=0
	IF (IDSPLY .EQ. 0)GOTO 100
	CALL OUTSTR(CHAR,2)
	IF ((IDSPLY.AND.1) .EQ. 0)GOTO 1
	IFLAG=1
	C(1)="61
	CALL OUTSTR(C,1)
1	IF ((IDSPLY.AND.2) .EQ. 0)GOTO 2
	IF (IFLAG.EQ.1)CALL OUTSTR(';')
	IFLAG=1
	C(1)="64
	CALL OUTSTR(C,1)
2	IF ((IDSPLY.AND.4) .EQ. 0)GOTO 3
	IF(IFLAG.EQ.1)CALL OUTSTR(';')
	IFLAG=1
	C(1)="65
	CALL OUTSTR(C,1)
3	IF ((IDSPLY.AND.8) .EQ. 0)GOTO 4
	IF(IFLAG.EQ.1)CALL OUTSTR(';')
	C(1)="67
	CALL OUTSTR(C,1)
4	CALL OUTSTR('m')	!TERMINATE LIST
100	RETURN
	END
