%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