RosettaCodeData/Task/Detect-division-by-zero/BASIC/detect-division-by-zero-1.basic
2014-01-17 05:34:36 +00:00

10 lines
230 B
Text

100 REM TRY
110 ONERR GOTO 200
120 D = - 44 / 0
190 END
200 REM CATCH
210 E = PEEK (222) < > 133
220 POKE 216,0: REM ONERR OFF
230 IF E THEN RESUME
240 CALL - 3288: REM RECOVER
250 PRINT "DIVISION BY ZERO"