(* routines for single-character i/o to terminal, from PASCAL *)

  (*      line=packed array[1..80] of char     *)

  Procedure initchario(var CHARIOCHAN:integer); extern;
  Function  Getchar(var CHARIOCHAN:integer):char; extern;
  Procedure Putchar(c:char; var CHARIOCHAN:integer); extern;
  Procedure PutLine(l:line; length:integer; var CHARIOCHAN:integer);    
                                                            extern;