var x, y, button : int
var count, upperlimit : int
var check := false
upperlimit := 10
var xval, yval, xval2, yval2 : array 1 .. upperlimit of int
count := 0
View.Set ("offscreenonly")
loop
    Mouse.Where (x, y, button)
    for i : 1 .. 10
    %%%%%%%%%%%%%%%%%%%%%%%%%%%% Get first point from mouse click %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    if button = 1 and count <= 0 then
            xval (i) := x
            yval (i) := y
            count += 1
    end if
    %%%%%%%%%%%%%%%%%%%%%%%%%%%% Get second point from mouse release %%%%%%%%%%%%%%%%%%%%%%%%%%%
    if button = 0 and count > 0 then
    xval2(i) := x
    yval2(i) := y
    count := 0
    Draw.ThickLine(xval(i),yval(i),xval2(i),yval2(i),6,black)
    end if
View.Update
end for
delay (1)
end loop