Loop over multiple arrays simultaneously: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,611: / Line 3,611: @@
         xor eax, eax
         ret
+</lang>
+=={{header|XBasic}}==
+{{works with|Windows XBasic}}
+<lang xbasic>
+PROGRAM "loopoverarrays"
+DECLARE FUNCTION Entry()
+FUNCTION Entry()
+  DIM arr1$[2], arr2$[2], arr3%[2]
+  arr1$[0] = "a": arr1$[1] = "b": arr1$[2] = "c"
+  arr2$[0] = "A": arr2$[1] = "B": arr2$[2] = "C"
+  arr3%[0] = 1:   arr3%[1] = 2:   arr3%[2] = 3
+  FOR i% = 0 TO 2
+    PRINT arr1$[i%]; arr2$[i%]; FORMAT$("#", arr3%[i%])
+  NEXT i%
+END FUNCTION
+END PROGRAM
 </lang>