1 SELECT R
5 PRINT 
10 PRINT "A,B? (TO END PROGRAM INPUT 0,0)"  
15 INPUT A,B  
16 PRINT 
20 IF A^2+B^2=0 THEN 999  
25 DEFFNS(W)=(EXP(W)-EXP(-W))/2  
30 DEFFNC(W)=(EXP(W)+EXP(-W))/2  
35 X=SIN(A)*FNC(B)  
40 Y=COS(A)*FNS(B)  
45 PRINT "SIN(A+BI)=";X;"+";Y;"I" 
50 X=COS(A)*FNC(B)  
55 Y=-SIN(A)*FNS(B) 
60 PRINT "COS(A+BI)=";X;"+";Y;"I" 
65 D=COS(2*A)+FNC(2*B)  
70 X=SIN(2*A)/D
75 Y=FNS(2*B)/D
80 PRINT "TAN(A+BI)=";X;"+";Y;"I" 
85 X=FNS(A)*COS(B)  
90 Y=FNC(A)*SIN(B)  
95 PRINT "SINH(A+BI)=";X;"+";Y;"I"  
100 X=FNC(A)*COS(B) 
110 Y=FNS(A)*SIN(B) 
120 PRINT "COSH(A+BI)=";X;"+";Y;"I" 
130 D=FNC(2*A)+COS(2*B) 
140 X=FNS(2*A)/D 
150 Y=SIN(2*B)/D 
160 PRINT "TANH(A+BI)=";X;"+";Y;"I" 
170 PRINT 
180 PRINT 
190 PRINT "A,B?"  
200 GOTO 15 
999 SELECT D :END 

