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

4 lines
127 B
Text

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