Why not just remove the space?


set %dj.rooms.1 $remove($gettok($1-,1,40),$chr(32))

set %dj.rooms.2 $remove($gettok($gettok($1-,2,40),2,41),$chr(32))


set %dj.rooms.3 $remove($gettok($1-,2,41),$chr(32))