Hello Joaquim.

Modern Pascal, formal mode:

Program Example.Reply.v1;

Uses
   Socket;

var
   Client:TDXSock;

Begin
   Client.Init;
   If Client.ConnectTo('modernpascal.com', binkp_protocol) then begin
      Client.Writeln('Sup?!');
      Client.Writeln('Gave up on recomiling QuickBBS 16bit - porting to 32bit
now');
      While not Client.CountWaiting do Yield(1);
   End
   Else Writeln('Could not connect to my uplink...');
   Client.Free;
End;

Ozz

--- GoldED+/W32 1.1.4.7
 * Origin:  Home of Exchange BBS (QBBS Clone) and Rhenium Mailer  (1:275/301)