6 lines
158 B
COBOL
6 lines
158 B
COBOL
01 things occurs 3.
|
|
...
|
|
set content of things to ("Apple", "Banana", "Coconut")
|
|
perform varying thing as string through things
|
|
display thing
|
|
end-perform
|