Code:
Function UsrEnv($1,$2,$3,$4,5$)
  Dim $
  $ = writevalue ("HKEY_CURRENT_USER\Environment", 'Station', $1, "REG_SZ")
  $ = writevalue ("HKEY_CURRENT_USER\Environment", 'Extension', $2, "REG_SZ")
  $ = writevalue ("HKEY_CURRENT_USER\Environment", 'PTCPort', $3, "REG_SZ")
  $ = writevalue ("HKEY_CURRENT_USER\Environment", 'PUIPort', $4, "REG_SZ")
  $ = writevalue ("HKEY_CURRENT_USER\Environment", 'Formcache', $5, "REG_SZ")
EndFunction

Select
 Case @USERID = "608Mgr_100" 
  UsrEnv('608100', '608100', '12800', '13000', 'C:\Cache\cache608100')
 Case @USERID = "608Mgr_101" 
  UsrEnv('608101', '608101', '12801', '13001', 'C:\Cache\cache608101')
 Case @USERID = "608Mgr_102" 
  UsrEnv('608102', '608102', '12802', '13002', 'C:\Cache\cache608102')
 Case @USERID = "608Mgr_103" 
  UsrEnv('608103', '608103', '12803', '13003', 'C:\Cache\cache608103')
 Case @USERID = "608Mgr_104" 
  UsrEnv('608104', '608104', '12804', '13004', 'C:\Cache\cache608104')
 Case @USERID = "608Mgr_105" 
  UsrEnv('608105', '608105', '12805', '13005', 'C:\Cache\cache608105')
 Case 1
  'No Match Found' ?
EndSelect


Try it this way. Note the removal of "Exit 0" and the Addition of "EndSelect" as well as the Case 1 to catch all the fall out
_________________________
Today is the tomorrow you worried about yesterday.