210"S"INPUT"SERIES? E";E
220I=INT(LOG(E/3)/LOG(2))
230IF (I<0)+(I>6)+(E<>INT(3*2^I+.1))PAUSE "BAD SERIES":GOTO "S"
240END
310"L"PRINT USING; "SERIES E";E
320PRINT USING "####";"----------------"
330C=0:FOR N=0TO E-1
340GOSUB "EC":A(C+23)=V:C=C+1
350IF C=4PRINT W;X;Y;Z:C=0
360NEXT N
370IF E=3PRINT W;X;Y
380IF E=6PRINT W;X
390PRINT USING ;" ":END
410"F"INPUT "RESISTANCE? ";R
420I=INT (E*LOGR+0.5):O=€99:G=I:GOSUB 500
430G=G-1:GOSUB 500:IF H=GGOTO 430
440G=I
450G=G+1:GOSUB 500:IF H=GGOTO 450
460N=H:GOSUB"ECR"
470O=100*((V/R)-1):S$="+":IF O<0LET S$=""
480PRINT "USE ";V;" (";O;S$;"%)"
490END
500N=G:GOSUB"ECR":P=ABS(V-R)
510IF P<O LET H=G:O=P
520RETURN
810"EC"F=10:IF E>=48LET F=100
820S=N/E:V=INT(10^S*F+.5):S=24S
830IF (E<=24)*(S>9)*(S<17)+(S=22)LET V=V+1
840IF (E<=24)*(S=22)LET V=V-1
850IF (E=192)*(N=185)LET V=V+1
860RETURN
910"ECR"M=1
920IF N<0 LET N=N+E:M=.1M:GOTO 920
930IF N>=E LET N=N-E:M=10M:GOTO 930
940GOSUB "EC":V=MV/F:RETURN