Directory of image this file is from
This file as a plain text file

5'     UP TO 100 RESISTORS IN PARALLEL 
10 DIM R(100),S(100),I(100) 
12 FOR B=0 TO 6\PRINT\NEXT B
15 PRINT"VOLTAGES IMPRESSED ACROSS CIRCUIT (VOLTS)" 
20 PRINT TAB(5)"MINIMUM";\INPUT E1
25 PRINT TAB(5)"MAXIMUM";\INPUT E2
30 PRINT TAB(5)"VOLTAGE STEP";\INPUT E3 
35 PRINT\PRINT
40 PRINT"RESISTANCES IN PARALLEL (OHMS)"
45 FOR A=1 TO 100\PRINT TAB(5)"R";A;\INPUT R(A) 
48 IF R(A)=0 THEN 60
50 S(A)=1/R(A)\S(0)=S(A)+S(0)\N=N+1 
55 NEXT A 
60 R(0)=1/S(0)
65 FOR E=E1 TO E2 STEP E3 
70 FOR A=0 TO N\I(A)=E/R(A)\NEXT A
75 LPRINT TAB(28)"VOLTAGE=";E;" VOLTS"
80 LPRINT"TOTAL RESISTANCE=";R(0);" OHMS"TAB(38)"TOTAL CURRENT=";I(0);" AMPS" 
83 LPRINT\LPRINT
85 LPRINT"RESISTOR 
"," ","RESISTANCE"," ","CURRENT"
90 LPRINT"  ------"," ","  (OHMS)"," ","  (AMPS)"\LPRINT
95 FOR A=1 TO N\LPRINT A," ",R(A)," ",I(A)\NEXT A 
100 FOR B=0 TO 9\LPRINT\NEXT B\NEXT E
105 FOR B=0 TO 6\PRINT\NEXT B
115 PRINT"DO YOU WANT ANOTHER RUN";\LINPUT A$
120 IF A$="YES"THEN 12\IF A$="NO"THEN 150\PRINT"'"A$"'?"   
123 GO TO 115
150 END