4 lines
106 B
COBOL
4 lines
106 B
COBOL
DIVIDE foo BY bar GIVING foobar
|
|
ON SIZE ERROR
|
|
DISPLAY "Division by zero detected!"
|
|
END-DIVIDE
|