17 lines
332 B
Plaintext
17 lines
332 B
Plaintext
01.10 FOR I=1,100; DO 2.0
|
|
01.20 QUIT
|
|
|
|
02.10 SET ZB=I/15 - FITR(I/15)
|
|
02.20 IF (ZB) 2.4, 2.3, 2.4
|
|
02.30 TYPE "FizzBuzz" !
|
|
02.35 RETURN
|
|
02.40 SET Z=I/3 - FITR(I/3)
|
|
02.50 IF (Z) 2.7, 2.6, 2.7
|
|
02.60 TYPE "Fizz" !
|
|
02.65 RETURN
|
|
02.70 SET B=I/5 - FITR(I/5)
|
|
02.80 IF (B) 2.99, 2.9, 2.99
|
|
02.90 TYPE "Buzz" !
|
|
02.95 RETURN
|
|
02.99 TYPE %3, I, !
|