B4R Question How to convert a linear relation to a x/y ?

Sub Process_Globals
   Public Serial1 As Serial
   Private My2dArray(8 * 5) As Byte
End Sub

Private Sub AppStart
   Serial1.Initialize(115200)
   Log("AppStart")
   Set(1, 2, 100)
   Log(Get(1, 2))
End Sub

Private Sub Get(x As Byte, y As Byte) As Byte
   Return My2dArray(x * 8 + y)
End Sub

Private Sub Set(x As Byte, y As Byte, value As Byte)
   My2dArray(x * 8 + y) = value
End Sub