SUBROUTINE POSITN(IX,IY)
	LOGICAL*1 MOVE(4)
C
	IX1=32+IX			!Get X & Y coords in VT52
	IY1=55-IY			!format as opposed to
	MOVE(1)=27+128			!bottom left =0,0
	MOVE(2)=89
	MOVE(3)=IY1
	MOVE(4)=IX1			!Output <esc>Yxy for Direct
	WRITE(5,10) MOVE		!Cursor Addressing
	RETURN
10	FORMAT('$',4A1)
	END