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

136 Языки Бейсик Формат записи: ERR ERL E R L не возвращает метку строки. Если нет номеров строк в программе, E R L возвращает 0. См. также ERDEV, ERDEVS, ERROR, O N ERROR, RESUME, К о д ы ошибок выполнения ERROR-оператор Эмулирует ошибку Basic или ошибку, определенную пользователем. Формат записи: ERROR выражение% где выражение% код ошибки Basic или ошибки, определенной пользователем; значение в интервале от 1 до 255. Для определения собственного кода ошибки используйте значения, которых нет в таблице "Ко¬ д ы ошибок выполнения". См. также ERDEV, ERDEVS, ERR, ERL, O N ERROR, R E S U M E Пример 'Иллюстрирует использование ERDEV, ERDEV$, ERL, ERR, 'ERROR, ON ERROR и RESUME. ON ERROR GOTO H a n d l e r 10 CHDIR " a : \ " 'Обнаружение ОШ. 71 "Нет готовности диска," 'если нет диска в дисководе A 2 0 y% = 0 30 x % = 5 / y % 'ОШ. 11 "Деление на ноль" 4 0 PRINT " x % ="; x % 50 ERROR 57 'ОШ. 57 "Ошибка В/ВВ на устройстве" Handler: PRINT PRINT "Ошибка "; ERR; " в строке "; ERL SELECT CASE ERR CASE 71 PRINT "Используемое устройство "; ERDEV$; PRINT " Код ошибки устройства = "; ERDEV RESUME NEXT CASE 11 INPUT "Введите новое значение для делителя: "; y% RESUME ' Повторяет выполнение строки 3 0 ' с новым значением для y% CASE ELSE PRINT "Нераспознанная ошибка, завершение программы" END END SELECT