2 PRINT "PARALLEL CIRCUIT WITH 3 RESISTORS"
5 PRINT "R1="; 
6 INPUT R1 
7 PRINT "R2="; 
8 INPUT R2 
9 PRINT "R3="; 
10 INPUT R3 
11 PRINT "R(TOTAL)=1/((1/R1)+(1/R2)+(1/R3))"
15 LET R=1/((1/R1)+(1/R2)+(1/R3)) 
20 PRINT "R(TOTAL)=";R
23 PRINT  
24 PRINT
25 PRINT "E(APPLIED)","I1=E/R1","I2=E/R2","I3=E/R3","I(TOTAL)"
30 FOR E=5 TO 40 STEP 5 
35 LET I1=E/R1
40 LET I2=E/R2
45 LET I3=E/R3
50 LET I=E/R
80 PRINT E,I1,I2,I3,I 
85 NEXT E 
91 PRINT
92 PRINT
93 PRINT "CHECK:   I(TOTAL)=I1+I2+I3" 
94 PRINT
95 PRINT
96 PRINT "TYPE 'RUN' AND INPUT NEW VALUES FOR R1,R2,AND R3" 
99 END