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

5 lines
127 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
; Now, set up a multi dimensional Array
Dim MultiArray.i(800, 600)
MultiArray(100, 200) = 640
MultiArray(130, 40) = 120