%begin
   %string(255) Line
   %integer j,k,l
   %routine Read Line
      %integer s
      Line = ""
      %cycle
         Readsymbol(S)
         %continue %if S = 13
         %exit %if S = NL
         Line = Line.Tostring(S)
      %repeat
   %end

   %on 9 %start
      %return
   %finish
   Open Input(1,   "log");  select input(1)
   Open Output(1, "elog");  select output(1)
   %cycle
      Read Line
      Printstring(Line);  Newline
  %repeat
%end