Data commit

Task/General-FizzBuzz/BBC-BASIC/general-fizzbuzz.basic

@@ -0,0 +1,20 @@
+REM >genfizzb
+INPUT "Maximum number: " max%
+INPUT "Number of factors: " n%
+DIM factors%(n% - 1)
+DIM words$(n% - 1)
+FOR i% = 0 TO n% - 1
+    INPUT "> " factor$
+    factors%(i%) = VAL(LEFT$(factor$, INSTR(factor$, " ") - 1))
+    words$(i%) = MID$(factor$, INSTR(factor$, " ") + 1)
+NEXT
+FOR i% = 1 TO max%
+    matched% = FALSE
+    FOR j% = 0 TO n% - 1
+        IF i% MOD factors%(j%) = 0 THEN
+            PRINT words$(j%);
+            matched% = TRUE
+        ENDIF
+    NEXT
+    IF matched% THEN PRINT ELSE PRINT;i%
+NEXT