function a($)
dim $array, $vals, $c, $bit, $bin, $sambin, $tbin, $nextbit, $nextbin, $z, $mz, $mt, $maxtz, $i, $val, $zbin, $maxt, $samt
; 0 1 2 3 4 5 6 7 8 9 E
$array=126,96,91,115,101,55,61,102,127,119,0
$vals=digitalrootarray($)
for $i=0 to 9
$val=$vals[$i]
$c=0
if $val
while $val
? "Val:"$val
$bit=val(substr($val,1,1))
$bin=$array[$bit]
$sambin=$bin
$zbin=$bin
$tbin=$bin
? "C:" + $c
? "Next Val:" + $vals[$i+1]
$Nextbit=substr($vals[$i+1],$c+1,1)
if $Nextbit=""
$Nextbin=0
else
$NextBin=$array[$nextbit]
endif
? "Bit:" + $Bit
? "Next Bit:" + $nextbit
? "Bin:" + $Bin
? "Next Bin:" + $nextbin
? "z:" + $z
if $c=$z
do
$mz=$bin mod 2=1
? "mz:" + $mz
$maxtz=$maxtz + $mz
;$maxtz=$maxtz+($bin mod 2=1)
$bin = $bin / 2
Until $bin = .
$z=$z+1
;? "z:" + $maxtz
endif
if NextBin
? $Nextbin
? $tBin
$NextBin=$Nextbin^$tBin
do
$mt=$nextbin mod 2=1
? "mt:" + $mt
$maxt=$maxt + $mt
;$maxt=$maxt+($nextbin mod 2=1)
$nextbin = $nextbin / 2
Until $nextbin = .
? "t:" + $maxt
endif
$c=$c+1
do
$samt=$samt+($sambin mod 2=1)
$sambin = $sambin / 2
Until $sambin = .
? "s:" + $samt
;$Val=$Val/10
$Val=right($Val,-1)
Loop
? "MaxT:" + ($maxt + $maxtz)
? "SamT:" + 2*$samT
endif
? "_____________________________"
next
$a=2*$samT - ($maxt + $maxtz)
?
endfunction
function digitalrootarray($num)
dim $val, $vals[9],$i,$dr
$i=1
do
$dr=0
$vals[$i]=$num
$i=$i+1
While $num
$dr=$dr+$num mod 10
$num=$num/10
loop
$num=$dr
until $dr<10
$vals[$i]=$dr
$digitalrootarray=$vals
endfunction
