00100	BEGIN
00200	STRING DATA; INTEGER ABRCHAR,AEOF;
00250	INTEGER CHARCNT;
00300	
00305	SIMPLE PROCEDURE SEND(STRING S);
00310	BEGIN INTEGER C;
00315	WHILE C←LOP(S) DO
00320	    BEGIN
00325		IF C='14 THEN OUTSTR("
00330	!!FORMFEED
00335	") ELSE OUTCHR(C);
00340	    END;
00345	END;
00400	OPEN(1,"DSK",0,2,0,2000,ABRCHAR,AEOF);
00500	LOOKUP(1,(DATA←INCHWL),AEOF);
00600	IF AEOF THEN 
00700	    BEGIN
00905		OUTSTR("!!END!OF!FILE
01005	");
01052		CALL(0,"EXIT");
01100	    END;
01150	SETBREAK(1,'12,NULL,"IN");
01200	DO
01300	    BEGIN
01400		STRING S;
01500		S←INPUT(1,1);
01600		IF AEOF THEN DONE;
01700		SEND(S);
01800		OUTCHR('12);
02300	    END UNTIL AEOF;
02400	OUTSTR("!!END!OF!FILE
02450	");
02500	RELEASE(1);
02600	END;