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.