/* test.b - test program for B run-time library brt.s brtb.b

   b test.b test.s
   b brtb.b brtb.s
   echo abcABC > abc
   perl as7 --out test.out brt.s brtb.s test.s bi.s
   perl a7out test.out
*/

main {
  extrn fname, fin;
  auto ch;
  
/*  fin = open(fname, 0); */
  fin = open("abc     ", 0);

  goto loop;
  while (ch != 04) {
    putchr(ch);
loop:
    ch = getchr();
  }
  
  flush();  
}

fname [] 'ab','c ','  ','  ';