RosettaCodeData/Task/Loops-Foreach/BASIC/loops-foreach-14.basic

6 lines
95 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
Local i,strs
Define strs = {"Lorem","ipsum","dolor"}
For i, 1, dim(strs)
Disp strs[i]
EndFor