Как уже говорил, ссылка не работает. Киньте кто-нибудь в меня асинхронным модулем, пожалуйста!

Между тем, попробовал использовать стандартный модуль. Вот что вышло:

## Код:
```
MODULE ProbaTest;
IMPORT CommStreams, Log;

PROCEDURE Test*;
VAR
   s : CommStreams.Stream;
   res : INTEGER;
BEGIN (*  ya.ru - 87.250.251.8 *)
   CommStreams.NewStream("CommTCP", "", "ya.ru", s, res);
   CASE res OF
   CommStreams.done:Log.String("done")
   |CommStreams.noSuchProtocol:Log.String("noSuchProtocol")
   |CommStreams.networkDown:Log.String("networkDown")
   |CommStreams.invalidLocalAdr:Log.String("invalidLocalAdr")
   |CommStreams.localAdrInUse:Log.String("localAdrInUse")
   |CommStreams.invalidRemoteAdr:Log.String("invalidRemoteAdr")
   |CommStreams.remoteAdrInUse:Log.String("remoteAdrInUse")
   END;
   IF s.IsConnected() THEN 
      Log.String("connected");
   ELSE
      Log.String("Not connected");
   END
END Test;

END ProbaTest.
```


Пишет : "done", а потом "Not connected". Соответственно, уже процедура ReadBytes - тоже не работает. В чём ошибка, никто не знает?