8 lines
192 B
Text
8 lines
192 B
Text
10 DEF FN m(a,b)=a-INT (a/b)*b
|
|
20 FOR a=1 TO 100
|
|
30 LET o$=""
|
|
40 IF FN m(a,3)=0 THEN LET o$="Fizz"
|
|
50 IF FN m(a,5)=0 THEN LET o$=o$+"Buzz"
|
|
60 IF o$="" THEN LET o$=STR$ a
|
|
70 PRINT o$
|
|
80 NEXT a
|