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