File MOAUSG.CO

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

PROGRAMM-ID.
	DATAUS.CO.
COMMENTS.
	GIBT DIE DATEI MONATS AUS.
AUTOR.
	A VIGNOLD NOVEMBER 83.
FILE-CONTROL.
	SELECT MONATS, ASSIGN TO DSK.
	SELECT DRUCK, ASSIGN TO LPT.
DATA DIVISION.
FILE SECTION.
FD DRUCK.
	01 DRUCKZEILE    PIC   9(3).
FD MONATS.
01 BILD.
	02 KONTONUMMER   PIC   9(3).
	02 ENUMMER       PIC   9(3).
WORKING-STORAGE SECTION.
01 ABBRUCH                PIC   9   VALUE 0.
PROCEDURE DIVISION.
	PERFORM AUSGABE.
	CALL MONHAU.
AUSGABE.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM DRUCKEN UNTIL ABBRUCH = 1.
	PERFORM SCHLIESSEN.
OEFFNEN.
	OPEN INPUT MONATS, OUTPUT DRUCK.
LESEN.
	READ MONATS AT END MOVE 1 TO ABBRUCH.
DRUCKEN.
	MOVE KONTONUMMER TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 2 LINES.
	MOVE ENUMMER TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	PERFORM LESEN.
SCHLIESSEN.
	CLOSE MONATS, DRUCK.

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