home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog13.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  15.5 KB  |  457 lines
  1. 10  GOTO 20000
  2. 100  F=40-LEN(F$)/2:RETURN
  3. 150  FOR M=1 TO 80:PRINT CHR$(178);:NEXT:RETURN
  4. 200  CLS:GOSUB 100:LOCATE 12,F:PRINT F$
  5. 300  FOR I=1 TO 100
  6. 305  SOUND 1200,0.5
  7. 310  SOUND 1400,0.5
  8. 315  NEXT:RETURN
  9. 1000  CLS:F$="******** CURRENT (It) WHEN (Ir) AND (IL) AND (Ic) ARE KNOWN ********"
  10. 1001  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  11. 1002  LOCATE 7,54:PRINT"It";CHR$(253);"=[Ir";CHR$(253);"+(IL-Ic)";CHR$(253);"]"
  12. 1003  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";IR
  13. 1004  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";IL
  14. 1005  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";IC
  15. 1006  IT=SQR(IR^2+(IL-IC)^2)
  16. 1007  LOCATE 15,1:PRINT"THE CURRENT (It) IS --------------------> ";IT;" AMPS"
  17. 1008  LOCATE 20,1:GOSUB 150:PRINT" "
  18. 1009  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  19. 1013  Z$=INKEY$:IF Z$="" THEN 1013
  20. 1014  IF Z$="C" OR Z$="c" THEN 1000
  21. 1015  IF Z$="S" OR Z$="s" THEN 20000
  22. 1016  RUN "MAINMENU"
  23. 1050  CLS:F$="******** CURRENT (Ir) WHEN (It) AND (IL) AND (Ic) ARE KNOWN ********"
  24. 1051  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  25. 1052  LOCATE 7,54:PRINT"Ir";CHR$(253);"=[It";CHR$(253);"-(IL-Ic)";CHR$(253);"]"
  26. 1053  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";IT
  27. 1054  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";IL
  28. 1055  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";IC
  29. 1056  IR=SQR(IT^2-(IL-IC)^2)
  30. 1057  LOCATE 15,1:PRINT"THE CURRENT (Ir) IS --------------------> ";IR;" AMPS"
  31. 1058  LOCATE 20,1:GOSUB 150:PRINT" "
  32. 1059  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  33. 1060  Z$=INKEY$:IF Z$="" THEN 1060
  34. 1061  IF Z$="C" OR Z$="c" THEN 1050
  35. 1062  IF Z$="S" OR Z$="s" THEN 20000
  36. 1063  RUN "MAINMENU"
  37. 1100  CLS:F$="******** CURRENT (IL) WHEN (It) AND (Ir) AND (Ic) ARE KNOWN ********"
  38. 1101  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  39. 1102  LOCATE 7,54:PRINT"IL=SQR(It";CHR$(253);"-Ir";CHR$(253);")+Ic"
  40. 1103  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";IT
  41. 1104  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";IR
  42. 1105  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";IC
  43. 1106  GOSUB 1130
  44. 1107  LOCATE 15,1:PRINT"THE CURRENT (IL) IS --------------------> ";IL;" AMPS"
  45. 1108  LOCATE 20,1:GOSUB 150:PRINT" "
  46. 1109  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  47. 1110  Z$=INKEY$:IF Z$="" THEN 1110
  48. 1111  IF Z$="C" OR Z$="c" THEN 1100
  49. 1112  IF Z$="S" OR Z$="s" THEN 20000
  50. 1113  RUN "MAINMENU"
  51. 1130  IF IR>IT THEN F$="(Ir) CANNOT BE GREATER THAN (It)"
  52. 1131  IF IR>IT THEN GOSUB 200
  53. 1132  IF IR>IT THEN 1100
  54. 1133  IL=SQR(IT^2-IR^2)+IC:RETURN
  55. 1150  CLS:F$="******** CURRENT (Ic) WHEN (It) AND (Ir) AND (IL) ARE KNOWN ********"
  56. 1151  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  57. 1152  LOCATE 7,54:PRINT"-Ic=SQR(It";CHR$(253);"-Ir";CHR$(253);")-IL"
  58. 1153  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";IT
  59. 1154  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";IR
  60. 1155  LOCATE 12,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";IL
  61. 1156  IF IR>IT THEN F$="(Ir) CANNOT BE GREATER THAN (It)"
  62. 1157  IF IR>IT THEN GOSUB 200
  63. 1158  IF IR>IT THEN 1150
  64. 1159  IC=SQR(IT^2-IR^2)-IL:IC=-1*IC
  65. 1160  LOCATE 15,1:PRINT"THE CURRENT (Ic) IS --------------------> ";IC;" AMPS"
  66. 1161  LOCATE 20,1:GOSUB 150:PRINT" "
  67. 1162  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  68. 1163  Z$=INKEY$:IF Z$="" THEN 1163
  69. 1164  IF Z$="C" OR Z$="c" THEN 1150
  70. 1165  IF Z$="S" OR Z$="s" THEN 20000
  71. 1166  RUN "MAINMENU"
  72. 1200  CLS:F$="******** VOLTAGE (Ea) WHEN (Z) AND (It) ARE KNOWN ********"
  73. 1201  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  74. 1202  LOCATE 7,54:PRINT"Ea=Z(It)"
  75. 1203  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  76. 1204  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";IT
  77. 1205  EA=Z*IT
  78. 1206  LOCATE 15,1:PRINT"THE VOLTAGE (Ea) IS --------------------> ";EA;" VOLTS"
  79. 1207  LOCATE 20,1:GOSUB 150:PRINT" "
  80. 1208  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  81. 1209  Z$=INKEY$:IF Z$="" THEN 1209
  82. 1210  IF Z$="C" OR Z$="c" THEN 1200
  83. 1211  IF Z$="S" OR Z$="s" THEN 20000
  84. 1212  RUN "MAINMENU"
  85. 1250  CLS:F$="******** VOLTAGE (Er) WHEN (Ir) AND (R) ARE KNOWN"
  86. 1251  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  87. 1252  LOCATE 7,54:PRINT"Er=(Ir)R"
  88. 1253  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";IR
  89. 1254  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  90. 1255  ER=IR*R
  91. 1256  LOCATE 15,1:PRINT"THE VOLTAGE (Er) IS --------------------> ";ER;" VOLTS"
  92. 1257  LOCATE 20,1:GOSUB 150:PRINT" "
  93. 1258  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  94. 1259  Z$=INKEY$:IF Z$="" THEN 1259
  95. 1260  IF Z$="C" OR Z$="c" THEN 1250
  96. 1261  IF Z$="S" OR Z$="s" THEN 20000
  97. 1262  RUN "MAINMENU"
  98. 1300  CLS:F$="******** VOLTAGE (EL) WHEN (IL) AND (XL) ARE KNOWN ********"
  99. 1301  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  100. 1302  LOCATE 7,54:PRINT"EL=(IL)XL"
  101. 1303  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";IL
  102. 1304  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XL
  103. 1305  EL=IL*XL
  104. 1306  LOCATE 15,1:PRINT"THE VOLTAGE (EL) IS --------------------> ";EL;" VOLTS"
  105. 1307  LOCATE 20,1:GOSUB 150:PRINT" "
  106. 1308  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  107. 1309  Z$=INKEY$:IF Z$="" THEN 1309
  108. 1310  IF Z$="C" OR Z$="c" THEN 1300
  109. 1311  IF Z$="S" OR Z$="s" THEN 20000
  110. 1312  RUN "MAINMENU"
  111. 1350  CLS:F$="******** VOLTAGE (Ec) WHEN (Ic) AND (Xc) ARE KNOWN ********"
  112. 1351  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  113. 1353  LOCATE 7,54:PRINT"Ec=(Ic)Xc"
  114. 1354  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";IC
  115. 1355  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  116. 1356  EC=IC*XC
  117. 1357  LOCATE 15,1:PRINT"THE VOLTAGE (Ec) IS --------------------> ";EC;" VOLTS"
  118. 1358  LOCATE 20,1:GOSUB 150:PRINT" "
  119. 1359  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  120. 1360  Z$=INKEY$:IF Z$="" THEN 1360
  121. 1361  IF Z$="C" OR Z$="c" THEN 1350
  122. 1362  IF Z$="S" OR Z$="s" THEN 20000
  123. 1363  RUN "MAINMENU"
  124. 1400  CLS:F$="******** APPARENT POWER (Ps) WHEN (Ea) AND (It) ARE KNOWN ********"
  125. 1401  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  126. 1402  LOCATE 7,54:PRINT"Ps=(Ea)It"
  127. 1403  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ea) IN VOLTS";EA
  128. 1404  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";IT
  129. 1405  PS=EA*IT
  130. 1406  LOCATE 15,1:PRINT"THE APPARENT POWER (Ps) IS -------------------> ";PS;" WATTS"
  131. 1407  LOCATE 20,1:GOSUB 150:PRINT" "
  132. 1408  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  133. 1409  Z$=INKEY$:IF Z$="" THEN 1409
  134. 1410  IF Z$="C" OR Z$="c" THEN 1400
  135. 1411  IF Z$="S" OR Z$="s" THEN 20000
  136. 1412  RUN "MAINMENU"
  137. 1450  CLS:F$="******** TRUE POWER (P) WHEN (Ir) AND (R) ARE KNOWN ********"
  138. 1451  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  139. 1452  LOCATE 7,54:PRINT"P=(Ir)";CHR$(253);"R"
  140. 1453  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";IR
  141. 1454  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  142. 1455  P=R*IR^2
  143. 1456  LOCATE 15,1:PRINT"THE TRUE POWER (P) IS --------------------> ";P;" WATTS"
  144. 1457  LOCATE 20,1:GOSUB 150:PRINT" "
  145. 1458  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  146. 1459  Z$=INKEY$:IF Z$="" THEN 1459
  147. 1460  IF Z$="C" OR Z$="c" THEN 1450
  148. 1461  IF Z$="S" OR Z$="s" THEN 20000
  149. 1462  RUN "MAINMENU"
  150. 1500  CLS:F$="******** TRUE POWER (P) WHEN (Pf) AND (Ps) ARE KNOWN ********"
  151. 1501  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  152. 1502  LOCATE 7,54:PRINT"P=(Pf)Ps"
  153. 1503  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Pf)";PF
  154. 1504  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ps) IN WATTS";PS
  155. 1505  P=PF*PS
  156. 1506  LOCATE 15,1:PRINT"THE TRUE POWER (P) IS --------------------> ";P;" WATTS"
  157. 1507  LOCATE 20,1:GOSUB 150:PRINT" "
  158. 1508  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  159. 1509  Z$=INKEY$:IF Z$="" THEN 1509
  160. 1510  IF Z$="C" OR Z$="c" THEN 1500
  161. 1511  IF Z$="S" OR Z$="s" THEN 20000
  162. 1512  RUN "MAINMENU"
  163. 1550  CLS:F$="******** POWER FACTOR (Pf) WHEN (P) AND (Ps) ARE KNOWN ********"
  164. 1551  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  165. 1552  LOCATE 6,58:PRINT"P"
  166. 1553  LOCATE 7,54:PRINT"Pf= -"
  167. 1554  LOCATE 8,58:PRINT"Ps"
  168. 1555  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  169. 1556  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ps) IN WATTS";PS
  170. 1557  PF=P/PS
  171. 1558  LOCATE 15,1:PRINT"THE POWER FACTOR (Pf) IS --------------------> ";PF
  172. 1559  LOCATE 20,1:GOSUB 150:PRINT" "
  173. 1560  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  174. 1561  Z$=INKEY$:IF Z$="" THEN 1561
  175. 1562  IF Z$="C" OR Z$="c" THEN 1550
  176. 1563  IF Z$="S" OR Z$="s" THEN 20000
  177. 1564  RUN "MAINMENU"
  178. 1600  CLS:F$="******** APPARENT POWER (Ps) WHEN (P) AND (Pf) ARE KNOWN ********"
  179. 1601  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  180. 1602  LOCATE 6,58:PRINT"P"
  181. 1603  LOCATE 7,54:PRINT"Ps= -"
  182. 1604  LOCATE 8,58:PRINT"Pf"
  183. 1605  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  184. 1606  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Pf)";PF
  185. 1607  PS=P/PF
  186. 1608  LOCATE 15,1:PRINT"THE APPARENT POWER (Ps) IS ------------------> ";PS;" WATTS"
  187. 1609  LOCATE 20,1:GOSUB 150:PRINT" "
  188. 1610  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  189. 1611  Z$=INKEY$:IF Z$="" THEN 1611
  190. 1612  IF Z$="C" OR Z$="c" THEN 1600
  191. 1613  IF Z$="S" OR Z$="s" THEN 20000
  192. 1614  RUN "MAINMENU"
  193. 1650  CLS:F$="******** IMPEDANCE (Z) WHEN (Ea) AND (It) ARE KNOWN ********"
  194. 1651  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  195. 1652  LOCATE 6,57:PRINT"Ea"
  196. 1653  LOCATE 7,54:PRINT"Z= --"
  197. 1654  LOCATE 8,57:PRINT"It"
  198. 1655  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ea) IN VOLTS";EA
  199. 1656  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";IT
  200. 1657  Z=EA/IT
  201. 1658  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";Z;" OHMS"
  202. 1659  LOCATE 20,1:GOSUB 150:PRINT" "
  203. 1660  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  204. 1661  Z$=INKEY$:IF Z$="" THEN 1661
  205. 1662  IF Z$="C" OR Z$="c" THEN 1650
  206. 1663  IF Z$="S" OR Z$="s" THEN 20000
  207. 1664  RUN "MAINMENU"
  208. 1700  CLS:F$="******** CURRENT (It) WHEN (Ea) AND (Z) ARE KNOWN ********"
  209. 1701  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  210. 1702  LOCATE 6,58:PRINT"Ea"
  211. 1703  LOCATE 7,54:PRINT"It= -"
  212. 1704  LOCATE 8,58:PRINT"Z"
  213. 1705  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ea) IN VOLTS";EA
  214. 1706  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";Z
  215. 1707  IT=EA/Z
  216. 1708  LOCATE 15,1:PRINT"THE CURRENT (It) IS ------------------> ";IT;" AMPS"
  217. 1709  LOCATE 20,1:GOSUB 150:PRINT" "
  218. 1710  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  219. 1711  Z$=INKEY$:IF Z$="" THEN 1711
  220. 1712  IF Z$="C" OR Z$="c" THEN 1700
  221. 1713  IF Z$="S" OR Z$="s" THEN 20000
  222. 1714  RUN "MAINMENU"
  223. 1750  CLS:F$="******** RESISTANCE (R) WHEN (Er) AND (Ir) ARE KNOWN ********"
  224. 1751  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  225. 1752  LOCATE 6,57:PRINT"Er"
  226. 1753  LOCATE 7,54:PRINT"R= --"
  227. 1754  LOCATE 8,57:PRINT"Ir"
  228. 1755  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Er) IN VOLTS";ER
  229. 1756  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";IR
  230. 1757  R=ER/IR
  231. 1758  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  232. 1759  LOCATE 20,1:GOSUB 150:PRINT" "
  233. 1760  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  234. 1761  Z$=INKEY$:IF Z$="" THEN 1761
  235. 1762  IF Z$="C" OR Z$="c" THEN 1750
  236. 1763  IF Z$="S" OR Z$="s" THEN 20000
  237. 1764  RUN "MAINMENU"
  238. 1800  CLS:F$="******** CURRENT (Ir) WHEN (Er) AND (R) ARE KNOWN ********"
  239. 1801  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  240. 1802  LOCATE 6,58:PRINT"Er"
  241. 1803  LOCATE 7,54:PRINT"Ir= --"
  242. 1804  LOCATE 8,58:PRINT"R"
  243. 1805  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Er) IN VOLTS";ER
  244. 1806  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (R) IN OHMS";R
  245. 1807  IR=ER/R
  246. 1808  LOCATE 15,1:PRINT"THE CURRENT (Ir) IS --------------------> ";IR;" AMPS"
  247. 1809  LOCATE 20,1:GOSUB 150:PRINT" "
  248. 1810  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  249. 1811  Z$=INKEY$:IF Z$="" THEN 1811
  250. 1812  IF Z$="C" OR Z$="c" THEN 1800
  251. 1813  IF Z$="S" OR Z$="s" THEN 20000
  252. 1814  RUN "MAINMENU"
  253. 1850  CLS:F$="******** INDUCTIVE REACTANCE (XL) WHEN (EL) AND (IL) ARE KNOWN ********"
  254. 1851  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  255. 1852  LOCATE 6,58:PRINT"EL"
  256. 1853  LOCATE 7,54:PRINT"XL= --"
  257. 1854  LOCATE 8,58:PRINT"IL"
  258. 1855  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (EL) IN VOLTS";EL
  259. 1856  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";IL
  260. 1857  XL=EL/IL
  261. 1858  LOCATE 15,1:PRINT"THE INDUCTIVE REACTANCE (XL) IS --------------------> ";XL;" OHMS"
  262. 1859  LOCATE 20,1:GOSUB 150:PRINT" "
  263. 1860  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  264. 1861  Z$=INKEY$:IF Z$="" THEN 1861
  265. 1862  IF Z$="C" OR Z$="c" THEN 1850
  266. 1863  IF Z$="S" OR Z$="s" THEN 20000
  267. 1864  RUN "MAINMENU"
  268. 1900  CLS:F$="******** CURRENT (IL) WHEN (EL) AND (XL) ARE KNOWN ********"
  269. 1901  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  270. 1902  LOCATE 6,58:PRINT"EL"
  271. 1903  LOCATE 7,54:PRINT"IL= --"
  272. 1904  LOCATE 8,58:PRINT"XL"
  273. 1905  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (EL) IN VOLTS";EL
  274. 1906  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XL
  275. 1907  IL=EL/XL
  276. 1908  LOCATE 15,1:PRINT"THE CURRENT (IL) IS --------------------> ";IL;" AMPS"
  277. 1909  LOCATE 20,1:GOSUB 150:PRINT" "
  278. 1910  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  279. 1911  Z$=INKEY$:IF Z$="" THEN 1911
  280. 1912  IF Z$="C" OR Z$="c" THEN 1900
  281. 1913  IF Z$="S" OR Z$="s" THEN 20000
  282. 1914  RUN "MAINMENU"
  283. 1950  CLS:F$="******** CAPACITIVE REACTANCE (Xc) WHEN (Ec) AND (Ic) ARE KNOWN ********"
  284. 1951  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  285. 1952  LOCATE 6,58:PRINT"Ec"
  286. 1953  LOCATE 7,54:PRINT"Xc= --"
  287. 1954  LOCATE 8,58:PRINT"Ic"
  288. 1955  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ec) IN VOLTS";EC
  289. 1956  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";IC
  290. 1957  XC=EC/IC
  291. 1958  LOCATE 15,1:PRINT"THE CAPACITIVE REACTANCE (Xc) IS --------------------> ";XC;" OHMS"
  292. 1959  LOCATE 20,1:GOSUB 150:PRINT" "
  293. 1960  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  294. 1961  Z$=INKEY$:IF Z$="" THEN 1961
  295. 1962  IF Z$="C" OR Z$="c" THEN 1950
  296. 1963  IF Z$="S" OR Z$="s" THEN 20000
  297. 1964  RUN "MAINMENU"
  298. 2000  CLS:F$="******** CURRENT (Ic) WHEN (Ec) AND (Xc) ARE KNOWN ********"
  299. 2001  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  300. 2002  LOCATE 6,58:PRINT"Ec"
  301. 2003  LOCATE 7,54:PRINT"Ic= --"
  302. 2004  LOCATE 8,58:PRINT"Xc"
  303. 2005  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ec) IN VOLTS";EC
  304. 2006  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  305. 2007  IC=EC/XC
  306. 2008  LOCATE 15,1:PRINT"THE CURRENT (Ic) IS -------------------> ";IC;" AMPS"
  307. 2009  LOCATE 20,1:GOSUB 150:PRINT" "
  308. 2010  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  309. 2011  Z$=INKEY$:IF Z$="" THEN 2011
  310. 2012  IF Z$="C" OR Z$="c" THEN 2000
  311. 2013  IF Z$="S" OR Z$="s" THEN 20000
  312. 2014  RUN "MAINMENU"
  313. 2050  CLS:F$="******** VOLTAGE (Ea) WHEN (Ps) AND (It) ARE KNOWN ********"
  314. 2051  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  315. 2052  LOCATE 6,58:PRINT"Ps"
  316. 2053  LOCATE 7,54:PRINT"Ea= --"
  317. 2054  LOCATE 8,58:PRINT"It"
  318. 2055  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ps) IN WATTS";PS
  319. 2056  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";IT
  320. 2057  EA=PS/IT
  321. 2058  LOCATE 15,1:PRINT"THE VOLTAGE (Ea) IS --------------------> ";EA;" VOLTS"
  322. 2059  LOCATE 20,1:GOSUB 150:PRINT" "
  323. 2060  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  324. 2061  Z$=INKEY$:IF Z$="" THEN 2061
  325. 2062  IF Z$="C" OR Z$="c" THEN 2050
  326. 2063  IF Z$="S" OR Z$="s" THEN 20000
  327. 2064  RUN "MAINMENU"
  328. 2100  CLS:F$="******** CURRENT (It) WHEN (Ps) AND (Ea) ARE KNOWN ********"
  329. 2101  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  330. 2102  LOCATE 6,58:PRINT"Ps"
  331. 2103  LOCATE 7,54:PRINT"It= --"
  332. 2104  LOCATE 8,58:PRINT"Ea"
  333. 2105  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ps) IN WATTS";PS
  334. 2106  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ea) IN VOLTS";EA
  335. 2107  IT=PS/EA
  336. 2108  LOCATE 15,1:PRINT"THE CURRENT (It) IS -------------------> ";IT;" AMPS"
  337. 2109  LOCATE 20,1:GOSUB 150:PRINT" "
  338. 2110  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  339. 2111  Z$=INKEY$:IF Z$="" THEN 2111
  340. 2112  IF Z$="C" OR Z$="c" THEN 2100
  341. 2113  IF Z$="S" OR Z$="s" THEN 20000
  342. 2114  RUN "MAINMENU"
  343. 2150  CLS:F$="******** RESISTANCE (R) WHEN (P) AND (Ps) ARE KNOWN ********"
  344. 2151  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  345. 2152  LOCATE 6,57:PRINT"P"
  346. 2153  LOCATE 7,54:PRINT"R= --"
  347. 2154  LOCATE 8,57:PRINT"Ps"
  348. 2155  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  349. 2156  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Ps) IN WATTS";PS
  350. 2157  R=P/PS
  351. 2158  LOCATE 15,1:PRINT"THE RESISTANCE (R) IS --------------------> ";R;" OHMS"
  352. 2159  LOCATE 20,1:GOSUB 150:PRINT" "
  353. 2160  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  354. 2161  Z$=INKEY$:IF Z$="" THEN 2161
  355. 2162  IF Z$="C" OR Z$="c" THEN 2150
  356. 2163  IF Z$="S" OR Z$="s" THEN 20000
  357. 2164  RUN "MAINMENU"
  358. 2200  CLS:F$="******** CURRENT (I) WHEN (P) AND (Rr) ARE KNOWN ********"
  359. 2201  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  360. 2202  LOCATE 6,57:PRINT CHR$(251);"P"
  361. 2203  LOCATE 7,54:PRINT"I= --"
  362. 2204  LOCATE 8,57:PRINT CHR$(251);"Rr"
  363. 2205  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (P) IN WATTS";P
  364. 2206  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Rr) IN OHMS";RR
  365. 2207  I=(SQR(P))/SQR(RR)
  366. 2208  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  367. 2209  LOCATE 20,1:GOSUB 150:PRINT" "
  368. 2210  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  369. 2211  Z$=INKEY$:IF Z$="" THEN 2211
  370. 2212  IF Z$="C" OR Z$="c" THEN 2200
  371. 2213  IF Z$="S" OR Z$="s" THEN 20000
  372. 2214  RUN "MAINMENU"
  373. 19999  END
  374. 20000  CLS:F$="******** RCL CIRCUITS (PARALLEL) ********"
  375. 20010  GOSUB 100:LOCATE 1,F:PRINT F$:PRINT:GOSUB 150
  376. 20015  LOCATE 23,1:GOSUB 150
  377. 20020  LOCATE 5,5:PRINT"1. It";CHR$(253);"=[Ir";CHR$(253);"+(IL-Ic)";CHR$(253);"]"
  378. 20030  LOCATE 6,5:PRINT"2. Ir";CHR$(253);"=[It";CHR$(253);"-(IL-Ic)";CHR$(253);"]"
  379. 20040  LOCATE 7,5:PRINT"3. IL=SQR(It";CHR$(253);"-Ir";CHR$(253);")+Ic"
  380. 20050  LOCATE 8,5:PRINT"4. Ic=-SQR(It";CHR$(253);"-Ir";CHR$(253);")+IL"
  381. 20052  LOCATE 9,5:PRINT"5. Ea=Z(It)"
  382. 20054  LOCATE 10,5:PRINT"6. Er=(Ir)R"
  383. 20056  LOCATE 11,5:PRINT"7. EL=(IL)XL"
  384. 20058  LOCATE 12,5:PRINT"8. Ec=(Ic)Xc"
  385. 20060  LOCATE 13,5:PRINT"9. Ps=(Ea)It"
  386. 20062  LOCATE 14,4:PRINT"10. P=(Ir)";CHR$(253);"R"
  387. 20064  LOCATE 15,4:PRINT"11. P=(Pf)Ps"
  388. 20069  LOCATE 17,12:PRINT"P"
  389. 20070  LOCATE 18,4:PRINT"12. Pf= -"
  390. 20071  LOCATE 19,12:PRINT"Ps"
  391. 20079  LOCATE 17,25:PRINT"P"
  392. 20080  LOCATE 18,17:PRINT"13. Ps= -"
  393. 20081  LOCATE 19,25:PRINT"Pf"
  394. 20089  LOCATE 5,39:PRINT"Ea"
  395. 20090  LOCATE 6,32:PRINT"14. Z= --"
  396. 20091  LOCATE 7,39:PRINT"It"
  397. 20092  LOCATE 9,40:PRINT"Ea"
  398. 20093  LOCATE 10,32:PRINT"15. It= --"
  399. 20094  LOCATE 11,40:PRINT"Z"
  400. 20095  LOCATE 13,39:PRINT"Er"
  401. 20096  LOCATE 14,32:PRINT"16. R= --"
  402. 20097  LOCATE 15,39:PRINT"Ir"
  403. 20098  LOCATE 17,40:PRINT"Er"
  404. 20099  LOCATE 18,32:PRINT"17. Ir= --"
  405. 20100  LOCATE 19,40:PRINT"R"
  406. 20102  LOCATE 5,55:PRINT"EL"
  407. 20103  LOCATE 6,47:PRINT"18. XL= --"
  408. 20104  LOCATE 7,55:PRINT"IL"
  409. 20105  LOCATE 9,55:PRINT"EL"
  410. 20106  LOCATE 10,47:PRINT"19. IL= --"
  411. 20107  LOCATE 11,55:PRINT"XL"
  412. 20108  LOCATE 13,55:PRINT"Ec"
  413. 20109  LOCATE 14,47:PRINT"20. Xc= --"
  414. 20110  LOCATE 15,55:PRINT"Ic"
  415. 20111  LOCATE 17,55:PRINT"Ec"
  416. 20112  LOCATE 18,47:PRINT"21. Ic= --"
  417. 20113  LOCATE 19,55:PRINT"Xc"
  418. 20114  LOCATE 5,71:PRINT"Ps"
  419. 20115  LOCATE 6,63:PRINT"22. Ea= --"
  420. 20116  LOCATE 7,71:PRINT"It"
  421. 20117  LOCATE 9,71:PRINT"Ps"
  422. 20118  LOCATE 10,63:PRINT"23. It= --"
  423. 20119  LOCATE 11,71:PRINT"Ea"
  424. 20120  LOCATE 13,70:PRINT"P"
  425. 20121  LOCATE 14,63:PRINT"24. R= --"
  426. 20122  LOCATE 15,70:PRINT"Ps"
  427. 20123  LOCATE 17,70:PRINT CHR$(251);"P"
  428. 20124  LOCATE 18,63:PRINT"25. I= --"
  429. 20125  LOCATE 19,70:PRINT CHR$(251);"Rr"
  430. 21000  LOCATE 21,5:PRINT"ENTER NUMBER PLEASE";:INPUT A
  431. 21010  IF A=1 THEN 1000
  432. 21011  IF A=2 THEN 1050
  433. 21012  IF A=3 THEN 1100
  434. 21013  IF A=4 THEN 1150
  435. 21014  IF A=5 THEN 1200
  436. 21015  IF A=6 THEN 1250
  437. 21016  IF A=7 THEN 1300
  438. 21017  IF A=8 THEN 1350
  439. 21018  IF A=9 THEN 1400
  440. 21019  IF A=10 THEN 1450
  441. 21020  IF A=11 THEN 1500
  442. 21021  IF A=12 THEN 1550
  443. 21022  IF A=13 THEN 1600
  444. 21023  IF A=14 THEN 1650
  445. 21024  IF A=15 THEN 1700
  446. 21025  IF A=16 THEN 1750
  447. 21026  IF A=17 THEN 1800
  448. 21027  IF A=18 THEN 1850
  449. 21028  IF A=19 THEN 1900
  450. 21029  IF A=20 THEN 1950
  451. 21030  IF A=21 THEN 2000
  452. 21031  IF A=22 THEN 2050
  453. 21032  IF A=23 THEN 2100
  454. 21033  IF A=24 THEN 2150
  455. 21034  IF A=25 THEN 2200
  456. 22000  GOTO 20000
  457.