$parserange shortened

alias parserange {
tokenize 32 $2 $1
var %x, %y,%c $token($2-,1,45),%b
if ($left($2-,1) == -) {
%x = $calc($1 - %c +1)
tokenize 32 $1 $right($2-,-1)
}
else {
%x = %c
}
if $pos($2-,-,1) == $len($2-) {
%y = $1
}
else if !$v1 {
%y = %x
}
else {
%b = $pos($2-,-,2)
%c = $token($2-,2,45)
if %b && $calc(%b -  $iif($Pos($2-,-,1),$v1,0)) == 1 {
%y = $calc($1 - %c +1)
}
else if !%b {
%y = %c
}
else {
%y = %c
}
}
return %x %y