APSF
//- Puts the chart numbers for Peterson Field Guides: Stars and Planets (Pasachoff)
//- into a user-defined field for each object in the plan.
//-
//- Paul Rodman, Sep 2008
//-
//- V1.0   6 Sep 2008
//-   First release

// Change the following line to specify what user field you want to use (1...4)

const UserFieldNumber = 1

dim chartNumber(-1) as integer
dim raFrom(-1),raTo(-1),decFrom(-1),decTo(-1) as double

sub AddChart(n as integer, raF as double, raT as double, decF as double, decT as double)
  chartNumber.Append n
  raFrom.Append raF
  raTo.Append raT
  decFrom.Append decF
  decTo.Append decT
end sub

function GetChartNumber(ra as double, dec as double) as string
  dim i as integer
  for i=0 to ubound(chartNumber)
    if ra>=raFrom(i) and ra<=raTo(i) and dec>=decFrom(i) and dec<=decTo(i) then return format(chartNumber(i),"00")
  next
  return "??"
end function

dim i as integer

AddChart(1, 22.5, 24.0, 50, 90)
AddChart(1, 0.0, 1.5, 50, 90)
AddChart(2, 1.5, 4.5, 50, 90)
AddChart(3, 4.5, 7.5, 50, 90)
AddChart(4, 7.5, 10.5, 50, 90)
AddChart(5, 10.5, 13.5, 50, 90)
AddChart(6, 13.5, 16.5, 50, 90)
AddChart(7, 16.5, 19.5, 50, 90)
AddChart(8, 19.5, 22.5, 50, 90)
AddChart(9, 0, 2, 20, 50)
AddChart(10, 2, 4, 20, 50)
AddChart(11, 4, 6, 20, 50)
AddChart(12, 6, 8, 20, 50)
AddChart(13, 8, 10, 20, 50)
AddChart(14, 10, 12, 20, 50)
AddChart(15, 12, 14, 20, 50)
AddChart(16, 14, 16, 20, 50)
AddChart(17, 16, 18, 20, 50)
AddChart(18, 18, 20, 20, 50)
AddChart(19, 20, 22, 20, 50)
AddChart(20, 22, 24, 20, 50)
AddChart(21, 23, 24, -20, 20)
AddChart(21, 0, 1, -20, 20)
AddChart(22, 1, 3, -20, 20)
AddChart(23, 3, 5, -20, 20)
AddChart(24, 5, 7, -20, 20)
AddChart(25, 7, 9, -20, 20)
AddChart(26, 9, 11, -20, 20)
AddChart(27, 11, 13, -20, 20)
AddChart(28, 13, 15, -20, 20)
AddChart(29, 15, 17, -20, 20)
AddChart(30, 17, 19, -20, 20)
AddChart(31, 19, 21, -20, 20)
AddChart(32, 21, 23, -20, 20)
AddChart(33, 0, 2, -50, -20)
AddChart(34, 2, 4, -50, -20)
AddChart(35, 4, 6, -50, -20)
AddChart(36, 6, 8, -50, -20)
AddChart(37, 8, 10, -50, -20)
AddChart(38, 10, 12, -50, -20)
AddChart(39, 12, 14, -50, -20)
AddChart(40, 14, 16, -50, -20)
AddChart(41, 16, 18, -50, -20)
AddChart(42, 18, 20, -50, -20)
AddChart(43, 20, 22, -50, -20)
AddChart(44, 22, 24, -50, -20)
AddChart(45, 22.5, 24, -90, -50)
AddChart(45, 0, 1.5, -90, -50)
AddChart(46, 1.5, 4.5, -90, -50)
AddChart(47, 4.5, 7.5, -90, -50)
AddChart(48, 7.5, 10.5, -90, -50)
AddChart(49, 10.5, 13.5, -90, -50)
AddChart(50, 13.5, 16.5, -90, -50)
AddChart(51, 16.5, 19.5, -90, -50)
AddChart(52, 19.5, 22.5, -90, -50)

UserHeading(UserFieldNumber)="Chart"
for i=1 to nObj
  Obj(i).User(UserFieldNumber)=GetChartNumber(Obj(i).RA,Obj(i).Dec)
next