There were a couple of other syntax problems (like the END at the end of script 2). The below code works for me...

 Code:
Break on
Global $server

$Location = '\\server3\apps\newcomputer\location.kix'
Call $Location

? "What server am i pulling applciations from?"
? $Server

get $

location.kix
 Code:
Break on
$y=SubStr(@IPADDRESS0, 1, 11)
     Select
       Case $y=" 10.111.  1"
	   $Server = 'Server1'
       Case $y=" 10. 11.100"
	   $Server = 'Server1'
       Case $y="192.168.  1"
	   $Server = 'Server17'
      Case 1
	   $server = 'Server3'
Endselect