df

View.Set ("graphics:max,max")
setscreen ("offscreenonly")
var click : int := 100
var line1 : int
var line2 : int
var line3 : int
var line1y : int := 600
var statscreen : int := Pic.FileNew ("click.jpg")
var instruct : int := Pic.FileNew ("instruct.jpg")
var mx, my, mb : int
loop
    put "start"
    mousewhere (mx, my, mb)
    exit when mb = 1
end loop
loop
    cls
    line1y -= 1
    locate (1, 1)
    put click
    drawfillbox (0, 0, 100, line1y, red)
    mousewhere (mx, my, mb)
    if mb = 1 then
        click -= 1
        loop
            mousewhere (mx, my, mb)
            exit when mb = 0
        end loop
    end if

    View.Update
end loop