APSF
// Find the altitude of an object at transit.
// Add the info to user-defined columns.

dim lat,alt as double, i as integer, usercols(-1),sm as string

dim VColumn as integer

usercols.Append "User 1"
usercols.Append "User 2"
usercols.Append "User 3"
usercols.Append "User 4"

VColumn=0

SetPopupParameter("User column for value",VColumn,usercols)

if not EditParameters("Select column") then return

VColumn=GetPopupParameter("User column for value")

lat=CurrentSite.Latitude
for i=1 to nObjects
  if lat>=0 then
    alt = 90 - lat + Obj(i).Dec
  else
    alt = 90 + lat - Obj(i).Dec
  end if
  if alt>90 then alt=180-alt
  sm=str(round(alt))+DegreeSymbol
  select case VColumn+1
    case 1
      Obj(i).User1 = sm
    case 2
      Obj(i).User2 = sm
    case 3
      Obj(i).User3 = sm
    case 4
      Obj(i).User4 = sm
  end select
next

UserHeading(VColumn+1)="Alt @ Transit"