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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.