%begin
   %integer n

   %routine copy(%integer n)
      %integer s
      %while n # 0 %cycle
         n = n-1
         readsymbol(s)
         printsymbol(s)
      %repeat
      %while s # NL %cycle
         readsymbol(s)
         printsymbol(s)
      %repeat
   %end

   %on 9 %start
      %return
   %finish

   open binary input(1, "pvsbin");
   select input(1)

   open binary output(1, "bit1")
   select output(1)
   copy(400000)
   close output
   open binary output(1, "bit2")
   copy(-1)
%end