Data commit

Task/General-FizzBuzz/ZX-Spectrum-Basic/general-fizzbuzz.basic

@@ -0,0 +1,15 @@
+10 INPUT "Maximum number: ";max
+20 INPUT "Number of factors: ";n
+30 DIM f(n): DIM w$(n,4)
+40 FOR i=1 TO n
+50 INPUT "Input value-ENTER-word: ";f(i);w$(i)
+60 NEXT i
+70 FOR i=1 TO max
+80 LET matched=0
+90 FOR j=1 TO n
+100 IF FN m(i,f(j))=0 THEN LET matched=1: PRINT w$(j);
+110 NEXT j
+120 IF NOT matched THEN PRINT ;i: GO TO 140
+130 PRINT
+140 NEXT i
+150 DEF FN m(a,b)=a-INT (a/b)*b