REBOL[Title: "Net Send IM"]

servers: [ krypton cepheus pandora ]

view layout[
	backdrop 239.235.222
	origin 4x4 
	names_lst: text-list 110x100 data servers
	across server_name: field 60
	button "Add" 42 [insert tail names_lst/lines copy server_name/text show names_lst
		server_name/text: copy "" show server_name]
	below return msg: area 200x100
	button "Send" 42[foreach name names_lst/picked[call rejoin["net send " name " " msg/text]]
		msg/text: copy "" show msg]
]