BYTE HOMCLR(6),VT100(2),TOPADD(6),BOTADD(7)
	BYTE REVERS(4),RESET(3),BOLD(4),UNDER(4)
	BYTE CURBEG,CUREND,BELL,TOP(3),BOT(3)

	EQUIVALENCE (CURBEG,TOPADD(1))
	EQUIVALENCE (CUREND,TOPADD(6))

	DATA VT100/"33,'<'/,HOMCLR/"33,'[','H',"33,'[','J'/
	DATA REVERS/"33,'[','7',"155/,RESET/"33,'[',"155/
	DATA UNDER/"33,'[','4',"155/,BOLD/"33,'[','1',"155/
	DATA TOPADD/"33,'[','1',';','1',"146/,TOP/"33,'#','3'/
	DATA BOT/"33,'#','4'/,BELL/7/
	DATA BOTADD/"33,'[','2','2',';','1',"146/
C
C	SHOW VT100 CAPABILITIES
C
	WRITE(5,1) VT100
1	FORMAT(1X,2A1)
	WRITE(5,2) HOMCLR
2	FORMAT(1X,8A1,'THIS IS LINE NUMBER ONE')
	WRITE(5,4)
4	FORMAT(' THIS IS A LINE OF NORMAL TEXT IN THE CURRENT MODE')
C
	WRITE(5,6) REVERS
6	FORMAT(1X,4A1,'TURN ON REVERSE VIDEO')
	WRITE(5,4)
	WRITE(5,8) UNDER
8	FORMAT(1X,4A1,'TURN ON THE UNDERLINE')
	WRITE(5,4)
	WRITE(5,10) BOLD
10	FORMAT(1X,4A1,'TURN ON THE BOLD')
	WRITE(5,4)
C
	WRITE(5,12) RESET
12	FORMAT(1X,3A1,'RESET ALL ATTRIBUTES')
	WRITE(5,10) BOLD
	WRITE(5,4)
	WRITE(5,12) RESET
	WRITE(5,8) UNDER
	WRITE (5,4)
	WRITE(5,12) RESET
	WRITE(5,6) REVERS
	WRITE(5,4)
	WRITE(5,10) BOLD
	WRITE(5,30) TOP
30	FORMAT(' ',3A1,'BOLD DOUBLE CHARACTER HEIGHT')
	WRITE(5,30) BOT
C
C	REWRITE THE TOP LINE
C
	WRITE(5,12) RESET
	WRITE(5,18)
18	FORMAT(' REVERSE THE SETTING AT 2,26 AND 4,15')
	WRITE(5,25) BELL,BELL,BELL,BELL,BELL
25	FORMAT(' RING THE BELL 5 TIMES',5A1)
	WRITE(5,20) CURBEG,CUREND,REVERS,CURBEG,CUREND
20	FORMAT('+',1A1,'[01;05',1A1,4A1,1A1,'[02;026',1A1,'T')
	WRITE (5,22) CURBEG,CUREND,RESET,BOTADD
22	FORMAT('+',1A1,'[04;14',1A1,3A1,'E',7A1)
	STOP
	END