Příklad - Sí

 dim A          : Byte;
 dim Number     : Word;
 dim LastTime   : LongInt;
 dim DataPath   : Word;
 dim UserName   : String[netLenUsrName];
 dim Status     : Word
 dim Flag       : LongInt;
 dim AData       : String[netLenData];
          
 if _NetExist= 0 then
   _MsgBox(0, "Sí nebyla nalezena", 0);
   Exit
 endif   
 
 WInit(1, 01,01,80,20, "", winMove, 0);
 WOpen(1);
 repeat
   NetCopyTabSt
   GotoXY(1,1);
   for A := 1 to _NetNumOfStstep 3 do
     NetInfoSt(A, Number, LastTime, DataPath, UserName, Status, Flag, AData)
     PrintLn(A:3, " Number  : ", Number);
     PrintLn  ("    DataPath: ", DataPath);
     PrintLn  ("    UserName: ", UserName);
     PrintLn  ("    Status  : ", Status);
     PrintLn  ("    Flag    : ", Flag);
     PrintLn  ("    Data    : ", AData);
   end;
 until False;