Function save()
If neue_map=3 Then
If MapName$=\"\" Then MapName=\"Map1\"
mapsave=WriteFile(\"save/\"+MapName+\".txt\")
OpenFile mapsave
WriteLine(mapsave,chipset_name$)  
WriteLine(mapsave,tile_X) 
WriteLine(mapsave,tile_Y)
WriteLine(mapsave,map_breite)
WriteLine(mapsave,map_hoehe)
WriteLine(mapsave,T_red)
WriteLine(mapsave,T_green)
WriteLine(mapsave,T_blue)
WriteLine(mapsave,map_layer)
For mapx=0 To map_breite-1
For mapy=0 To map_hoehe-1
For mlayer=1 To map_layer
WriteLine(mapsave,map[mapx,mapy,mlayer])
Next ;Next;Next 
CloseFile mapsave
EndIf 
End Function


Function Load()
mapload=ReadFile(\"save/12.txt\")
OpenFile mapload
chipset_name$=ReadLine(mapload)  
tileX$=ReadLine(mapload) 
tileY$=ReadLine(mapload)
mapbreite$=ReadLine(mapload)
maphoehe$=ReadLine(mapload)
red$=ReadLine(mapload)
green$=ReadLine(mapload)
blue$=ReadLine(mapload)
maplayer$=ReadLine(mapload)
For mapx=0 To map_breite-1
For mapy=0 To map_hoehe-1
For mlayer=1 To map_layer
map2$[mapx,mapy,mlayer]=ReadLine(mapsave)
Next ;Next;Next 

mystring1$=TileX
tile_X=mystring1.toint() 
mystring2$=TileY
tile_y=mystring2.toint()
mystring3$=MapBreite
map_breite=mystring3.toint()
mystring4$=Maphoehe
map_hoehe=mystring4.toint()
mystring5$=red
T_red=mystring5.toint()
mystring6$=green
T_green=mystring6.toint()
mystring7$=blue
T_blue=mystring7.toint()
mystring8$=maplayer
map_layer=mystring8.toint()
mystring9$=map2[mapx,mapy,mlayer]
map[mapx,mapy,mlayer]=mystring9.toint()
CloseFile mapload
End Function