% simple code to change a user's alias...works for most other user variables

{
  userget
  soutln["|03current handle is: |11"+uhandle]
  sout["|03new handle: "]
  uhandle=instr[uhandle,"*","F","/bg",36]
  if usersearch[uhandle,true] then {
    soutln["|b0|03alias already exists, exiting"]
    exit
  }
  userput
  usersave
  soutln["|B0|03handle changed to: |11"+uhandle]
}