byte	IB(400),IBUF(256)
	INTEGER	IX(4000),IY(4000)
	COMMON	/BUFCOM/IBUF
	CALL	sctest(ITEST,,,,IHIGH,IWIDE,IVERT,IHOR,IVR,IHR)
	TYPE *,'HIGH WIDE VERT hor ivr,ihr',ihigh,iwide,ivert,ihor,ivr,ihr
	HR	= FLOAT(IHOR+1)/IHR
	PAUSE
	DO 100 ISTEP = 3,5
	INDX	= 0
	ISIGN	= 0
	DO 50 I = 0,ihr-1,ISTEP		! Make vertical lines
	H	= HR*I
	INDX	= INDX + 1
	IY(INDX)	= IVERT*ISIGN
	IX(INDX)	= NINT(H)
	ISIGN	= (1-(2*ISIGN-1))/2
	INDX	= INDX + 1
	IY(INDX)	= IVERT*ISIGN
	IX(INDX)	= NINT(H)
50	CONTINUE	
	CALL	ERASE
	CALL	VECT(IX,IY,INDX)
	PAUSE
	CALL	GETSC(2,IB,400)
	TYPE	1000,IBUF
	TYPE	1000,IB
100	CONTINUE
1000	FORMAT(1x,20Z3)
	END