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