include  "i:fs.inc"
begin 
bytearray  b(1:200)
integer  i
  b(i) = i for  i = 1,1,200
  etheropen(1,16_2d01)
  cycle 
    etherwrite(1,b(1),200)
    i = cputime+200
    cycle 
    repeatuntil  cputime>i
  repeat 
endofprogram