10:REM PROGRAM FIZZBUZZ
20:I=1
30:WHILE I<=15
40:IF (I-INT(I/3)*3=0) AND (I-INT(I/5)*5=0) THEN PRINT "FIZZBUZZ" ELSE IF (I-INT(I/3)*3=0) THEN PRINT "FIZZ" ELSE IF (I-INT(I/5)*5=0) THEN PRINT "BUZZ" ELSE PRINT I
50:ENDIF
60:I=I+1
70:WEND
80:END