Subj : program echo;
To : Joaquim Homrighausen
From : Ozz Nixon
Date : Mon Nov 20 2017 06:56 pm
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)
