\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=INVTRIG
\FILE=INVTRIG.82P


ClrHome
Disp "WHICH MODE ?"
Disp ""
Disp "(1) DEGREE"
Disp "(2) RADIAN"
Disp "(3) QUIT"
Disp ""
Input "ENTER CHOICE  ",W
If W=1
Degree
If W=2
Radian
If W=3
Then
ClrHome
Stop
End
ClrHome
Disp "ENTER NUMERICAL"
Disp "VALUE"
Disp ""
Input N
ClrHome
\tan^-1\ (N)\->\C
If N\<>\0
\tan^-1\ (1/N)\->\F

If ((N\<=\1) and (N\>=\\(-)\1))
Then
\sin^-1\ N\->\A
\cos^-1\ N\->\B
0\->\R
Else
1\->\R
End




If W=2 and N=0
\pi\/2\->\F
If W=1 and N=0
90\->\F


If ((N\>=\1) or (N\<=\\(-)\1))
Then
\sin^-1\ (1/N)\->\D
\cos^-1\ (1/N)\->\E
0\->\Q
Else
1\->\Q
End

If W=1
Disp "ANGLE IN DEGREES"
If F<0 and W=1
180+F\->\F

If W=2
Disp "ANGLE(RADIANS)="
If F<0 and W=2
\pi\+F\->\F

Output(2,1,"ASIN=")
If R=0
Then
Output(2,6,A)
Else
Output(2,6,"UNDEF")
End
Output(3,1,"ACOS=")
If R=0
Then
Output(3,6,B)
Else
Output(3,6,"UNDEF")
End
Output(4,1,"ATAN=")
Output(4,6,C)

Output(5,1,"ACSC=")
If Q=0
Then
Output(5,6,D)
Else
Output(5,6,"UNDEF")
End
Output(6,1,"ASEC=")
If Q=0
Then
Output(6,6,E)
Else
Output(6,6,"UNDEF")
End
Output(7,1,"ACOT=")
Output(7,6,F)

Output(8,1,"   HIT ENTER")
\STOP82\