{ Get user input }
        quit:=ch=#24; {CTRL-X to quit}
     { See if the user wishes to "quit" }
        if ch=#25 then BEGIN
          writeln;
          if not carrier then write('No ');
          writeln('Carrier Detected.');
          ch:=#0;
          { Added for my own curiousity, press CTRL-Y to check Carrier }
          end;
        if not quit then BEGIN
           if not localecho then write(ch);
           { if local echo is off write the character for the user to see }
           if ch#0 then writechar(ch);
           { Send the character to the port for output }
           end;
        end
     else ch:=#0;
     if waiting then BEGIN {if there are any characters in the Receive buffer 
        if sizeof(inbuf)>bufferrec.bytesin then
           { If the characters waiting will fit in our buffer then }
           readblock(inbuf,bufferrec.bytesin,num_read)
        else readblock(inbuf,sizeof(inbuf),num_read);
           { else read only as many as will fit in our buffer }
        if num_read>0 then for i:=1 to num_read do write(inbuf[i]);
        { Write the characters to the screen }
        end;
     until quit; { repeat until user has pressed 'CTRL-X' }
   if DosClose(Fport)=0 then BEGIN
      { Close the comport or release the File Handle }
      if ownport then writeln('',Portname,' closed.')
      else writeln('Releasing File Handle ',fport,'.');
      end;
   END.

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