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

@E'     UP TO 100 RESISTORS IN PARALLEL @@@J DIM R(100),S(100),I(100) @@@L FOR B=0 TO 6\PRINT\NEXT B@@@O PRINT"VOLTAGES IMPRESSED ACROSS CIRCUIT (VOLTS)" @@@T PRINT TAB(5)"MINIMUM";\INPUT E1@@@Y PRINT TAB(5)"MAXIMUM";\INPUT E2@@@^ PRINT TAB(5)"VOLTAGE STEP";\INPUT E3 @@@
 PRINT\PRINT@@@( PRINT"RESISTANCES IN PARALLEL (OHMS)"@@@- FOR A=1 TO 100\PRINT TAB(5)"R";A;\INPUT R(A) @@@0 IF R(A)=0 THEN 60@@@2 S(A)=1/R(A)\S(0)=S(A)+S(0)\N=N+1 @@@7 NEXT A @@@< R(0)=1/S(0)@@AA FOR E=E1 TO E2 STEP E3 @@AF FOR A=0 TO N\I(A)=E/R(A)\NEXT A@@AK LPRINT TAB(28)"VOLTAGE=";E;" VOLTS"@@AP LPRINT"TOTAL RESISTANCE=";R(0);" OHMS"TAB(38)"TOTAL CURRENT=";I(0);" AMPS" @@AS LPRINT\LPRINT@@AU LPRINT"RESISTOR 
"," ","RESISTANCE"," ","CURRENT"@@AZ LPRINT"  ------"," ","  (OHMS)"," ","  (AMPS)"\LPRINT@@A
 FOR A=1 TO N\LPRINT A," ",R(A)," ",I(A)\NEXT A @@A$ FOR B=0 TO 9\LPRINT\NEXT B\NEXT E@@A) FOR B=0 TO 6\PRINT\NEXT B@@A3 PRINT"DO YOU WANT ANOTHER RUN";\LINPUT A$@@A8 IF A$="YES"THEN 12\IF A$="NO"THEN 150\PRINT"'"A$"'?"   @@A; GO TO 115@@BV END@@
?@@6\PRINT\NEXT B\GO TO 15 @@BV END@@
?@@@@
?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@J@UBVOVO?=?<??@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@