++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