Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50525/ptytst.cbl
There are no other files named ptytst.cbl in the archive.
IDENTIFICATION DIVISION.
ENVIRONMENT DIVISION.
DATA DIVISION.

WORKING-STORAGE SECTION.
	01 RETURN-LINE	PIC X(80) DISPLAY-7.
	01 COMMAND	PIC X(80) DISPLAY-7.

PROCEDURE DIVISION.

	DISPLAY "Enter a valid TOPS-10 command ".
	DISPLAY	"CMD>" WITH NO ADVANCING.
	ACCEPT	COMMAND.
	ENTER MACRO PTYCCL USING RETURN-LINE,COMMAND.
	DISPLAY RETURN-LINE.
	STOP RUN.