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

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