@B PRINT "SERIES/PARALLEL CIRCUIT"@@@H PRINT "R1="; @@@I INPUT R1 @@@J PRINT "R2="; @@@K INPUT R2 @@@L PRINT "R3="; @@@M INPUT R3 @@@N PRINT "R4="; @@@O INPUT R4 @@@T LET R=R1+((R2*R3)/(R2+R3))+R4@@@Y PRINT "R(TOTAL)=R1+((R2*R3)/(R2+R3))+R4" @@@
 PRINT "R(TOTAL)=";R@@@! PRINT@@@" PRINT "E(APPLIED)","I1","E1","E3"@@@
 FOR C=1 TO 2 @@@$ IF C=1 THEN 40 @@@% PRINT@@@& PRINT "E(APPLIED)","E2=E-(E1+E2)","I2=E2/R2","I3=E2/R3"@@@( FOR E=5 TO 40 STEP 5 @@@- LET I1=E/R @@@2 LET E1=I1*R1 @@@7 LET E3=I1*R4 @@@< IF C=1 THEN 80 @@AA LET E2=E-(E1+E3) @@AC LET I2=E2/R2 @@AE LET I3=E2/R3 @@AF PRINT E,E2,I2,I3 @@AH GO TO 90 @@AP PRINT E,I1,E1,E3 @@AZ NEXT E @@A
 NEXT C @@A! PRINT@@A" PRINT@@A
 PRINT "CHECK:  I1=I2+I3" @@A% PRINT "CHECK:  E(APPLIED)=E1+E2+E3"@@A' PRINT@@A( PRINT@@A) PRINT@@A0 PRINT "TYPE 'RUN' AND INPUT VALUES FOR R1,R2,R3, AND R4" @@A3 END@@
?B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@B@