Sub LoadContent
Dim Content as Map
Content.Initialize
Content=ReadMap(Destination,"MapFileName")
End Sub
Sub Destination as Boolean
Return File.ExternalReadable
End Sub
Sub ReadMap(Destination as Boolean, MapName as String) as Map
Dim MyMap as Map
MyMap.Initialize
If Destination then
MyMap=File.ReadMap(File.DirExternal,MapName)
Else
MyMap=File.ReadMap(File.DirInternal,MapName)
End if
Return MyMap
End Sub