PROGAMM-ID. KONHAU. COMMENTS. UNTERHAUPTPROGRAMM ZUR KONTOBEARBEITUNG. (PROGAMMPAKET:KONTOFUEHRUNG). AUTOR. THOMAS JAECKEL 30. JAN. 84. FILE-CONTROL. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 77 ANTWORT PIC 9. PROCEDURE DIVISION. DISPLAY. DISPLAY "MENUE:KONTOBEARBEITUNG". ANFANG. DISPLAY. DISPLAY " 1:KONTO EINRICHTEN". DISPLAY " 2:KONTOLUECKEN FUELLEN". DISPLAY " 3:KONTO LOESCHEN". DISPLAY " 4:AUSDRUCK EINER KONTENLISTE". DISPLAY " 5:DATEIEN NEU INITIALISIEREN". DISPLAY " 6:KONTOAUSZUGDRUCKEN". DISPLAY " 7:RUECKKEHR ZUM HAUPTPROGRAMM". FEHLER. DISPLAY. DISPLAY "WAEHLEN SIE AUS:"(LINE). ACCEPT ANTWORT. IF ANTWORT > 7 THEN GO TO FEHLER. GO TO S-KEINRI, S-DAUFFU, S-KLOESC, S-LISTEN, S-NEUEKA, S-AUSZUG , S-HAUHAU DEPENDING ON ANTWORT. GO TO FEHLER. S-KEINRI. CALL KEINRI. S-DAUFFU. CALL DAUFFU. S-KLOESC. CALL KLOESC. S-LISTEN. CALL LISTEN. S-NEUEKA. CALL NEUEKA. S-HAUHAU. CALL HAUHAU. S-AUSZUG. CALL AUSZUG.