PDP-10 Archive: 43,50547/symtst.for from decuslib10-12

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/symtst.for

There is 1 other file named symtst.for in the archive. Click here to see a list.

	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