IDL codes for marking surveys on the celestial sphere