%externalroutine timan2s(%string (255) s)
%externalroutinespec define(%string (255) s)
%string (255) t,u,v
%integer a,b,c,d,f,e, i

%ownintegerarray tim(0:99)
%ownintegerarray cou(0:99)
%on 9 %start; -> eof; %finish
%unless s -> t.("/").u %start
Printstring("Params as input/output
")
%stop
%finish
define("1,".t); define("2,".u)
select input(1); select output(2)
%cycle
 readsymbol(i); printsymbol(i)
 %exit %if i = nl
%repeat
d=0
%cycle
	%cycle
       	readsymbol(i); printsymbol(i); %exit %if i# ' ' %and i#nl
       %repeat
	read(a); write(a, 3)
	%cycle
		b = nextsymbol; %exit %if b#' '
		readsymbol(i); printsymbol(i)
	%repeat
	%if b = '-' %or '0'<=b<='9' %start
		read(c)
		print((c-d)/10,4, 1)
                d = c
       %finish
%repeat
eof:
%end
%endoffile