10 ON ERROR GOTO 80
20 E=10:Z=0
30 P=E/Z:PRINT "P=";P
40 Q=LOG(E-11)
50 ERROR 250
60 PRINT "Завтра":END
70 'Обработка ошибок
80 PRINT ERL,ERR
90 IF ERR=11 THEN 130
110 IF ERR=250 THEN 150
120 IF ERR=5 THEN 140
130 Z=.1:RESUME 0
140 RESUME NEXT
150 RESUME 60