{ %GRAPH }
{ %TARGET=go32v2,win32,linux }

{ Old file: tbs0048.pp }
{  shows a problem with putimage on some computers       OK 0.99.13 (JM) }

uses
   graph,crt;

var
   gd,gm : integer;
   i,size : longint;
   p : pointer;

begin
   gd:=detect;
   initgraph(gd,gm,'');
   setcolor(brown);
   line(0,0,getmaxx,0);
   {readkey;}delay(1000);
   size:=imagesize(0,0,getmaxx,0);
   getmem(p,size);
   getimage(0,0,getmaxx,0,p^);
   cleardevice;
   for i:=0 to getmaxy do
     begin
        putimage(0,i,p^,xorput);
     end;
   {readkey;}delay(1000);
   for i:=0 to getmaxy do
     begin
        putimage(0,i,p^,xorput);
     end;
   {readkey;}delay(1000);
   closegraph;
end.