home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog12.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  15.2 KB  |  430 lines
  1. 24500  GOTO 28000
  2. 24510  CLS:F$="******** IMPEDANCE (Z) WHEN (R) AND (XL) AND (Xc) ARE KNOWN ********"
  3. 24520  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  4. 24530  LOCATE 7,54:PRINT"Z";CHR$(253);"=[R";CHR$(253);"+(XL-Xc)";CHR$(253);"]"
  5. 24540  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  6. 24550  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XL
  7. 24560  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  8. 24570  Z=ABS(XL-XC)^2:Z=SQR(R^2+Z)
  9. 24580  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";Z;" OHMS"
  10. 24590  LOCATE 20,1:GOSUB 28720:PRINT" "
  11. 24600  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  12. 24610  Z$=INKEY$:IF Z$="" THEN 24610
  13. 24620  IF Z$="C" OR Z$="c" THEN 24510
  14. 24630  IF Z$="S" OR Z$="s" THEN 28000
  15. 24640  RUN "MAINMENU"
  16. 24650  CLS:F$="******** RESISTANCE (R) WHEN (Z) AND (XL) AND (Xc) ARE KNOWN ********"
  17. 24660  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  18. 24670  LOCATE 7,54:PRINT"R";CHR$(253);"=[Z";CHR$(253);"-(XL-XC)";CHR$(253);"]"
  19. 24680  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  20. 24690  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XL
  21. 24700  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  22. 24710  GOSUB 24790
  23. 24720  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  24. 24730  LOCATE 20,1:GOSUB 28720:PRINT" "
  25. 24740  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  26. 24750  Z$=INKEY$:IF Z$="" THEN 24750
  27. 24760  IF Z$="C" OR Z$="c" THEN 24650
  28. 24770  IF Z$="S" OR Z$="s" THEN 28000
  29. 24780  RUN "MAINMENU"
  30. 24790  R=ABS(XL-XC):IF R>Z THEN F$="THE DIFFERENCE BETWEEN (XL) AND (Xc) CANNOT BE GREATER THAN (Z)"
  31. 24800  IF R>Z THEN GOSUB 28730
  32. 24810  IF R>Z THEN 24650
  33. 24820  R=SQR(Z^2-R^2):RETURN
  34. 24830  CLS:F$="******** REACTANCE (XL) WHEN (Z) AND (R) AND (Xc) ARE KNOWN ********"
  35. 24840  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  36. 24850  LOCATE 7,54:PRINT"XL=SQR(Z";CHR$(253);"-R";CHR$(253);")+Xc"
  37. 24860  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  38. 24870  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  39. 24880  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  40. 24890  GOSUB 24970
  41. 24900  LOCATE 15,1:PRINT"THE INDUCTIVE REACTANCE (XL) IS --------------------> ";XL;" OHMS"
  42. 24910  LOCATE 20,1:GOSUB 28720:PRINT" "
  43. 24920  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  44. 24930  Z$=INKEY$:IF Z$="" THEN 24930
  45. 24940  IF Z$="C" OR Z$="c" THEN 24830
  46. 24950  IF Z$="S" OR Z$="s" THEN 28000
  47. 24960  RUN "MAINMENU"
  48. 24970  Z=Z^2:R=R^2:IF R>Z THEN F$="(R) CANNOT BE GREATER THAN (Z)"
  49. 24980  IF R>Z THEN GOSUB 28730
  50. 24990  IF R>Z THEN 24830
  51. 25000  XL=ABS(Z-R):XL=SQR(XL)+XC:RETURN
  52. 25010  CLS:F$="******** REACTANCE (Xc) WHEN (Z) AND (R) AND (XL) ARE KNOWN ********"
  53. 25020  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  54. 25030  LOCATE 7,54:PRINT"Xc=-SQR(Z";CHR$(253);"-R";CHR$(253);")+XL"
  55. 25040  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  56. 25050  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  57. 25060  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XL
  58. 25070  GOSUB 25150
  59. 25080  LOCATE 15,1:PRINT"THE CAPACITIVE REACTANCE (Xc) IS --------------------> ";XC;" OHMS"
  60. 25090  LOCATE 20,1:GOSUB 28720:PRINT" "
  61. 25100  PRINT"(C) TO CONTINUE,(S) OF SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  62. 25110  Z$=INKEY$:IF Z$="" THEN 25110
  63. 25120  IF Z$="C" OR Z$="c" THEN 25010
  64. 25130  IF Z$="S" OR Z$="s" THEN 28000
  65. 25140  RUN "MAINMENU"
  66. 25150  Z=Z^2:R=R^2
  67. 25160  IF R>Z THEN F$="(R) CANNOT BE GREATER THAN (Z)":GOSUB 28730
  68. 25170  IF R>Z THEN 25010
  69. 25180  XC=-1*SQR(Z-R)+XL:RETURN
  70. 25190  CLS:F$="******** VOLTAGE (Et) WHEN (Er) AND (EL) AND (Ec) ARE KNOWN ********"
  71. 25200  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  72. 25210  LOCATE 7,54:PRINT"Et";CHR$(253);"=[ER";CHR$(253);"+(EL-EC)";CHR$(253);"]"
  73. 25220  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Er) IN VOLTS";ER
  74. 25230  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (EL) IN VOLTS";EL
  75. 25240  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (Ec) IN VOLTS";EC
  76. 25250  ET=ABS(EL-EC)^2:ET=SQR(ER^2+ET)
  77. 25260  LOCATE 15,1:PRINT"THE TOTAL VOLTAGE (Et) IS --------------------> ";ET;" VOLTS"
  78. 25270  LOCATE 20,1:GOSUB 28720:PRINT" "
  79. 25280  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  80. 25290  Z$=INKEY$:IF Z$="" THEN 25290
  81. 25300  IF Z$="C" OR Z$="c" THEN 25190
  82. 25310  IF Z$="S" OR Z$="s" THEN 28000
  83. 25320  RUN "MAINMENU"
  84. 25330  CLS:F$="******** VOLTAGE (Er) WHEN (Et) AND (EL) AND (Ec) ARE KNOWN ********"
  85. 25340  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  86. 25350  LOCATE 7,54:PRINT"Er";CHR$(253);"=[Et";CHR$(253);"-(EL-Ec)";CHR$(253);"]"
  87. 25360  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Et) IN VOLTS";ET
  88. 25370  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (EL) IN VOLTS";EL
  89. 25380  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (Ec) IN VOLTS";EC
  90. 25390  ER=ABS(EL-EC):IF ER>ET THEN F$="THE DIFFERENCE BETWEEN (EL) AND (Ec) CANNOT BE GREATER THAN (Et)"
  91. 25400  IF ER>ET THEN GOSUB 28730
  92. 25410  IF ER>ET THEN 25330
  93. 25420  ER=SQR(ET^2-ER^2)
  94. 25430  LOCATE 15,1:PRINT"THE VOLTAGE (Er) IS --------------------> ";ER;" VOLTS"
  95. 25440  LOCATE 20,1:GOSUB 28720:PRINT" "
  96. 25450  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  97. 25460  Z$=INKEY$:IF Z$="" THEN 25460
  98. 25470  IF Z$="C" OR Z$="c" THEN 25330
  99. 25480  IF Z$="S" OR Z$="s" THEN 28000
  100. 25490  RUN "MAINMENU"
  101. 25500  CLS:F$="******** VOLTAGE (EL) WHEN (Et) AND (Er) AND (Ec) ARE KNOWN ********"
  102. 25510  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  103. 25520  LOCATE 7,54:PRINT"EL=SQR(Et";CHR$(253);"-Er";CHR$(253);")+Ec
  104. 25530  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Et) IN VOLTS";ET
  105. 25540  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Er) IN VOLTS";ER
  106. 25550  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (Ec) IN VOLTS";EC
  107. 25560  ET=ET^2:ER=ER^2:IF ER>ET THEN F$="(Er) CANNOT BE GREATER THAN (Et)"
  108. 25570  IF ER>ET THEN GOSUB 28730
  109. 25580  IF ER>ET THEN 25500
  110. 25590  EL=SQR(ET-ER)+EC
  111. 25600  LOCATE 15,1:PRINT"THE VOLTAGE (EL) IS -------------------> ";EL;" VOLTS"
  112. 25610  LOCATE 20,1:GOSUB 28720:PRINT" "
  113. 25620  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  114. 25630  Z$=INKEY$:IF Z$="" THEN 25630
  115. 25640  IF Z$="C" OR Z$="c" THEN 25500
  116. 25650  IF Z$="S" OR Z$="s" THEN 28000
  117. 25660  RUN "MAINMENU"
  118. 25670  CLS:F$="******** VOLTAGE (Ec) WHEN (Et) AND (Er) AND (EL) ARE KNOWN ********"
  119. 25680  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  120. 25690  LOCATE 7,54:PRINT"Ec=-SQR(Et";CHR$(253);"-Er";CHR$(253);")+EL"
  121. 25700  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Et) IN VOLTS";ET
  122. 25710  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Er) IN VOLTS";ER
  123. 25720  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (EL) IN VOLTS";EL
  124. 25730  ET=ET^2:ER=ER^2:IF ER>ET THEN F$="(Er) CANNOT BE GREATER THAN (Et)"
  125. 25740  IF ER>ET THEN GOSUB 28730
  126. 25750  IF ER>ET THEN 25670
  127. 25760  EC=-1*SQR(ET-ER)+EL
  128. 25770  LOCATE 15,1:PRINT"THE VOLTAGE (Ec) IS ------------------> ";EC;" VOLTS"
  129. 25780  LOCATE 20,1:GOSUB 28720:PRINT" "
  130. 25790  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  131. 25800  Z$=INKEY$:IF Z$="" THEN 25800
  132. 25810  IF Z$="C" OR Z$="c" THEN 25670
  133. 25820  IF Z$="S" OR Z$="s" THEN 28000
  134. 25830  RUN "MAINMENU"
  135. 25840  CLS:F$="******** VOLTAGE (Er) WHEN (Ir) AND (R) ARE KNOWN ********"
  136. 25850  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  137. 25860  LOCATE 7,54:PRINT"Er=(Ir)R"
  138. 25870  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";IR
  139. 25880  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  140. 25890  ER=IR*R
  141. 25900  LOCATE 15,1:PRINT"THE VOLTAGE (Er) IS --------------------> ";ER;" VOLTS"
  142. 25910  LOCATE 20,1:GOSUB 28720:PRINT" "
  143. 25920  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  144. 25930  Z$=INKEY$:IF Z$="" THEN 25930
  145. 25940  IF Z$="C" OR Z$="c" THEN 25840
  146. 25950  IF Z$="S" OR Z$="s" THEN 28000
  147. 25960  RUN "MAINMENU"
  148. 25970  CLS:F$="******** CURRENT (Ir) WHEN (Er) AND (R) ARE KNOWN ********"
  149. 25980  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  150. 25990  LOCATE 6,58:PRINT"Er"
  151. 26000  LOCATE 7,54:PRINT"Ir= -"
  152. 26010  LOCATE 8,58:PRINT"R"
  153. 26020  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Er) IN VOLTS";ER
  154. 26030  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  155. 26040  IR=ER/R
  156. 26050  LOCATE 15,1:PRINT"THE CURRENT (Ir) IS --------------------> ";IR;" AMPS"
  157. 26060  LOCATE 20,1:GOSUB 28720:PRINT" "
  158. 26070  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  159. 26080  Z$=INKEY$:IF Z$="" THEN 26080
  160. 26090  IF Z$="C" OR Z$="c" THEN 25970
  161. 26100  IF Z$="S" OR Z$="s" THEN 28000
  162. 26110  RUN "MAINMENU"
  163. 26120  CLS:F$="******** RESISTANCE (R) WHEN (Er) AND (Ir) ARE KNOWN ********"
  164. 26130  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  165. 26140  LOCATE 6,57:PRINT"Er"
  166. 26150  LOCATE 7,54:PRINT"R= -"
  167. 26160  LOCATE 8,57:PRINT"Ir"
  168. 26170  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Er) IN VOLTS";ER
  169. 26180  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";IR
  170. 26190  R=ER/IR
  171. 26200  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  172. 26210  LOCATE 20,1:GOSUB 28720:PRINT" "
  173. 26220  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  174. 26230  Z$=INKEY$:IF Z$="" THEN 26230
  175. 26240  IF Z$="C" OR Z$="c" THEN 26120
  176. 26250  IF Z$="S" OR Z$="s" THEN 28000
  177. 26260  RUN "MAINMENU"
  178. 26270  CLS:F$="******** APPARENT POWER (Ps) WHEN (I) AND (Z) ARE KNOWN ********"
  179. 26280  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  180. 26290  LOCATE 6,54:PRINT"Ps=I";CHR$(253);"Z"
  181. 26300  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  182. 26310  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  183. 26320  PS=I^2*Z
  184. 26330  LOCATE 15,1:PRINT"THE APPARENT POWER (Ps) IS --------------------> ";PS;" WATTS"
  185. 26340  LOCATE 20,1:GOSUB 28720:PRINT" "
  186. 26350  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  187. 26360  Z$=INKEY$:IF Z$="" THEN 26360
  188. 26370  IF Z$="C" OR Z$="c" THEN 26270
  189. 26380  IF Z$="S" OR Z$="s" THEN 28000
  190. 26390  RUN "MAINMENU"
  191. 26400  CLS:F$="******** POWER FACTOR (Pf) WHEN (R) AND (Z) ARE KNOWN ********"
  192. 26410  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  193. 26420  LOCATE 6,58:PRINT"R"
  194. 26430  LOCATE 7,54:PRINT"Pf= -"
  195. 26440  LOCATE 8,58:PRINT"Z"
  196. 26450  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  197. 26460  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  198. 26470  PF=R/Z
  199. 26480  LOCATE 15,1:PRINT"THE POWER FACTOR (Pf) IS --------------------> ";PF
  200. 26490  LOCATE 20,1:GOSUB 28720:PRINT" "
  201. 26500  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  202. 26510  Z$=INKEY$:IF Z$="" THEN 26510
  203. 26520  IF Z$="C" OR Z$="c" THEN 26400
  204. 26530  IF Z$="S" OR Z$="s" THEN 28000
  205. 26540  RUN "MAINMENU"
  206. 26550  CLS:F$="******** VOLTAGE (EL) WHEN (I) AND (XL) ARE KNOWN ********"
  207. 26560  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  208. 26570  LOCATE 7,54:PRINT"EL=I(XL)"
  209. 26580  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  210. 26590  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XL
  211. 26600  EL=I*XL
  212. 26610  LOCATE 15,1:PRINT"THE VOLTAGE (EL) IS --------------------> ";EL;" VOLTS"
  213. 26620  LOCATE 20,1:GOSUB 28720:PRINT" "
  214. 26630  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  215. 26640  Z$=INKEY$:IF Z$="" THEN 26640
  216. 26650  IF Z$="C" OR Z$="c" THEN 26550
  217. 26660  IF Z$="S" OR Z$="s" THEN 28000
  218. 26670  RUN "MAINMENU"
  219. 26680  CLS:F$="******** CURRENT (IL) WHEN (EL) AND (XL) ARE KNOWN ********"
  220. 26690  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  221. 26700  LOCATE 6,58:PRINT"EL"
  222. 26710  LOCATE 7,54:PRINT"IL= --"
  223. 26720  LOCATE 8,58:PRINT"XL"
  224. 26730  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (EL) IN VOLTS";EL
  225. 26740  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XL
  226. 26750  IL=EL/XL
  227. 26760  LOCATE 15,1:PRINT"THE CURRENT (IL) IS --------------------> ";IL;" AMPS"
  228. 26770  LOCATE 20,1:GOSUB 28720:PRINT" "
  229. 26780  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  230. 26790  Z$=INKEY$:IF Z$="" THEN 26790
  231. 26800  IF Z$="C" OR Z$="c" THEN 26680
  232. 26810  IF Z$="S" OR Z$="s" THEN 28000
  233. 26820  RUN "MAINMENU"
  234. 26830  CLS:F$="******** INDUCTIVE REACTANCE (XL) WHEN (EL) AND (IL) ARE KNOWN ********"
  235. 26840  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  236. 26850  LOCATE 6,58:PRINT"EL"
  237. 26860  LOCATE 7,54:PRINT"XL= --"
  238. 26870  LOCATE 8,58:PRINT"IL"
  239. 26880  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (EL) IN VOLTS";EL
  240. 26890  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";IL
  241. 26900  XL=EL/IL
  242. 26910  LOCATE 15,1:PRINT"THE INDUCTIVE REACTANCE (XL) IS ---------------------> ";XL;" OHMS"
  243. 26920  LOCATE 20,1:GOSUB 28720:PRINT" "
  244. 26930  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  245. 26940  Z$=INKEY$:IF Z$="" THEN 26940
  246. 26950  IF Z$="C" OR Z$="c" THEN 26830
  247. 26960  IF Z$="S" OR Z$="s" THEN 28000
  248. 26970  RUN "MAINMENU"
  249. 26980  CLS:F$="******** CURRENT (I) WHEN (Ps) AND (Z) ARE KNOWN ********"
  250. 26990  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  251. 27000  LOCATE 6,57:PRINT CHR$(251);"Ps"
  252. 27010  LOCATE 7,54:PRINT"I= --"
  253. 27020  LOCATE 8,57:PRINT CHR$(251);"Z"
  254. 27030  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ps) IN WATTS";PS
  255. 27040  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  256. 27050  I=SQR(PS/Z)
  257. 27060  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  258. 27070  LOCATE 20,1:GOSUB 28720:PRINT" "
  259. 27080  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  260. 27090  Z$=INKEY$:IF Z$="" THEN 27090
  261. 27100  IF Z$="C" OR Z$="c" THEN 26980
  262. 27110  IF Z$="S" OR Z$="s" THEN 28000
  263. 27120  RUN "MAINMENU"
  264. 27130  CLS:F$="******** RESISTANCE (R) WHEN (Pf) AND (Z) ARE KNOWN ********"
  265. 27140  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  266. 27150  LOCATE 7,54:PRINT"R=(Pf)Z"
  267. 27160  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Pf)";PF
  268. 27170  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  269. 27180  R=PF*Z
  270. 27190  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS -------------------> ";R;" OHMS"
  271. 27200  LOCATE 20,1:GOSUB 28720:PRINT" "
  272. 27210  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  273. 27220  Z$=INKEY$:IF Z$="" THEN 27220
  274. 27230  IF Z$="C" OR Z$="c" THEN 27130
  275. 27240  IF Z$="S" OR Z$="s" THEN 28000
  276. 27250  RUN "MAINMENU"
  277. 27260  CLS:F$="******** VOLTAGE (Ec) WHEN (I) AND (Xc) ARE KNOWN ********"
  278. 27270  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  279. 27280  LOCATE 7,54:PRINT"Ec=I(Xc)"
  280. 27290  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  281. 27300  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  282. 27310  EC=I*XC
  283. 27320  LOCATE 15,1:PRINT"THE VOLTAGE (Ec) IS --------------------> ";EC;" VOLTS"
  284. 27330  LOCATE 20,1:GOSUB 28720:PRINT" "
  285. 27340  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  286. 27350  Z$=INKEY$:IF Z$="" THEN 27350
  287. 27360  IF Z$="C" OR Z$="c" THEN 27260
  288. 27370  IF Z$="S" OR Z$="s" THEN 28000
  289. 27380  RUN "MAINMENU"
  290. 27390  CLS:F$="******** CURRENT (Ic) WHEN (Ec) AND (Xc) ARE KNOWN ********"
  291. 27400  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  292. 27410  LOCATE 6,58:PRINT"Ec"
  293. 27420  LOCATE 7,54:PRINT"Ic= --"
  294. 27430  LOCATE 8,58:PRINT"Xc"
  295. 27440  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ec) IN VOLTS";EC
  296. 27450  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  297. 27460  XC=EC/XC
  298. 27470  LOCATE 15,1:PRINT"THE CURRENT (Ic) IS --------------------> ";IC;" AMPS"
  299. 27480  LOCATE 20,1:GOSUB 28720:PRINT" "
  300. 27490  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  301. 27500  Z$=INKEY$:IF Z$="" THEN 27500
  302. 27510  IF Z$="C" OR Z$="c" THEN 27390
  303. 27520  IF Z$="S" OR Z$="s" THEN 28000
  304. 27530  RUN "MAINMENU"
  305. 27540  CLS:F$="******** CAPACITIVE REACTANCE (Xc) WHEN (Ec) AND (Ic) ARE KNOWN ********"
  306. 27550  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  307. 27560  LOCATE 6,58:PRINT"Ec"
  308. 27570  LOCATE 7,54:PRINT"Xc= --"
  309. 27580  LOCATE 8,58:PRINT"Ic"
  310. 27590  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ec) IN VOLTS";EC
  311. 27600  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";IC
  312. 27610  XC=EC/IC
  313. 27620  LOCATE 15,1:PRINT"THE CAPACITIVE REACTANCE (Xc) IS --------------------> ";XC;" OHMS"
  314. 27630  LOCATE 20,1:GOSUB 28720:PRINT" "
  315. 27640  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  316. 27650  Z$=INKEY$:IF Z$="" THEN 27650
  317. 27660  IF Z$="C" OR Z$="c" THEN 27540
  318. 27670  IF Z$="S" OR Z$="s" THEN 28000
  319. 27680  RUN "MAINMENU"
  320. 27690  CLS:F$="******** IMPEDANCE (Z) WHEN (Ps) AND (I) ARE KNOWN ********"
  321. 27700  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  322. 27710  LOCATE 6,57:PRINT"Ps"
  323. 27720  LOCATE 7,54:PRINT"Z= -"
  324. 27730  LOCATE 8,57:PRINT"I";CHR$(253)
  325. 27740  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ps) IN WATTS";PS
  326. 27750  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  327. 27760  Z=PS/I^2
  328. 27770  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";Z;" OHMS"
  329. 27780  LOCATE 20,1:GOSUB 28720:PRINT" "
  330. 27790  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  331. 27800  Z$=INKEY$:IF Z$="" THEN 27800
  332. 27810  IF Z$="C" OR Z$="c" THEN 27690
  333. 27820  IF Z$="S" OR Z$="s" THEN 28000
  334. 27830  RUN "MAINMENU"
  335. 27840  CLS:F$="******** IMPEDANCE (Z) WHEN (R) AND (Pf) ARE KNOWN ********"
  336. 27850  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  337. 27860  LOCATE 6,57:PRINT"R"
  338. 27870  LOCATE 7,54:PRINT"Z= -"
  339. 27880  LOCATE 8,57:PRINT"Pf"
  340. 27890  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  341. 27900  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Pf)";PF
  342. 27910  Z=R/PF
  343. 27920  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";Z;" OHMS"
  344. 27930  LOCATE 20,1:GOSUB 28720:PRINT" "
  345. 27940  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  346. 27950  Z$=INKEY$:IF Z$="" THEN 27950
  347. 27960  IF Z$="C" OR Z$="c" THEN 27840
  348. 27970  IF Z$="S" OR Z$="s" THEN 28000
  349. 27980  RUN "MAINMENU"
  350. 27990  END
  351. 28000  CLS:F$="******** RCL CIRCUITS (SERIES) ********"
  352. 28010  GOSUB 28780:LOCATE 1,F:PRINT F$:PRINT:GOSUB 28720
  353. 28020  LOCATE 5,5:PRINT"1. Z";CHR$(253);"=[R";CHR$(253);"+(XL-Xc)";CHR$(253);"]"
  354. 28030  LOCATE 6,5:PRINT"2. R";CHR$(253);"=[Z";CHR$(253);"-(XL-Xc)";CHR$(253);"]"
  355. 28040  LOCATE 7,5:PRINT"3. XL=SQR(Z";CHR$(253);"-R";CHR$(253);")+Xc"
  356. 28050  LOCATE 8,5:PRINT"4. Xc=-SQR(Z";CHR$(253);"-R";CHR$(253);")+XL"
  357. 28060  LOCATE 10,5:PRINT"5. Et";CHR$(253);"=Er";CHR$(253);"+(EL-Ec)";CHR$(253)
  358. 28070  LOCATE 11,5:PRINT"6. Er";CHR$(253);"=Et";CHR$(253);"-(EL-Ec)";CHR$(253)
  359. 28080  LOCATE 12,5:PRINT"7. EL=SQR(Et";CHR$(253);"-Er";CHR$(253);")+Ec"
  360. 28090  LOCATE 13,5:PRINT"8. Ec=-SQR(Et";CHR$(253);"-Er";CHR$(253);")+EL"
  361. 28100  LOCATE 5,32:PRINT"9. Er=(Ir)R"
  362. 28110  LOCATE 7,40:PRINT"Er"
  363. 28120  LOCATE 8,32:PRINT"10. Ir= -"
  364. 28130  LOCATE 9,40:PRINT"R"
  365. 28140  LOCATE 11,39:PRINT"Er"
  366. 28150  LOCATE 12,32:PRINT"11. R= -"
  367. 28160  LOCATE 13,39:PRINT"Ir"
  368. 28170  LOCATE 15,32:PRINT"12. Ps=I";CHR$(253);"Z"
  369. 28180  LOCATE 17,40:PRINT"R"
  370. 28190  LOCATE 18,32:PRINT"13. Pf= -"
  371. 28200  LOCATE 19,40:PRINT"Z"
  372. 28210  LOCATE 5,47:PRINT"14. EL=I(XL)"
  373. 28220  LOCATE 7,55:PRINT"EL"
  374. 28230  LOCATE 8,47:PRINT"15. IL= --"
  375. 28240  LOCATE 9,55:PRINT"XL"
  376. 28250  LOCATE 11,55:PRINT"EL"
  377. 28260  LOCATE 12,47:PRINT"16. XL= --"
  378. 28270  LOCATE 13,55:PRINT"IL"
  379. 28280  LOCATE 15,54:PRINT CHR$(251);"Ps"
  380. 28290  LOCATE 16,47:PRINT"17. I= --"
  381. 28300  LOCATE 17,54:PRINT CHR$(251);"Z"
  382. 28310  LOCATE 19,47:PRINT"18. R=(Pf)Z"
  383. 28320  LOCATE 5,63:PRINT"19. Ec=I(Xc)"
  384. 28330  LOCATE 7,71:PRINT"Ec"
  385. 28340  LOCATE 8,63:PRINT"20. Ic= --"
  386. 28350  LOCATE 9,71:PRINT"Xc"
  387. 28360  LOCATE 11,71:PRINT"Ec"
  388. 28370  LOCATE 12,63:PRINT"21. Xc= --"
  389. 28380  LOCATE 13,71:PRINT"Ic"
  390. 28390  LOCATE 15,70:PRINT"Ps"
  391. 28400  LOCATE 16,63:PRINT"22. Z= -"
  392. 28410  LOCATE 17,70:PRINT"I";CHR$(253)
  393. 28420  LOCATE 19,70:PRINT"R"
  394. 28430  LOCATE 20,63:PRINT"23. Z= -"
  395. 28440  LOCATE 21,70:PRINT"Pf"
  396. 28450  LOCATE 23,1:GOSUB 28720
  397. 28460  LOCATE 20,5:PRINT"ENTER NUMBER PLEASE";:INPUT A
  398. 28470  G=4
  399. 28480  IF A=1 THEN 24510
  400. 28490  IF A=2 THEN 24650
  401. 28500  IF A=3 THEN 24830
  402. 28510  IF A=4 THEN 25010
  403. 28520  IF A=5 THEN 25190
  404. 28530  IF A=6 THEN 25330
  405. 28540  IF A=7 THEN 25500
  406. 28550  IF A=8 THEN 25670
  407. 28560  IF A=9 THEN 25840
  408. 28570  IF A=10 THEN 25970
  409. 28580  IF A=11 THEN 26120
  410. 28590  IF A=12 THEN 26270
  411. 28600  IF A=13 THEN 26400
  412. 28610  IF A=14 THEN 26550
  413. 28620  IF A=15 THEN 26680
  414. 28630  IF A=16 THEN 26830
  415. 28640  IF A=17 THEN 26980
  416. 28650  IF A=18 THEN 27130
  417. 28660  IF A=19 THEN 27260
  418. 28670  IF A=20 THEN 27390
  419. 28680  IF A=21 THEN 27540
  420. 28690  IF A=22 THEN 27690
  421. 28700  IF A=23 THEN 27840
  422. 28710  GOTO 28000
  423. 28720  FOR M=1 TO 80:PRINT CHR$(178);:NEXT:RETURN
  424. 28730  CLS:GOSUB 28780:LOCATE 12,F:PRINT F$
  425. 28740  FOR I=1 TO 100
  426. 28750  SOUND 1200,0.5
  427. 28760  SOUND 1400,0.5
  428. 28770  NEXT:RETURN
  429. 28780  F=40-LEN(F$)/2:RETURN
  430.