/* <Scol Technologies License> */
/* Copyright (c) 2003, organization : Scol Technologies Association, owner : Sylvain Huet */
/* For conditions of distribution and use, see copyright notice in dms/l/license.txt */
/* or on 'www.scol-technologies.org' */

 
typeof p=Conn;;

fun _connected()=
 set p=mkConn [0 nil "" 0 0 nil nil 0];
 _SRVconnected p;;
 
fun _closed()=_SRVclosed p;;
fun __getpack()=_SRVgetpack p;;
fun __version(i)=_SRVversion p i;;
fun __nextpack()=_SRVnextpack p;;
fun __next()=_SRVnext p;;
fun __skip()=_SRVskip p;;
fun __downl()=_SRVdownl p;;