PROCEDURE OpenS( VAR box: MessageBox;
server,
name, password: ARRAY OF CHAR): BOOLEAN;
PROCEDURE SendS( msg: Message;
server, to: ARRAY OF CHAR): BOOLEAN;
PROCEDURE UsersS( server: ARRAY OF CHAR; VAR list: UserList);
PROCEDURE KnownS( server, user: ARRAY OF CHAR): BOOLEAN;
PROCEDURE Default(server: ARRAY OF CHAR);