Ethiopian multiplication: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,114: / Line 1,114: @@
 </pre>
+==={{header|Tiny BASIC}}===
+<lang tinybasic>
+    REM Ethiopian multiplication
+    LET X=17
+    LET Y=34
+    LET T=0
+IF X<1 THEN GOTO 40
+    LET A=X
+    GOSUB 400
+    IF E=0 THEN GOTO 20
+    LET T=T+Y
+    PRINT X,", ",Y, " (kept)"
+    GOTO 30
+PRINT X,", ",Y
+GOSUB 300
+    LET X=A
+    LET A=Y
+    GOSUB 200
+    LET Y=A
+    GOTO 10
+PRINT "------------"
+    PRINT "=  ",T," (sum of kept second vals)"
+    END
+    REM Subroutines are required, though
+    REM they complicate the code
+    REM -- Double --
+    REM A - param.
+LET A=2*A
+    RETURN
+    REM -- Halve --
+    REM A - param.
+LET A=A/2
+    RETURN
+    REM -- Is even --
+    REM A - param.; E - result (0 - false)
+LET E=A-(A/2)*2
+    RETURN
+</lang>
+{{out}}
+<pre>
+, 34 (kept)
+, 68
+, 136
+, 272
+, 544 (kept)
+------------
+=  578 (sum of kept second vals)
+</pre>
 ==={{header|True BASIC}}===
@@ Line 5,355: / Line 5,405: @@
 544 KEPT
 * 34 = 578
-=={{header|Tiny BASIC}}==
-<lang tinybasic>
-    REM Ethiopian multiplication
-    LET X=17
-    LET Y=34
-    LET T=0
-IF X<1 THEN GOTO 40
-    LET A=X
-    GOSUB 400
-    IF E=0 THEN GOTO 20
-    LET T=T+Y
-    PRINT X,", ",Y, " (kept)"
-    GOTO 30
-PRINT X,", ",Y
-GOSUB 300
-    LET X=A
-    LET A=Y
-    GOSUB 200
-    LET Y=A
-    GOTO 10
-PRINT "------------"
-    PRINT "=  ",T," (sum of kept second vals)"
-    END
-    REM Subroutines are required, though
-    REM they complicate the code
-    REM -- Double --
-    REM A - param.
-LET A=2*A
-    RETURN
-    REM -- Halve --
-    REM A - param.
-LET A=A/2
-    RETURN
-    REM -- Is even --
-    REM A - param.; E - result (0 - false)
-LET E=A-(A/2)*2
-    RETURN
-</lang>
-{{out}}
-<pre>
-, 34 (kept)
-, 68
-, 136
-, 272
-, 544 (kept)
-------------
-=  578 (sum of kept second vals)
-</pre>
 =={{header|TUSCRIPT}}==