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)