INTEGER FUNCTION NEWS_ASSIGN() NEWS_ASSIGN = 0 RETURN END INTEGER FUNCTION NEWS_GET_CHAN(I) NEWS_GET_CHAN = 0 RETURN END SUBROUTINE NEWS_SET_CHAN(I) RETURN END INTEGER FUNCTION NEWS_SOCKET_BULLCP(I,J,K,L) NEWS_SOCKET_BULLCP = 0 RETURN END INTEGER FUNCTION NEWS_CREATE_BULLCP(I,J,K,L) NEWS_CREATE_BULLCP = 0 RETURN END INTEGER FUNCTION NEWS_WRITE_PACKET_BULLCP(I,J,K,L,M,N) NEWS_WRITE_PACKET_BULLCP = 0 RETURN END SUBROUTINE NEWS_DISCONNECT RETURN END INTEGER FUNCTION NEWS_CONNECT NEWS_CONNECT = .FALSE. RETURN END INTEGER FUNCTION NEWS_WRITE_PACKET(BUF) CHARACTER*(*) BUF NEWS_WRITE_PACKET = 0 RETURN END INTEGER FUNCTION NEWS_READ_PACKET(BUF) CHARACTER*(*) BUF NEWS_READ_PACKET = 0 RETURN END INTEGER FUNCTION NEWS_GETHOSTNAME(BUF) CHARACTER*(*) BUF NEWS_GETHOSTNAME = 0 RETURN END INTEGER FUNCTION NEWS_GETHOST() NEWS_GETHOST = 0 RETURN END