%externalroutine timeio(%string(63) file)
      %integer s
      %real t
      %externalroutinespec define(%string(63) s)
      %externallongrealfnspec cputime
      define("ST1,".file)
      t = cputime
      selectinput(1)
      readch(s) %until s = 25
      t = cputime-t
      printstring("I/O time for ".file." =")
      print(t, 2, 4)
      printstring(" seconds")
      newline
      selectinput(0)
      closestream(1)
%end
%endoffile