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

PROGRAMM-ID.
	ADRDRU.CO.

COMMENTS.
	DRUCKT ADRESS.CD AUF LPT.

AUTOR.
	LEMAIRE APRIL 80.
FILE-CONTROL.
	SELECT ADRESS.CD.
	SELECT DRUCK, ASSIGN TO LPT.
	
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).
FD DRUCK.
01 DRUCKZEILE		PICTURE	X(25).

WORKING-STORAGE SECTION.
01 ANTWORT	PIC	X.
01 SCHALTER	PIC	9	VALUE 0.
77 ZEILE		PIC	9(2).
01 JA		PIC	X.
	
PROCEDURE DIVISION.
	PERFORM DRUCKEN.
	STOP RUN.
DRUCKEN.
	PERFORM DATEI-PRUEFEN-OEFFNEN.
	PERFORM LESEN.
	PERFORM DRUCK-LPT UNTIL SCHALTER = 1.
	PERFORM SCHLIESSEN.

DATEI-PRUEFEN-OEFFNEN.
	DISPLAY "IST ADRESS.CD VORHANDEN J/N " (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT IS EQUAL TO "J" THEN PERFORM  OEFFNEN
	ELSE STOP RUN.
	DISPLAY "WIEVIELE ZEILEN ZWISCHEN ADRESSEN " (LINE).
	ACCEPT ZEILE.
	DISPLAY "MIT NUMMER DARUNTER J/N " (LINE).
	ACCEPT JA.

OEFFNEN.
	OPEN INPUT ADRESS.CD, OUTPUT DRUCK.

LESEN.
	READ ADRESS.CD, AT END MOVE 1 TO SCHALTER.

DRUCK-LPT.
	MOVE NAME TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 4 LINES.
	MOVE STRASSE TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	MOVE ORT TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 2 LINES.
	MOVE TELEFON TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	IF JA = "J" THEN MOVE NR TO DRUCKZEILE,
	WRITE DRUCKZEILE AFTER ADVANCING 2 LINES.
	PERFORM LESEN.

SCHLIESSEN.
	CLOSE ADRESS.CD, DRUCK.