#define StepLon 0.001
	#define StepLat 0.001
	#define StepMax 3
	
	Set OrigLon=51.25456
	Set OrigLat=4.4585
	
	Set Result=$$MapPoint(OrigLon,OrigLat)
	Quit:$isObject(Result) Result
	
	For Step=1:1:$$$StepMax Do  Quit:$isObject(Result)
	. W !,"Step=",Step
	. Set BeginLon=OrigLon-($$$StepLon*(Step))-($$$StepLon/2)
	. Set BeginLat=OrigLat-($$$StepLat*(Step))-($$$StepLat/2)
	. For StepLon=1,Step*2 Do  Quit:$isObject(Result)
	. . Set Lon=BeginLon+(StepLon*$$$StepLon)
	. . For StepLat=1:1:Step*2 Do  Quit:$isObject(Result)
	. . . Set Lat=BeginLat+(StepLat*$$$StepLon)
	. . . Set Result=$$MapPoint(Lon,Lat)
	. For StepLon=2:1:Step*2-1 Do  Quit:$isObject(Result)
	. . Set Lon=BeginLon+(StepLon*$$$StepLon)
	. . For StepLat=1,Step*2 Do  Quit:$isObject(Result)
	. . . Set Lat=BeginLat+(StepLat*$$$StepLon)
	. . . Set Result=$$MapPoint(Lon,Lat)

MapPoint(Lon,Lat)
	w !,Lon," ",Lat
	Quit ""