RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/M2000-Interpreter/loop-over-multiple-arrays-simultaneously.m2000

module Loop_over_multiple_arrays_simultaneously {
	r1=("a","b","c",1,2,3,4,5)
	r2=("A","B","C", 4)
	r3=(1,2,3)
	i1=each(r1)
	i2=each(r2)
	i3=each(r3)
	while i1, i2, i3
		print array(i1)+array(i2)+array(i3)
	end while
}
Loop_over_multiple_arrays_simultaneously