CURI
	CALL	MVCURI		;BACKSPACE & LINEFEED 1 CHAR
	INC	(R4)		;BUMP C$HAR BUFF PTR
	BR	VTX10		;PRINT NEXT C$HAR
VTX20:	CALL	R$STARG		;RESTORE REGS
	RETURN
;	FORTRAN ARG BLK FOR C$HAR
ARGBLK:	.BYTE	1,0		;1 ARG,NOT USED
IBFPTR:	.WORD	0		;PTR TO IBUF ADDR
	.END
C	PLTTST.FTN
C	KEN DEMERS
C	UTRC
C	FEB 1980
C	PROGRAM TO SHOW HOW SOME OF THE SFGL70
C	CALLS WORK.

C	ARRAYS TO STORE PLOTTING DATA

	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)

C	TELL SFGL70 WHAT BAUD WE'RE RUNNING

	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	MAKE UP SOME DATA TO BE PLOTTED

	DO 20 I=1,50
	XARRAY(1) = 0.
	XARRAY(2) = I*2
	YARRAY(1) = 0.
	YARRAY(2) = 100.
	XARRY1(1) = 100.
	XARRY1(2) = IABS(I*2-101)
	YARRY1(1) = 0.
	YARRY1(2) = 100.

C	PLOT THE DATA

	CALL PLOT(2,XARRAY,YARRAY)
	CALL PLOT(2,XARRY1,YARRY1)
   20	CONTINUE
C	MOVE THE CURSER BEFORE WRITING TEXT
	CALL MVCUR(29.,21.)
C	PUT TERMINAL IN ALPHA MODE BEFORE DOING FORTRAN WRITES
C	WE COULD ALSO WRITE USING C