Binary digits: Difference between revisions

Content added Content deleted
(Added 6502 assembly example)
No edit summary
Line 1,270: Line 1,270:
base[9000, 2]
base[9000, 2]
</lang>
</lang>

=={{header|Gambas}}==
<lang gambas>Public Sub Main()
Dim siBin As Short[] = [5, 50, 9000]
Dim siCount As Short

For siCount = 0 To siBin.Max
Print Bin(siBin[siCount])
Next

End</lang>
Output:
<pre>
101
110010
10001100101000
</pre>


=={{header|Go}}==
=={{header|Go}}==