File ADR.CO

Directory of image this file is from
This file as a plain text file

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.



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search