home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ucsdpecan.tar.gz
/
ucsdpecan.tar
/
fakeutil.text
< prev
next >
Wrap
Text File
|
1990-08-05
|
2KB
|
114 lines
unit kermutil;
{ Change log:
30 Apr 89, V1.1: Created Fake version of KERMUTIL RTC
}
$I intfutil.text
procedure fill_parity_array;
begin end; (* fill_parity_array *)
procedure write_bool{s: string255; b: boolean};
begin end; (* write_bool *)
procedure show_parms;
begin end; (* show_sym *)
procedure set_parms;
begin end; (* set_parms *)
procedure connect;
begin (* connect *) end; (* connect *)
procedure uppercase(*var s: string255*);
begin end; (* uppercase *)
function read_ch(*unitno:integer; var ch: char): boolean*);
begin end; (* read_ch *)
procedure write_ch(*unitno: integer; ch: char*);
begin end;
procedure read_str(*unitno:integer; var s: string255*);
begin end; (* read_str *)
procedure clear_buf(*unitno:integer*);
begin end;
procedure send_brk;
begin end;
function setup_comm{ : boolean};
begin end;
procedure flush_comm; {added 16 Apr 89, RTC}
begin {flush_comm} end {flush_comm};
function aand(*x,y: integer): integer*);
begin end; (* aand *)
function aor(*x,y: integer): integer*);
begin end; (* aor *)
function xor(*x,y: integer): integer*);
begin end; (* xor *)
procedure error(*p: packettype; len: integer*);
begin end; (* error *)
procedure io_error(*i: integer*);
begin end; (* io_error *)
procedure debugwrite(*s: string255*);
begin end; (* debugwrite *)
procedure debugint(*s: string255; i: integer*);
begin end; (* debugint *)
function min(*x,y: integer): integer*);
begin end; (* min *)
function tochar(*ch: char): char*);
begin end; (* tochar *)
function unchar(*ch: char): char*);
begin end; (* unchar *)
function ctl(*ch: char): char*);
begin end; (* ctl *)
procedure echo(*ch: char*);
begin end; (* echo *)
function getch(*var r: char): boolean*);
begin end; (* getch *)
function getsoh(*: boolean*);
begin end; (* getsoh *)
function getfil(*filename: string255): boolean*);
begin end; (* getfil *)
procedure writescreen(*s: string255*);
begin end; (* writescreen *)
procedure refresh_screen(*numtry, num: integer*);
begin end; (* refresh_screen *)
procedure set_timer{t : integer}; {added 26 Apr 89, RTC}
begin {set_timer} end {set_timer};
function timeout {: boolean}; {added 26 Apr 89, RTC}
begin {timeout} end {timeout};
procedure utl_version;
begin end {utl_version};
begin { body of unit kermutil }
{ initialization code }
***;
{ termination code }
end. { fakeutil }