tchar:char;
BEGIN
   writechar := false;
   ret := 0;
   if not pending then BEGIN
      sendcharnow(fchar);
      ret := 1;
      end
   else BEGIN
      for e := 1 to Retries do BEGIN
         if TX_free>0 then doswrite(Fport,fchar,1,ret);
         if ret>0 then BEGIN
            e := Retries;
            writechar := True;
            end;
         end;
      end;
   if ((ret>0) and (not(LocalEcho))) then repeat
      tchar := #0;
      DOSREAD(Fport,tchar,1,ret);
      if ((tcharfchar) and (ret>0)) then BEGIN
         handlechar(tchar);
         tchar := #0;
         end;
      until ((ret=0) or (tchar=fchar));
   end;

Function ReadChar(Var fchar : char): Boolean;
VAR
   ret:longint;
BEGIN
   ret := 0;
   if Waiting then DOSREAD(Fport,fchar,1,ret);
   ReadChar := ret0;
   end;

Procedure ReadBlock(Var buf; toread:longint; Var numb_read:longint);
BEGIN
   DOSREAD(Fport,buf,toread,numb_read);
   end;

(*
Procedure WriteBLOCK(Var buf; Var towrite:longint; Var numb_writ:longint);
           Note that writeblock has been commented out because the method
           used is EXTREMELY prone to inaccuracies and loss of characters.
           Use "Writestring" instead.
BEGIN
   doswrite(Fport,buf,towrite,numb_writ);
   end;
*)

Procedure WriteString(to_write:string);
VAR
   i:byte;
BEGIN
   for i := 1 to length(to_write) do writechar(to_write[i]);
   end;

Function Carrier : Boolean;
VAR
   tptr:pointer;
   status:byte;
   retlength:longint;
BEGIN
   tptr := nil;
   DosDevIOCtl(Fport,1,$67,tptr,1,retlength,{at}status,1,retlength);
   Carrier := status and 128 =128;
   end;

Function Isring : Boolean;
VAR
   tptr:pointer;
   status:byte;
   retlength:longint;
BEGIN
   tptr := nil;
   DosDevIOCtl(Fport,1,$67,tptr,1,retlength,{at}status,1,retlength);
   isring  := status and 64 = 64;
   end;

Function DSRActive : Boolean;
VAR
   tptr:pointer;
   status:byte;
   retlength:longint;
BEGIN
   tptr := nil;
   DosDevIOCtl(Fport,1,$67,tptr,1,retlength,{at}status,1,retlength);
   DSRActive := status and 32 = 32;
   end;

Function CTSActive : Boolean;
VAR
   tptr:pointer;
   status:byte;
   retlength:longint;
BEGIN
   tptr := nil;
___ Blue Wave/QWK v2.12
--- Renegade v10-05 Exp