10 lines
304 B
Text
10 lines
304 B
Text
ar = ARRAY("3,2") ;* 3 rows, 2 columns
|
|
fill i = LT(i, 3) i + 1 :F(display)
|
|
ar<i,1> = i
|
|
ar<i,2> = i "-count" :(fill)
|
|
|
|
display ;* fail on end of array
|
|
j = j + 1
|
|
OUTPUT = "Row " ar<j,1> ": " ar<j,2>
|
|
+ :S(display)
|
|
END
|