9 lines
254 B
Text
9 lines
254 B
Text
PROC main()
|
|
DEF a_list : PTR TO LONG, a
|
|
a_list := [10, 12, 14]
|
|
FOR a := 0 TO ListLen(a_list)-1
|
|
WriteF('\d\n', a_list[a])
|
|
ENDFOR
|
|
-> if the "action" fits a single statement, we can do instead
|
|
ForAll({a}, a_list, `WriteF('\d\n', a))
|
|
ENDPROC
|