title	Module from library HILIB_1 : GOTOXY
	name	('GOTOXY')
	maclib	baselib.lib

; Language : PASCAL

; Position cursor on screen

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0, December 1987

; ENTRY	Reg L holds X, reg H holds Y position

; EXIT	None

	entry	gotoxy

	extrn	escchr,condir

gotoxy:
	ld	a,'Y'
	call	escchr		; Position prefix
	ld	a,h
	call	addoffs		; Set line Y
	ld	a,l		; .. and row X
addoffs:
	add	a,32		; Add offset
	jp	condir

	end