APSF
// Count the total objects in all catalogues, by type

dim i,j,list as integer, c as APCatalog, count(99),n(-1) as integer
dim stars, DSOs as integer, catcount as integer

for i=1 to nCatalogs
  c=GetCatalog(i)
  if instr(c.Name,"USNO A2")<=0 and instr(c.Name,"UCAC")<=0 then 
    catcount=catcount+1
    for j=1 to 99
      count(j)=count(j)+c.nObjectsOfType(j)
    next
  end if
next

list=NewList("Catalogue Objects")
ListHeading(list,1,"Type")
ListHeading(list,2,"Count",2)

AddToList(list,1,1,"Number of catalogues")
AddToList(list,1,2,format(catcount,",0"))    

j=2
for i=1 to 99
  if count(i)>0 then
    j=j+1
    AddToList(list,j,1,TypeName(i))
    AddToList(list,j,2,format(count(i),",0"))    
  end if
next

n=StellarTypeNumbers
for i=0 to ubound(n)
  stars=stars+count(n(i))
next
j=j+2
AddToList(list,j,1,"Stellar Objects")
AddToList(list,j,2,format(stars,",0"))    

n=DSOTypeNumbers
for i=0 to ubound(n)
  DSOs=DSOs+count(n(i))
next
j=j+1
AddToList(list,j,1,"DSO Objects")
AddToList(list,j,2,format(DSOs,",0"))    

Bleep