import "io"

let start() be
{ manifest { nb = 8,
             bsize = nb*128 }
  let buffer = vec bsize, x;
  x := devctl(DC_DISC_READ, 1, 0, nb, buffer);
  out("read = %d\n", x);
  for i = 3*128 to 3*128+3 do
    out("%d  %f\n", buffer!i, buffer!i); 
  out("from block 7: '%s'\n", buffer + 7*128) }