Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50552/forvio.def
There are no other files named forvio.def in the archive.
{**** 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.