VERSION ("Cursor 1.0")

'**********************************************************************************************************************
'
'  Sample Program for Cursor control
'
'  Target Machine : CPT-711
'
'  Commands :
'	CURSOR (status%) : To turn on / off the cursor of the LCD display.
'			          "status%¨ may be 0, or 1.
'					   0: cursor is OFF.
'					   1: cursor is ON.
'
'	X% = CURSOR_X : To get the current x-coordinate of the cursor.
'       	       		       "X%¨ is an integer variable to be assigned with the column position of the cursor.
'
'	Y% = CURSOR_Y : To get the current y-coordinate of the cursor.
'	        		       "Y%¨ is an integer variable to be assigned with the row position of the cursor.	
'
'**********************************************************************************************************************
100
    	CLS
	LOCATE 1,4
	PRINT "[ CURSOR TEST ]"

	LOCATE 2,1
	PRINT "CURSOR ON"
	CURSOR(1)

	LOCATE 3,1
	PRINT "INPUT : ";
	INPUT A$

	X% = CURSOR_X
	Y% = CURSOR_Y

	LOCATE 5,1
	PRINT "LOCATION X="; X%; ", Y="; Y%

	LOCATE 7,1
	PRINT "CURSOR OFF"
	CURSOR(0)

	LOCATE 8,1
	PRINT "INPUT : ";
	INPUT A$

	GOTO 100