20 lines
493 B
Plaintext
20 lines
493 B
Plaintext
PROCdivide(-44, 0)
|
|
PROCdivide(-44, 5)
|
|
PROCdivide(0, 5)
|
|
PROCdivide(5, 0)
|
|
END
|
|
|
|
DEF PROCdivide(numerator, denominator)
|
|
ON ERROR LOCAL IF FALSE THEN
|
|
REM 'Try' clause:
|
|
PRINT numerator / denominator
|
|
ELSE
|
|
REM 'Catch' clause:
|
|
CASE ERR OF
|
|
WHEN 18: PRINT "Division by zero"
|
|
WHEN 20: PRINT "Number too big"
|
|
OTHERWISE RESTORE LOCAL : ERROR ERR, REPORT$
|
|
ENDCASE
|
|
ENDIF
|
|
ENDPROC
|