Listing of file='CAP.BAS;01' on disk='vmedia/chip_125-sideB-sector.ccvf'
20 PLOT 12,14 30 PRINT TAB( 15);"PARALLEL AND SERIES CAPACITANCE" 40 DIM C(100) 50 PRINT 55 PRINT "TO END PROGRAM TYPE 0" 60 PLOT 10,10 65 PLOT 14 70 INPUT "TYPE 1 FOR PARALLEL, 2 FOR SERIES ";L 80 IF L= 0THEN 420 90 IF L< > 1THEN 255 100 PRINT :PLOT 12 105 PLOT 3,0,12,22 110 INPUT "HOW MANY CAPACITORS? ";N 120 PRINT 130 FOR J= 1TO N 140 PRINT "CAPACITOR ";J;"="; 150 INPUT C(J) 160 PRINT 170 NEXT J 180 E= O 190 FOR J= 1TO N 200 E= E+ C(J) 210 NEXT J 220 PRINT 230 PRINT "TOTAL PARALLEL CAPACITANCE = ";E;"MFD" 240 PRINT 250 GOTO 55 252 PLOT 12 255 PLOT 12:PLOT 3,0,12 260 INPUT "HOW MANY CAPACITORS? ";N 270 PRINT 280 FOR J= 1TO N 290 PRINT "CAPACITOR ";J;"="; 300 INPUT C(J) 310 PRINT 320 NEXT J 330 E= O 340 FOR J= 1TO N 350 E= E+ (1/ C(J)) 360 NEXT J 370 E= 1/ E 380 PRINT 390 PRINT "TOTAL SERIES CAPACITANCE = ";E;"MFD" 400 PRINT 410 GOTO 55 420 LOAD "MENU;1";RUN