'Make Observing Run - Minor Planet Hunting
'by Greg Sellek
'1/25/2001


dim rh,rm,rs	'R.A. Hours, minutes, seconds
dim dd,dm,ds	'Dec. Deg, minutes, seconds

dim wm,ws  	'Width of Field
dim hm,hs  	'Height of Field
Dim fso, f

wm=1
ws=35
hm=15
hs=42


Set fso = CreateObject("Scripting.FileSystemObject")
set f=fso.CreateTextFile(Month(Date)&"-"&day(date)&"-"&year(date)&"plan.txt", 2)

sets=inputbox ("How Many sets?")

f.writeline ("#SETS "&sets)

exposure=inputbox( "How long exposure?")

f.writeline ("#INTERVAL "&exposure)

iterations=inputbox ("How many objects do you have?", "Total number of objects")

for i = 1 to iterations

Getobject

next


Sub Getobject

objectname= inputbox("Object Name #"&i&"?","Object Name")
coodinates=inputbox ("What are the coodinates for "& objectname &"?","Object Coodinates")


ra=mid(coodinates,5,13)


rh=left(ra,2)
rm=mid(ra,5,2)
rs=mid(ra,9,2)


decpos=instr(coodinates,"Dec:")
dec=mid(coodinates,decpos+5 ,9)

'dec = right(coodinates,13)


dd=left(dec,3)
dm=mid(dec,5,2)
ds=mid(dec,8,2)



'result format
'hh:mm:ss<tab>+dd:mm:ss<tab>object name (may have spaces, etc.)

'This was the old way in ACP1
'f.writeline (rh&":"&rm&":"&rs&chr(9)&dd&":"&dm&":"&ds&chr(9)&objectname)


'Here's how we do it in ACP2
f.writeline (objectname&chr(9)&rh&"h "&rm&"m "&rs&"s"&chr(9)&dd&chr(186)&" "&dm&"' "&ds&"""")

End sub