var x, y, button :int %vars for the mouse where code
               
loop %needs to be in a loop to keep on reading mouse data

       Mouse.Where (x, y, button) %code to find data on mouse
       
       locatexy (x,y) %locate the text to the same line as x&y
       put " ", x, " ",  y %put mouse location
                       
       %check to see if button is hit
       if button = 1 then

                 locatexy (maxx div 2,maxy div 2)
                 put "you clicked the button"
                 delay (1000)
                 cls
        end if
               
cls
end loop

Mouse.Where(x,y,b)

If b = 1 %mouse down
then
     if x> left side of object and x < right side of object
       and y>bottom side of object and y < top side of object
%basically you clicked inside the rectangle object
then
%do whatever
end if
end if

loop
Mouse.Where(x,y,b)
if y < 100 then
colorback(black)
cls
else
colorback(white)
cls
end if
end loop

%This is a simple mouse where? program.
%It was made by James Boelen with the help of S.W.A.T.
%-------------------------------------------------------------------------------


%Ok these variables are for the mouse axis' because a mouse has 3 axis,
%we need 3 variables. mx=Xaxis my=Yaxis mb=the mouse button. you need to have
%all three for the program to function correctly, but for our uses, only need to
%worry about the X & Y axis. Each one will be getting a number, so we declare
%them as int and make them equal 0.
var mx, my, mb : int := 0

%we loop the program because we ca better see the effect.
loop
    %this command finds the mouse position on the screen.
    mousewhere (mx, my, mb)

    if my > 390 then
        my := 390
    elsif my < 10 then
        my := 10
    end if
    %and we draw something at the mouses's XYcords.
    drawfilloval (mx, my, 10, 10, black)

    %ends when the mouse button is pushed
    exit when buttonmoved ("down")
end loop

%mb is the declare of the mouse button it the above code...
    if mb=1 then
    for i:1..20
    delay (20)
    drawfilloval (mx, my, 10+i, 10+i, red)
    end for
    drawfilloval (mx, my, 30, 30, white)
    end if

Mouse.ButtonChoose("multibutton")

var x, y, button, none, left, middle, right : int
%Numbers below represent button values
none := 0
left := 1
middle := 10
right := 100

loop
    Mouse.Where (x, y, button)
    locate (1, 1)
    put "X:", x, " Y:", y
    if button = none then
        put "NOTHING ", button
    elsif button = left then
        put "LEFT ", button
    elsif button = middle then
        put "MIDDLE ", button
    elsif button = right then
        put "RIGHT ", button
    end if
end loop