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