%begin
!%externalroutine t(%string(255)dummy)
%externalintegerfnspec ddelay(%integer i)
%longintegerarray store(1:10)
%longinteger now ,then
%integer counter,flag
%longintegerfn tim(%integer val)
*RRTC_1
*USH_(%LNB+5)
*STUH_%TOS
*USH_1
*USH_-1
*EXIT_-64
%end
%for counter=1,1,10 %cycle
     store(counter)=tim(-19)
     flag=ddelay(30)
%repeat
then=store(1)
%for counter=1,1,10 %cycle
   now=store(counter)
   print(now,20,0)
   printstring("    <>    ")
   write(now-then,0)
   then=now
   newline
%repeat
%endofprogram
!%end
!%endoffile