sizeof(maskrec),retlength,tptr,sizeof(maskrec),retlength);
   RaiseRTS := RTSActive;
   end;

Function LowerRTS: Boolean;
VAR
   maskrec:rts_dtr;
   tptr:pointer;
   retlength:longint;
BEGIN
   if DTRactive then BEGIN
      maskrec.Onmask := $1;
      maskrec.Offmask := $FF;
      end
   else BEGIN
      maskrec.Onmask := $0;
      maskrec.Offmask := $FC;
      end;
   tptr := {at}maskrec;
   DosDevIOCtl(Fport,1,$46,tptr,
               sizeof(maskrec),retlength,tptr,sizeof(maskrec),retlength);
   LowerRTS := not(RTSActive);
   end;

END.

___ Blue Wave/QWK v2.12
--- Renegade v10-05 Exp