code:

---

redirectoutput("d:\kixgolf\kixstr.txt",1)
dim $a, $b, $c, $d
$a=1
$b='d'
DO
  $a=$a+1
  $b=$b+'d'
  $d=@error
  $c=$a/1000
  if ($a=1000*$c)
  ? $a
  endif
UNTIL $a=2147483648 or $d<>0 or len($b)<>$a
 ? ' *** stopped *** ' $a
  

---