Hi,

Thanks for this. I have now updated the array the piont I get the array out of bounds is in the section of code here

 Code:
; 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 = ""


Specifcally at the EndIf statement with the array out of bounds error