[r_freelancer]

Доброго времени суток!
Для таких целей можно использовать sps.sub.
Эта программа работает постоянно в фоновом режиме.
Лежит здесь \KRC\R1\System\sps.sub

Полный цикл программы с моим кодом 0,2 сек.
Я не рекомендую использовать команды wait,
лучше реализовать по принципу step by step.

DEF  SPS ( )
...
LOOP
....
  SWITCH  nStep 
    CASE 1
      IF bResultOk=TRUE THEN
        nStep=2
      ELSE
        nStep=5
      ENDIF
    CASE 2
      nStep=3
    CASE 3
      nStep=4
    CASE 4
      nStep=5
    CASE 5
      nStep=1
    DEFAULT
      nStep=1
  ENDSWITCH
...
ENDLOOP
...
ENDEF