помощь в графике, один лишь вопрос Опции

[shikaka]

Люди,здравствуйте! Помогите ответить на вопрос срочно надо: для чего в этой подпрограмме переменная К и что она делает!!!!!HELP!!!!!

procedure Vystrel(L:integer);  {procedura prorisovki vystrela}
  var X,Y,X0,Y0:integer;
  k:longint;
  t:real;
  FillInfo:FillSettingsType;
  OldPattern:FillPatternType;
  Begin
   X0:=10+trunc(80*cos(pi*(90-L)/180));  {nachalnaya tochka vyhoda snaryada}
   Y0:=-10+GetMaxY-trunc(80*sin(pi*(90-L)/180));
   Y:=Y0;
   t:=0;
   L:=90-L;
   k:=0;
   while (y<480)and(y>0) do  {granici ekrana}
   begin
    t:=t+0.03;{t-dlya vychislenie pologeniya snaryada param uravnenie}
    inc(k);
    if k mod 10=0 then
    Cell(0);  {zapusk dvigeniya celi}
    X:=X0+trunc(v0*t*cos(pi*L/180));  {prochitivaem sled tochku poleta snaryada}
    Y:=Y0-trunc(v0*t*sin(pi*L/180))+trunc(5*t*t);
    If (abs((XC-15)-X)<20)And(abs(H1-Y)<15) then {esli popali v cell}
    begin
     C:=Black;
     Vzriv(X,Y);{vzriv}
     break;{ostanovka snaryada}
    end;
    SetColor(White);
    Sector(X,Y,0,360,3,3);
    delay(100);
    GetFillSettings(Fillinfo);  {prorisovka poleta snaryada}
    SetFillPattern(OldPattern,Black);
    SetColor(black);
    Sector(X,Y,0,360,3,3);  {risuem malenkiy krug}
    with FillInfo do
    SetFillStyle(Pattern, Color);  {zakrashivaem}
    if k mod 10 =0 then
    Cell(0);  {zapusk dvigeniya celi}
   end;
 End;

Теги !
klem4

[Lapp]

для чего в этой подпрограмме переменная К и что она делает!

Судя по комментариям (точнее трудно сказать, так как процедура Cell отсутствует), она каждые 10 шагов запускает некую "цель".
Почему-то (??) это делается даже дважды.