PROGRAMM-ID.
	ADR.CO.

COMMENTS.
	ERZEUGT ADR.CO = ADRESSENDATEI AUF DER PLATTE.

AUTOR.
	LEMAIRE APRIL 80.
FILE-CONTROL.
	SELECT ADRESS.CD.
	
DATA DIVISION.
FILE SECTION.
FD ADRESS.CD.
01 BILD.
	02 NR		PIC	9(3).
	02 NAME		PIC	X(25).
	02 STRASSE	PIC	X(25).
	02 ORT		PIC	X(25).
	02 TELEFON	PIC	X(20).

WORKING-STORAGE SECTION.
	
PROCEDURE DIVISION.
	PERFORM ADRESS-DATEI.
	STOP RUN.

ADRESS-DATEI.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	PERFORM ADRESSE.
	PERFORM SCHLIESSEN.

TEXT.
	DISPLAY "DIESES PROGRAMM ERZEUGT ADRESSEN-DATEI ADRESS.CO".
	DISPLAY "AUF DER PLATTE. GIB ALLE ANGABEN WIE VERLANGT".
	DISPLAY "EIN.NACH DEM LETZTEN NAMEN BEI -NAME- NUR RETURN".
	DISPLAY.

OEFFNEN.
	OPEN OUTPUT ADRESS.CD.
ADRESSE.
	MOVE 0 TO NR.
	PERFORM NAME-NEHMEN.
	PERFORM REST-ADRESSE UNTIL NAME = "".

NAME-NEHMEN.
	DISPLAY.
	DISPLAY "NAME                    " (LINE).
	ACCEPT NAME.

REST-ADRESSE.
	ADD 1 TO NR.
	DISPLAY "STRASSE                 " (LINE).
	ACCEPT STRASSE.
	DISPLAY "POSTLEITZAHL ORT        " (LINE).
	ACCEPT ORT.
	DISPLAY "TELEFON:VORWAHL+NUMMER: " (LINE).
	ACCEPT TELEFON.
	WRITE BILD.
	PERFORM NAME-NEHMEN.

SCHLIESSEN.
	CLOSE ADRESS.CD.