%externalroutine ibmcon(%string (255) s)
%externalroutinespec define (%string (255) s)
%integer i,j,k,l
%string (255) t,u
%unless s -> t.("/").u %then printstring("Param a/b !!
") %and %stop
define("1,".t); define("2,".u)
select input(1); select output(2)
%on 9 %start
      %stop
%finish
printstring("File:"); printstring(t); newlines(2)

k=' '
%cycle
      readsymbol(K)
      %if k = '+' %then printch(13) %and -> fg
      %if k = '0' %then newlines(2) %and -> fg
      %if k = '-' %then newlines(3) %and -> fg
      %if k = '1' %then newpage %and ->fg
      newline
fg:
      %cycle
         readsymbol(i)
         %if i = nl %start
            %exit
         %finish
         printsymbol(i)
      %repeat
%repeat
%end
%endoffile