10 lines
272 B
Text
10 lines
272 B
Text
PROCEDURE Main()
|
|
LOCAL a1 := { "a", "b", "c" }, ;
|
|
a2 := { "A", "B", "C", "D" }, ; // the last element "D" of this array will be ignored
|
|
a3 := { 1, 2, 3 }
|
|
LOCAL e1, e2, e3
|
|
|
|
FOR EACH e1, e2, e3 IN a1, a2, a3
|
|
Qout( e1 + e2 + hb_ntos( e3 ) )
|
|
NEXT
|
|
RETURN
|