View.Set ("graphics:480,272")

var mx, my, mb : int
var menu : int := Pic.FileNew ("vincent copy.jpg")
var font : int := Font.New ("sans serif:18:bold")
var face : int := Pic.FileNew ("face.bmp")
var dragon : int := Pic.FileNew ("dragon.bmp")
var credit : int := Pic.FileNew ("credit.bmp")
var screen : string := "sdf"

Pic.Draw (menu, 0, 0, picCopy)
drawbox (181, 53, 272, 73, black)
drawbox (181, 35, 272, 52, black)
loop
    mousewhere (mx, my, mb)
    if mb = 1 and mx > 181 and my > 53 and mx < 274 and my < 73 then
        exit
    elsif mb = 1 and mx > 181 and my > 35 and mx < 274 and my < 53 then
        cls
        Pic.Draw (credit, 0, 0, picCopy)
        loop
            mousewhere (mx, my, mb)
            exit when hasch
        end loop
        Pic.Draw (menu, 0, 0, picCopy)
    end if
end loop

cls
Pic.Draw (face, 0, 0, picCopy)