\start83P\
\comment=Program file dated 11/11/05, 10:48
\protected=FALSE
\name=TWOSTA
\file=C:\AACLAS~1\ELIJAH\TWOSTA.TXT
ClrHome
Disp "STATION 1 ANGLES"
Input "HORIZ: ",X
Input "VERT: ",A
Disp "STATION 2 ANGLES"
Input "HORIZ: ",Y
Input "VERT: ",B
Disp 
Input "BASE LINE: ",D
If X=0 or Y=0
Then
D*tan(A)/2\->\M
D*tan(B)/2\->\N
Else
D/sin(180-X-Y)\->\J
tan(A)*sin(Y)*J\->\M
tan(B)*sin(X)*J\->\N
End
(M+N)/2\->\Z
(M-N)*100/(M+N)\->\E
ClrHome
Output(1,1,"BASE")
Output(1,8,D)
Output(2,1,"STA 1 ")
Output(2,8,A)
Output(2,13,X)
Output(3,1,"STA 2 ")
Output(3,8,B)
Output(3,13,Y)
Output(4,1,"ALT ")
Output(4,8,round(M,0))
Output(4,13,round(N,0))
Output(5,1,"AVG ")
Output(5,8,round(Z,0))
Output(6,1,"ERR PC ")
Output(6,8,round(E,1))

\stop83P\