RosettaCodeData/Task/Arrays/PureBasic/arrays-4.basic

5 lines
127 B
Plaintext

; Now, set up a multi dimensional Array
Dim MultiArray.i(800, 600)
MultiArray(100, 200) = 640
MultiArray(130, 40) = 120