<<  @Welcome to Version 2.0  Major bug fixes including @
@random crashing at questions on refraction, preasure, @
@and paralax also spelling to be checked and spacing made@
@better ie pretty, this version also uses choose to @
@restrict user input on y/n question  6-11-97 DWS@
" Azimuth v2.0
   (c) 1997
 David Shafer
 Press  ENTER"
MSGBOX 	
"Dec.() @ 0h GMT on
Date of Observation"		
" " INPUT OBJ HMS		
 TODAY
<<
"Dec.() @ 0h GMT on
Day after Observation"
" " INPUT OBJ HMS		 
 TOMORROW
<<
"  GMT of Obs. (24h)"
" " INPUT OBJ HMS		
 OTIME
<<
"Latitude of Obs." " "
INPUT OBJ HMS		
 LAT
<<
"Select Angle Type"
{{ Vertical << "Enter Angle in DMS"  ""
 INPUT OBJ HMS 90 SWAP - 'ANGL' STO >> } { Zenith 
 <<  "Enter Angle in DMS" "" INPUT OBJ HMS 'ANGL' STO >> }} 
 2 CHOOSE DROP EVAL 

"Correct for Refraction?"
{{Yes 
<<  "Is Bar. Pres. Known?" 
	{{Yes  <<  "Enter Preasure in
Inches of Mercury" ""
		    INPUT OBJ 'BPRES' STO >> }
	{No <<  "Enter Elevation
Above Sea Level" "" INPUT OBJ
 		92670 SWAP - 62737 / ALOG
		'BPRES' STO >> } } 2 CHOOSE DROP EVAL 
	"Enter Temperature 
in Degrees F." "" INPUT OBJ
 	'TEMP' STO
	 983 BPRES * ANGL TAN *
	460 TEMP + / 'REF' STO
	'BPRES' PURGE 'TEMP' PURGE >> } { No << 0 'REF' STO >> } } 
	1 CHOOSE DROP EVAL  

"Correct for Parallax?"
{{Yes << 8.8 ANGL SIN * 'PARA' STO >> }
{No << 0 'PARA' STO >> } } 1 CHOOSE DROP EVAL 
 
   ANGL REF PARA
- 3600 / +  'ANGL' STO
'REF' PURGE 'PARA' PURGE

 TOMORROW
TODAY - 24 / OTIME
* TODAY + 

 SIN ANGL
COS LAT SIN * -
ANGL SIN LAT COS *
/ ACOS HMS STR 
'ANGL' PURGE 
"AZIMUTH =" SWAP +
CLLCD 1 DISP 1
FREEZE
