APSF
//- Display the Alt/Az of the selected object
//-
//- Paul Rodman, Feb 2009
//-
//- V1.0   5 Feb 2009
//-    Initial release

sub main()
  if SelectedObject<1 then 
    Bleep  // Beep if no object selected
    return
  else
    Print "Alt="+format(Obj(SelectedObject).Altitude,"-0.0")+DegreeSymbol+ _
          "   Az="+format(Obj(SelectedObject).Azimuth,"-0.0")+DegreeSymbol
  end if
end sub

main