call	erase
	CALL	PLCHAR(0,10,'Cursor test hit "RETURN" to exit')
1	TIM	= SECNDS(0.)
	CALL	CURSOR(IX,IY,ICHAR)
	TIM	= SECNDS(TIM)
	WRITE(5,1000) ix,iy,ichar,TIM
1000	FORMAT(' X= ' i5' Y= 'I5' Character='I3,1p,G15.3' seconds elapsed')
	IF(ICHAR .eq. "15) CALL EXIT
	GO to 1
	END