19 lines
477 B
Plaintext
19 lines
477 B
Plaintext
**FREE
|
|
Ctl-Opt Main(FizzBuzz);
|
|
|
|
Dcl-Proc FizzBuzz;
|
|
Dcl-S num Int(10);
|
|
|
|
For num = 1 To 100;
|
|
If %Rem(num:3) = 0 And %Rem(num:5) = 0;
|
|
Dsply ('num - ' + %Char(num) + ' FIZZBUZZ');
|
|
ElseIf %Rem(num:3) = 0;
|
|
Dsply ('num - ' + %Char(num) + ' FIZZ');
|
|
ElseIf %Rem(num:5) = 0;
|
|
Dsply ('num - ' + %Char(num) + ' BUZZ');
|
|
Else;
|
|
Dsply ('num - ' + %Char(num));
|
|
EndIf;
|
|
EndFor;
|
|
End-Proc FizzBuzz;
|