st_decimal_binary
long decimal
boolean binary[]

f_decimal_to_binary
long ll_val, i
boolean empty[]
ll_val = ast.decimal
ast.binary = empty
i =  1 
do while ll_val >  0 
	ast.binary[i] = (mod(ll_val,  2 ) =  1 )
	ll_val = int( ll_val /  2  )
	i++
loop
return true

f_binary_to_decimal
long i
long ll_ret
ll_ret =  0 
for i =  1  to UpperBound(ast.binary)
	if ast.binary[i] = true then
		ll_ret +=  2 ^(i -  1 )
	end if
next
ast.Decimal = ll_ret
return true