\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=TRGFN
\FILE=TRGFN.82P
ClrHome
Disp "WHICH MODE ?"
Disp ""
Disp "(1) DEGREE"
Disp "(2) RADIAN"
Disp "(3) QUIT"
Disp ""
Input "ENTER CHOICE  ",C
If C=3
Then
ClrHome
Stop
End
ClrHome
Disp "ENTER THE ANGLE"
Prompt A
If C=1
Degree
If C=2
Radian
ClrHome
Output(1,1,"SIN A=")
Output(1,8,sin A)
Output(2,1,"COS A=")
Output(2,8,cos A)
Output(3,1,"TAN A=")
If (cos A)=0
Then
Output(3,8,"UNDEFINED")
Else
Output(3,8,tan A)
End
Output(4,1,"CSC A=")
If (sin A)=0
Then
Output(4,8,"UNDEFINED)
Else
Output(4,8,1/sin A)
End
Output(5,1,"SEC A=")
If (cos A)=0
Then
Output(5,8,"UNDEFINED")
Else
Output(5,8,1/cos A)
End
Output(6,1,"COT A=")
If (sin A)=0
Then
Output(6,8,"UNDEFINED")
Else
Output(6,8,cos A/sin A)
End
Output(7,1,"HIT ENTER "
Output(8,1,"TO REPEAT")
\STOP82\