* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
Г л а в а VII. У п р а в л я ю щ и е о п е р а т о р ы я з ы к а Б е й с и к 51 LOOP UNTIL ( E O F ( 1 ) ) 'проверка на конец файла END SELECT e n d 1 : END 'конец программы p r o b l e m : 'подпрограмма обработки ошибки диска PRINT "дисковод не готов или не исправен!" INPUT "игнорировать-1,повторить-2,прекратить-0?-"; f l % I F f l % = 0 GOTO e n d 1 'прекратить работу программы SELECT CASE f l % CASE 1 'в зависимости от ответа RESUME NEXT 'возврат на следующий оператор CASE 2 RESUME 'или на повторение операции END SELECT GOTO c o n t 'или на начало программы p r o b l e m 1 : 'подпрограмма обработки ошибки при контрольном чтении 'файла PRINT "дисковод не готов или не исправен!" INPUT "прекратить-0 или повторить?-"; f l % I F f l % = 0 GOTO e n d 1 'прекратить работу программы RESUME 'или на повторение операции 7.15. О п е р а т о р R E S U M E - п р о д о л ж и т ь в ы п о л н е н и е п р о г р а м м ы п о с л е подпрограммы обработки ошибки В зависимости от типа ошибки возможны несколько сценариев продолжения р а б о т ы программы. Д л я этого подпрограмма обработки ошибки должна предлагать пользователю программы самому выбрать наиболее приемлемый для него вариант дальнейшего развития событий. Применение одного опера¬ тора R E S U M E позволяет выбрать один из трех вариантов продолжения. Формат оператора R E S U M E RESUME где Метка— метка оператора для продолжения программы. Если вместо метки стоит 0 или метка отсутствует, то выполнение программы продол¬ жится с оператора, в котором была обнаружена ошибка. Если указа¬ но ключевое слово N E X T , то выполнение программы будет продол¬ жено с оператора, следующего за оператором, в котором была обна¬ ружена ошибка. Пример использования оператора R E S U M E приведен в примере 7.14.1 7.16. О п е р а т о р S T O P - в р е м е н н о о с т а н о в и т ь в ы п о л н е н и е п р о г р а м м ы [{метка,NEXT}] Оператор STOP-останавливает выполнение программы, сохраняя значение всех переменных, открытые файлы и т.п. Введен был, когда еще не существова¬ ло развитой системы отладки программ. Практическое применение этого опе¬ ратора в настоящее время определить трудно. Формат оператора STOP: