PROGRAMM-ID.
	ADRESS.CO.

COMMENTS.
	DRUCKT ADRESSE MEHRMALS.

AUTOR.
	LEMAIRE APRIL 80.

FILE-CONTROL.
WORKING-STORAGE SECTION.

PROCEDURE DIVISION.
	PERFORM ADRESSE 10 TIMES.
	STOP RUN.

ADRESSE.
	PERFORM NEUE-ZEILE 2 TIMES.
	PERFORM NAME.
	PERFORM STRASSE.
	PERFORM NEUE-ZEILE.
	PERFORM ORT.
	PERFORM TELEFON.
	PERFORM NEUEZEILE 2 TIMES.
NAME.
	DISPLAY "ANNA STREUGUT".
STRASSE.
	DISPLAY LEBKUCHENSTR. 27".
NEUE-ZEILE.
	DISPLAY.
TELEFON.
	DISPLAY "(0214-45678)".
ORT
	DISPLAY "5090 LEVERKUSEN".