Binary digits: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,110: / Line 2,110: @@
 <syntaxhighlight lang="text">
-proc toBinary num . binary$ .
+proc toBin num . bin$ .
-   binary$ = ""
+   bin$ = ""
    if num = 0
-      binary$ = "0"
+      bin$ = "0"
    .
    while num > 0
-      binary$ = num mod 2 & binary$
+      bin$ = num mod 2 & bin$
       num = num div 2
    .
 .
+toBin 2 bin$
-call toBinary 2 binary$
-print binary$
+print bin$
-call toBinary 50 binary$
+toBin 50 bin$
-print binary$
+print bin$
-call toBinary 9000 binary$
+toBin 9000 bin$
-print binary$
+print bin$
 </syntaxhighlight>
 {{out}}