langs a-z

Task/Loop-over-multiple-arrays-simultaneously/PowerBASIC/loop-over-multiple-arrays-simultaneously.powerbasic

@@ -0,0 +1,23 @@
+FUNCTION PBMAIN () AS LONG
+    DIM x(2), y(2) AS STRING * 1
+    DIM z(2) AS LONG
+
+    'data
+    ARRAY ASSIGN x() = ("a", "b", "c")
+    ARRAY ASSIGN y() = ("A", "B", "C")
+    ARRAY ASSIGN z() = (1, 2, 3)
+
+    'set upper bound
+    C& = UBOUND(x)
+    IF UBOUND(y) > C& THEN C& = UBOUND(y)
+    IF UBOUND(z) > C& THEN C& = UBOUND(z)
+
+    OPEN "output.txt" FOR OUTPUT AS 1
+    FOR L& = 0 TO C&
+        IF L& <= UBOUND(x) THEN PRINT #1, x(L&);
+        IF L& <= UBOUND(y) THEN PRINT #1, y(L&);
+        IF L& <= UBOUND(z) THEN PRINT #1, TRIM$(STR$(z(L&)));
+        PRINT #1,
+    NEXT
+    CLOSE
+END FUNCTION