[Piligrim]

program Menu;
uses socket;
var
s: string;
b : integer;
begin
if socket.open('socket://mrim.mail.ru:2042')<>0 then
Debug('Error');
while socket.available=0 do begin
delay(100);
end;
b := 33;
while (socket.available<>0) or (b>32) do begin
b := socket.read;
s := s + chr(b);
end;
DrawText(s, 0, 0);
repaint;
delay(5000);
end.