Binary digits: Difference between revisions
Content added Content deleted
(→J: simply use an NVV fork) |
(Added Chipmunk Basic) |
||
Line 1,228: | Line 1,228: | ||
UNTIL N% = 0 |
UNTIL N% = 0 |
||
=A$</syntaxhighlight> |
=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}}=== |
==={{header|Commodore BASIC}}=== |