       IDENTIFICATION DIVISION.
       PROGRAM-ID. TROUTIN1.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. P3500.
       OBJECT-COMPUTER. P3500.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  FUNKTION                     PIC X.
       PROCEDURE DIVISION.
       STEUER SECTION.
       STEUERA.
           DISPLAY "TESTPROGRAMM" LINE 2 POSITION 20 ERASE.
           DISPLAY "WELCHE FUNKTION ?" LINE 5 POSITION 1.
           ACCEPT FUNKTION LINE 5 POSITION 20 PROMPT "_".
           CALL  "ROUTIN1.COM" USING FUNKTION.
       STEUERZ.
           GO TO STEUERA.
       ENDEN.
           STOP RUN.
       END PROGRAM.
