Directory of image this file is from
This file as a plain text file

PROGRAM-ID.
	ARITH.
COMMENTS.
	THIS PROGRAM DEMONSTRATES THE ELEMENTARY ARITHMETIC
	OPERATIONS.
	TO STOP THE PROGRAM, TYPE CONTROL/C.
AUTHOR.
	R. JAMIESON  ASC  FEB 1978.
FILE-CONTROL.
WORKING-STORAGE SECTION.
77 A	PIC S9(9)V9(5).
77 B	PIC S9(9)V9(5).
77 C	PIC --,---,---,--9.9(5).
PROCEDURE DIVISION.
START.
	DISPLAY.
	DISPLAY "COBOL TEST PROGRAM.".
NEXT-TRY.
	DISPLAY.
*ACCEPT TWO NUMBERS, A AND B:-
	DISPLAY "GIVE ME A NUMBER, A  " (LINE).
	ACCEPT A.
	DISPLAY "GIVE ME A NUMBER, B  " (LINE).
	ACCEPT B.
	DISPLAY.
*ADD A AND B:-
	ADD A, B GIVING C.
	DISPLAY "A+B = ", C.
*SUBTRACT B FROM A:-
	SUBTRACT B FROM A GIVING C.
	DISPLAY "A-B = ", C.
*MULTIPLY A BY B:-
	MULTIPLY A BY B GIVING C  ON SIZE ERROR
		DISPLAY "MULTIPLICATION TOO BIG"
		GO TO DIV.
	DISPLAY "A*B = ", C.
*DIVIDE B INTO A:-
DIV.
	DIVIDE B INTO A GIVING C  ON SIZE ERROR
		DISPLAY "DIVISION NOT POSSIBLE"
		GO TO NEXT-TRY.
	DISPLAY "A/B = ", C.
*NOW REPEAT THE WHOLE PROGRAM:-
	GO TO NEXT-TRY.