RosettaCodeData/Task/Detect-division-by-zero/Applesoft-BASIC/detect-division-by-zero.basic

11 lines
230 B
Plaintext

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"