Код:
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);