var object : int := Pic.FileNew ("object.bmp")
var chars : array char of boolean
loop
    if chars (KEY_UP_ARROW) then
    Pic.Draw (object, x, y, picMerge)
    %do something to make the picture rotate on angles and keep going    as long as the person stops holding up
end loop