$IPSeg=substr(@IPADDRESS0,1,11)
$IPNode=Val(ltrim(substr(@IPADDRESS0,13,3)))

SELECT
CASE $IPSeg="192.168.219"
CASE $IPSeg="192.168.218"
CASE $IPSeg="192.168.216" ;supernet
$Site="MIDRAND"
ENDSELECT
SELECT
CASE $IPSeg="192.168.202"
CASE $IPNode>64 AND $IPNode<127
$SIte="CAPE"
CASE $IPNode>128 AND $IPNode<254
$SIte="DURBAN"
ENDSELECT

SELECT
CASE $Site="MIDRAND"
AT (20,28) "Connecting to Midrand"
CALL \\ZASRV01\$UPDATES\SCRIPTS\MIDRAND.SCR
CASE $Site="CAPE"
AT (20,27) "Connecting to CapeTown"
CALL \\ZAAUTH03\$UPDATES\SCRIPTS\CAPE.SCR
CASE $Site="DURBAN"
AT (20,29) "Connecting to Durban"
CALL \\ZAAUTH02\$UPDATES\SCRIPTS\DURBAN.SCR
ENDSELECT