import "io"

let ins(string, veclen) be
{ let max = (veclen-1)*4;
  let length = 0;
  while length < max do
  { let c = inch();
    if c = '\n' then break;
    byte length of string := c;
    length +:= 1 }
  byte length of string := 0;
  resultis string }

let start() be
{ let buffer = vec 129;
  let x;
  outs("tape name: ");
  ins(buffer, 129);
  out("loading '%s'\n", buffer);
  x := devctl(DC_TAPE_LOAD, 1, buffer, 'R');
  out("load status = %d\n", x);
  x := devctl(DC_TAPE_CHECK, 1);
  out("check status = %c = %d\n", x, x);
  if x <> 'R' then finish;
  while true do
  { x := devctl(DC_TAPE_READ, 1, buffer);
    if x <= 0 then break;
    byte x of buffer := 0;
    outs(buffer) }
  outch('\n') }