set l "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
:top
	cls
	ask b "Select Communications Port (1 or 2) ? " i
 	if "$B" == "1" let z = 1 | goto next
	if "$B" == "2" let z = 2 | goto next
	print "^g^q ERROR: Invalid Port Number"
	wait 15
	goto top
:next
	cls
:	on error goto berror
	open 1 setcom.dat r 10
	let a = 1
	print "	Select Communications Settings^j"
:loop
	get 1 %a z
	mid a "$l" %a 1
	print "	$a.	COM%z:$z"
	let a = %a+1
	if %a <= 18 goto loop	
	ask b "^m^jEnter letter for required setting ? " i	
	case b U
	if "$b" < "A" goto oops
	if "$b" > "R" goto oops	
	goto good
:oops
	print "^g^q ERROR: Invalid Selection"
	wait 15
	goto next
:good
	instr a "$l" "$b"
	get 1 %a z
	set x "COM%z:$z"
	mode $x
	close 1
	print "^j^MFinished."
	end
:berror
	print "%err"
	end