home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
pub
/
ucsdpecan
/
intfutil.text
< prev
next >
Wrap
Text File
|
2020-01-01
|
2KB
|
78 lines
interface
{Change log:
30 Apr 89, V1.1: Extracted from KERMUTIL RTC
}
uses
{$U kermglob.code} kermglob;
procedure fill_parity_array;
procedure set_parms;
procedure show_parms;
procedure connect;
function read_ch(unitno: integer; var ch: char): boolean;
procedure read_str(unitno:integer; var s: string255);
procedure echo(ch: char);
procedure clear_buf(unitno:integer);
function aand(x,y: integer): integer;
function aor(x,y: integer): integer;
function xor(x,y: integer): integer;
procedure uppercase(var s: string255);
procedure error(p: packettype; len: integer);
procedure io_error(i: integer);
procedure debugwrite(s: string255);
procedure debugint(s: string255; i: integer);
function min(x,y: integer): integer;
function tochar(ch: char): char;
function unchar(ch: char): char;
function ctl(ch: char): char;
function getch(var r: char): boolean;
function getsoh: boolean;
function getfil(filename: string255): boolean;
procedure send_brk;
function setup_comm : boolean; {changed 31 Jul 88, RTC}
procedure flush_comm; {added 16 Apr 89, RTC}
procedure write_bool(s: string255; b: boolean);
procedure write_ch(unitno: integer; ch: char );
procedure writescreen(s: string255);
procedure refresh_screen(numtry, num: integer);
procedure set_timer(t : integer); {added 26 Apr 89, RTC}
function timeout : boolean; {added 26 Apr 89, RTC}
procedure utl_version;
implementation