File: PLOMAN.FT of Tape: Various/ETH/f2

(Source file text) 

---

C	MAIN PLOT PROG
	COMMON //IFIL
	GOTO 5
3	REWIND IFIL
5	IFIL=4
1	IF(IFIL.NE.4) GOTO 2
	WRITE(4,100)
100	FORMAT(1H ,' START,XYPLOT,AXIS,EXIT,SYMBOL,TEXT,
     1	WHERE,NUMBER,LINE,FUNC,FILE,WRITE!  ',$)
2	CALL CHKEOF(EOF)
	READ(IFIL,110) DEC
	IF(EOF.NE.0) GOTO 3
110	FORMAT(1A6)
	IF(DEC.EQ.'START') GOTO 10
	IF(DEC.EQ.'XYPLOT') GOTO 20
	IF(DEC.EQ.'AXIS') GOTO 30
	IF(DEC.EQ.'EXIT') GOTO 40
	IF(DEC.EQ.'SYMBOL') GOTO 50
	IF(DEC.EQ.'TEXT') GOTO 60
	IF(DEC.EQ.'WHERE') GOTO 70
	IF(DEC.EQ.'NUMBER') GOTO 80
	IF(DEC.EQ.'LINE') GOTO 90
	IF(DEC.EQ.'FUNC') GOTO 91
	IF(DEC.EQ.'FILE') GOTO 92
	IF(DEC.EQ.'WRITE') GOTO 93
	IF(IFIL.NE.4) GOTO 120
	WRITE(4,120)
120	FORMAT(1H ,'TRY AGAIN!!',$)
	GOTO 2
10	SIZE=INIT(DU)
	GOTO 1
20	CALL PLOTXY(DU)
	GOTO 1
30	CALL PLOTAX(XS,BEGX,FINCX,YS,BEGY,FINCY)
	GOTO 1
40	CALL XYPLOT(0,0,-3)
	CALL PLEXIT
	GOTO 1
50	CALL PLOSYM
	GOTO 1
60	CALL PLOTXT
	GOTO 1
70	CALL WHERE(X,Y,Z)
	WRITE(4,130)X,Y
	GOTO 1
80	CALL PLONUM
	GOTO 1
90	CALL PLOLIN(XS,BEGX,FINCX,YS,BEGY,FINCY)
	GOTO 1
91	CALL PLOFUN(XS,BEGX,FINCX,YS,BEGY,FINCY)
	GOTO 1
92	WRITE(4,140) IFIL
	READ(4,150) IFIL
140	FORMAT(1H ,'FILE #;NOW: ',I1,'NEW #?',$)
150	FORMAT(I1)
	GOTO 1
93	CALL PLOWRT(SIZE)
	GOTO 1
130	FORMAT(1H ,'X=',F10.3,'   Y=',F10.3)
	GOTO 1
	END

---