12 lines
374 B
Text
12 lines
374 B
Text
I = 1
|
|
LOOP FIZZBUZZ = ""
|
|
EQ(REMDR(I, 3), 0) :F(TRY_5)
|
|
FIZZBUZZ = FIZZBUZZ "FIZZ"
|
|
TRY_5 EQ(REMDR(I, 5), 0) :F(DO_NUM)
|
|
FIZZBUZZ = FIZZBUZZ "BUZZ"
|
|
DO_NUM IDENT(FIZZBUZZ, "") :F(SHOW)
|
|
FIZZBUZZ = I
|
|
SHOW OUTPUT = FIZZBUZZ
|
|
I = I + 1
|
|
LE(I, 100) :S(LOOP)
|
|
END
|