image of READY prompt

Wang2200.org

Listing of file='21' on disk='vmedia/glbr_22.wvd.zip'

# Sector 379, program filename = '21'
0005 SELECT R
0010 PRINT "CODE,X? TO END PROGRAM INPUT 0,0."
0020 INPUT N,X
0025 IF N=0 THEN 240
0030 IF N>3 THEN 140
0040 S=(EXP(X)-EXP(-X))/2
0050 C=(EXP(X)+EXP(-X))/2
0060 IF N>1 THEN 90
0070 PRINT "SINH(X)=";S
0080 GOTO 210
0090 IF N>2 THEN 120
0100 PRINT "COSH(X)=";C
0110 GOTO 210
0120 PRINT "TANH(X)=";S/C
0130 GOTO 210
0140 IF N>4 THEN 170
0150 PRINT "ARCSINH(X)=";LOG(X+SQR(X^2+1))
0160 GOTO 210
0170 IF N>5 THEN 200
0180 PRINT "ARCCOSH(X)=";LOG(X+SQR(X^2-1))
0190 GOTO 210
0200 PRINT "ARCTANH(X)=";LOG((1+X)/(1-X))/2
0210 PRINT
0220 PRINT "CODE,X?"
0230 GOTO 20
0240 SELECT D
   : END