APSF
//- Set the specified user field to contain consecutive integers, 
//- suitable for retaining order in the observing list. The user
//- field will get the heading: Order.
//-
//- Paul Rodman, May 2008

// Change the following constant to 1, 2, 3, or 4, depending on which user field you want to use

const UserFieldNumber = 1

dim i as integer

UserHeading(UserFieldNumber)="Order"
if UserFieldNumber<1 or UserFieldNumber>4 then return 
for i=1 to nObj
  Obj(i).User(UserFieldNumber)=format(i,"00000")
next