home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog11.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  10.3 KB  |  303 lines
  1. 21000  GOTO 22510
  2. 21010  CLS:F$="******** TOTAL CURRENT (It) WHEN (Ir) AND (IL) ARE KNOWN ********"
  3. 21020  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950:PRINT" ":PRINT
  4. 21030  LOCATE 6,54:PRINT"It";CHR$(253);"=(Ir";CHR$(253);"+IL";CHR$(253);")"
  5. 21040  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";VR
  6. 21050  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";VC
  7. 21060  VT=SQR((VR^2)+(VC^2))
  8. 21070  LOCATE 15,1:PRINT"THE TOTAL CURRENT (It) IS --------------------> ";VT;" AMPS"
  9. 21080  PRINT:PRINT:PRINT:GOSUB 23950:PRINT" "
  10. 21090  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  11. 21100  Z$=INKEY$:IF Z$="" THEN 21100
  12. 21110  IF Z$="C" OR Z$="c" THEN 21010
  13. 21120  IF Z$="S" OR Z$="s" THEN 22510
  14. 21130  RUN "MAINMENU"
  15. 21140  CLS:F$="******** CURRENT (Ir) WHEN (It) AND (IL) ARE KNOWN ********"
  16. 21150  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950:PRINT" ":PRINT
  17. 21160  LOCATE 6,54:PRINT"Ir";CHR$(253);"=(It";CHR$(253);"-IL";CHR$(253);")"
  18. 21170  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  19. 21180  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";VC
  20. 21190  IF VC>VT THEN F$="(IL) CANNOT BE GREATER THAN (It)"
  21. 21200  IF VC>VT THEN GOSUB 23960
  22. 21210  IF VC>VT THEN 21140
  23. 21220  VR=SQR((VT^2)-(VC^2))
  24. 21230  LOCATE 15,1:PRINT"THE CURRENT (Ir) IS --------------------> ";VR;" AMPS"
  25. 21240  PRINT:PRINT:PRINT:GOSUB 23950:PRINT" "
  26. 21250  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  27. 21260  Z$=INKEY$:IF Z$="" THEN 21260
  28. 21270  IF Z$="C" OR Z$="c" THEN 21140
  29. 21280  IF Z$="S" OR Z$="s" THEN 22510
  30. 21290  RUN "MAINMENU"
  31. 21300  CLS:F$="******** CURRENT (IL) WHEN (It) AND (Ir) ARE KNOWN ********"
  32. 21310  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  33. 21320  LOCATE 6,54:PRINT"IL";CHR$(253);"=(It";CHR$(253);"-Ir";CHR$(253);")"
  34. 21330  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  35. 21340  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";VR
  36. 21350  IF VR>VT THEN F$="(Ir) CANNOT BE GREATER THAN (It)"
  37. 21360  IF VR>VT THEN GOSUB 23960
  38. 21370  IF VR>VT THEN 21300
  39. 21380  VC=SQR((VT^2)-(VR^2))
  40. 21390  LOCATE 15,1:PRINT"THE CURRENT (IL) IS --------------------> ";VC;" AMPS"
  41. 21400  PRINT:PRINT:PRINT:GOSUB 23950:PRINT" "
  42. 21410  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  43. 21420  Z$=INKEY$:IF Z$="" THEN 21420
  44. 21430  IF Z$="C" OR Z$="c" THEN 21300
  45. 21440  IF Z$="S" OR Z$="s" THEN 22510
  46. 21450  RUN "MAINMENU"
  47. 21460  CLS:F$="******** (IL) WHEN (It) AND THE PHASE ANGLE ARE KNOWN ********"
  48. 21470  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  49. 21480  LOCATE 6,54:PRINT"IL=It[SIN(";CHR$(237);")]"
  50. 21490  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  51. 21500  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  52. 21510  VC=VT*SIN(PA*3.1415/180)
  53. 21520  LOCATE 15,1:PRINT"THE CURRENT (IL) IS --------------------> ";VC;" AMPS"
  54. 21530  PRINT:PRINT:PRINT:GOSUB 23950:PRINT" "
  55. 21540  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  56. 21550  Z$=INKEY$:IF Z$="" THEN 21550
  57. 21560  IF Z$="C" OR Z$="c" THEN 21460
  58. 21570  IF Z$="S" OR Z$="s" THEN 22510
  59. 21580  RUN "MAINMENU"
  60. 21590  CLS:F$="******** INDUCTIVE REACTANCE (XL) WHEN (E) AND (I) ARE KNOWN ********"
  61. 21600  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  62. 21610  LOCATE 6,57:PRINT"E"
  63. 21620  LOCATE 7,53:PRINT"XL= -"
  64. 21630  LOCATE 8,57:PRINT"I"
  65. 21640  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  66. 21650  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  67. 21660  R=E/I
  68. 21670  LOCATE 15,1:PRINT"THE INDUCTIVE REACTANCE (XL) IS --------------------> ";R;" OHMS"
  69. 21680  LOCATE 18,1:GOSUB 23950:PRINT" "
  70. 21690  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  71. 21700  Z$=INKEY$:IF Z$="" THEN 21700
  72. 21710  IF Z$="C" OR Z$="c" THEN 21590
  73. 21720  IF Z$="S" OR Z$="s" THEN 22510
  74. 21730  RUN "MAINMENU"
  75. 21740  CLS:F$="******** INDUCTIVE REACTANCE (XL) WHEN (F) AND (L) ARE KNOWN ********"
  76. 21750  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  77. 21760  LOCATE 7,54:PRINT"XL=2";CHR$(227);"FL"
  78. 21770  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (F) IN HERTZ";F
  79. 21780  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (L) IN HENRYS";L
  80. 21790  XL=6.28*F*L
  81. 21800  LOCATE 15,1:PRINT"THE INDUCTIVE REACTANCE (XL) IS --------------------> ";XL;" OHMS"
  82. 21810  LOCATE 18,1:GOSUB 23950:PRINT" "
  83. 21820  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  84. 21830  Z$=INKEY$:IF Z$="" THEN 21830
  85. 21840  IF Z$="C" OR Z$="c" THEN 21740
  86. 21850  IF Z$="S" OR Z$="s" THEN 22510
  87. 21860  RUN "MAINMENU"
  88. 21870  CLS:F$="******** INDUCTANCE (L) WHEN (F) AND (XL) ARE KNOWN ********"
  89. 21880  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  90. 21890  LOCATE 5,59:PRINT"XL"
  91. 21900  LOCATE 6,54:PRINT"L= -----"
  92. 21910  LOCATE 7,58:PRINT"2";CHR$(227);"F"
  93. 21920  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (F) IN HERTZ";F
  94. 21930  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";XL
  95. 21940  L=XL/(6.28*F)
  96. 21950  LOCATE 15,1:PRINT"THE INDUCTANCE (L) IS --------------------> ";L;" HENRYS"
  97. 21960  LOCATE 18,1:GOSUB 23950:PRINT" "
  98. 21970  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  99. 21980  Z$=INKEY$:IF Z$="" THEN 21980
  100. 21990  IF Z$="C" OR Z$="c" THEN 21870
  101. 22000  IF Z$="S" OR Z$="s" THEN 22510
  102. 22010  RUN "MAINMENU"
  103. 22020  CLS:F$="******** PHASE ANGLE WHEN (IL) AND (It) ARE KNOWN ********"
  104. 22030  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  105. 22040  LOCATE 6,63:PRINT"IL"
  106. 22050  LOCATE 8,63:PRINT"It"
  107. 22060  LOCATE 7,54:PRINT CHR$(237);"=ARCSIN -"
  108. 22070  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";VC
  109. 22080  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  110. 22090  IF VC>VT THEN F$="(IL) CANNOT BE GREATER THAN (It)"
  111. 22100  IF VC>VT THEN GOSUB 23960
  112. 22110  IF VC>VT THEN 22020
  113. 22120  Q=VC/VT:A=ATN(Q/SQR(-Q*Q+1)):PA=A*57.32
  114. 22130  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  115. 22140  PRINT:PRINT:PRINT:GOSUB 23950:PRINT" "
  116. 22150  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  117. 22160  Z$=INKEY$:IF Z$="" THEN 22160
  118. 22170  IF Z$="C" OR Z$="c" THEN 22020
  119. 22180  IF Z$="S" OR Z$="s" THEN 22510
  120. 22190  RUN "MAINMENU"
  121. 22200  CLS:F$="******** PHASE ANGLE WHEN (IL) AND (Ir) ARE KNOWN ********"
  122. 22210  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  123. 22220  LOCATE 6,63:PRINT"IL"
  124. 22230  LOCATE 8,63:PRINT"Ir"
  125. 22240  LOCATE 7,54:PRINT CHR$(237);"=ARCTAN -"
  126. 22250  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (IL) IN AMPS";VC
  127. 22260  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  128. 22270  PA=(ATN(VC/VT))*57.32
  129. 22280  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  130. 22290  PRINT:PRINT:PRINT:GOSUB 23950:PRINT" "
  131. 22300  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  132. 22310  Z$=INKEY$:IF Z$="" THEN 22310
  133. 22320  IF Z$="C" OR Z$="c" THEN 22200
  134. 22330  IF Z$="S" OR Z$="s" THEN 22510
  135. 22340  RUN "MAINMENU"
  136. 22350  END
  137. 22360  CLS:F$="******** CURRENT (I) WHEN (E) AND (XL) ARE KNOWN ********"
  138. 22370  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  139. 22380  LOCATE 6,57:PRINT"E"
  140. 22390  LOCATE 7,54:PRINT"I= -"
  141. 22400  LOCATE 8,57:PRINT"XL"
  142. 22410  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  143. 22420  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (XL) IN OHMS";R
  144. 22430  I=E/R
  145. 22440  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  146. 22450  LOCATE 18,1:GOSUB 23950:PRINT" "
  147. 22460  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  148. 22470  Z$=INKEY$:IF Z$="" THEN 22470
  149. 22480  IF Z$="C" OR Z$="c" THEN 22360
  150. 22490  IF Z$="S" OR Z$="s" THEN 22510
  151. 22500  RUN "MAINMENU"
  152. 22510  CLS:F$="******** RL CIRCUITS (PARALLEL) ********"
  153. 22520  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  154. 22530  LOCATE 5,5:PRINT"1. It";CHR$(253);"=(Ir";CHR$(253);"+IL";CHR$(253);")"
  155. 22540  LOCATE 6,5:PRINT"2. Ir";CHR$(253);"=(It";CHR$(253);"-IL";CHR$(253);")"
  156. 22550  LOCATE 7,5:PRINT"3. IL";CHR$(253);"=(It";CHR$(253);"-Ir";CHR$(253);")"
  157. 22560  LOCATE 9,5:PRINT"4. Ir=It[COS(";CHR$(237);")]"
  158. 22570  LOCATE 10,5:PRINT"5. IL=It[SIN(";CHR$(237);")]"
  159. 22580  LOCATE 12,17:PRINT"Ir"
  160. 22590  LOCATE 13,5:PRINT"6. ";CHR$(237);"=ARCCOS -"
  161. 22600  LOCATE 14,17:PRINT"It"
  162. 22610  LOCATE 15,17:PRINT"IL"
  163. 22620  LOCATE 16,5:PRINT"7. ";CHR$(237);"=ARCSIN -"
  164. 22630  LOCATE 17,17:PRINT"It"
  165. 22640  LOCATE 18,17:PRINT"IL"
  166. 22650  LOCATE 19,5:PRINT"8. ";CHR$(237);"=ARCTAN -"
  167. 22660  LOCATE 20,17:PRINT"Ir"
  168. 22670  LOCATE 5,36:PRINT"9. E=IZ"
  169. 22680  LOCATE 7,43:PRINT"E"
  170. 22690  LOCATE 8,36:PRINT"10. I= -"
  171. 22700  LOCATE 9,43:PRINT"Z"
  172. 22710  LOCATE 11,43:PRINT"E"
  173. 22720  LOCATE 12,36:PRINT"11. Z= -"
  174. 22730  LOCATE 13,43:PRINT"I"
  175. 22740  LOCATE 16,36:PRINT"12. XL=2";CHR$(227);"FL"
  176. 22750  LOCATE 5,63:PRINT"13. E=IX"
  177. 22760  LOCATE 7,70:PRINT"E"
  178. 22770  LOCATE 8,63:PRINT"14. I= -"
  179. 22780  LOCATE 9,70:PRINT"XL"
  180. 22790  LOCATE 11,71:PRINT"E"
  181. 22800  LOCATE 12,63:PRINT"15. XL= -"
  182. 22810  LOCATE 13,71:PRINT"I"
  183. 22820  LOCATE 15,72:PRINT"XL"
  184. 22830  LOCATE 16,63:PRINT"16. L= -----"
  185. 22840  LOCATE 17,71:PRINT"2";CHR$(227);"F"
  186. 22850  LOCATE 23,1:GOSUB 23950
  187. 22860  LOCATE 20,50:PRINT"ENTER NUMBER PLEASE";:INPUT A
  188. 22870  IF A=1 THEN 21010
  189. 22880  IF A=2 THEN 21140
  190. 22890  IF A=3 THEN 21300
  191. 22900  IF A=4 THEN 23640
  192. 22910  IF A=5 THEN 21460
  193. 22920  IF A=6 THEN 23780
  194. 22930  IF A=7 THEN 22020
  195. 22940  IF A=8 THEN 22200
  196. 22950  IF A=9 THEN 23040
  197. 22960  IF A=10 THEN 23180
  198. 22970  IF A=11 THEN 23340
  199. 22980  IF A=12 THEN 21740
  200. 22990  IF A=13 THEN 23500
  201. 23000  IF A=14 THEN 22360
  202. 23010  IF A=15 THEN 21590
  203. 23020  IF A=16 THEN 21870
  204. 23030  GOTO 22510
  205. 23040  CLS:F$="******** VOLTAGE (E) WHEN (I) AND (Z) ARE KNOWN ********"
  206. 23050  GOSUB 24010
  207. 23060  LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  208. 23070  LOCATE 6,54:PRINT"E=IZ"
  209. 23080  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  210. 23090  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";R
  211. 23100  E=I*R
  212. 23110  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS --------------------> ";E;" VOLTS"
  213. 23120  PRINT:PRINT:PRINT:GOSUB 23950:PRINT" "
  214. 23130  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  215. 23140  Z$=INKEY$:IF Z$="" THEN 23140
  216. 23150  IF Z$="C" OR Z$="c" THEN 23040
  217. 23160  IF Z$="S" OR Z$="s" THEN 22510
  218. 23170  RUN "MAINMENU"
  219. 23180  CLS:F$="******** CURRENT (I) WHEN (E) AND (Z) ARE KNOWN ********"
  220. 23190  GOSUB 24010:LOCATE 1,F:PRINT F$
  221. 23200  PRINT:GOSUB 23950
  222. 23210  LOCATE 6,57:PRINT"E"
  223. 23220  LOCATE 7,54:PRINT"I= -"
  224. 23230  LOCATE 8,57:PRINT"Z"
  225. 23240  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  226. 23250  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";R
  227. 23260  I=E/R
  228. 23270  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  229. 23280  LOCATE 18,1:GOSUB 23950:PRINT" "
  230. 23290  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  231. 23300  Z$=INKEY$:IF Z$="" THEN 23300
  232. 23310  IF Z$="C" OR Z$="c" THEN 23180
  233. 23320  IF Z$="S" OR Z$="s" THEN 22510
  234. 23330  RUN "MAINMENU"
  235. 23340  CLS:F$="******** IMPEDANCE (Z) WHEN (E) AND (I) ARE KNOWN ********"
  236. 23350  GOSUB 24010:LOCATE 1,F:PRINT F$
  237. 23360  PRINT:GOSUB 23950
  238. 23370  LOCATE 6,57:PRINT"E"
  239. 23380  LOCATE 7,54:PRINT"Z= -"
  240. 23390  LOCATE 8,57:PRINT"I"
  241. 23400  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  242. 23410  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  243. 23420  R=E/I
  244. 23430  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";R;" OHMS"
  245. 23440  LOCATE 18,1:GOSUB 23950:PRINT" "
  246. 23450  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  247. 23460  Z$=INKEY$:IF Z$="" THEN 23460
  248. 23470  IF Z$="C" OR Z$="c" THEN 23340
  249. 23480  IF Z$="S" OR Z$="s" THEN 22510
  250. 23490  RUN "MAINMENU"
  251. 23500  CLS:F$="******** VOLTAGE (E) WHEN (I) AND (X) ARE KNOWN ********"
  252. 23510  GOSUB 24010
  253. 23520  LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  254. 23530  LOCATE 6,54:PRINT"E=IX"
  255. 23540  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  256. 23550  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (X) IN OHMS";R
  257. 23560  E=I*R
  258. 23570  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS --------------------> ";E;" VOLTS"
  259. 23580  LOCATE 18,1:GOSUB 23950
  260. 23590  LOCATE 20,1:PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  261. 23600  Z$=INKEY$:IF Z$="" THEN 23600
  262. 23610  IF Z$="C" OR Z$="c" THEN 23500
  263. 23620  IF Z$="S" OR Z$="s" THEN 22510
  264. 23630  RUN "MAINMENU"
  265. 23640  CLS:F$="******** (Ir) WHEN (It) AND THE PHASE ANGLE ARE KNOWN ********"
  266. 23650  GOSUB 24010:LOCATE 1,F:PRINT F$
  267. 23660  PRINT:GOSUB 23950
  268. 23670  LOCATE 6,54:PRINT"Ir=It[COS(";CHR$(237);")]"
  269. 23680  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  270. 23690  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  271. 23700  VR=VT*COS(PA*3.1415/180)
  272. 23710  LOCATE 15,1:PRINT"THE CURRENT (Ir) IS --------------------> ";VR;" AMPS"
  273. 23720  PRINT:PRINT:PRINT:GOSUB 23950:PRINT" "
  274. 23730  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  275. 23740  Z$=INKEY$:IF Z$="" THEN 23740
  276. 23750  IF Z$="C" OR Z$="c" THEN 23640
  277. 23760  IF Z$="S" OR Z$="s" THEN 22510
  278. 23770  RUN "MAINMENU"
  279. 23780  CLS:F$="******** PHASE ANGLE WHEN (Ir) AND (It) ARE KNOWN ********"
  280. 23790  GOSUB 24010:LOCATE 1,F:PRINT F$:PRINT:GOSUB 23950
  281. 23800  LOCATE 6,63:PRINT"Ir"
  282. 23810  LOCATE 8,63:PRINT"It"
  283. 23820  LOCATE 7,54:PRINT CHR$(237);"=ARCCOS -"
  284. 23830  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";VR
  285. 23840  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  286. 23850  IF VR>VT THEN F$="(Ir) CANNOT BE GREATER THAN (It)"
  287. 23860  IF VR>VT THEN GOSUB 23960:IF VR>VT THEN 23780
  288. 23870  Q=VR/VT:A=ATN(Q/SQR(-Q*Q+1)):A=A*57.32:PA=(-1*A)+90
  289. 23880  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  290. 23890  PRINT:PRINT:PRINT:GOSUB 23950:PRINT" "
  291. 23900  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  292. 23910  Z$=INKEY$:IF Z$="" THEN 23910
  293. 23920  IF Z$="C" OR Z$="c" THEN 23780
  294. 23930  IF Z$="S" OR Z$="s" THEN 22510
  295. 23940  RUN "MAINMENU"
  296. 23950  FOR M=1 TO 80:PRINT CHR$(178);:NEXT:RETURN
  297. 23960  CLS:GOSUB 24010:LOCATE 12,F:PRINT F$
  298. 23970  FOR I=1 TO 100
  299. 23980  SOUND 1200,0.5
  300. 23990  SOUND 1400,0.5
  301. 24000  NEXT:RETURN
  302. 24010  F=40-LEN(F$)/2:RETURN
  303.