unit ECO_fosl;
interface
uses
  dos, crt

  ;


var
  regs: registers;


function  fos_atcmd_      (comport_  : byte;  command_: string): boolean;
function  fos_avail_      (comport_  : byte): boolean;
function  fos_cd_         (comport_  : byte): boolean;
function  fos_checkmodem_ (comport_  : byte): boolean;
function  fos_empty_      (comport_  : byte): boolean;
function  fos_hangup_     (comport_  : byte): boolean;
function  fos_oktosend_   (comport_  : byte): boolean;
function  fos_receive_    (comport_  : byte): char;
procedure fos_reboot_;
procedure fos_ansi_       (character : char);
procedure fos_bios_       (character : char);
procedure fos_clear_regs_;
procedure fos_close_      (comport_  : byte);
procedure fos_dtr_        (comport_  : byte;  state: boolean);
procedure fos_flow_       (comport_  : byte;  state: boolean);
procedure fos_flush_      (comport_  : byte);
procedure fos_init_       (comport_  : byte);
procedure fos_kill_out_   (comport_  : byte);
procedure fos_kill_in_    (comport_  : byte);
procedure fos_parms_      (comport_  : byte;  baud: integer; databits: byte;
                                              parity: char;   stopbit: byte);
procedure fos_string_     (comport_  : byte;  outstring: string);
procedure fos_stringcrlf_ (comport_  : byte;  outstring: string);
procedure fos_watchdog_   (comport_  : byte;  state: boolean);
procedure fos_write_      (comport_  : byte;  character: char);