PARSER - R in BASIC

elektuur juli/augustus 1984 R in BASIC 10 REM PROGRAM TO CALCULATE PARALLEL AND SERIAL RESISTORS 20 DATA 1,1.2,1.5.1.8,2.2.2.7,3.3,3.9,4.7,5.6,6.8,8.2 30 DIM R(I2):FOR A=1 TO 12:READ R(A):NEXT A 40 FOR 0=1 TO 36:PRINT ".";:NEXT:PRINT:PRINT 50 X=I:Y=1:INPUT"RESISTANCE":R 60 IF R‹.5 OR R>16400000 THEN PRINT "OUT OF RANGE":GOTO 40 70 INPUT "TOLERANCE IN %":T 80 L=R—3ïR:U=R+(T/1010)XR 90 PRINT "FROM":1_:"TO ":U;"OHMS":PRINT 100 PRINT "PARALLEL R"S":A$="!!" 110 FOR 2=1 TO 7 120 FOR M=1 TO 12:IF R(M)9X)2XU OR R(M)SXCR THEN 1090 130 FOR 14=1 TO 7 140 FOR N=1 TO 12:IF R(N)XYR THEN 1090 210 FOR 11=7 TO 1 STEP —1 220 FOR N=12 TO 1 STEP —1:IF R(N)Y-1,R THEN 1080 230 P=RL1 THEN 1080 1010 T1=<<100P/R)-100));1000:TI=INT(T1)/1000 1020 RI=R(M):Kl="":KIS="" 1030 IF >i...