16 lines
311 B
Plaintext
16 lines
311 B
Plaintext
for a = 0 to 16
|
|
print a;"=";dec2bin$(a)
|
|
next
|
|
a=50:print a;"=";dec2bin$(a)
|
|
a=254:print a;"=";dec2bin$(a)
|
|
a=9000:print a;"=";dec2bin$(a)
|
|
wait
|
|
|
|
function dec2bin$(num)
|
|
if num=0 then dec2bin$="0":exit function
|
|
while num>0
|
|
dec2bin$=str$(num mod 2)+dec2bin$
|
|
num=int(num/2)
|
|
wend
|
|
end function
|