var numFrames : int := Pic.Frames ("%directory")
var pics : array 1 .. numFrames of int
var x, y := 50
var delayTime : int
var keys : array char of boolean

Pic.FileNewFrames ("%directory", pics, delayTime)

Draw.FillBox (0, 0, maxx, maxy, black)

var sprite : int
sprite := Sprite.New (pics (1))
Sprite.SetPosition (sprite, 0, 100, false)
Sprite.Show (sprite)

loop
    Input.KeyDown (keys)
    if keys (KEY_LEFT_ARROW) or keys ('a') then
        x -= 1
    elsif keys (KEY_RIGHT_ARROW) or keys ('d') then
        x += 1
    end if
    if keys (KEY_UP_ARROW) or keys ('w') then
        y += 1
    elsif keys (KEY_DOWN_ARROW) or keys ('s') then
        y -= 1
    end if
    Sprite.Animate (sprite, pics ((x div 8) mod numFrames + 1), x, y, false)
    delay (3)
end loop
Sprite.Free (sprite)