RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/BaCon/loop-over-multiple-arrays-simultaneously.bacon

DECLARE a1$[] = {"a", "b", "c"} TYPE STRING
DECLARE a2$[] = {"A", "B", "C"} TYPE STRING
DECLARE a3[] = {1, 2, 3} TYPE int


	WHILE (a3[i] <= 3)
		PRINT  a1$[i], a2$[i], a3[i]
		INCR i
	WEND