10 ON ERROR GOTO 100
20 INPUT A:Z=1/A:PRINT Z:END
100 PRINT"οΫΙΒΛΑ!":PRINT ERR;ERL:RESUME NEXT