GOTO doClient
DOClient:
ip$="149.248.37.227"
port=70
clientAgain:
$m="/~joneworlds/cgi-bin/r2023post.el\t"
INPUT "string",s$
$m=$m+s$

SOCKET.CLIENT.CONNECT ip$,port
PRINT "Connected"
SOCKET.CLIENT.WRITE.LINE m$

maxclock=CLOCK()+10000
DO
SOCKET.CLIENT.READ.READY flag
IF CLOCK()>maxclock
 PRINT "Read time out"
 END
ENDIF
UNTIL flag

SOCKET.CLIENT.READ.LINE line$
PRINT line$

SOCKET.CLIENT.CLOSE
PRINT "Disconnected from server"
INPUT "Connect again? Y or N", again$, "Y"
IF again$="Y" THEN GOTO clientAgain

END

You are viewing proxied material from republic.circumlunar.space. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.