APSF
//- Convert object coordinates from J2000.0 to current epoch. Store the status in
//- User field 4 (changeable below) to make sure a second run of the script only
//- converts previously unconverted objects. 
//-
//- Paul Rodman, October 2008
//-
//- V1.0    7 Oct 2008
//-   Initial release

const User_Field = 4  // Change this if you want to use another field (1..4)

dim i as integer, ra,dec as double

for i=1 to nObjects
  if Obj(i).User(User_Field)<>"Converted" then
    select case Obj(i).Type
    case "Planet","Minor","Comet","Moon"
      // Do nothing, since coords are computed
    else
      ra=Obj(i).RA
      dec=Obj(i).Dec
      CurrentEpoch(ra,dec)
      Obj(i).RA=ra
      Obj(i).Dec=dec
    end select
    Obj(i).User(User_Field)="Converted"
  end if
next