!Get time from VAX

%begin
%include "inc:fs.imp"
%string(255)s
%integer deadline
%ownbytearray mess(1:7)=16_72,0,0,0,0,0,6
  deadline = cputime+5000
  etherwrite(0,mess(1),7)
  %cycle
    %if cputime>deadline %start
      printstring("Vax timed out"); newline
      %stop
    %finish
  %repeatuntil dtx&1<<0#0
  length(s) = etherread(0,charno(s,1),255)
  s = substring(s,7,length(s))
  printstring(s)
  newline
%endofprogram
