Mini script to send a command to a server. It's COMMANDS object is used

miniconsole.r

do %../scripts/send-to.r

port-number: 55551
server-address: "localhost"

Forever [
	prin "Insert a server command > " message: input
	if message = "exit" [Print "!!! Exit Received, quitting !!!" break]
	response: send-to server-address port-number message
	print ""
	print ["Type of result: " type?/word response]
	print ["Length of result: " length? response]
	Print ""
	look-back: -200
	if not none? response [
		response: skip tail response look-back
	]
	print  ["Server has answered > "]
	print ""
	probe response 
	
	print ""
	Print ["If loadable content: "]
	print ""
	probe attempt [load response]
	print ""
]

halt