RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Action-/loop-over-multiple-arrays-simultaneously.action

PROC Main()
  CHAR ARRAY a="abc",b="ABC"
  BYTE ARRAY c=[1 2 3]
  BYTE i

  FOR i=0 TO 2
  DO
    PrintF("%C%C%B%E",a(i+1),b(i+1),c(i))
  OD
RETURN