DIM i AS INTEGER
DIM c AS INTEGER

CLS

FOR i = 1 TO 100
        c = INT(i / 10) * 10
        IF i / 7 = INT(i / 7) AND i - c = 7 THEN
                PRINT "buzz buzz,";
        ELSEIF i / 7 = INT(i / 7) AND INT(i / 10) = 7 THEN
                PRINT "buzz buzz,";
        ELSEIF i / 7 = INT(i / 7) THEN
                PRINT "buzz,";
        ELSEIF i - c = 7 THEN
                PRINT "buzz,";
        ELSEIF INT(i / 10) = 7 THEN
                PRINT "buzz,";
        ELSE
                PRINT i; ",";
        END IF
NEXT i
END