[pdp8.git] / sw / src / pascal / COPY.PS

PROGRAM COPY(INPUT,OUTPUT);
    VAR C: CHAR;
BEGIN
  WHILE NOT EOF DO
    BEGIN
      WHILE NOT EOLN DO
        BEGIN READ(C); WRITE(C) END;
      READLN; WRITELN
    END
END.
Commit	Line	Data
81e70d48 PH	1	PROGRAM COPY(INPUT,OUTPUT);
	2	VAR C: CHAR;
	3	BEGIN
	4	WHILE NOT EOF DO
	5	BEGIN
	6	WHILE NOT EOLN DO
	7	BEGIN READ(C); WRITE(C) END;
	8	READLN; WRITELN
	9	END
	10	END.