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);