setscreen ("graphics:800;600,offscreenonly")
var chars : array char of boolean
var font := Font.New ("Comic Sans MS:25")
var done : boolean := false
var x, y, vx, vy, frame : int := 0
var et, st, ft : real := 0
var mm : array 1 .. 10 of int
st := Time.Elapsed
for i : 1 .. 10
    mm (i) := Pic.FileNew ("mm" + intstr (i) + ".jpg")
end for
fcn Collision (x1, y1, x2, y2 : int) : boolean
    result x + Pic.Width (mm (1)) > x1 and x < x2 and y + Pic.Height (mm (1)) > y1 and y < y2
end Collision
loop
    Input.KeyDown (chars)
    frame += 1
    x += vx
    y += vy
    if frame = 11 then
        frame := 1
    end if
    if chars (KEY_RIGHT_ARROW) and x < maxx - Pic.Width (mm (frame)) then
        vx := 20
    elsif chars (KEY_LEFT_ARROW) and x > 0 then
        vx := -20
    elsif vx = 20 or vx = -20 then
        vx := 0
    end if
    if chars (KEY_UP_ARROW) and y < maxy - Pic.Height (mm (frame)) then
        vy := 20
    elsif chars (KEY_DOWN_ARROW) and y > 0 then
        vy := -20
    elsif vy = 20 or vy = -20 then
        vy := 0
    end if
    if Collision (300, 200, 400, 300) then
        vx := 0
        vy := 0
    end if
    if Collision (700, 200, 750, 300) then
        vx := 0
        vy := 0
    end if
    if Collision (100, 500, 150, 700) then
        vx := 0
        vy := 0
    end if
    drawfillbox (300, 200, 400, 300, black)
    drawfillbox (700, 200, 750, 300, black)
    drawfillbox (100, 500, 150, 700, black)
    Pic.ScreenLoad ("desktop.bmp", 470, 450, picMerge)
    exit when x >= 640 and y >= 460 or chars (KEY_ESC)
    Pic.Draw (mm (frame), x, y, picCopy)
    View.Update
    delay (20)
    cls
end loop
Pic.ScreenLoad ("Love.jpg", 595, 470, picMerge)
Pic.ScreenLoad ("mmzero.bmp", x, y, picMerge)
ft := Time.Elapsed
et := (ft - st) / 1000
Font.Draw (realstr (et, 0), 0, 100, font, black)

fcn collide(x1,y1,x2,y2,  bx1,by1,bx2,by2:int):boolean
%what ever
end collide