RosettaCodeData/Task/Arrays/PureBasic/arrays-1.purebasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
113 B
Text

;Set up an Array of 23 cells, e.g. 0-22
Dim MyArray.i(22)
MyArray(0) = 7
MyArray(1) = 11
MyArray(7) = 23