00010 IDENTIFICATION DIVISION. PROGRAM-ID. MENU. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. CPM. OBJECT-COMPUTER. CPM. 00020 DATA DIVISION. 00030 WORKING-STORAGE SECTION. 01 TASTE PIC X(1) VALUE SPACES. 01 LEERKOPF PIC X(20) VALUE SPACES. 01 LEER PIC X(25) VALUE SPACES. 01 KOPFZEILE PIC X(79) VALUE ALL "-". LINKAGE SECTION. 00200 PROCEDURE DIVISION. ANFANG. PERFORM HAUPT UNTIL TASTE = "0". STOP RUN. HAUPT. DISPLAY (1, 1) ERASE. DISPLAY KOPFZEILE. DISPLAY LEERKOPF " A u s w a h l - M a s k e ". DISPLAY KOPFZEILE. DISPLAY (5, 15) " ". DISPLAY SPACES. DISPLAY LEER "1. CRTEST ". DISPLAY SPACES. DISPLAY LEER "2. KPLAG ". DISPLAY SPACES. DISPLAY LEER "3. KPLAGER". DISPLAY SPACES. DISPLAY LEER "4. TRAINER". DISPLAY SPACES. DISPLAY LEER "0. E n d e ". DISPLAY (20, 25) "---> Bitte Funktion waehlen ". ACCEPT TASTE. IF TASTE = "1" CHAIN "CRTEST.COM". IF TASTE = "2" CHAIN "KPLAG.COM". IF TASTE = "3" CHAIN "KPLAGER.COM". IF TASTE = "4" CHAIN "TRAINER.COM". IF TASTE = "0" OR = "*" GO TO ENDE. GO TO HAUPT. ENDE. 00500 DISPLAY (1, 1) ERASE. DISPLAY "Have a nice day! ". STOP RUN.