Binary digits: Difference between revisions
Added Chipmunk Basic
(→J: simply use an NVV fork) |
(Added Chipmunk Basic) |
||
Line 1,228:
UNTIL N% = 0
=A$</syntaxhighlight>
==={{header|Chipmunk Basic}}===
{{works with|Chipmunk Basic|3.6.4}}
<syntaxhighlight lang="qbasic">10 for c = 1 to 3
20 read n
30 print n;"-> ";vin$(n)
40 next c
80 end
100 sub vin$(n)
110 b$ = ""
120 n = abs(int(n))
130 '
140 b$ = str$(n mod 2)+b$
150 n = int(n/2)
160 if n > 0 then 130
170 vin$ = b$
180 end sub
200 data 5,50,9000</syntaxhighlight>
==={{header|Commodore BASIC}}===
| |||