11 lines
272 B
Text
11 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
|