
;	IYCORD	= INTEGER Y COORDINATE TO POSITION THE TEXT

;	INTERNAL GLOBALS

.GLOBL	VTEXTI

;	EXTERNAL GLOBALS

.GLOBL	T$XTINT



VTEXTI:	MOV	#1,R0		;FLG=1= PLT TEXT VERTICALLY
	CALL	T$XTINT		;PLOT TEXT USING GRID COORDINATE SYSTEM
	RETURN
	.END

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 CROSS