Ethiopian multiplication: Difference between revisions
→{{header|GW-BASIC}}: PRINT USING, code formatting, output, "works with".
m (→{{header|Ruby}}: Use end-less defs) |
(→{{header|GW-BASIC}}: PRINT USING, code formatting, output, "works with".) |
||
Line 941:
==={{header|GW-BASIC}}===
{{works with|BASICA}}
<syntaxhighlight lang="
20 DEF FNH(A)=INT(A/2)▼
40 X=17:Y=34:TOT=0▼
40 DEF FND(A) = 2 * A
50 WHILE X>=1▼
70 IF FNE(X)=0 THEN TOT=TOT+Y:PRINT Y ELSE PRINT▼
70 PRINT USING "###### ";X;
80 X=FNH(X):Y=FND(Y)▼
90 WEND▼
100 PRINT "=", TOT</syntaxhighlight>▼
110 PRINT USING "= ######";TOT
{{out}}
<pre>
17 34
8
4
2
1 544
= 578
</pre>
==={{header|Liberty BASIC}}===
| |||