SUBROUTINE GRAPHI(N)
	LOGICAL*1 G(2)
D	TYPE *,' GRAPHI'
	G(1)=27+128			!Switch Graphics on & off
	G(2)='F'			!<esc>F =on
	IF (N.EQ.0) G(2)='G'		!<esc>G =off
	WRITE(5,10) G
	RETURN
10	FORMAT(1H$,2A1)
	END