10 lines
239 B
Text
10 lines
239 B
Text
# DecToBin.bas
|
|
# BASIC256 1.1.4.0
|
|
|
|
|
|
dim a(3) #dimension a 3 element array (a)
|
|
a = {5, 50, 9000}
|
|
|
|
for i = 0 to 2
|
|
print a[i] + chr(9) + toRadix(a[i],2) # radix (decimal, base2)
|
|
next i
|