PROGAMM-ID. HAUHAU. COMMENTS. HAUPTPROGRAMM DER UNTERHAUPTPROGRAMME DER KONTENFUEHRUNG. AUTOR. THOMAS JAECKEL 30. JAN. 84. FILE-CONTROL. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 77 ANTWORT PIC 9. PROCEDURE DIVISION. DISPLAY. DISPLAY "MENUE:OBERPROGRAMM". ANFANG. DISPLAY. DISPLAY " 1:GELDVERSCHIEBUNGEN". DISPLAY " 2:KONTO BEARBEITEN". DISPLAY " 3:DAUERAUFTRAEGE BEARBEITEN". DISPLAY " 4:MONATSSPARER BEARBEITEN". DISPLAY " 5:ZINSEN". DISPLAY " 6:MENUE". DISPLAY " 7:PROGRAMMENDE". FEHLER. DISPLAY. DISPLAY "WAEHLEN SIE AUS:"(LINE). ACCEPT ANTWORT. IF ANTWORT > 7 THEN GO TO FEHLER. GO TO S-GELHAU, S-KONHAU, S-DAUHAU, S-MONHAU, S-ZINHAU, ANFANG, PENDE DEPENDING ON ANTWORT. GO TO FEHLER. PENDE. DISPLAY. DISPLAY "AUF WIEDERSEHEN!!!". DISPLAY " IHR PROGRAEMMCHEN.". STOP RUN. S-GELHAU. CALL GELHAU. S-KONHAU. CALL KONHAU. S-DAUHAU. CALL DAUHAU. S-MONHAU. CALL MONHAU. S-ZINHAU. CALL ZINHAU.