PROGRAMM-ID.
	ADRESS2.CO.
COMMENTS.
	DRUCKE ADRESSE.
AUTOR.
	MP 26.4.
FILE-CONTROL.
WORKING-STORAGE SECTION.

PROCEDURE DIVISION.
	PERFORM ADRESSE-SCHREIBEN 20 TIMES.
	STOP RUN.
ADRESSE-SCHREIBEN.
 	PERFORM NEUE-ZEILE.
	PERFORM NAME.
	PERFORM STRASSE.
	PERFORM ORT.
	PERFORM TELEFON.
	PERFORM NEUE-ZEILE.
NAME.

	DISPLAY "MICHAEL PUTZKI".
STRASSE.
	DISPLAY "NORDERNEYSTR.7".
ORT.
	DISPLAY "5090 LEVERKUSEN 1".
TELEFON.
	DISPLAY "TEL.0214/74948".
NEUE-ZEILE.
	DISPLAY.