type SpritePixels = array[0..31] of integer;
type BackgroundPixels = array[0..31999] of integer;

procedure PutSprite(x,y:integer; var sprite: SpritePixels); external;
procedure UndrawSprite(x,y:integer; var background: BackgroundPixels); external;