PROGAMM-ID. GELHAU. COMMENTS. UNTERHAUPTPROGRAMM FUER GELDVERSCHIEBUNGEN. (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:GELDVERSCHIEBUNGEN". ANFANG. DISPLAY. DISPLAY " 1:BARAUSZAHLUNGEN". DISPLAY " 2:BAREINZAHLUNGEN". DISPLAY " 3:UEBERWEISUNGEN UND SCHECKS". DISPLAY " 4:RUECKKEHR ZUM HAUPTPROGRAMM". FEHLER. DISPLAY. DISPLAY "WAEHLEN SIE AUS:"(LINE). ACCEPT ANTWORT. IF ANTWORT > 4 THEN GO TO FEHLER. GO TO S-AUSZAH, S-EINZAH, S-SCHUEB, S-HAUHAU DEPENDING ON ANTWORT. GO TO FEHLER. S-HAUHAU. CALL HAUHAU. S-AUSZAH. CALL AUSZAH. S-EINZAH. CALL EINZAH. S-SCHUEB. CALL SCHUEB.