Jochen, I love this bit of code: (($b - ($^) & 1) + 1) fliping between 1 and 2, dang creative, you da man.
Wahey Dale, yeah, this was my last hope on sunday morning shaving further than 146 strokes, sparing one variable. But that turned out to be a dead end as I had to use much more parentheses than initially thought. Here's what it looked like before:
Code:
dim ... ,$b
...
while $
$b = ~$b
$c = (2+$b) * right($,1)
....
