program tank;
uses crt, graph;
var a,b,c : string;
    q,t,gd,gm : integer;
    key : char;
    label 1;

    begin
    a:=' ';
    b:=' ';
    q:=0;
    clrscr;

1:key:=readkey;
gd:=9;
gm:=2;
InitGraph(gd, gm, 'd:\tank\tank.jpg');
DetectGraph (gd,gm);

if key=#77 then begin
    clrscr;
    for t:=0 to q do
    writeln;
    a:=key;
    delete(a,1,1);
    q:=a;
    goto 1;
    end;

if key=#75 then begin
    clrscr;
    for t:=0 to q do
    writeln;
    a:=key;
    delete (a,1,1);
    q:=a;
    goto 1;
    end;

end.