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

(Source file text) 

---

	SUBROUTINE PLOTAX(XS,BEGX,FINCX,YS,BEGY,FINCY)
	REAL TEXT(10)
	CALL ASK(3,DU,DU,TEXT,DU,'AXIS: X,Y,NONE&')
	CALL CGET(TEXT(1),1,IXYD)
	CALL ASK(2,DU,X0,DU,DU,'X ORIGIN&')
	CALL ASK(2,DU,Y0,DU,DU,'Y ORIGIN&')
	CALL ASK(1,IANGLE,DU,DU,DU,'ANGLE (DEGREES)&')
	CALL ASK(3,DU,DU,TEXT,NTEXT,'TEXT&')
	CALL ASK(1,NTICKS,DU,DU,DU,'# TICKS&')
	CALL ASK(1,NSIDE,DU,DU,DU,'TEXT CCW:+1, CW:-1&')
	NTEXT=NTEXT*NSIDE
	CALL ASK(4,NSIDE,DU,DU,DU,'TICKS SAME SIDE&')
	IF(NSIDE.EQ.0) NSIDE=-1
	NTICKS=NTICKS*NSIDE
	CALL ASK(2,DU,BEG,DU,DU,'FIRST VALUE&')
	CALL ASK(2,DU,FINC,DU,DU,'INCREMENT&')
	CALL ASK(1,ISIZE,DU,DU,DU,'DIGIT SIZE&')
	CALL ASK(1,IFMT,DU,DU,DU,'# DEC. PLACES&')
	SIZE=ISIZE*.07
	CALL AXIS(X0,Y0,TEXT,NTEXT,NTICKS,IANGLE,IFMT,BEG,FINC,SIZE)
	IF(IXYD-24)30,10,20
10	BEGX=BEG
	FINCX=FINC
	XS=X0
	RETURN
20	BEGY=BEG
	FINCY=FINC
	YS=Y0
	RETURN
30	RETURN
	END

---