5 GOTO10010
10 DATAF ,9.648456,×10⁴ [C・mol⁻¹],×10³ [emu・mol⁻¹],E4,E3,10,20
20 DATAG ,6.6720,×10⁻¹¹ [m³・s⁻²・kg⁻¹],×10⁻⁸ [cm³・s⁻²・g⁻¹],E-11,E-8,10,30
30 DATANa,6.022045,×10²³ [mol⁻¹],×10²³ [mol⁻¹],E23,E23,20,40
40 DATAR ,8.31441," [J・mol⁻¹・K⁻¹]",×10⁷ [erg・mol⁻¹・K⁻¹],,E7,30,50
50 DATAR➃,1.097373177,×10⁷ [m⁻¹],×10⁵ [cm⁻¹],E7,E5,40,60
60 DATAVm,22.41383,×10⁻³ [m³・mol⁻¹],×10³ [cm³・mol⁻¹],E-3,E3,50,70
70 DATAa₀,5.2917706,×10⁻¹¹ [m],×10⁻⁹ [cm],E-11,E-1,60,80
80 DATAc ,299792458," [m・s⁻¹]",×10² [cm・s⁻¹],,E2,70,90
90 DATAe ,1.6021892,×10⁻¹⁹ [C],×10⁻²⁰ [emu],E-19,E-20,80,100
100 DATAg ,9.80665," [m・s⁻²]",×10² [cm・s⁻²],,E2,90,110
110 DATAh ,6.626176,×10⁻³⁴ [J・s],×10⁻²⁷ [erg・s],E-34,E-27,100,120
120 DATAk ,1.380662,×10⁻²³ [J・K⁻¹],×10⁻¹⁶ [erg・K⁻¹],E-23,E-16,110,130
130 DATAme,9.109534,×10⁻³¹ [kg],×10⁻²⁸ [g],E-31,E-28,120,140
140 DATAmn,1.6749543,×10⁻²⁷ [kg],×10⁻²⁴ [g],E-27,E-24,130,150
150 DATAmp,1.6726485,×10⁻²⁷ [kg],×10⁻²⁴ [g],E-27,E-24,140,160
160 DATAu ,1.6605655,×10⁻²⁷ [kg],×10⁻²⁴ [g],E-27,E-24,150,170
170 DATA𝜀₀,8.854187818,×10⁻¹² [F・m⁻¹],,E-12,,160,180
180 DATA𝜇₀,12.5663706144,×10⁻⁷ [H・m⁻¹],,E-7,,170,190
190 DATA𝜇b,9.274078,×10⁻²⁴ [J・T⁻¹],×10⁻²¹ [erg・G⁻¹],E-24,E-21,180,200
200 DATA𝜇e,9.284832,×10⁻²⁴ [J・T⁻¹],×10⁻²¹ [erg・G⁻¹],E-24,E-21,190,210
210 DATA𝜇p,1.4106171,×10⁻²⁶ [J・T⁻¹],×10⁻²³ [erg・G⁻¹],E-26,E-23,200,220
220 DATA𝜎 ,5.67032,×10⁻⁸ [W・m⁻²・K⁻⁴],×10⁻⁵[erg・s⁻¹cm⁻²K⁻⁴],E-8,E-5,210,220
10010 u=0:MODE8:DIM:x=10:y=220:d$=CHR$(5):r=x:DEFCHR$(255)="060A040A0D"
10050 CLS:LOCATE0,1:PRINT">constant : key A-Z ?";
10110 RESTORE(r)
10120 READm$,n$,s$,t$,x$,y$,b,c:l$="["+MID$(STR$(r/10),2)+"]":IFr<100 THENl$=" "+l$
10130 IFu=1 THENu$=t$ ELSEu$=s$
10140 d=0:LOCATE0,0:PRINTd$;m$;" =";n$;u$;:LOCATE27,1:PRINTl$;
10150 LOCATE30,1:z=ASC(INPUT$(1,@))
10165 IFz>96 THENz=z-32
10170 IFz=28 ANDu<>1 THENu=1:GOTO10130
10180 IFz=29 ANDu<>0 THENu=0:GOTO10130
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10220 IFz>64 ANDz<91 THENGOSUB10310:d=1
10230 IF(z=28 ORz=29) ANDd=1 THEN10140
10280 GOTO10150
10310 LOCATE0,0:PRINT"[";CHR$(z);"]";
10320 IFu=1 THENv$=n$+y$ ELSEv$=n$+x$
10330 a=VAL(v$)
10350 ON z-64 GOSUB10401,10402,10403,10404,10405,10406,10407,10408,10409,10410,10411,10412,10413,10414,10415,10416,10417,10418,10419,10420,10421,10422,10423,10424,10425,10426
10401 A=a:RETURN
10402 B=a:RETURN
10403 C=a:RETURN
10404 D=a:RETURN
10405 E=a:RETURN
10406 F=a:RETURN
10407 G=a:RETURN
10408 H=a:RETURN
10409 I=a:RETURN
10410 J=a:RETURN
10411 K=a:RETURN
10412 L=a:RETURN
10413 M=a:RETURN
10414 N=a:RETURN
10415 O=a:RETURN
10416 P=a:RETURN
10417 Q=a:RETURN
10418 R=a:RETURN
10419 S=a:RETURN
10420 T=a:RETURN
10421 U=a:RETURN
10422 V=a:RETURN
10423 W=a:RETURN
10424 X=a:RETURN
10425 Y=a:RETURN
10426 Z=a:RETURN