add: more samples and make them work

2026-03-12 22:55:14 -07:00
parent 6c4118c489
commit 46935005f7
8 changed files with 525 additions and 90 deletions
--- a/samples/fizzbuzz.rpg
+++ b/samples/fizzbuzz.rpg
@@ -0,0 +1,18 @@
+**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;