IDENTIFICATION DIVISION.
       PROGRAM-ID. ZINSEN.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. MSCOBOL.
       OBJECT-COMPUTER. MSCOBOL.
       SPECIAL-NAMES. 
           DECIMAL-POINT IS COMMA.
      * IM PRG MUSS PUNKT DURCH COMMA ERSETZT WERDEN.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  KAPITAL                PIC 9(6)V99.
       01  ZINSEN                 PIC 9(6)V99.
      * KLEINE VARIALBE.
       01  ZINSSATZ               PIC 9(2)V99.
       01  TAGE                   PIC 999.
       01  AUSGABE                PIC Z(5)9,99.
       01  TASTE                  PIC X.
       01  LEERKOPF PIC X(20) VALUE SPACES.
       01  LEER PIC X(25) VALUE SPACES.
       01  KOPFZEILE PIC X(79) VALUE ALL "-".
       PROCEDURE DIVISION.
       ANFANG.
           PERFORM HAUPT UNTIL TASTE = "0".
           STOP RUN.
       HAUPT.
           DISPLAY (1, 1) ERASE.
           DISPLAY KOPFZEILE.
           DISPLAY LEERKOPF "WELCHE WERTE SOLLEN ERRECHNET WERDEN?".
           DISPLAY KOPFZEILE.
           DISPLAY (5, 15) " ".
           DISPLAY SPACES.
           DISPLAY LEER "1. K a p i t a l ".
           DISPLAY SPACES.
           DISPLAY LEER "2. Z i n s s a t z ".
           DISPLAY SPACES.
           DISPLAY LEER "3. T a g e s z a h l ".
           DISPLAY SPACES.
           DISPLAY LEER "4. Z i n s b e t r a g". 
           DISPLAY SPACES.
           DISPLAY LEER "0. E n d e ".
           DISPLAY (20, 25) "---> Bitte Funktion waehlen ".
           ACCEPT TASTE.
           IF TASTE NOT = "0" PERFORM HOL-BETRAG.
           IF TASTE = "1" PERFORM RECH-KAP.
           IF TASTE = "2" PERFORM RECH-ZINS.
           IF TASTE = "3" PERFORM RECH-TAG.
           IF TASTE = "4" PERFORM RECH-WERT.
           DISPLAY SPACES.   
       HOL-BETRAG.
           DISPLAY (6, 1) ERASE.
      *     DISPLAY (7, 1) " ".
           DISPLAY SPACES.
           IF TASTE NOT = "1"
              DISPLAY "DM - Betrag (KAPITAL)"
              ACCEPT KAPITAL.
           IF TASTE NOT = "2"
              DISPLAY "Zinssatz in Prozent"
              ACCEPT ZINSSATZ.
           IF TASTE NOT = "3"
              DISPLAY "Anzahl Tage"
              ACCEPT TAGE.
           IF TASTE NOT = "4"
              DISPLAY "Zinsen Betrag (DM) "
              ACCEPT ZINSEN.
       RECH-WERT.
           COMPUTE ZINSEN = KAPITAL * ZINSSATZ * TAGE / 36000.
           MOVE ZINSEN TO AUSGABE.
           DISPLAY "Die ZINSEN betragen " AUSGABE " DM".
           PERFORM RECH-CR.
       RECH-KAP.
           COMPUTE KAPITAL = 36000 * ZINSEN / (ZINSSATZ * TAGE).
           MOVE KAPITAL TO AUSGABE.
           DISPLAY "Das KAPITAL betraegt " AUSGABE " DM".
           PERFORM RECH-CR.
      *     ACCEPT TASTE.
       RECH-ZINS.
           COMPUTE ZINSSATZ = 36000 *ZINSEN / (KAPITAL * TAGE).
           MOVE ZINSSATZ TO AUSGABE.
           DISPLAY "ZINSSATZ " AUSGABE "%".
           PERFORM RECH-CR.
      *     ACCEPT TASTE.
       RECH-TAG.
           COMPUTE TAGE = 36000 * ZINSEN / (KAPITAL * ZINSSATZ).
           MOVE TAGE TO AUSGABE.
           DISPLAY "Anzahl TAGE " AUSGABE.
           PERFORM RECH-CR.
      *     ACCEPT TASTE.
       RECH-CR.
           DISPLAY "Weiter mit <CR>".
           ACCEPT TASTE.      
       END-RECH.       

       RUN-STOP.