BEGIN"DODOC"
REQUIRE "GO[SM,ITH]" SOURCE!FILE;

REQUIRE "<><>" DELIMITERS;

DEFINE CTRLV=<("V"-'100)>;

INTEGER IJFN,OJFN;

DEFINE CRLFTBL=<1>,CTRLVTBL=<2>;

RESET;
SETBREAK(CRLFTBL,'12,'14&'15,"IN");
SETBREAK(CTRLVTBL,CTRLV,'14,"IN");

OUTSTR("INPUT FILE  *");
IJFN←JOPEN(NULL,"RC");
OUTSTR("OUTPUT FILE  *");
OJFN←JOPEN(NULL,"WC");

DO
    BEGIN
	STRING S; INTEGER BRK;
	S←JINPUT(IJFN,CRLFTBL,200,BRK);
	IF EQU(UPPER(S)[1 FOR 4],"DSCR") THEN
	    BEGIN
		SOUT(OJFN,S & CRLF);
		SOUT(OJFN,JINPUT(IJFN,CTRLVTBL,5000,BRK));
	    END;
    END UNTIL CKEOF(IJFN);
CFILE(IJFN); CFILE(OJFN);
END"DODOC";