2 PRINT "SERIES/PARALLEL CIRCUIT"
8 PRINT "R1="; 
9 INPUT R1 
10 PRINT "R2="; 
11 INPUT R2 
12 PRINT "R3="; 
13 INPUT R3 
14 PRINT "R4="; 
15 INPUT R4 
20 LET R=R1+((R2*R3)/(R2+R3))+R4
25 PRINT "R(TOTAL)=R1+((R2*R3)/(R2+R3))+R4" 
31 PRINT "R(TOTAL)=";R
33 PRINT
34 PRINT "E(APPLIED)","I1","E1","E3"
35 FOR C=1 TO 2 
36 IF C=1 THEN 40 
37 PRINT
38 PRINT "E(APPLIED)","E2=E-(E1+E2)","I2=E2/R2","I3=E2/R3"
40 FOR E=5 TO 40 STEP 5 
45 LET I1=E/R 
50 LET E1=I1*R1 
55 LET E3=I1*R4 
60 IF C=1 THEN 80 
65 LET E2=E-(E1+E3) 
67 LET I2=E2/R2 
69 LET I3=E2/R3 
70 PRINT E,E2,I2,I3 
72 GO TO 90 
80 PRINT E,I1,E1,E3 
90 NEXT E 
95 NEXT C 
97 PRINT
98 PRINT
99 PRINT "CHECK:  I1=I2+I3" 
101 PRINT "CHECK:  E(APPLIED)=E1+E2+E3"
103 PRINT
104 PRINT
105 PRINT
112 PRINT "TYPE 'RUN' AND INPUT VALUES FOR R1,R2,R3, AND R4" 
115 END