alias bug {
var %string = abcd efgh
var %x = 1 | while (%x <= $len(%string)) {
var %ascii = $asc($mid(%string,%x,1))
if ((%ascii < 65 || %ascii > 90 && %ascii < 97 || %ascii > 122) && (%ascii != 160 && %ascii != 196 && %ascii != 214 && %ascii != 220 && %ascii != 223 && %ascii != 228 && %ascii != 246 && %ascii != 252)) {
%words = %words $+ $chr(32) $+ $chr(%ascii) $+ $chr(32) $+ $chr(32) }
else { %words = %words $+ $chr(%ascii) }
inc %x }
var %x = 1 | while (%x <= $numtok(%words,32)) {
echo -a %x $+ .1 word: %word
var %word = $gettok(%words,%x,32)
echo -a %x $+ .2 word: %word
if ($len($remove(%word,$chr(160))) > 3) {
var %head = $left(%word,1)
if ($right(%word,1) == $chr(160)) { var %foot = $right(%word,2) }
else { var %foot = $right(%word,1) }
var %body = $mid($remove(%word,$chr(160)),2,$calc($len($remove(%word,$chr(160))) -2))
var %oldbody = %body
echo -a %x $+ .3 word:4 %word
;-> [color:red]BUG[/color] <-----------------------------------
[color:red]unset %word[/color]
;-------------------------------------------
; [color:green]It olny works if I use 'unset %word %word'[/color]
;-------------------------------------------
echo -a 3-> unset $chr(37) $+ word <-
if (%x == 2) echo -a %x $+ .4 word:4 %word <- what's that?
else echo -a %x $+ .4 word:4 %word
var %y = 1 | while (%y <= $len(%body)) { %word = %word $+ $mid(%body,%y,1) $+ $chr(46) | inc %y }
echo -a %x $+ .5 word: %word
var %body = $left(%word,$calc($len(%word) -1))
var %newbody = %body }
else { echo -at %x $+ . word: ->7 $+ %word $+ <- }
echo -a -----------------
inc %x }
unset %word %words }
