File: UNPACK.FT of Tape: Various/System-Tapes/eb-plot

(Source file text) 

---

C	PROGRAM TEST
C
C
	COMMON /FIGET/ IREAD , IBUF
	DIMENSION	ARG1(4) , ARG2(4) , IARG4(63)
C
	IREAD	= 9
	IPLOT	= 8
	IITTY	= 4
	IOTTY	= 0
	IBUF	= 73
	ARG1(1)=0.
	ARG2(1)=0.
	IARG3=0.
	IARG4(1)=0.
C
	CALL	FILE (1+2048+512,IREAD,'INPUT FILE     ',0,IITTY,ISTAT)
	IF	(ISTAT .LT. 0) STOP
	CALL	FILE (2+2048+512,IPLOT,'OUTPUT FILE    ',0,IITTY,ISTAT)
	IF	(ISTAT .LT. 0) STOP
	YMAX	= 84.
	STEPS	= 400.
10	CALL	CCPLOT (-1,STEPS,YMAX,IPLOT,0)
C
100	CONTINUE
	CALL	FIUNPK (ICOM,ARG1,ARG2,IARG3,IARG4)
	IF	(ICOM .NE. 6) GOTO 110 
	W	= SQRT(ARG1(1)*ARG1(1) + ARG2(1)*ARG2(1))
	H	= SQRT(ARG1(2)*ARG1(2) + ARG2(2)*ARG2(2))
	ARG1(1)	= ARG1(1) / W
	ARG2(1)	= ARG2(1) / W
	CALL	CCPLOT (ICOM,   W,   H,    0,    0)
	ICOM	= 51
110	CALL	CCPLOT (ICOM,ARG1,ARG2,IARG3,IARG4)
	IF	(ICOM .NE. 15) GOTO 100
	END FILE IPLOT
	CALL	FILE (4+2048,IPLOT,0,0,0,ISTAT)
	STOP
	END

---