{****	  FORVIO.DEF	 ****	  definitions for FORVER I/O	 ****}

type
    zchar3	= packed array [1..3] of char;
    charset	= set of char;

procedure eject;					       extern;
procedure nextline;					       extern;
procedure lston		(    forced	: boolean);	       extern;
procedure lstoff;					       extern;
procedure echon;					       extern;
procedure echoff;					       extern;
procedure lstnl;					       extern;
procedure lstsubttl	(    subtitle	: string);	       extern;
procedure lstheader	(    header	: string);	       extern;
function  fvline			: integer;	       extern;
function  fvpage			: integer;	       extern;
procedure lstxch	(    c		: char);	       extern;
procedure initio	(var vtr_file	: text;
			 var options	: charset;
			     subtitle	: string);	       extern;
function  lexchar			: integer;	       extern;
function  lexeof			: boolean;	       extern;
procedure wrlabeled	(var f		: text;
			     number	: integer;
			     message	: string);	       extern;
procedure fverr		(    level	: integer;
			     mnemonic	: zchar3;
			     message	: string);	       extern;
procedure fvstring	(    message	: string);	       extern;
procedure fvxstring	(    message	: string;
			     length	: integer);	       extern;
procedure fvname	(    name	: name_type);	       extern;
procedure fvinteger	(    number	: integer;
			     base	: integer;
			     width	: integer);	       extern;
procedure fvnl;						       extern;
procedure fvchar	(    c		: char);	       extern.