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

86 Языки Бейсик OPEN " s p i s o k " FOR OUTPUT AS # 1 DO INPUT " ИМЯ: ", name$ 'Считываем имя с клавиатуры. INPUT " ВОЗРАСТ: ", age$ WRITE # 1 , name$, age$ 'записываем в файл имя и возраст INPUT "Продолжить(Да,Нет)"; R$ LOOP WHILE UCASE$(R$) = "Д" CLOSE # 1 'Просмотр файла. OPEN " s p i s o k " FOR INPUT AS # 1 CLS PRINT "Записи в файле:": PRINT DO WHILE NOT EOF(1) LINE INPUT # 1 , REC$ 'Считывает записи из файла. PRINT REC$ 'Печатает записи на экране. LOOP CLOSE # 1 K I L L " s p i s o k " 'уничтожает файл на диске В приведенном фрагменте программы оператор L I N E I N P U T # 1 , RECS про­ читает в RECS сразу и имя и возраст 10.9. Ф у н к ц и я I N P U T $ # Функция INPUTS# возвращает строку символов, считанных из указанного файла. Формат записи функции: INPUT$(n[,[#]номер_файла%]) где n — число символов (байтов) для чтения. номер_файла% — номер файла, открытого оператором OPEN. Если номер_файла% опущен, INPUTS считывает с клавиатуры. Пример : OPEN "TEST.DAT" FOR OUTPUT AS #1 PRINT # 1 , "Текст" CLOSE OPEN "TEST.DAT" FOR INPUT AS #1 PRINT I N P U T $ ( 3 , 1) 'Печатает первые три символа из файла # 1 CLOSE 10.10. О п е р а т о р F I E L D Оператор F I E L D отводит место для буфера при работе с файлами прямого до­ ступа. М о ж н о создать несколько буферных областей. Формат оператора F I E L D : FIELD [#]номер файла%, ширина поля% AS переменная$ [,ширина поля% AS переменная$] ...