DIMENSION TEXT(3)
	DATA TEXT/'This is  a test'/
	CALL SETSYM('TABLE',10,IERR)
	IF(IERR.NE.0) TYPE 10, IERR
10	FORMAT(' SETSYM returned IERR=',I4)
	DO 20 LETTER=32,127
	CALL SETSYM('WIDTH',LETTER,WIDTH)
20	TYPE 30,LETTER, WIDTH
30	FORMAT (1X,R1,F6.2)
	CALL PLOTS(IERR,'   ')
	IF(IERR.NE.0) STOP 'NO GO'
	CALL SYMBOL (1.0,1.0,1.0,'z',0.0,1)
	CALL SYMBOL (1.0,4.0,0.5,TEXT,0.0,15)
	CALL PLOT(X,Y,999)
	END