Function BTA($a,$b)
   dim $x,$,$s,$y
   $b = $a,$b,0
   while $b[0] + $b[1]
      $s=3
      for $a=0 to 2
         $y = $b[$a]
         $x= right($y,2)
         $b[$a]=left($y,len($y)-1-($x<0))
         $s = $s + $x mod 2
      next
      $a=0,1,-1,0,1,-1,0,-1,-1,0,0,0,1,1
      $ =  "" + $a[$s] + $
      $b[2] = $a[$s+7]
   loop
   
   $ = "0" + $b[2] + $
   do
      $ = substr($,2)
   until left($,1)<>0 or len($)<2
   $BTA=$
EndFunction

KiXtart
KiXtart Version  = 4.23
KiXGolf Script   = kixgolf_bta.kix

Computer
OS               = Windows XP Home Edition
CPU              = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 512 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Balanced Terniary Addition
Processing Start = 2005/02/23 10:40:50.515
Processing End   = 2005/02/23 10:41:27.437
Duration         = 0000/00/00 00:00:36.921
# Tests Run      = 106
# Tests Passed   = 106
# Tests Failed   = 0
Result           = passed
KiXGolf Score    = 209

Thank you for participating in KiXtart Golf!

; begin Balanced Terniary Additions
;!
Function BTA($b,$c)
dim $,$x
if $c
 for $=-729 to -$
  $x=$x+$*($b=bta($,0))+$*($c=bta($,0))
 next
  $x=bta($x,0)
else
 $c=729
 while $c
  $=1-2*($b<0)
  $=$*($*2*$b>$c)
  $b=$b-$*$c
  if $x | $ | $c=1 $x=$x+""+$ endif
  $c=$c/3
 loop
endif
$bta=$x
EndFunction
;!
;!
; end Balanced Terniary Additions

Function BTA($b,$)

dim $c

if $

 $c=bta($b,0)+bta($,0)

 $=729

 while $

  $b=1-2*($c<0)

  $b=$b*($b*2*$c>$)

  $c=$c-$b*$

  if $bta | $b | $=1 $bta=$bta+""+$b endif

  $=$/3

 loop

else

 $=1

 while $b

  $c=0>right($b,2)

  $bta=$bta-2*$*$c+$*right($b,1)

  $b=left($b,-1-$c)

  $=$*3

 loop

endif

EndFunction

function bta($a, $b)

 dim $,$i,$m,$t

 $a = $a+#+$b			; delim operands with #

 $b = 1

 for $i = 1 to len($a)	

  $t = left(right($a,$i),1)

  if $t = "-"			; was n minus?

   $ = $ - $m * 2		; subtract last $m (*2 because we already added it previous)

  else 

   $m = $b * $t			; multiply base x num (the # in stream has no effect)

   $ = $ + $m			; accumulate n

   $b = iif($t=#,1,$b*3)	; next base or reset to 1 on delim

  endif

 next

 do

  $b = $ mod 3

  if $b/2			; ternary 2 ?

   $b = $b/-2			; change 2 to -1 and -2 to 1

   $ = $ - $b			; carry forward

  endif

  $bta = "" + $b + $bta		; answer (coerce b to string with "")

  $ = $ / 3			; next base

 until $=0			; done?

endfunction

KiXtart
KiXtart Version  = 4.23
KiXGolf Script   = kixgolf_bta.kix

Computer
OS               = Windows XP Home Edition
CPU              = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 512 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Balanced Terniary Addition
Processing Start = 2005/02/23 13:08:30.437
Processing End   = 2005/02/23 13:08:55.125
Duration         = 0000/00/00 00:00:24.688
# Tests Run      = 106
# Tests Passed   = 106
# Tests Failed   = 0
Result           = passed
KiXGolf Score    = 180
Thank you for participating in KiXtart Golf!

function bta($b, $c)
dim $,$x
 if $c
  for $=-729 to -$
   $x=$x+$*($b=bta($,0))+$*($c=bta($,0))
  next
  $bta=bta($x,0)
else
 do
  $ = $b mod 3
  if $/2			; ternary 2 ?
   $ = $/-2			; change 2 to -1 and -2 to 1
   $b = $b - $			; carry forward
  endif
  $bta = "" + $ + $bta		; answer (coerce b to string with "")
  $b = $b / 3			; next base
 until $b=0			; done?
endif
endfunction

function bta($b, $c)
dim $,$x
 if $c
  for $=-729 to -$
   $x=$x+$*($b=bta($,0))+$*($c=bta($,0))
  next
  $bta=bta($x,0)
else
 do
  $ = $b mod 3
  $c = $/-2
  $ = $ + 3*$c
  $bta = "" + $ + $bta
  $b = ($b-$c) / 3
 until $b=0
endif
endfunction

KiXtart
KiXtart Version  = 4.23
KiXGolf Script   = kixgolf_bta.kix

Computer
OS               = Windows XP Home Edition
CPU              = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 512 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Balanced Terniary Addition
Processing Start = 2005/02/23 16:17:20.218
Processing End   = 2005/02/23 16:17:49.625
Duration         = 0000/00/00 00:00:29.406
# Tests Run      = 106
# Tests Passed   = 106
# Tests Failed   = 0
Result           = passed
KiXGolf Score    = 176

Thank you for participating in KiXtart Golf!

function bta($b, $c)
dim $,$x
 if $c
  for $=-729 to -$
   $x=$x+$*($b=bta($,0))+$*($c=bta($,0))
  next
  $bta=bta($x,0)
else
 do
  $c = $b mod 3
  $ = $c/-2
  $bta = "" + ($c + 3*$) + $bta
  $b = ($b-$) / 3
 until $b=0
endif
endfunction

function bta($b, $c)
dim $,$x
 if $c
  for $=-729 to -$
   $x=$x+$*($b=bta($,0))+$*($c=bta($,0))
  next
  $bta=bta($x,0)
else
 do
  $ = $b mod 3
  $c = $/2
  $bta = "" + ($ - 3*$c) + $bta
  $b = ($b+$c) / 3
 until $b=0
endif
endfunction

KiXtart
KiXtart Version  = 4.23
KiXGolf Script   = kixgolf_bta.kix

Computer
OS               = Windows XP Home Edition
CPU              = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 512 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Balanced Terniary Addition
Processing Start = 2005/02/23 18:10:47.390
Processing End   = 2005/02/23 18:11:16.531
Duration         = 0000/00/00 00:00:29.141
# Tests Run      = 106
# Tests Passed   = 106
# Tests Failed   = 0
Result           = passed
KiXGolf Score    = 171

Thank you for participating in KiXtart Golf!

function bta($b, $c)
dim $,$x
 if $c
  for $=-729 to -$
   $x=$x+$*($b=bta($,0))+$*($c=bta($,0))
  next
  $bta=bta($x,0)
else
 do
  $ = $b mod 3
  $bta = "" + ($ - $/2*3) + $bta
  $b = ($b+$/2) / 3
 until $b=0
endif
endfunction

function bta($b, $c)
dim $,$x
if $c
 for $=-729 to -$
  $x=$x+$*($b=bta($,0))+$*($c=bta($,0))
 next
 $bta=bta($x,0)
else
 do
  $=$b mod 3
  $bta=""+($-$/2*3)+$bta
  $b=($b+$/2)/3
 until $b=0
endif
endfunction