add: for sample, fix bugs, and make test harness

2026-03-12 22:39:30 -07:00
parent 944326f114
commit 6c4118c489
11 changed files with 311 additions and 22 deletions
--- a/samples/for.rpg
+++ b/samples/for.rpg
@@ -0,0 +1,13 @@
+**FREE
+Ctl-Opt Main(For);
+
+Dcl-Proc For;
+    dcl-s num int(10);
+
+    for num = 1 to 3;
+        dsply ('i = ' + %char(num));
+    endfor;
+    for num = 5 downto 1 by 1;
+        dsply ('i = ' + %char(num));
+    endfor;
+End-Proc For;