PROGRAMM-ID.
	ADR1.CO.
COMMENTS.
	DRUCKE ADRESSE.
AUTOR.
	MP 26.4.
FILE-CONTROL.
WORKING-STORAGE SECTION.
01	NAME-DRUCKEN	PIC	X(25).
01	STRASSE-DRUCKEN	PIC	X(25).
01	ORT-DRUCKEN	PIC	X(25).
01	TELEFON-DRUCKEN	PIC	X(20).

PROCEDURE DIVISION.
	PERFORM ADRESSE-SCHREIBEN.
	STOP RUN.
ADRESSE-SCHREIBEN.
	PERFORM EINGABE.
	PERFORM AUSGABE 3 TIMES.
EINGABE.
	DISPLAY "NAME" (LINE).
	ACCEPT NAME-DRUCKEN.
	DISPLAY "STRASSE" (LINE).
	ACCEPT STRASSE-DRUCKEN.
	DISPLAY "ORT" (LINE).
	ACCEPT ORT-DRUCKEN.
	DISPLAY "TELEFON" (LINE).
	ACCEPT TELEFON-DRUCKEN.
AUSGABE.
 	PERFORM NEUE-ZEILE.
	PERFORM NAME.
	PERFORM STRASSE.
	PERFORM ORT.
	PERFORM TELEFON.
	PERFORM NEUE-ZEILE.
NAME.

	DISPLAY NAME-DRUCKEN.
STRASSE.
	DISPLAY STRASSE-DRUCKEN.
ORT.
	DISPLAY ORT-DRUCKEN.
TELEFON.
	DISPLAY TELEFON-DRUCKEN.
NEUE-ZEILE.
	DISPLAY.