10 '*** OISAC 2 *** ERR-ERL ***
20 ON ERROR GOTO 1000
30 INPUT"A ";A
40 PRINT 1/A
50 PRINT PEEK A
60 END
1000 IF ERR=14 THEN PRINT"Division par 0 impossible":RESUME10
1010 IF ERL=40 THEN PRINT"PEEK impossible":RESUME60
1020 ON ERROR GOTO 0