var arrowx : int := 245
var arrowy : int := 50
var chars : array char of boolean
var pic, picid : int
var angle := 0
var x, y, button : int

Pic.ScreenLoad ("windchime.bmp", arrowx, arrowy, picUnderMerge)
pic := Pic.New (245, 50, 287, 141)
cls

procedure left
picid := Pic.Rotate (pic, angle, 1, 1)
Pic.Draw (picid, 220, 50, picCopy)
angle := angle + 1
end left

procedure right
picid := Pic.Rotate (pic, angle, 1, 1)
Pic.Draw (picid, 220, 50, picCopy)
angle := angle - 1
end right
loop
Input.KeyDown (chars)
locate (1, 1)
if chars (KEY_LEFT_ARROW) then
left
elsif chars (KEY_RIGHT_ARROW) then
right
end if
end loop