30 LET A = B/C 40 ON ERROR GOTO 100 ... 100 PRINT "DIVIDE BY ZERO OCCURRED" 110 LET A = 0 120 GOTO 50 ...