APSF
// Export global observations
// Paul Rodman, Nov 2006

dim iObs as integer, obs as APGlobalObservation
dim s,line(-1) as string, d as double, f as APTextFile

// Define required delimiter
const delimiter="|"

f=WriteTextFile
if FileErrorCode<0 then return

// Loop through all global observations
for iObs=1 to nGlobalObservations
  obs=GlobalObservation(iObs)
  
  redim line(-1)
  
  // Create MySQL date format
  d=obs.DateTime
  s=format(YearOfDate(d),"0000")+"-"+format(MonthOfDate(d),"00")+"-"+format(DayOfDate(d),"00")
  s=s+" "+format(HourOfDate(d),"00")+":"+format(MinuteOfDate(d),"00")+":"+format(SecondOfDate(d),"00")
  line.Append s
  
  // Add the other fields
  line.Append obs.ID
  line.Append obs.Name
  line.Append obs.Type
  line.Append obs.Plan
  line.Append obs.Observer
  line.Append obs.Constellation
  line.Append FormatRA(obs.RA,false)
  line.Append FormatDec(obs.Dec,false,"+dms:")
  line.Append obs.Site
  line.Append obs.Telescope
  line.Append obs.Eyepiece
  line.Append obs.Aid
  line.Append obs.Filter
  line.Append str(obs.Rating)
  line.Append obs.Seeing
  line.Append obs.Transparency
  line.Append obs.Notes
  line.Append obs.User1
  line.Append obs.User2

  // Construct the line with the given line ending
  s=Join(line,delimiter)
  
  // Write line with Unix line ending
  f.Write s+chr(10)    
next

f.Close