Compucolor.org – Virtual Media

Listing of file='CURSOR.FOR;01' on disk='vmedia/forutil_1-sector.ccvf'

	SUBROUTINE CURSOR(X,Y)
	BYTE X,Y,STRING(4)

	DATA STRING/3,0,0,X'EF'/

	STRING(2) = X
	STRING(3) = Y
	CALL OSTR(STRING)
	END