%begin                  {copy program for decwriter}
   %record(parmfm) p
   %constinteger page size = 66
   %constinteger margin    = 6
   %constinteger ff = 12, vt = 11
   %integer lines left = page size-margin
   %integer s
   %routine NEWLINE
      lines left = lines left-1
      printsymbol(nl)
   %end

   %on 9 %start
      ->Eof
   %finish

   p_p1 = 1;  p_p2 = 0;  p_p3 = 0;  svc(29, p);      {width=0}
   p_p1 = 2;  p_p2 = 0;  p_p3 = 0;  svc(29, p);      {lines=0}

   %cycle
      %cycle
         readsymbol(s);  ->eof %if s < 0
         %exit %if s = nl %or s = ff %or s = vt
         printsymbol(s)
      %repeat
      %if s = nl %start
         newline
         s = ff %if lines left <= 0
      %finish
      %if s = vt %start
         newline
         s = ff %if lines left < 6
      %finish
      %if s = ff %start
         newline %while lines left > 0
         newlines(6)
         lines left = page size-margin
      %finish
   %repeat
eof:
   newlines(3)
%endofprogram
