ModValue = 33
  For MapX = 0 To MapMaxX
    For MapY = 0 To MapMaxY
      MapIndex = MapX * 200 + MapY
      MapMod = MapIndex Mod ModValue
      Rotate = (MapX Mod (ModValue - 1))
      MapMod = MapMod + Rotate
      MapArray(MapX,MapY) = (MapMod Mod 8)
    Next MapY
  Next MapX