18 lines
325 B
Plaintext
18 lines
325 B
Plaintext
#APPTYPE CONSOLE
|
|
|
|
DIM numbers AS STRING
|
|
DIM imod5 AS INTEGER
|
|
DIM imod3 AS INTEGER
|
|
|
|
FOR DIM i = 1 TO 100
|
|
numbers = ""
|
|
imod3 = i MOD 3
|
|
imod5 = i MOD 5
|
|
IF NOT imod3 THEN numbers = "Fizz"
|
|
IF NOT imod5 THEN numbers = numbers & "Buzz"
|
|
IF imod3 AND imod5 THEN numbers = i
|
|
PRINT numbers, " ";
|
|
NEXT
|
|
|
|
PAUSE
|