2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Greatest-common-divisor/ZX-Spectrum-Basic/greatest-common-divisor.zx
+++ b/Task/Greatest-common-divisor/ZX-Spectrum-Basic/greatest-common-divisor.zx
@ -0,0 +1,10 @@
+10 FOR n=1 TO 3
+20 READ a,b
+30 PRINT "GCD of ";a;" and ";b;" = ";
+40 GO SUB 70
+50 NEXT n
+60 STOP
+70 IF b=0 THEN PRINT ABS (a): RETURN
+80 LET c=a: LET a=b: LET b=FN m(c,b): GO TO 70
+90 DEF FN m(a,b)=a-INT (a/b)*b
+100 DATA 12,16,22,33,45,67