Ethiopian multiplication: Difference between revisions

Content added Content deleted

Inline

@@ Line 941: / Line 941: @@
 ==={{header|GW-BASIC}}===
+{{works with|BASICA}}
-<syntaxhighlight lang="qbasic">10 DEF FNE(A)=(A+1) MOD 2
+<syntaxhighlight lang="gwbasic">10  REM Ethiopian multiplication
-DEF FNH(A)=INT(A/2)
-DEF FND(A)=2*A
+DEF FNE(A) = (A + 1) MOD 2
+DEF FNH(A) = INT(A / 2)
-X=17:Y=34:TOT=0
+DEF FND(A) = 2 * A
-WHILE X>=1
+X = 17: Y = 34: TOT = 0
-PRINT X,
+WHILE X >= 1
-IF FNE(X)=0 THEN TOT=TOT+Y:PRINT Y ELSE PRINT
+PRINT USING "###### ";X;
-X=FNH(X):Y=FND(Y)
+IF FNE(X)=0 THEN TOT = TOT + Y: PRINT USING "###### ";Y ELSE PRINT
-WEND
+X = FNH(X): Y = FND(Y)
-PRINT "=", TOT</syntaxhighlight>
+WEND
+PRINT USING "=      ######";TOT
+END</syntaxhighlight>
+{{out}}
+<pre>
+34
+544
+=         578
+</pre>
 ==={{header|Liberty BASIC}}===