22 lines
319 B
Text
22 lines
319 B
Text
PROC Main()
|
|
BYTE i,d3,d5
|
|
|
|
d3=1 d5=1
|
|
FOR i=1 TO 100
|
|
DO
|
|
IF d3=0 AND d5=0 THEN
|
|
Print("FizzBuzz")
|
|
ELSEIF d3=0 THEN
|
|
Print("Fizz")
|
|
ELSEIF d5=0 THEN
|
|
Print("Buzz")
|
|
ELSE
|
|
PrintB(i)
|
|
FI
|
|
Put(32)
|
|
|
|
d3==+1 d5==+1
|
|
IF d3=3 THEN d3=0 FI
|
|
IF d5=5 THEN d5=0 FI
|
|
OD
|
|
RETURN
|