use planets.frink

lat = 39.58563 degrees North
long = 104.89581 degrees West

time = now[]

println["\tAzimuth\t\tAltitude\tDistance (au)\tMagnitude"]
for planet = Planet.planets
{
   if planet == Planet.Earth
      next;

   [az, alt] = planet.refractedAzimuthAltitude[time,lat, long]
   distance = format[trueDistance[time, Planet.Earth, planet], au, 9]
   mag = format[planet.getMagnitude[time], 1, 1]
   println[planet.getName[] + "\t" + format[(az + 180 degrees) mod circle, degrees, 6] + "\t" + format[alt,degrees,6] + "\t$distance\t$mag\t" + (alt > 0 degrees ? "*" : "")]
}