File ADR1.CO

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

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.

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