ответ
//...
$a=0
//...
//=Подпрограмма копирования в буфер, времени задержки
SUB(mysub)
//...
FOR($a,$a<3) // повторяем 3 раза
//...
END_CYC
//...
END_SUB
//==Проверка времени===========================
IF($time < $_time_t)
IF(ARRSIZE($ARR_SCAN)/2=2 )
//...
IF($distance1>58)
//...
ELSE
mysub() //вызов подпрограммы копирования
//...
END_IF
ELSE
//...
END_IF
//===Вычисление дистанции==и=задание времени за д е р ж к и
//...
IF($distance1>58)
//...
ELSE
mysub()
//...
END_IF
//...
END_IF
//=============================================
//...
IF($Z!0 )
//перемещение по вкладкам
FOR($a,$a<$V) // повторяем 12 раза
//...
END_CYC
//...
END_IF
он и сейчас работает
единственные ошибки интерпритации выскакивали когда велось вычисление количества вкладок,и то не всегда, тогда, когда дистанция принимала значение "0", на ноль нельзя делить
но я этот код закоментировал
//======вычисление колличества баннеров и ссылок (вкладок)============
//IF(82!ROUND(($distance+$distance1),0) $V!0, $t_v!0)
//$V= ROUND(($distance/105)+($distance1/105),0)
//$t_v = ROUND($t_r/$V, 0)
//LOGWRITE ("v:",$V)
//LOGWRITE ("t_v:",$t_v)
//ELSE
//$V=1
//$t_v=60
//END_IF
вот лог с 1 переменной
[spoiler]
13:59:13 cycle 1 $a = 0
13:59:13 cycle 1 $a = 1
13:59:13 cycle 1 $a = 2
13:59:13 cycle 1 $a = 3
13:59:27 distance1:510
13:59:39 distance2:290
13:59:47 t_v:3v:18
13:59:51 cycle 2 $a = 4
13:59:54 cycle 2 $a = 5
13:59:57 cycle 2 $a = 6
14:00:00 cycle 2 $a = 7
14:00:03 cycle 2 $a = 8
14:00:06 cycle 2 $a = 9
14:00:09 cycle 2 $a = 10
14:00:12 cycle 2 $a = 11
14:00:15 cycle 2 $a = 12
14:00:19 cycle 2 $a = 13
14:00:22 cycle 2 $a = 14
14:00:25 cycle 2 $a = 15
14:00:28 cycle 2 $a = 16
14:00:31 cycle 2 $a = 17
14:00:49 cycle 1 $a = 0
14:00:49 cycle 1 $a = 1
14:00:49 cycle 1 $a = 2
14:00:49 cycle 1 $a = 3
14:01:04 distance1:510
14:01:17 distance2:290
14:01:25 t_v:3v:18
14:01:28 cycle 2 $a = 4
14:01:31 cycle 2 $a = 5
14:01:34 cycle 2 $a = 6
14:01:37 cycle 2 $a = 7
14:01:40 cycle 2 $a = 8
14:01:43 cycle 2 $a = 9
14:01:46 cycle 2 $a = 10
14:01:50 cycle 2 $a = 11
14:01:53 cycle 2 $a = 12
14:01:56 cycle 2 $a = 13
14:01:59 cycle 2 $a = 14
14:02:02 cycle 2 $a = 15
14:02:05 cycle 2 $a = 16
14:02:08 cycle 2 $a = 17
14:02:26 cycle 1 $a = 0
14:02:26 cycle 1 $a = 1
14:02:26 cycle 1 $a = 2
14:02:26 cycle 1 $a = 3
14:02:41 distance1:510
14:02:54 distance2:290
[/spoiler]