Can one of you tell me what I did wrong in this script please?
 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")
  Exit 0
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')

I seem to be pulling what little hairs I have left and can't make heads or tales out of it!