:Sort_Branches
Do
	$r = 0
	$changes = 0
	While $r < ($br_count - 1)
		If ($TS_Branches_Im_in[$r] > $TS_Branches_Im_in[$r+1])
			$temp = $TS_Branches_Im_in[$r+1] 
			$TS_Branches_Im_in[$r+1] = $TS_Branches_Im_in[$r]
			$TS_Branches_Im_in[$r] = $temp
			$changes = 1
		EndIf
		$r = $r + 1
	Loop
Until $changes = 0
Return

Join(Uniq(Split("aaa bbb ccc ccc ddd")))+@CRLF
Join(Uniq(SPlit("aaa")))+@CRLF
Join(Uniq("aaa"))+@CRLF



;;
;;======================================================================
;;
;;FUNCTION       uniq()
;;
;;ACTION         Removes duplicates from a sorted, 1-dimension array
;;
;;AUTHOR         Glenn Barnas / FRIT-EROC
;;
;;SYNTAX         uniq(array)
;;
;;PARAMETERS     array - array to remove duplicates from
;;
;;REMARKS        Array must be sorted first - no check for sort is performed
;;
;;RETURNS        array with duplicate items removed
;;
;;DEPENDENCIES   none
;;
;;TESTED WITH    NT4, W2K, WXP
;;
;;EXAMPLES       $Singles = Uniq($has_dups)
;
Function Uniq($A)

  ; $TOP is last entry, $X is source pointer, $Y is destination pointer
  Dim $Top, $X, $Y
  $Top = UBound($A)             ; Find size of original array
  Dim $WA[$Top]                 ; Create working array

  $Y = 1                        ; output array pointer
  $WA[0] = CStr($A[0])          ; copy first element
  For $X = 1 to $Top
    If $WA[$Y - 1] <> $A[$X]    ; is current value different from last?
      $WA[$Y] = CStr($A[$X])    ; add it to output
      $Y = $Y + 1               ; increment output pointer
    EndIf
  Next

  ReDim Preserve $WA[$Y - 1]    ; resize output array
  $Uniq = $WA                   ; return the array of unique elements

EndFunction

; Create Screen Master Design
Box(1, 20, 5, 60, double)
At (2,21)  " Please Select the Branch that you "
At (3,21)  " would like to connect to, from the"
At (4,21)  " list below..."
At (7, 1) "BRANCHES AVAILABLE:"
Box (8, 1, 18, 77, single)
At (20, 1) "Use UP, DOWN, LEFT, RIGHT keys to Select Branch Number, then Press RETURN"
Do 
	;Clear Main Box
	Color W+/B+
	$z = 9
	While $z < 18
		At($z,3) "                                                                          "
			$z = $z + 1
	Loop
	;Write to Main Box
	$w = 0
	$br_x = 3
	$br_y = 9
	While $w < $br_count
		If($br_y = $y) And ($br_x = $x)
			;Write Cursor
			Color Y+/R+
			At ($br_y, $br_x) $TS_Branches_Im_in[$w]
			Color W+/B+
			$Branch = $TS_Branches_Im_in[$w]
		Else
			At ($br_y, $br_x) $TS_Branches_Im_in[$w]
              		EndIf
		$w = $w + 1
		If $w < $br_count
	
			$br_y = $br_y + 2	

			If ($br_y > 17)
				$br_x = $br_x + 6
				$br_y = 9
			EndIf
		EndIf
	Loop 
	;Move Cursor
	Get $input1
	;Check if RETURN has been pressed
	If $input1 = Chr(13)
	Goto End_Of_Section
	EndIf
	;get Movement of cursor
	While $input1 <> à 
		Get $input1
	Loop
	Get $input2	
	$last_y = $y
	$last_x = $x
	Select
		Case ($input1 = à) And ($input2 = H)   ;UP
			If $y > 9
				$y = $y - 2
			EndIf
		Case ($input1 = à) And ($input2 = P)   ;DOWN
			If $y < 17
				$y = $y + 2 
			EndIf
		Case ($input1 = à) And ($input2 = M)   ;RIGHT
			If $x < 69
				$x = $x + 6
			EndIf
		Case ($input1 = à) And ($input2 = K)   ;LEFT
			If $x > 3
				$x = $x - 6
			EndIf
	EndSelect
	Select
		Case $x = $br_x And $y > $br_y
			$y =$last_y 
			$x =$last_x 
		Case $x > $br_x 
			$y =$last_y 
			$x =$last_x 
	EndSelect
Until $input1 = ""