18 lines
318 B
Text
18 lines
318 B
Text
GET "libhdr"
|
|
|
|
LET start() BE $(
|
|
|
|
FOR i=1 TO 100 DO $(
|
|
|
|
TEST (i REM 15) = 0 THEN
|
|
writes("FizzBuzz")
|
|
ELSE TEST (i REM 3) = 0 THEN
|
|
writes("Fizz")
|
|
ELSE TEST (i REM 5) = 0 THEN
|
|
writes("Buzz")
|
|
ELSE
|
|
writen(i, 0)
|
|
|
|
newline()
|
|
$)
|
|
$)
|