Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0104/comput.cbl
There are 2 other files named comput.cbl in the archive. Click here to see a list.
00010 * COMPUT.CBL NADDOR/SHARKEY JAN 76.
00015 IDENTIFICATION DIVISION.
00020 DATA DIVISION.
00025 WORKING-STORAGE SECTION.
00026 77 A PIC S99V9999.
00027 77 B PIC S99V9999.
00030 01 P PIC X(63) VALUE " A+B A-B A*B A/B
00031 - "A^B MIN MAX HYP".
00035 01 R.
00040 02 S0 PIC X(10) VALUE SPACES.
00041 02 X1 PIC --9.9.
00042 02 X2 PIC ---9.9.
00043 02 X3 PIC ----9.99.
00044 02 X4 PIC ---9.999.
00045 02 X5 PIC ----,--9.
00046 02 X6 PIC ---9.9.
00047 02 X7 PIC ---9.9.
00048 02 X8 PIC ---9.9.
00050 PROCEDURE DIVISION.
00051 DISPLAY " ".
00055 DISPLAY P.
00060 DISPLAY " ".
00100 100. DISPLAY "A,B? " WITH NO ADVANCING.
00110 ACCEPT A,B.
00210 ADD A,B GIVING X1 ROUNDED.
00220 SUBTRACT B FROM A GIVING X2 ROUNDED.
00230 MULTIPLY A BY B GIVING X3 ROUNDED.
00240 DIVIDE A BY B GIVING X4 ROUNDED ON SIZE ERROR GO TO 400.
00250 COMPUTE X5 ROUNDED =A^B ON SIZE ERROR GO TO 400.
00260 IF A>B GO TO 300.
00270 MOVE A TO X6.
00280 MOVE B TO X7.
00290 GO TO 320.
00300 300. MOVE B TO X6.
00310 MOVE A TO X7.
00320 320. COMPUTE X8 ROUNDED = (A*A + B*B)^0.5.
00330 DISPLAY R.
00340 DISPLAY " ".
00350 GO TO 100.
00400 400. DISPLAY "ERROR". DISPLAY " ". GO TO 100.
00999 999. STOP RUN.