Qpile раз в секунду

Пример о недостатках в самом низу
 www.zerich.com/internet-trading/helpfull-information/qpile.html
Непытливый ум недостаток.

PORTFOLIO_EX ТЕСТ;
DESCRIPTION ОПИСАНИЕ;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST ALL_FIRMS;
USE_CASE_SENSITIVE_CONSTANTS;

PROGRAM

FOR XXX FROM 0 TO 0

MESSAGE(«Раз в секунду, ага»,1)

IF 1 = 1
XXX = -1
CONTINUE
END IF
END FOR

END_PROGRAM
PARAMETER COLUMN;
PARAMETER_TITLE Робот;
PARAMETER_DESCRIPTION Описание столбца;
PARAMETER_TYPE STRING(10);
END
END_PORTFOLIO_EX

Спасибо пацанам с квиковского форума
Против цериха ниче не имею
Привет Алгомафии