
C	PLTTST.FTN
C	KEN DEMERS
C	UTRC
C	FEB 1980
C	PROGRAM TO SHOW HOW SOME OF THE SFGL70
C	CALL WORK.
	REAL*4 XARRAY(100),YARRAY(100)
	REAL*4 XARRY1(100),YARRY1(100)
	BYTE CHAR
C	LET USER TELL US WHAT BAUD RATE WE'RE RUNNING AT
	TYPE 7000
	ACCEPT 7010,IBAUD
 7000	FORMAT(1X,'BAUD RATE? ',$)
 7010	FORMAT(I)
	CALL BAUD(IBAUD)
C	ERASE THE SCREEN
   10	CALL ERASE
C	PLOT AN X & Y GRID WITH LABELS
	CALL GRID('THIS IS THE X AXIS',100.,0.,0.,
     1	'THIS IS THE Y AXIS',100.,0.,0.,0)
C	GET THE CROSSHAIR POSITION
	CALL SCURSR(CHAR,IX,IY)
C	MOVE THE CURSER BEFORE WRITING TEXT
	CALL MVCUR(15.,25.)
C	PUT TERMINAL IN ALPHA MODE BEFORE DOING FORTRAN WRITES
C	WE COULD ALSO WRITE USING CALL HTEXT...ETC.
	CALL ALPHA
	TYPE 9020,IX,IY
	TYPE 9000
	ACCEPT 9010,CHAR
	IF(CHAR .NE. 'X')GO TO 10
 9000	FORMAT(1X,'TYPE X TO EXIT, C TO CONTINUE ',$)
 9010	FORMAT(A)
 9020	FORMAT(1X,'ABS CURSOR X,Y =',2(I4))
	END
