anchor.diff:    {Affichage}
     for j:=1 to max_x do begin
       {un hack pour ralentir l'ennemi}
  -    if (i mod 100 = 0) and (BEnemy.enepos[j] in [2..max_y-5]) then begin
  +    if (SlowE mod  100 =0) and (BEnemy.enepos[j] in [2..max_y-5]) then begin
         Inc(BEnemy.enepos[j]); 
         mvprintw(BEnemy.enepos[j], j, 'X');
         refresh;
  -      napms(50);
  +      SlowE := 0;
  +      napms(15);
       end
       else if (BEnemy.enepos[j] > max_y) then BEnemy.enepos[j] := 0;
  -    i := 0;
     end;
   end;
   
  
positive.code: var
    i : integer;
  begin
    BShip.ammunition := 20;
    {Initialisation des position des missiles par la derniere ligne (max_y)}
    {for i:=1 to 50 do
      BEnemy.enepos[i] := -1;}
    BShip.posx := max_x div 2;
    BShip.shape := 'O';
    BEnemy.nbr := 15;
  end;
  
  procedure Shoot(var BShip : Ship);
  
negative.code:   nodelay(field, true);
    while True do begin
      Inc(i); Inc(k);
      Inc(SlowE);
      rk := getch();
      case rk  of 
        67 : BShip.posx :=newPos('L');
  