jeu abalone sous emacs en pascal en dos:

comment eviter que dans la fenetre dos mon plateau apparaisse plusieurs fois je veux que se soit toujours le meme plateau qu on voit mais avec les deplacements pris en compte

procedure Deplacement(var T : plateau ; c : string10 ; j : index1 ; i : index2) ;
var
E, W, N_E, N_W, S_E, S_W : string10 ;
begin
WriteLn(´contenu ´ , c) ;
if c = ´E´ then begin
T[i,j+2] := T[i,j];
T[i,j] := 2
end
else if c = ´W´ then begin
T[i,j-2] := T[i,j] ;
T[i,j] := 2
end
else if c = ´N_E´ then begin
T[i-1,j+1] := T[i,j] ;
T[i,j] := 2
end
else if c = ´N_W´ then begin
T[i-1,j-1] := T[i,j] ;
T[i,j] := 2
end
else if c = ´S_E´ then begin
T[i+1,j+1] := T[i,j] ;
T[i,j] := 2
end
else if c = ´S_W´ then begin
T[i+1,j-1] := T[i,j] ;
T[i,j] := 2
end
end ; {Deplacement}