Код:
VAR
ar: ARRAY [1..1000] OF REAL;
fileHandle, index: DWORD;
buf: STRING;
END_VAR
fileHandle := SysFileOpen('test.txt', 'w');
IF fileHandle > 0 THEN
FOR index := 1 TO 1000 DO
buf := CONCAT(REAL_TO_STRING(ar[index]), '$r$n');
SysFileWrite(fileHandle, ADR(buf), LEN(buf));
END_FOR
END_IF
SysFileClose(fileHandle);