дичайший, потому что на запись у меня уходит вот сколько строчек текстаа что такое rcpt.bin это вот отсюда http://www.owen.ru/forum/showthread....l=1#post109415Код:IF save<>0 THEN (* если пришла команда записать данные *) hFile:=SysFileOpen('rcpt.bin', 'w'); (* получение дескриптора файла *) IF hFile>0 THEN (* если файл существует *) IF SysFileWrite(hFile, ADR(reception), 224) <> 0 THEN (* записать в файл данные *) SysFileClose(hFile); END_IF; END_IF; save:=0; END_IF;




Ответить с цитированием