{curl 6.0 applet}
{curl-file-attributes character-encoding = "shift-jis"}
{let f:Frame = {Frame width =120pt, height =120pt}}
{let cur-frame:int=1}
{value
    {f.animate
        interval=1s,
        {on TimerEvent do
            {f.add
                replace?=true,
                {image source =
                    {url "img/" & cur-frame & ".jpg"}
                }
            }

            {inc cur-frame}
            {if cur-frame > 2 then set cur-frame=1}
        }
    }
    f
}