!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