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

  (*      string=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 Putstring(line:string; length:integer; var CHARIOCHAN:integer);    
                                                            extern;