[mik703]

Помогите, что не так. Написанный мидлет просто показывает белый экран.
Program New1321;
uses sprite, tile, game, fmove;
type msprite=record
id:integer;
end;
var x,y,i,z:integer;
man:msprite;
begin
sprite.init(1);
game.init(0);
game.set_view_window(0,0,128,160);
x:=4;
y:=74;
man.id:=sprite.create_frames('/vorman.png',8,12);
sprite.append(man.id);
sprite.set_ref_pixel(man.id,4,6);
sprite.set_position(man.id,x,y);
i:=2;
z:=-1;
game.show;
repeat
z:=z*(-1);
sprite.move(man.id,x,y);
sprite.paint(man.id);
if z=1 then sprite.next_frame(man.id);
if z=-1 then sprite.prev_frame(man.id);
if x>124 then
begin
sprite.set_transform(man.id,2);
i:=i*(-1);
end;
if x<4 then
begin
sprite.set_transform(man.id,0);
i:=i*(-1);
end;
x:=x+i;
game.refresh;
delay(500);
until getkeyclicked=ke_key0;
end.