/* AREXX script example for RequestList */

Start:

	portlist = Show("Ports",,";")
	portlist = portlist";"

	pos = 1
	lines = 0

	success = open(tempfile,"T:RequestListTemp","W")
	if success = 0
		then do
			say "Unable to open temporary file!"
			exit
		end

Loop:
	seperator = Index(portlist,";",pos)
	if seperator ~= 0
		then do
			call writeln(tempfile,substr(portlist,pos,seperator-pos))
			lines = lines + 1
			pos = seperator+1
			signal Loop
		end

	call close(tempfile)


	address command 'RequestList >T:RequestListResults "Select a port..." T:RequestListTemp FULL LINES='lines


	success = open(resultfile,"T:RequestListResults","R")
	if success = 0
		then do
			say "Unable to open results file!"
			exit
		end

	results = readln(resultfile)
	call close(resultfile)

	if results = ""
		then do
			say "The window was closed."
		end
		else do
			say "The port selected was '"results"'."
		end

	address command 'delete T:RequestListTemp QUIET'
	address command 'delete T:RequestListResults QUIET'

	exit