rem --------------------------------------
rem
rem		mariaBasic 3.2.1.1 sample
rem		Decimal 2 Binary converter
rem		
rem		15.12.2011
rem
rem --------------------------------------


Varb%=0
Var10#=2
Varr#=0
Vare#=0

Vard1#=111000111
Vard2#=0
Vard3#=0
Vard4#=0

Vari1%=0
Vari2%=0
Vari3%=0




rem --------------------------------------
Varb%=Vard1#+0
Vare#=0
rem --------------------------------------


while (Varb%>0)

rem --------------------------------------
Varb%=Vard1#+0
while (Varb%>0)
Varb%=Varb%-Var10#^Vare#
Vare#=Vare#+1
rem print Varb%,' ',Vare#
wend
rem --------------------------------------

rem --------------------------------------
Varb%=Vard1#+0
Vare#=Vare#-1
Varb%=Varb%-Var10#^Vare#
rem print Varb%,' ',Vare#
rem --------------------------------------

rem --------------------------------------
while (Varb%<0)
Varb%=Vard1#+0
Vare#=Vare#-1
Varb%=Varb%-Var10#^Vare#
rem print Varb%,' ',Vare#
wend
rem --------------------------------------

print 'Bit Set: ',Vare# 

rem --------------------------------------
Vard1#=Vard1#-Var10#^Vare#
Vare#=0
rem --------------------------------------

rem print Varb%,' ',Vard1#

wend

end