21 lines
516 B
Plaintext
21 lines
516 B
Plaintext
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
|