- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
PROCEDURE DIVISION.
COMPUTE NUMC = (NUM1 * NUM2).
DIVIDE NUMA BY NUMB GIVING RES-DIV.
MULTIPLY NUMA BY NUMB GIVING RES-MULT.
SUBTRACT NUMA FROM NUMB GIVING RES-SUB.
ADD NUMA TO NUMB GIVING RES-ADD.
MOVE NUMA TO RES-MOV.
...
STOP RUN.