'**********************************************************************
'* Ipcommsg.bi v1.1
'*
'* IP COMMUNICATION TOOLS. MESSAGING ONLY
'*
'* ABILITIES:
'* MESSAGE SENDING / RECIEVING
'**********************************************************************


'**********************************************************************
'* SENDMSG SENDS RAW STRING
'**********************************************************************
SUB SENDMSG (CONNECTION, MSG$)
    MSG$ = UCASE$(MSG$)
    PUT #CONNECTION, , MSG$
END SUB
'**********************************************************************


'**********************************************************************
'* WAITFORREPLY$ HANGS AND WAITS FOR DATA TO BE TRANSMITTED BEFORE TIMEOUT
'**********************************************************************
FUNCTION WAITFORREPLY$ (CONNECTION)
    T! = TIMER
    DO
        GET #CONNECTION, , RPL$
    LOOP UNTIL RPL$ <> "" OR TIMER > T! + 3

    IF TIMER > T! + 3 THEN
        WAITFORREPLY$ = "TIMEOUT"
    ELSE
        WAITFORREPLY$ = RTRIM$(RPL$)
    END IF
END FUNCTION
'**********************************************************************