++INCLUDE MOUSE.MAP

	ON		ERROR GOTO EXIT

	CALL		init'hot'spot

	PRINT		TAB(-1,0);
	PRINT		TAB(08,10);"1. AAAAAAAA";
	PRINT		TAB(10,10);"2. BBBBBBBB";
	PRINT		TAB(12,10);"3. CCCCCCCC";
	PRINT		TAB(14,10);"4. DDDDDDDD";
	PRINT		TAB(16,10);"5. EEEEEEEE";

	hot'spot(1)	= "081010"+CHR(13)+"1"+CHR(13)
	hot'spot(2)	= "101010"+CHR(13)+"2"+CHR(13)
	hot'spot(3)	= "121010"+CHR(13)+"3"+CHR(13)
	hot'spot(4)	= "141010"+CHR(13)+"4"+CHR(13)
	hot'spot(5)	= "161010"+CHR(13)+"5"+CHR(13)
	CALL		set'hot'spot

LOOP:	PRINT		TAB(20,5);"Field > ";TAB(-1,9);
	X		= 0
	INPUT		X
	IF		X = 0		&
			GOTO	LOOP

	FOR		Y = 1 TO 5
	 PRINT		TAB(Y*2+6,8);
	 IF		Y = X			&
			PRINT	">";		&
		    ELSE			&
			PRINT	" ";

	NEXT		Y
	GOTO		LOOP

EXIT:	CALL		clear'hot'spot
	END

++INCLUDE MOUSE.COM