RosettaCodeData/Task/Arrays/PureBasic/arrays-1.purebasic

6 lines
113 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
;Set up an Array of 23 cells, e.g. 0-22
Dim MyArray.i(22)
MyArray(0) = 7
MyArray(1) = 11
MyArray(7) = 23