[moka]

Function readmap(file_in$)
 Local file = ReadFile(file_in)
 Local width = ReadInt(file)
 Local height = ReadInt(file)
 Print width+","+height
 Local dim:Int[width,height]
 For y = 0 To height - 1
  For x = 0 To width - 1
   dim[x,y] = ReadInt(file)
   Print dim[x,y]
  Next
 Next
 For b:Int = EachIn dim
  Print b
 Next
 CloseFile(file)
End Function

Function writemap(file_out$,width%,height%,array:int[])
 Local file = WriteFile(file_out$)
 WriteInt(file, width)
 WriteInt(file, height)
 For y = 0 To height - 1
  For x = 0 To width - 1
   WriteInt(file, array[x,y])
  Next
 Next
 CloseFile(file)
End Function

Редактировал в броузере, поэтому може где ошибка есть, но не должно быть.
Вот 2д массив тебе сохраняется, и загружается.