perm filename FOO[IMS,AIL]4 blob sn#038285 filedate 1973-05-02 generic text, type T, neo UTF8
00100	begin
00200	integer char;
00300	while true do
00400	    begin
00500	        char←cvo(inchwl);
00600	        outstr(char & "
00700	");
00800	        end;
00900	end;
01000