Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/pltlib/tek/tekf.for
There is 1 other file named tekf.for in the archive. Click here to see a list.
	DIMENSION ITEXT(16)		!80 characters
	EXTERNAL READER			!Subroutine to do input
	EXTERNAL PLOT,NEWPEN,OPRTXT,PAUSEP,TITLE !Required routines from FORLIB

	OPEN(UNIT=4,DEVICE='TTY')
	WRITE(4,10)
10	FORMAT(' Name of PLT file: ',$)
	READ(4,20) ITEXT		!Get name from user
20	FORMAT(16A5)
	WRITE(4,25)
25	FORMAT(' Show headers? (Y/N) ',$)
	READ (4,20) IANS
	CLOSE(UNIT=4)
	OPEN(UNIT=1,DIALOG=ITEXT,ACCESS='SEQIN',MODE='IMAGE')

	CALL PLOTS(IERR,'TTY')		!Initialize the graphics terminal
	IF(IERR.NE.0) STOP 'Cannot start plotting'
D	CALL FACTOR(0.7)	!Optional, reduce size to fit on TEK screen

	IFLAG = 4400			!Make large plots wrap around
	IF(IANS.EQ.'Y' .OR. IANS.EQ.'y') IFLAG = 4603
	CALL TOLP(READER,IFLAG,ITEXT)
	CALL PLOT(X,Y,999)		!Proper end to the plot

	OPEN(UNIT=4,DEVICE='TTY')
	IF(IFLAG.EQ.0) STOP 'Plot is done'
	WRITE(4,30) (ITEXT(I),I=1,IFLAG)	!Type the returned error message
30	FORMAT(' ?Error in plot - ',16A5)
	END
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
	SUBROUTINE READER(IWORD)	!Called from inside TOLP
	READ(1,ERR=40) IWORD		!Read 1 binary word from .PLT file
	RETURN				!OK

40	IWORD = -1			!Minus one means End-of-File
	RETURN
	END