IDENTIFICATION DIVISION.
PROGRAM-ID. PQUINE.
AUTHOR. DAVID MEYER <PAPA@TWENEX.ORG>.
INSTALLATION. TOAD-1.LIVINGCOMPUTERMUSEUM.ORG / LIVING COMPUTER MUSEUM.
DATE-WRITTEN. 2013-12-30.

* PQUITE - PSEUDO-QUINE PRINTS ITS OWN SOURCE

ENVIRONMENT DIVISION.

CONFIGURATION SECTION.
SOURCE-COMPUTER. DECSYSTEM-20.
OBJECT-COMPUTER. DECSYSTEM-20.

INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DSK RECORDING MODE IS ASCII.

DATA DIVISION.
FILE SECTION.
FD INFILE VALUE OF ID IS 'PQUINECBL' DATA RECORD IS INRECORD.
01 INRECORD PIC X(80).

PROCEDURE DIVISION.

MAIN.
    OPEN INPUT INFILE.
    READ INFILE AT END MOVE HIGH-VALUES TO INRECORD.
    PERFORM FILE-LINE UNTIL INRECORD EQUALS HIGH-VALUES.
    CLOSE INFILE.
    STOP RUN.

FILE-LINE.
    DISPLAY INRECORD.
    READ INFILE AT END MOVE HIGH-VALUES TO INRECORD.