\start83\
\comment=Program file dated 10/07/97, 14:24
\name=TRGFN
\file=J:\TRGFN.AS3
Fix 4
ClrHome
Disp "WHICH MODE ?"
Disp ""
Disp "(1) DEGREE"
Disp "(2) RADIAN"
Disp "(3) QUIT"
Disp ""
Input "ENTER CHOICE  ",C
If C=3
Then
ClrHome
Float
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")

\stop83\