5 GOTO10010
10 DATACoulomb's law (electric f.),"F=k₀・Q➀Q➁/r² , k₀=9*10⁹[N・m²/C²]",10,20,
20 DATAElectric field,"E=V/d , F=QE , W=QV",10,30,
30 DATACapacitance,"Q=CV , C=𝜀₀・S/d",20,40,
40 DATACapacitance,"C=C➀+C➁ , 1/C=1/C➀+1/C➁",30,50,
50 DATADielectric constant,"D=𝜀₀E , C=𝜀C₀",40,60,
60 DATAElectrostatic energy,U=1/2・QV=1/2・CV²,50,70,
70 DATAElectrons in electric field,"a=QE/m , 1/2・mv²=eV",60,80,
80 DATACoulomb's law (magnetic f.),"F=k₀・m➀m➁/r² , k₀=10⁷/(4π)²",70,90,
90 DATAMagnetic field,"H=I/2πr , H=I/2r , H=nI",80,100,
100 DATAMagnetic field,F=𝜇₀IHl=IBl,90,110,
110 DATAMagnetic flux density,B=m/4πr²=𝜇₀H,100,120,
120 DATALorentz force,"F=QvB , r=mv/QB",110,130,
130 DATAElectrons in magnetic field,"1/2・mv²=Q²B²r²/2m , ➂=v/r=QB/m",120,140,
140 DATAFaraday's law of induction,V=-n・△𝜙/△t,130,150,
150 DATAElectromagnetic induction,"V=El=vBl , I=vBl/R",140,160,
160 DATAMutual induction,V➁=-M・△I➀/△t,150,170,
170 DATASelf-induction,V'=-L・△I/△t,160,170,
10010 MODE8:DIM:x=10:y=170:r=x
10020 DEFCHR$(254)="3E020C223E"
10040 DEFCHR$(253)="2E2A3A0000"
10050 DEFCHR$(252)="123E020000"
10110 RESTORE(r)
10120 CLS:READm$,n$,b,c,d
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 PRINTm$;TAB(l);l$;n$;:LOCATE0,0:LOCATE1,1
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