PureBoard

Code: Alles auswählen

EnableExplicit

Define *pArray, i

Dim arr.i(293)

*pArray = @arr()

CopyMemory(?table, *pArray, 294 * SizeOf(integer))

Debug "**** 1 dims ****"
For i = 0 To 293
   Debug "i=" + i + " / Value = " + arr(i)
Next

Dim arr2.i(20, 13)

*pArray = @arr2()

CopyMemory(?table, *pArray, 294 * SizeOf(integer))

Define out.s, row, column
Debug "**** 2 dims ****"
For row = 0 To 20
  For column = 0 To 13 
    Debug "row " + row + " / column = " + column + " / Value = " + arr2(row, column)
  Next
Next

DataSection
   table:
      Data.i   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14
      Data.i  15,  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28
      Data.i  29,  30,  31,  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42
      Data.i  43,  44,  45,  46,  47,  48,  49,  50,  51,  52,  53,  54,  55,  56
      Data.i  57,  58,  59,  60,  61,  62,  63,  64,  65,  66,  67,  68,  69,  70
      Data.i  71,  72,  73,  74,  75,  76,  77,  78,  79,  80,  81,  82,  83,  84
      Data.i  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,  96,  97,  98
      Data.i  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
      Data.i 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126
      Data.i 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140
      Data.i 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154
      Data.i 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168
      Data.i 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182
      Data.i 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196
      Data.i 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210
      Data.i 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224
      Data.i 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238
      Data.i 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252
      Data.i 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266
      Data.i 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280
      Data.i 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294

Code: Alles auswählen

...( x - 6 )...