|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4224 (0x1080)
Types: TextFile
Names: »OPG2.LST«
└─⟦c154ac35e⟧ Bits:30002656 COBOL-programmer til undervisning
└─ ⟦this⟧ »OPG2.LST«
\f
* Level II COBOL V2.1 OPG2.CBL Page 0001
*
* Options:
IDENTIFICATION DIVISION.
PROGRAM-ID. OPG2.
AUTHOR. HOLD 4.
DATE-WRITTEN. 20/8/85.
DATE-COMPILED. 20/8/85.
* PROGRAMMET KAN EFTER BRUGERENS ØNSKE,
* BEREGN EN CIRKELS OMKREDS,OMFANG,EN KUGLES
* AREAL ELLER OMFANG. AS IF ANYONE WOULD WANT TO
*
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. PICCOLINE.
OBJECT-COMPUTER. PICCOLINE.
*
SPECIAL-NAMES. CONSOLE IS CRT.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PI PIC 9V9(8) VALUE 3.12159265.
01 OMKREDS PIC 9(6)V99.
01 AREAL PIC 9(6)V99.
01 OVERFLADE PIC 9(6)V99.
01 RUMFANG PIC 9(6)V99.
01 R PIC 9(3)V99.
01 RESULTAT PIC 9(8)V9999.
01 SVAR PIC 9.
01 FELT PIC X(10).
01 DUMMY PIC XX.
*
*
PROCEDURE DIVISION.
STYR SECTION.
STYR-IND.
PERFORM BEHANDL UNTIL (SVAR = 5).
PERFORM SLUT.
STOP RUN.
STYR-OUT.
EXIT.
*
*
BEHANDL SECTION.
BEH-IND.
PERFORM MENU.
PERFORM LAES.
IF SVAR >0 AND SVAR < 5
PERFORM UDSKRIV.
BEH-UD.
EXIT.
*
*
MENU SECTION.
MENU-IND.
DISPLAY SPACE.
DISPLAY "FUNKTIONER:" AT 0510.
DISPLAY "1. BEREGNING AF CIRKLENS OMKREDS." AT 0610.
DISPLAY "2. BEREGNING AF CIRKELS AREAL" AT 0710.
DISPLAY "3. BEREGNING AF KUGLES OVERFLADE" AT 0810.
\f
* Level II COBOL V2.1 OPG2.CBL Page 0002
*
DISPLAY "4. BEREGNING AF KUGLES RUMFANG" AT 0910.
DISPLAY "5. STOP" AT 1010.
DISPLAY "INDTAST FUNKTION: " AT 1210.
MENU-UD.
EXIT.
*
*
LAES SECTION.
LAES-IND.
ACCEPT SVAR AT 1228.
IF (SVAR > 0) AND (SVAR < 5)
DISPLAY "INDTAST RADIUS : " AT 1410
ACCEPT R AT 1427
IF SVAR = 1 PERFORM BEREGN-OMKREDS ELSE
IF SVAR = 2 PERFORM BEREGN-AREAL ELSE
IF SVAR = 3 PERFORM BEREGN-OVERFLADE ELSE
IF SVAR = 4 PERFORM BEREGN-RUMFANG.
LAES-UD.
EXIT.
*
*
BEREGN-OMKREDS SECTION.
B-OMK.
COMPUTE OMKREDS = 2 * PI * R.
MOVE "OMKREDS=" TO FELT.
MOVE OMKREDS TO RESULTAT.
B-OMK-UD.
EXIT.
*
*
BEREGN-AREAL SECTION.
B-ARE.
COMPUTE AREAL = PI * R * R.
MOVE "AREAL=" TO FELT.
MOVE AREAL TO RESULTAT.
B-ARE-UD.
EXIT.
*
*
BEREGN-OVERFLADE SECTION.
B-OVER.
COMPUTE OVERFLADE = 4 * PI * R * R.
MOVE "OVERFLADE=" TO FELT.
MOVE OVERFLADE TO RESULTAT.
B-OVER-UD.
EXIT.
*
*
BEREGN-RUMFANG SECTION.
B-RUM.
COMPUTE RUMFANG = 4 / 3 * PI * R ** 3.
MOVE "RUMFANG=" TO FELT.
MOVE RUMFANG TO RESULTAT.
B-RUM-UD.
EXIT.
*
*
UDSKRIV SECTION.
SK-IN.
\f
* Level II COBOL V2.1 OPG2.CBL Page 0003
*
DISPLAY FELT AT 1910.
DISPLAY RESULTAT AT 1920.
DISPLAY "TAST <CR> FOR MENU" AT 2110.
ACCEPT DUMMY AT 2129.
SK-UD.
EXIT.
*
*
SLUT SECTION.
SL-IN.
DISPLAY SPACES UPON CRT.
DISPLAY "OPG2 SLUT" AT 1230.
SL-UD.
EXIT.
* Level II COBOL V2.1 REVISION 9 URN EY/0011/GA
* Compiler Copyright (C) 1983 Micro Focus Ltd
*
* ERRORS=00000 DATA=00768 CODE=01280 DICT=00747:61060/61807 GSA FLAGS = OFF
«eof»