000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. 01_contact.
000900 PROCEDURE DIVISION.
001000 MAIN.
001100 DISPLAY ".kontakt()".
001200 STOP RUN.

                              Was is? ;-)