* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Глава X. Ф а й л ы д а н н ы х 95 где номер_файла% номер открытого файла или устройства. Д л я бинарных фай¬ лов LOC возвращает позицию последнего считанного или за¬ писанного байта. Для файлов прямого доступа LOC возвра¬ щает номер последней записи, считанной или записанной в файл. Для последовательных файлов LOC возвращает пози¬ цию текущего байта в этом файле, деленную на 128. Пример : OPEN "TEST.DAT" FOR RANDOM AS # 1 'Открытие файла прямого 'доступа FORi%=1TO10 PUT # 1 , , i % 'запись в файл прямого доступа NEXT i % SEEK # 1 , 2 'встать на вторую запись GET # 1 , , i % 'прочитать запись в i % PRINT "Данные: "; i % ; " Текущая запись: "; L O C ( 1 ) ; " Следующая: "; SEEK(1) 10.16. Ф у н к ц и я L O F Функция LOF(Length Of File-длина файла) возвращает длину файла в байтах. Формат записи функции: LOF(номер_файла%) где номер_файла% — Номер файла, открытого оператором OPEN. Пример : INPUT "Введите имя файла: "; f $ OPEN f $ FOR BINARY AS # 1 PRINT "Длина файла = "; LOF(1) CLOSE 10.17. Ф у н к ц и я E O F Функция EOF(End Of File-конец файла) проверяет, достигнут или нет при чте¬ нии файла признак конца файла. EOF возвращает "истинно" (не ноль) при до¬ стижении конца файла. Формат записи функции: EOF(номер_файла%) где номер_файла% — Номер файла, открытого оператором OPEN. Пример : CLS