RosettaCodeData/Task/Detect-division-by-zero/Applesoft-BASIC/detect-division-by-zero.basic
2023-07-01 13:44:08 -04: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"