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