Specifications

450
TCP.STTS% = 2
’Disconnect TCP/IP communications pathway
CALL "SOCKET.FN3" .fcTDiscnn INTERFACE%
TCP.STTS% = 1
’Close IrDA communications device
CLOSE #1
TCP.STTS% = 0
ON ERROR GOTO 0
RETURN
’************************************************
’ Error-handling routine *
’************************************************
TCP.ERR:
WERR = ERR
RESUME ERRSUB
ERRSUB:
ON ERROR GOTO 0
ON ERROR GOTO ERRSUB2
IF TCP.STTS% > 2 THEN
CALL "SOCKET.FN3" .fcClose SOCKFD% ’Close socket
END IF
IF TCP.STTS% > 1 THEN
CALL "SOCKET.FN3" .fcTDiscnn INTERFACE% ’Disconnect TCP/IP communications
’pathway
END IF
IF TCP.STTS% > 0 THEN
CLOSE #1 ’Close IrDA communications device
END IF
ON ERROR GOTO 0
WAIT 0,1: W$ = INKEY$
IF WERR = &h105 THEN ’If power-off error, retry
ON ERROR GOTO TCP.ERR
GOTO TCP.OPEN
ELSE
RETURN
END IF
ERRSUB2:
RESUME NEXT