old/PAS/XO/TURN2.INC

Procedure Turn2(cz:byte; var x,y : byte);far;
Begin
  randomize;
  repeat
    x:=random(n)+1;
    y:=random(n)+1;
  until Pole[x,y] = 0;
End;