APSF
// List the coordinates of all sites in Maidenhead format

dim i as integer
dim list as ListWindow
dim lat,long as double
dim s as string

list=new ListWindow("Site Coordinates")
list.Heading(1)="Site"
list.Heading(2)="Latitude"
list.Heading(3)="Longitude"
list.Heading(4)="Maidenhead"

for i=1 to nSites
  list.Cell(i,1)=Site(i).Name
  list.Cell(i,2,"Dec")=Site(i).Latitude
  list.Cell(i,3,"Dec")=Site(i).Longitude
  
  lat=Site(i).Latitude+90.0
  long=Site(i).Longitude+180.0

  s=chr(floor(long/20)+Asc("A"))+ _
    chr(floor(lat/10)+Asc("A"))
    
  long=long-floor(long/20)*20
  lat=lat-floor(lat/10)*10
    
  s=s+chr(floor(long/2)+Asc("0"))+ _
    chr(floor(lat)+Asc("0"))
    
  long=long-floor(long/2)*2
  lat=lat-floor(lat)
  
  s=s+chr(floor(long*12)+Asc("A"))+ _
    chr(floor(lat*24)+Asc("A"))

  list.Cell(i,4)=s
next