8 lines
212 B
Text
8 lines
212 B
Text
OPEN "localhost:12321" FOR SERVER AS echo
|
|
WHILE TRUE
|
|
fd = ACCEPT(echo)
|
|
PRINT "Incoming connection from: ", GETPEER$(fd)
|
|
RECEIVE data$ FROM fd
|
|
SEND data$ & CR$ & NL$ TO fd
|
|
CLOSE SERVER fd
|
|
WEND
|