setscreen("graphics: 400;400")
View.Set ("offscreenonly")
Mouse.ButtonChoose ("multibutton")
var x, y, button, left, middle, right : int
x:=0
y:=0
loop
    Mouse.Where (x, y, button)
    left := button mod 10               
    right := button - left         
    if left = 1 then
        x + = 10
    else
        x - = 10
    end if
    if right = 10 then
        y + = 10
    else
        y - = 10
    end if
drawfillbox (x-5,x-5,x+5,y+5,green)
drawfillbox (x-5,x-5,y+5,y+5,brightblue)
drawfillbox (x-5,y-5,x+5,y+5,red)
drawfillbox (x-5,y-5,y+5,y+5,green)
View.Update
cls   
drawline (0,0,maxx,maxy,black)
end loop

setscreen("graphics: 400;400")
View.Set ("offscreenonly")
Mouse.ButtonChoose ("multibutton")
var x, y, button, left, middle, right, color1 : int
x:=0
y:=0
color1:=5
loop
    Mouse.Where (x, y, button)
    left := button mod 10               
    middle := (button - left) mod 100   
    right := button - middle - left         
    if left = 1 or middle = 10 or right = 100 then
    randint (color1,1,maxcolor-3)
    end if
drawfillbox (x-5,x-5,y+5,y+5,color1)
drawfillbox (x-5,x-5,x+5,y+5,color1+3)
drawfillbox (x-5,y-5,y+5,y+5,color1+3)
drawfillbox (x-5,y-5,x+5,y+5,red)
View.Update
cls   
drawline (0,0,maxx,maxy,black)
end loop