0 REM -                 COMPACTED:6/08/84
10 PRINT CHR$(27);CHR$(42):PRINT"                     -=*OHM'S LAW*=-"
40 PRINT"                           MENU"
50 PRINT:PRINT TAB(10);"(1) Find I, given VOLTAGE and RESISTANCE (E and R)"
70 PRINT TAB(10);"(2) Find R, given VOLTAGE and CURRENT (V and I)"
90 PRINT TAB(10);"(3) Find E, given CURRENT and RESISTANCE (I and R)"
110 PRINT TAB(10);"(4) Find P (POWER), given VOLTAGE and CURRENT (E and I)"
130 PRINT TAB(10);"(5) Find P (POWER), given CURRENT and RESISTANCE (I and R)"
150 PRINT TAB(10);"(6) Find P (POWER), given VOLTAGE and RESISTANCE (E and R)"
170 PRINT TAB(10);"(7) Find two resistances in parallel, given R1 and R2"
190 PRINT TAB(10);"(8) Find RT, given unequal R1, R2, R3, R4 in parallel"
270 PRINT TAB(10);"(9) Find RT, given R1,R2,R3,R4 in SERIES-PARALLEL"
290 PRINT TAB(10);"(10) Find TOTAL CAPACITANCE (CT), in series circuit"
310 PRINT TAB(10);"(11) Find TOTAL CAPACITANCE (CT), 2 caps, parallel circuit"
330 PRINT TAB(10);"(12) Find TOTAL CAPACITANCE (CT), 3 caps in parallel"
350 PRINT TAB(10);"(13) Find PEAK AC VOLTAGE, given RMS value"
370 PRINT TAB(10);"(14) Find RMS VOLTAGE, given PEAK value"
390 PRINT TAB(10);"(15) Find INDUCTIVE REACTANCE (XL)"
410 PRINT TAB(10);"(16) Find CAPACITIVE REACTANCE (XC)"
430 PRINT TAB(10);"(17) Find IMPEDANCE (Z) of a series circuit"
445 PRINT TAB(10);"(18) Find IMPEDANCE (Z) of a parallel circuit"
446 PRINT
450 PRINT"     Select the number you require from the menu and press 'RETURN'"
460 LPRINT CHR$(&H1F);CHR$(1);
470 LPRINT:LPRINT CHR$(14)
480 LPRINT TAB(10);"-=*OHM'S LAW*=-"
485 LPRINT CHR$(15)
490 INPUT"Enter choice:",C
500 LPRINT"Enter choice:"
510 LPRINT"Choice is:";C
520 IF C= 0 OR C> 18 THEN 10
530 ON C GOTO 540,710,880,1050,1220,1380,1540,1700,1930,2190,2360,2560,2770,
2930,3070,3260,3430,3680
540 PRINT"Calculate CURRENT (I), given VOLTAGE and RESISTANCE (E and R)"
550 LPRINT"Calculate CURRENT (I), given VOLTAGE and RESISTANCE (E and R)"
555 PRINT:LPRINT
560 INPUT"What is the value of E, in volts:",V
570 LPRINT"What is the value of E in volts?":LPRINT;V:LPRINT
580 INPUT"Now enter the value of R, in ohms:",R
590 LPRINT"Now input the value of R, in ohms":LPRINT ;R:LPRINT
600 LET I= (V/R)
610 PRINT" I= ";(V/R);"amperes"
620 LPRINT"I= ";(V/R);"amperes"
630 PRINT:LPRINT
640 PRINT" Do you wish to do this calculation again? (Y/N)":INPUT ANS$
650 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
660 IF ANS$="Y" THEN 540
670 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
680 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
690 IF ANS$="Y" THEN 10
700 GOTO 10020
710 PRINT"Calculate RESISTANCE (R), given VOLTAGE and CURRENT (E and I)"
720 LPRINT"Calculate RESISTANCE (R), given VOLTAGE and CURRENT (E and I)"
730 PRINT:LPRINT
740 INPUT"Input the value of E, in volts:",V
750 LPRINT"Input E, in volts":LPRINT V
760 INPUT"Now enter the value of I, in amperes:",I
770 LPRINT"Now input the value for I, in amperes":LPRINT I
780 LET R=(V/I):PRINT"R= ";(V/I);"ohms"
790 LPRINT"R= ";(V/I);"ohms"
800 PRINT:LPRINT
810 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
820 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
830 IF ANS$="Y" THEN 710
835 PRINT:LPRINT
840 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
850 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
860 IF ANS$="Y" THEN 10
870 GOTO 10020
875 PRINT:LPRINT
880 PRINT"Calculate VOLTAGE (E), given CURRENT and RESISTANCE (I and R)"
890 LPRINT"Calculate VOLTAGE (E), given CURRENT and RESISTANCE (I and R)"
895 PRINT:LPRINT
900 INPUT"Enter the value for I, in amperes:",I
910 LPRINT"Input the value for I, in amperes":LPRINT I
920 INPUT"Now enter the value for R, in ohms:",R
930 LPRINT"Now enter the value for R, in ohms":LPRINT R
940 LET E=(I*R):PRINT"E= ";(I*R);"volts"
950 LPRINT"E= ";(I*R);"volts"
960 PRINT:LPRINT
970 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
980 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
990 IF ANS$="Y" THEN 880
995 PRINT:LPRINT
1000 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
1010 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
1020 IF ANS$="Y" THEN 10
1030 GOTO 10020
1040 PRINT:LPRINT
1050 PRINT"Calculate POWER(P), given VOLTAGE(E) and CURRENT(I)"
1060 LPRINT"Calculate POWER (P), given VOLTAGE(E) and CURRENT(I)"
1065 PRINT:LPRINT
1070 INPUT"Input the value for E, in volts:",V
1080 LPRINT"Input value for E, in volts":LPRINT V
1090 INPUT"Now enter the value for I, in amperes:",I
1100 LPRINT"Now input the value for I, in amperes":LPRINT I
1110 LET P=V*I:PRINT"I= ";(V*I);"watts"
1120 LPRINT"I= ";(V*I);"watts"
1130 PRINT:LPRINT
1140 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
1150 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
1160 IF ANS$="Y" THEN 1050
1170 LPRINT ANS$
1175 PRINT:LPRINT
1180 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
1190 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
1200 IF ANS$="Y" THEN 10
1210 GOTO 10020
1220 PRINT"Calculate POWER(P), given CURRENT(I) and RESISTANCE(R)"
1230 LPRINT"Calculate POWER(P), given CURRENT(I) and RESISTANCE(R)"
1235 PRINT:LPRINT
1240 INPUT"Enter the value for I, in amperes:",I
1250 LPRINT"Input the value for I, in amperes":LPRINT I
1260 INPUT"Now enter the value for R, in ohms:",R
1270 LPRINT"Now enter the value for R, in ohms":LPRINT R
1280 LET P=(I*I)*R:PRINT"P= ";(I*I)*R;"watts"
1290 LPRINT"P= ";(I*I)*R;"watts"
1300 PRINT:LPRINT
1310 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
1320 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
1330 IF ANS$="Y" THEN 1220
1335 PRINT:LPRINT
1340 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
1350 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
1360 IF ANS$="Y" THEN 10
1370 GOTO 10020
1380 PRINT"Calculate POWER(P), given VOLTAGE(E) and RESISTANCE(R)"
1385 PRINT:LPRINT
1390 LPRINT"Calculate POWER(P), given VOLTAGE(E) and RESISTANCE(R)"
1400 INPUT"Enter the value for E, in volts:",V
1410 LPRINT"Input the value for E, in volts":LPRINT V
1420 INPUT"Now enter the value for R, in ohms:",R
1430 LPRINT"Now enter the value for R, in ohms":LPRINT R
1440 LET P=(V*V)/(R):PRINT"P= ";(V*V)/(R);"watts"
1450 LPRINT"P= ";(V*V)/(R);"watts"
1460 PRINT:LPRINT
1470 PRINT"Do you wish to do this calculation again ? (Y/N)":INPUT ANS$
1480 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
1490 IF ANS$="Y" THEN 1380
1495 PRINT:LPRINT
1500 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
1510 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
1520 IF ANS$="Y" THEN 10
1530 GOTO 10020
1535 PRINT:LPRINT
1540 PRINT"Calculate TOTAL RESISTANCE(RT) in parallel, given R1,R2"
1550 LPRINT"Calculate TOTAL RESISTANCE(RT) in parallel, given R1,R2"
1555 PRINT:LPRINT
1560 INPUT"Input the value for R1:",R1
1570 LPRINT"Input value for R1, in ohms":LPRINT R1
1580 INPUT"Now input the value for R2:",R2
1590 LPRINT"Now enter value for R2, in ohms":LPRINT R2
1600 LET RT= (R1*R2)/(R1+R2):PRINT"RT= ";(R1*R2)/(R1+R2);"ohms"
1610 LPRINT"RT= ";(R1*R2)/(R1+R2);"ohms"
1620 PRINT:LPRINT
1630 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
1640 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
1650 IF ANS$="Y" THEN 1540
1655 PRINT:LPRINT
1660 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
1670 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
1680 IF ANS$="Y" THEN 10
1690 GOTO 10020
1695 PRINT:LPRINT
1700 PRINT"Calculate TOTAL RESISTANCE(RT), given unequal R1,R2,R3,R4 values"
1710 LPRINT"Calculate TOTAL RESISTANCE(RT), given unequal R1,R2,R3,R4 values"
1715 PRINT:LPRINT
1720 PRINT"Enter the values for R1,R2,R3 and R4, in ohms"
1730 LPRINT"Enter the values for R1,R2,R3 and R4, in ohms"
1740 INPUT"R1=",R1
1750 INPUT"R2=",R2
1760 INPUT"R3=",R3
1770 INPUT"R4=",R4
1780 LPRINT"R1=";R1;"ohms"
1790 LPRINT"R2=";R2;"ohms"
1800 LPRINT"R3=";R3;"ohms"
1810 LPRINT"R4=";R4;"ohms":LPRINT
1820 LET RT=(1)/(1/R1+1/R2+1/R3+1/R4)
1830 PRINT"RT= ";(1)/(1/R1+1/R2+1/R3+1/R4);"ohms"
1840 LPRINT"RT= ";(1)/(1/R1+1/R2+1/R3+1/R4);"ohms"
1850 PRINT:LPRINT
1860 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
1870 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
1880 IF ANS$="Y" THEN 1700
1885 PRINT:LPRINT
1890 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
1900 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
1910 IF ANS$="Y" THEN 10
1920 GOTO 10020
1925 PRINT:LPRINT
1930 PRINT"Calculate TOTAL RESISTANCE(RT), in series-parallel,"
1940 PRINT"given R1, R2, R3 and R4"
1950 LPRINT"Calculate TOTAL RESISTANCE(RT), in series-parallel,"
1960 LPRINT"given R1, R2, R3 and R4"
1965 PRINT:LPRINT
1970 PRINT"Enter the values for R1, R2, R3 and R4"
1980 LPRINT"Enter the values for R1, R2, R3 and R4"
1990 INPUT"R1=",R1
2000 INPUT"R2=",R2
2010 INPUT"R3=",R3
2020 INPUT"R4=",R4
2030 LPRINT"R1=";R1;"ohms"
2040 LPRINT"R2=";R2;"ohms"
2050 LPRINT"R3=";R3;"ohms"
2060 LPRINT"R4=";R4;"ohms"
2070 PRINT:LPRINT
2080 LET RT=(1)/(1/(R1+R2))+(1/(R3+R4))
2090 PRINT"RT=";(1)/(1/(R1+R2))+(1/(R3+R4));"ohms"
2100 LPRINT"RT=";(1)/(1/(R1+R2))+(1/(R3+R4));"ohms"
2110 PRINT:LPRINT
2120 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
2130 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
2140 IF ANS$="Y" THEN 1930
2145 PRINT:LPRINT
2150 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
2160 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
2170 IF ANS$="Y" THEN 10
2180 GOTO 10020
2185 PRINT:LPRINT
2190 PRINT"Calculate TOTAL CAPACITANCE(CT), in series circuit, given C1 and C2"
2200 LPRINT"Calculate TOTAL CAPACITANCE(CT), series circuit, given C1 and C2"
2205 PRINT:LPRINT
2210 INPUT"Enter value for C1, in MFD:",C1
2220 INPUT"Now enter the value for C2, in MFD:",C2
2230 LPRINT"Now enter the value for C2"
2240 LPRINT"C1=";C1;"mfd"
2250 LPRINT"C2=";C2;"mfd"
2260 LET CT=(C1*C2)/(C1+C2):PRINT"CT=";(C1*C2)/(C1+C2);"mfd"
2270 LPRINT"TOTAL CAPACITANCE(CT)=";(C1*C2)/(C1+C2);"mfd"
2280 PRINT:LPRINT
2290 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
2300 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
2310 IF ANS$="Y" THEN 2190
2315 PRINT:LPRINT
2320 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
2330 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
2340 IF ANS$="Y" THEN 10
2350 GOTO 10020
2355 PRINT:LPRINT
2360 PRINT"Calculate TOTAL CAPACITANCE(CT), parallel circuit, given C1 and C2"
2380 LPRINT"Calculate TOTAL CAPACITANCE(CT), parallel circuit, given C1 and C2"
2395 PRINT:LPRINT
2400 INPUT"Enter the value for C1, in mfd:",C1
2410 LPRINT"Enter the value for C1, in mfd"
2420 INPUT"Now enter the value for C2, in mfd:",C2
2430 LPRINT"Now enter the value for C2, in mfd"
2440 LPRINT"C1=";C1;"mfd"
2450 LPRINT"C2=";C2;"mfd"
2460 LET CT=(C1*C2)/(C1+C2):PRINT"CT=";(C1*C2)/(C1+C2);"mfd"
2470 LPRINT"CT=";(C1*C2)/(C1+C2);"mfd"
2480 PRINT:LPRINT
2490 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
2500 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
2510 IF ANS$="Y" THEN 2360
2515 PRINT:LPRINT
2520 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
2530 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
2540 IF ANS$="Y" THEN 10
2550 GOTO 10020
2555 PRINT:LPRINT
2560 PRINT"Calculate TOTAL CAPACITANCE(CT) for a parallel circuit,"
2570 PRINT"given C1, C2 and C3, in mfd"
2580 LPRINT"Calculate TOTAL CAPACITANCE(CT) for a parallel circuit,"
2590 LPRINT"given C1, C2 and C3, in mfd"
2595 PRINT:LPRINT
2600 INPUT"C1=",C1
2610 INPUT"C2=",C2
2620 INPUT"C3=",C3
2630 LPRINT"C1=";C1;"mfd"
2640 LPRINT"C2=";C2;"mfd"
2650 LPRINT"C3=";C3;"mfd"
2660 PRINT:LPRINT
2670 LET CT=(C1+C2+C3):PRINT"CT=";(C1+C2+C3);"mfd"
2680 LPRINT"CT=";(C1+C2+C3);"mfd"
2690 PRINT:LPRINT
2700 PRINT"D0 you wish to do this calculation again? (Y/N)":INPUT ANS$
2710 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
2720 IF ANS$="Y" THEN 2560
2725 PRINT:LPRINT
2730 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
2740 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
2750 IF ANS$="Y" THEN 10
2760 GOTO 10020
2765 PRINT:LPRINT
2770 PRINT"Calculate PEAK AC VOLTAGE, given RMS value"
2780 LPRINT"Calculate PEAK AC VOLTAGE, given RMS value"
2785 PRINT:LPRINT
2790 INPUT"Enter the RMS value, in volts:",RMS
2800 LPRINT"Enter the RMS value, in volts"
2810 LPRINT"RMS=";RMS;"volts"
2820 LET PEAK=(RMS*1.414):PRINT"PEAK=";(RMS*1.414);"volts"
2830 LPRINT"PEAK=";(RMS*1.414);"volts"
2840 PRINT:LPRINT
2850 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
2860 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
2870 IF ANS$="Y" THEN 2770
2875 PRINT:LPRINT
2880 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
2890 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
2900 IF ANS$="Y" THEN 10
2910 GOTO 10020
2920 PRINT:LPRINT
2930 PRINT"Calculate RMS VOLTAGE, given a value in PEAK VOLTS"
2940 LPRINT"Calculate RMS VOLTAGE, given a value in PEAK VOLTS"
2945 PRINT:LPRINT
2950 INPUT"Enter the PEAK value, in volts AC:",PEAK
2960 LPRINT"PEAK VOLTS=";PEAK
2970 LET RMS=(.707*PEAK):PRINT"RMS=";(.707*PEAK);"volts AC"
2980 LPRINT"RMS=";(.707*PEAK);"volts AC"
2990 PRINT:LPRINT
3000 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
3010 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
3020 IF ANS$="Y" THEN 2930
3025 PRINT:LPRINT
3030 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
3040 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
3050 IF ANS$="Y" THEN 10
3060 GOTO 10020
3065 PRINT:LPRINT
3070 PRINT"Calculate INDUCTIVE REACTANCE (XL), given FREQUENCY and INDUCTANCE"
3080 LPRINT"Calculate INDUCTIVE REACTANCE(XL), given FREQUENCY and INDUCTANCE"
3090 PRINT:LPRINT
3100 INPUT"Enter FREQUENCY (F), in Hertz:",FREQ
3110 LPRINT"Enter FREQUENCY (F), in Hertz"
3120 LPRINT"FREQUENCY=";FREQ;"Hertz
3130 INPUT"Now enter the value for INDUCTANCE (L), in henrys:",L
3140 LPRINT"Now enter the value for INDUCTANCE (L), in henrys"
3150 LPRINT"INDUCTANCE=";L;"henrys"
3160 LET XL=(2*3.1416)*FREQ*L:PRINT"XL=";(2*3.1416)*FREQ*L;"ohms"
3170 LPRINT"INDUCTIVE REACTANCE (XL)=";(2*3.1416)*FREQ*L;"ohms"
3180 PRINT:LPRINT
3190 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
3200 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
3210 IF ANS$="Y" THEN 3070
3215 PRINT:LPRINT
3220 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
3230 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
3240 IF ANS$="Y" THEN 10
3245 GOTO 10020
3250 PRINT:LPRINT
3260 PRINT"Calculate CAPACITIVE REACTANCE (XC), given FREQ(F) and CAP(C)"
3270 LPRINT"Calculate CAPACITIVE REACTANCE (XC), given FREQ(F) and CAP(C)"
3275 PRINT:LPRINT
3280 INPUT"Enter the value for FREQ(F), in Hertz:",F
3290 LPRINT"FREQ(F)=";F;"Hertz"
3300 INPUT"Now enter the value for CAP(C), in mfd:",C
3305 LPRINT"Now enter the value for CAP(C), in mfd"
3310 LPRINT"CAP(C)=";C;"mfd"
3320 PRINT:LPRINT
3330 LET XC=(1)/((2*3.1416)*F*C):PRINT"XC=";(1)/((2*3.1416)*F*C);"ohms"
3340 LPRINT"CAPACITIVE REACTANCE(XC)=";(1)/((2*3.1416)*F*C);"ohms"
3350 PRINT:LPRINT
3360 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
3370 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
3380 IF ANS$="Y" THEN 3260
3385 PRINT:LPRINT
3390 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
3400 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
3410 IF ANS$="Y" THEN 10
3415 GOTO 10020
3420 PRINT:LPRINT
3430 PRINT"Calculate IMPEDANCE(Z) of a series circuit, given values of"
3435 PRINT"RES(R), CAPACITIVE REACTANCE(XC) and INDUCTIVE REACTANCE(XL)"
3440 LPRINT"Calculate IMPEDANCE(Z) of a series circuit, given values of"
3445 LPRINT"RES(R), CAPACITIVE REACTANCE(XC) and INDUCTIVE
REACTANCE(XL)"
3446 PRINT:LPRINT
3450 INPUT"Enter the value for RESISTANCE(R), in ohms:",R
3460 LPRINT"Enter the value for RESISTANCE(R), in ohms"
3470 INPUT"Enter the value for CAPACITIVE REACTANCE(XC), in ohms:",XC
3480 LPRINT"Enter the value for CAPACITIVE REACTANCE(XC), in ohms"
3490 INPUT"Enter the value for INDUCTIVE REACTANCE(XL), in ohms:",XL
3500 LPRINT"Enter the value for INDUCTIVE REACTANCE(XL), in ohms"
3510 PRINT:LPRINT
3520 LPRINT"RESISTANCE(R)=";R;"ohms"
3530 LPRINT"CAPACITIVE REACTANCE(XC)=";XC;"ohms"
3540 LPRINT"INDUCTIVE REACTANCE(XL)=";XL;"ohms"
3550 PRINT:LPRINT
3560 LET Z=SQR(R^2+((XL-XC)^2))
3570 PRINT"IMPEDANCE(Z)=";SQR(R^2+((XL-XC)^2));"ohms"
3580 LPRINT"IMPEDANCE(Z)=";SQR(R^2+((XL-XC)^2));"ohms"
3590 PRINT:LPRINT
3600 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
3610 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
3620 IF ANS$="Y" THEN 3430
3625 PRINT:LPRINT
3630 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
3640 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
3650 IF ANS$="Y" THEN 10
3660 GOTO 10020
3670 PRINT:LPRINT
3680 PRINT"Calculate IMPEDANCE (Z) of a parallel circuit"
3690 LPRINT"Calculate IMPEDANCE (Z) of a parallel circuit"
3700 PRINT:LPRINT
3710 INPUT"Enter the value of L, in henrys:",L
3720 LPRINT"Enter the value of L, in henrys"
3730 INPUT"Enter the value for FREQ (F), in Hertz:",F
3740 LPRINT"Enter the value for FREQ (F), in Hertz"
3750 INPUT"Now enter the value for RESISTANCE (R) in ohms:",R
3760 LPRINT"Now enter the value for RESISTANCE (R), in ohms"
3765 LPRINT"INDUCTANCE (L)=";L;"henrys"
3770 LPRINT"FREQ (F)=";F;" Hertz"
3775 LPRINT"RESISTANCE (R)=";R;"ohms"
3776 PRINT:LPRINT
3780 LET Z=((2*3.1416*F*L)^2)/(R)
3790 PRINT"IMPEDANCE (Z)=";((2*3.1416*F*L)^2)/(R);"ohms"
3800 LPRINT"IMPEDANCE (Z)=";((2*3.1416*F*L)^2)/(R);"ohms"
3810 PRINT"Do you wish to do this calculation again? (Y/N)":INPUT ANS$
3820 LPRINT"Do you wish to do this calculation again? (Y/N)":LPRINT ANS$
3830 IF ANS$="Y" THEN 3680
3840 PRINT:LPRINT
3850 PRINT"Do you wish to return to the menu? (Y/N)":INPUT ANS$
3860 LPRINT"Do you wish to return to the menu? (Y/N)":LPRINT ANS$
3870 IF ANS$="Y" THEN 10
3880 GOTO 10020
3890 PRINT:LPRINT
10020 PRINT"Glad to have been of service! BYE!!
10030 LPRINT"Glad to have been of service! BYE!!


You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.