5 SELECT R
10 PRINT "CODE,X? TO END PROGRAM INPUT 0,0." 
20 INPUT N,X 
25 IF N=0 THEN 240 
30 IF N>3 THEN 140 
40 S=(EXP(X)-EXP(-X))/2
50 C=(EXP(X)+EXP(-X))/2
60 IF N>1 THEN 90
70 PRINT "SINH(X)=";S
80 GOTO 210
90 IF N>2 THEN 120 
100 PRINT "COSH(X)=";C 
110 GOTO 210 
120 PRINT "TANH(X)=";S/C 
130 GOTO 210 
140 IF N>4 THEN 170
150 PRINT "ARCSINH(X)=";LOG(X+SQR(X^2+1))
160 GOTO 210 
170 IF N>5 THEN 200
180 PRINT "ARCCOSH(X)=";LOG(X+SQR(X^2-1))
190 GOTO 210 
200 PRINT "ARCTANH(X)=";LOG((1+X)/(1-X))/2 
210 PRINT 
220 PRINT "CODE,X?"
230 GOTO 20
240 SELECT D :END 

