5 GOTO10010
10 DATAsin²𝜃+cos²𝜃,1,10,20
20 DATA1+tan²𝜃,sec²𝜃,10,30
30 DATA1+cot²𝜃,cosec²𝜃,20,40
40 DATAsin(𝛼±𝛽),sin𝛼・cos𝛽±cos𝛼・sin𝛽,30,50
50 DATAcos(𝛼±𝛽),cos𝛼・cos𝛽∓sin𝛼・sin𝛽,40,60
60 DATAtan(𝛼±𝛽),(tan𝛼±tan𝛽)/(1∓tan𝛼・tan𝛽),50,70
70 DATAcot(𝛼±𝛽),(cot𝛼・cot𝛽∓1)/(cot𝛽±cot𝛼),60,80
80 DATAsin2𝜃,2sin𝜃・cos𝜃,70,90
90 DATAcos2𝜃,cos²𝜃-sin²𝜃,80,100
100 DATAcos2𝜃,1-2sin²𝜃,90,110
110 DATAcos2𝜃,2cos²𝜃-1,100,120
120 DATAtan2𝜃,2tan𝜃/(1-tan²𝜃),110,130
130 DATAsin(𝜃/2),±√((1-cos𝜃)/2),120,140
140 DATAcos(𝜃/2),±√((1+cos𝜃)/2),130,150
150 DATAtan(𝜃/2),±√((1-cos𝜃)/(1+cos𝜃)),140,160
160 DATAtan(𝜃/2),(1-cos𝜃)/sin𝜃,150,170
170 DATAtan(𝜃/2),sin𝜃/(1+cos𝜃),160,180
180 DATAtan(𝜃/2),cosec𝜃-cot𝜃,170,190
190 DATAcot(𝜃/2),±√((1+cos𝜃)/(1-cos𝜃)),180,200
200 DATAcot(𝜃/2),sin𝜃/(1-cos𝜃),190,210
210 DATAcot(𝜃/2),(1+cos𝜃)/sin𝜃,200,220
220 DATAcot(𝜃/2),cosec𝜃+cot𝜃,210,230
230 DATAsin3𝜃,3sin𝜃-4sin³𝜃,220,240
240 DATAcos3𝜃,4cos³𝜃-3cos𝜃,230,250
250 DATAtan3𝜃,(3tan𝜃-tan³𝜃)/(1-3tan²𝜃),240,260
260 DATA2sin𝛼・cos𝛽,sin(𝛼+𝛽)+sin(𝛼-𝛽),250,270
270 DATA2cos𝛼・sin𝛽,sin(𝛼+𝛽)-sin(𝛼-𝛽),260,280
280 DATA2cos𝛼・cos𝛽,cos(𝛼+𝛽)+cos(𝛼-𝛽),270,290
290 DATA2sin𝛼・sin𝛽,-(cos(𝛼+𝛽)-cos(𝛼-𝛽)),280,300
300 DATAsin𝛼+sin𝛽,2sin((𝛼+𝛽)/2)・cos((𝛼-𝛽)/2),290,310
310 DATAsin𝛼-sin𝛽,2cos((𝛼+𝛽)/2)・sin((𝛼-𝛽)/2),300,320
320 DATAcos𝛼+cos𝛽,2cos((𝛼+𝛽)/2)・cos((𝛼-𝛽)/2),310,330
330 DATAcos𝛼-cos𝛽,-2sin((𝛼+𝛽)/2)・sin((𝛼-𝛽)/2),320,340
340 DATAtan(45゜±(𝜃/2)),sec𝜃±tan𝜃,330,350
350 DATAtan(45゜±(𝜃/2)),(1±sin𝜃)/cos𝜃,340,360
360 DATAtan(45゜±(𝜃/2)),cot(45゜∓(𝜃/2)),350,370
370 DATAtan(45゜+𝜃),(1+tan𝜃)/(1-tan𝜃),360,380
380 DATAcot(45゜-𝜃),(1+cot𝜃)/(1-cot𝜃),370,380
10010 MODE8:DIM:x=10:y=380:r=x
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTm$;TAB(l);l$;"=";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