Function SaveMap()
   
   Local file$ = Input("Name der Datei: ")
   
   Local writer=WriteFile("Maps\" + file$ + ".bb")
   
   WriteLine writer, "Dim map(" + map_width + "," + map_height + ")"
   
   WriteLine writer, ""
   
   WriteLine writer, "Restore mapdata"
   
   WriteLine writer, "For y=0 To " + map_width + ""
   
   WriteLine writer, "For x=0 To " + map_height + ""
   
      WriteLine writer, "Read map(x, y)"
   
      WriteLine writer, "Next"
   
      WriteLine writer, "Next"
      
      WriteLine writer, ""
   
   WriteLine writer, ".mapdata"
   
   Local var = map_width
   
   For x=0 To map_width - 1
      
      For y=0 To map_height - 1
         
         var = var + 1
         
         If var = map_width Then
         
            WriteLine writer, "Data " + map(x,y) + ", "
            
            var = 0
            
         Else
            
            WriteLine writer, "" + map(x,y) + ", "
            
         EndIf
         
      Next
      
   Next
   
   
   CloseFile writer
   
   Print "Datei gespeichert!"
   
End Function