5 GOTO10010
10 DATAC,0,10,20
20 DATAxⁿ,nxⁿ⁻¹,10,30
30 DATAx,1,20,40
40 DATA1/x,-1/x²,30,50
50 DATA√➃,1/(2√➃),40,60
60 DATAa﹪,a﹪loga,50,70
70 DATAe﹪,e﹪,60,80
80 DATAeⁿ﹪,neⁿ﹪,70,90
90 DATAlogx,1/x,80,100
100 DATAx﹪,x﹪(logx+1),90,110
110 DATAsinx,cosx,100,120
120 DATAcosx,-sinx,110,130
130 DATAtanx,sec²x,120,140
140 DATAcotx,-cosec²x,130,150
150 DATAsecx,secx・tanx,140,160
160 DATAcosecx,-cosecx・cotx,150,170
170 DATAsinax,a・cosax,160,180
180 DATAcosax,-a・sinax,170,190
190 DATAtanax,a・sec²ax,180,200
200 DATAcotax,-a・cosec²ax,190,210
210 DATAsin⁻¹x,1/√(1-x²) (➂y➂<π/2),200,220
220 DATAcos⁻¹x,-1/√(1-x²) (0<y<π),210,230
230 DATAtan⁻¹x,1/(1+x²) (➂y➂<π/2),220,240
240 DATAcot⁻¹x,-1/(1+x²) (➂y➂<π/2),230,250
250 DATAsec⁻¹x,"1/(x√(x²-1)) (0<y<π,x²>1)",240,260
260 DATAcosec⁻¹x,"1/(x√(x²-1)) (➂y➂<π/2,x²>1)",250,270
270 DATAsinhx,coshx,260,280
280 DATAcoshx,sinhx,270,290
290 DATAtanhx,sech²x,280,300
300 DATAcothx,-cosech²x,290,310
310 DATAsechx,-sechx・tanhx,300,320
320 DATAcosechx,-cosechx・cothx,310,330
330 DATAsinh⁻¹x,1/√(1+x²),320,340
340 DATAcosh⁻¹x,"1/√(x²-1) (y>0,x²>1)",330,350
350 DATAtanh⁻¹x,1/(1-x²) (x²<1),340,360
360 DATAcoth⁻¹x,1/(1-x²) (x²>1),350,370
370 DATAsech⁻¹x,-1/(x√(1-x²)) (0<x<1),360,380
380 DATAcosech⁻¹x,-1/(x√(x²+1)),370,380
10010 MODE8:DIM:x=10:y=380:r=x
10020 DEFCHR$(255)="A2A49C92A2"
10030 DEFCHR$(254)="0000FE0000"
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINT"y =";m$;TAB(l);l$;"y";CHR$(131);"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150