program pan;

uses graphics,crt;

var
     x, y : integer;
      key : char;

{---------------------------------------------------------------}

begin
  asminitgraphics(1);
  load320image('pan.img',mode1addr,64000);
  load256palette('pan.pal');
  asminitpalette;

  x:=0;
  y:=0;

  repeat

  key:=readkey;

  if key=chr(75) then
    begin
      x:=0;
      repeat
        pan320(x,0);
        delay(10);
        x:=x+1;
      until (x=321);
    end;

  if key=chr(77) then
    begin
      x:=320;
      repeat
        pan320(x,0);
        delay(10);
        x:=x-1;
      until (x=-1);
    end;

   if key=chr(72) then
    begin
      y:=0;
      repeat
        pan320(0,y);
        delay(10);
        y:=y+1;
      until (y=201);
    end;

   if key=chr(80) then
    begin
      y:=200;
      repeat
        pan320(0,y);
        delay(10);
        y:=y-1;
      until (y=-1);
    end;

  until key=chr(27);

  asmclosegraph;
end.