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

6 lines
113 B
Plaintext

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