& ** OHM'S LAW CALCUATOR 3.8 **,S ******* JIM MIRUS 1987 *******Y ********* C-64 BASIC *********** "":53280,11:53281,0:" J AND J " "  SOFTWARE" " PRESENTS !":WI1500:W> 53280,0:53281,0:(147)i A1:B1:C40:D40:N1:P54272:V1984y Z112:35 VV39:NN1  VV42:NN1 Z112:35 VV42:NN1  !99 #Q(15(1))1 %X1N:VA,67:VAP,Q:VVA: 'V,75:VP,Q< )X1N:VD,66:VDP,Q:VVD:M +V,73:VP,Qq -X1N:VB,67:VBP,Q:VVB: /V,85:VP,Q 1X1N:VC,66:VCP,Q:VVC: 3V,74:VP,Q 5 cW11300:W:"" d(14):53280,0:53281,0:""A x"  HM'S"a y:" AW"g | }" ALCULATOR" ~" ʞIM ́IRUS " WI2300:W 5000:53280,11:" EFINITIONS "7 " 1. = ESISTANCE IN OHMS"^ " 2. = OLTAGE () IN OLTS" " 3. = URRENT IN MPERES" " 4. = OWER IN ATTS" " 5. = MPEDANCE IN HMS" " 6. L = NDUCTIVE EACTANCE IN HMS" " 7. C = APACITIVE EACTANCE IN HMS"J " Ӡ٠٠"] A$:A$""186 5000:" ELECT 1 OR 2 AND PRESS ETURN " " 1. HM'S AW ALCUATOR" " 2. .. ALCUATOR" :S S1200 S2101065000:" ELECT ALUE EEDED AND PRESS ETURN "[" 1. ESISTANCE IN HMS ()"|" 2. OLTAGE IN OLTS ()"" 3. URRENT IN MPERES ()"" 4. OWER IN ATTS ()"" 5. ESISTANCE IN ARALLEL"" 6. OLTAGE DROPING ESISTOR":SS1300+ S24009S3500GS4600US5700c"S6800,"":" ESISTANCE "."ELECT NOWN ALUES AND PRESS ETURN"1" 1. OLTS () & MPERES ()" 6" 2. ATTS () & MPERES ()".;" 3. OLTS () & ATTS ()"8@:NVGANV1330VBNV2350eCNV3370J" 1. NTER OLTAGE":VO" 2. NTER MPERES":IT::RVIV" HE ANSWER IS "R" HMS "YT11000:T:" ٠Π/ "+ZA$:A$""346<[A$"Y"300M\A$"N"190l^" 1. NTER ATTS":P`" 2. NTER MPERES":Ic::RPI2:342r" 1. NTER OLTAGE":Vw" 2. NTER ATTS":P|::RV2P:342" OLTAGE "O"ELECT NOWN ALUES AND PRESS ETURN"z" 1. MPERES () & ESISTANCE ()"" 2. MPERES () & ATTS ()"" 3. ATTS () & ESISTANCE ()":SS1430S2450S3470" 1. NTER MPERES":I<" 2. NTER ESISTANCE":RJ::VIRt" HE ANSWER IS "V" OLTS"T11000:T:" ٠Π/ "A$:A$""444A$"Y"400A$"N"190" 1. NTER MPERES":I"" 2. NTER ATTS":P5::VPI:442T" 1. NTER ATTS":Pw" 2. NTER ESISTANCE":R::V(PR):442" URRENT ""ELECT NOWN ALUES AND PRESS ETURN"" 1. OLTAGE () & ESISTANCE ()"6" 2. OLTAGE () & ATTS ()"]" 3. ESISTANCE () & ATTS ()"f:St S1530 S2550 S3570" 1. NTER OLTAGE":V" 2. NTER ESISTANCE":R::IVR" HE ANSWER IS "I" MPERES "HT11000:T:" ٠Π/ "\ A$:A$""544m!A$"Y"500~"A$"N"190&" 1. NTER OLTAGE":V(" 2. NTER ATTS":P+::IPV:542:" 1. NTER ESISTANCE":R?" 2. NTER ATTS":P(D::I(PR):542OX" OWER "Z"ELECT NOWN ALUES AND PRESS ETURN"]" 1. OLTAGE () & MPERES ()"b" 2. MPERES () & ESISTANCE ()"g" 3. OLTAGE () & ESISTANCE ()"l:SmS1630 nS2650.oS3670Ov" 1. NTER OLTAGE":Vo{" 2. NTER MPERES":I}::PVI" HE ANSWER IS "P" ATTS "T11000:T:" ٠Π/ "A$:A$""644A$"Y"600A$"N"1908" 1. NTER MPERES":I[" 2. NTER ESISTANCE":Rp::PI2R:642" 1. NTER OLTAGE":V" 2. NTER ESISTANCE":R::PV2R:642"OW MANY ESISTERS IN ARALLEL"::XR(L)0:RT0L1X::"NTER VALUE #";L;:R(L)@KL1X`RTRT(1R(L)):lRT1RT :" OTAL ŠIS ";RT" HMS " T11000:T:" ٠Π/ "A$:A$""782A$"Y"700A$"N"1908 " OLTAGE ROP "d%"ELECT PROGRAM NEEDED AND PRESS"s'"ETURN")"1. IND OLTAGE DROP AT RESISTOR","2. IND RESISTOR NEEDED TO DROP":"VOLTAGE TO DESIERED LEVEL."/S4S1830 9S29002>" OLTAGE ROP "BAR0:I0:V0cC:"ESISTANCE IN HMS":RH:"URRENT IN MPS.":IMVIRR" HE ANSWER IS "V" OLTS "\T11000:T:" ٠Π/ "aA$:A$""865fA$"Y"800$kA$"N"190L" OLTAGE ROP "z"SE THIS PROGRAM TO FIND VALUE OF""RESISTOR NEEDED TO DROP SOURCE VOLTAGE""TO THE VOLTAGE NEEDED FOR THE DEVICE.":VX0:VT0:VL0:R0:IL0"EVICE OLTAGE";VL:3"EVICE URRENT (MPS.)";IL:L"OURCE OLTAGE";VTiVXVTVL:RVXIL:PVXIL" ESISTANCE IS "R"  HMS "" OLTAGE DROP IS "VX"  OLTS "" OWER IS "P"  ATTS "(T11000:T:" ٠Π/ "<A$:A$""965MA$"Y"900^A$"N"190o"":(142)"*",8:(13)5000:" .. "" ELECT ALUE EEDED AND PRESS ETURN "" 1. NPEDANCE IN HMS"# " 2. NDUCTIVE EACTANCE IN HMS"M " 3. APACITIVE EACTANCE IN HMS"p " 4. NDUCTORS IN ARALLEL" " 5. APACITORS IN ERIES" $:S )S11200 +S21300 .S31400 3S41500 8S51600!5000:" MPEDANCE "E!"ELECT NOWN ALUES AND PRESS ETURN"i!" 1. ESISTANCE & EACTANCE"!Z0:R0:X0:XL0:XC0!" 2. ESISTANCE, NDUC./EACT.(L) & APAC./EACT.(C)"!:S!S11235!S21265""":" MPEDANCE "7""NTER ESISTANCE":RU""NTER EACTANCE":Xf"Z(R2X2)"" HE MPEDANCE IS "Z" HMS ""T11000:T:" ٠Π/ ""A$:A$""1257"A$"Y"1200#A$"N"190/#"":" MPEDANCE "L#"NTER ESISTANCE":Rs#"NTER NDUCTIVE EACTANCE":XL#"NTER APACITIVE EACTANCE":XC#X(XLXC)2:Z(R2X):1255#5000:" NDUCTIVE EACTANCE "#$" ELECT NOWN ALUES AND PRESS ETURN "S$" 1. REQUENCY(Z) & NDUCTANCE(ENRYS)"~$#" 2. NPEDANCE(), .. ESISTANCE"$%Z0:XC0:L0:R0:F0:P6.28$(:S$-S11340$2S21365$<"":" NDUCTIVE EACTANCE "%A" NTER REQUENCY(Z)":F?%F" NTER NDUCTANCE(ENRYS)":LN%HXLP(FL)%K" NDUCTIVE EACTANCE IS "XL" HMS "%LT11000:T:" ٠Π/ "%MA$:A$""1357%NA$"Y"1300%OA$"N"190%&U"":" NDUCTIVE EACTANCE "H&Z" NTER .. ESISTANCE":Re&_" NTER NPEDANCE":Zw&iXL(Z2R2)&n" NDUCTIVE EACTANCE IS "XL" HMS "&pT11000:T:" ٠Π/ "&qA$:A$""1393 'rA$"Y"1300'sA$"N"190N'x5000:" APACTIVE EACTANCE "W'}""x'" NTER REQUENCY(Z)":F'" NTER CAPACITANCE(ARADS)":C'P6.28:XC1(PFC)'" APACTIVE EACTANCE IS "XC" HMS "#(T11000:T:" ٠Π/ "8(A$:A$""1435J(A$"Y"1400[(A$"N"190("OW MANY NDUCTORS IN ARALLEL"::X(R(L)0:RT0(L1X(:"NTER VALUE #";L;:R(L)((L1X(RTRT(1R(L)):(RT1RT5):" OTAL Š: ";RT" ENRYS "n) T11000:T:" ٠Π/ ")A$:A$""1550)A$"Y"1500)A$"N"190)@" OW MANY APACTORS IN ERIES ")B" ( ICROFARAD )"::X *ER(L)0:RT0*JL1X6*O:"NTER VALUE #";L;:R(L)<*TG*YL1X\*^RTRT(1R(L)):h*cRT1RT*h:" OTAL Š: ";RT" MMF. "*mT11000:T:" ٠Π/ "*rA$:A$""1650*wA$"Y"1600+|A$"N"190+C1$"_"@+C123:C219:C324:C439:C559903x+PJ0C1:C2$C2$(32)(157)(17)::C2$C2$(145)+J0C2:J0781,C3:C5+C1$"_""";J);C2$:"";C4J);C2$+|C1$"^"781,J:C5:781,C3J:C5+:"";:C2$"":""1396'uA$"Y"1300'vA$"N"190D'x5000:" APACTIVE EACTANCE "M'}""n'" NTER REQUENCY(Z)":F'" NTER CAPACITANCE(ARADS)":C'P6.28:XC1(PFC)'" APACTIVE EACTANCE IS "XC" HMS "(T11000:T:" ٠Π/ "-(A$:A$""1435?(A$"Y"1400P(A$"N"190("OW MANY NDUCTORS IN ARALLEL"::X(R(L)0:RT0(L1X(:"NTER VALUE #";L;:R(L)((L1X(RTRT(1R(L)):(RT1RT*):" OTAL Š: ";RT" ENRYS "b) T11000:T:" ٠Π/ "w)A$:A$""1550)A$"Y"1500)A$"N"190)@" OW MANY APACTORS IN ERIES "::X)ER(L)0:RT0)JL1X *O:"NTER VALUE #";L;:R(L)*T*YL1X1*^RTRT(1R(L)):=*cRT1RTu*h:" OTAL Š: ";RT" ARADS "*mT11000:T:" ٠Π/ "*rA$:A$""1650*wA$"Y"1600*|A$"N"190*C1$"_"+C123:C219:C324:C439:C559903N+PJ0C1:C2$C2$(32)(157)(17)::C2$C2$(145)k+J0C2:J0781,C3:C5+C1$"_""";J);C2$:"";C4J);C2$+|C1$"^"781,J:C5:781,C3J:C5+:"";:C2$"":