\start83\
\comment=Program file dated 10/07/97, 14:24
\name=INVTRIG
\file=J:\INVTRIG.AS3
Fix 4

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
Float
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,7,A)
Else
Output(2,7,"UNDEF")
End
Output(3,1,"ACOS=")
If R=0
Then
Output(3,7,B)
Else
Output(3,7,"UNDEF")
End
Output(4,1,"ATAN=")
Output(4,7,C)

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

Output(8,1,"   HIT ENTER")

\stop83\