home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog9.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  10.4 KB  |  314 lines
  1. 13000  CLS:F$="******** RC CIRCUITS (PARALLEL) ********"
  2. 13010  GOSUB 16120:LOCATE 1,F:PRINT F$:PRINT:GOSUB 16060
  3. 13020  LOCATE 5,5:PRINT"1. It";CHR$(253);"=(Ir";CHR$(253);"+Ic";CHR$(253);")"
  4. 13030  LOCATE 6,5:PRINT"2. Ir";CHR$(253);"=(It";CHR$(253);"-Ic";CHR$(253);")"
  5. 13040  LOCATE 7,5:PRINT"3. Ic";CHR$(253);"=(It";CHR$(253);"-Ir";CHR$(253);")"
  6. 13050  LOCATE 9,5:PRINT"4. Ir=It[COS(";CHR$(237);")]"
  7. 13060  LOCATE 10,5:PRINT"5. Ic=It[SIN(";CHR$(237);")]"
  8. 13070  LOCATE 12,17:PRINT"Ir"
  9. 13080  LOCATE 13,5:PRINT"6. ";CHR$(237);"=ARCCOS -"
  10. 13090  LOCATE 14,17:PRINT"It"
  11. 13100  LOCATE 15,17:PRINT"Ic"
  12. 13110  LOCATE 16,5:PRINT"7. ";CHR$(237);"=ARCSIN -"
  13. 13120  LOCATE 17,17:PRINT"It"
  14. 13130  LOCATE 18,17:PRINT"Ic"
  15. 13140  LOCATE 19,5:PRINT"8. ";CHR$(237);"=ARCTAN -"
  16. 13150  LOCATE 20,17:PRINT"Ir"
  17. 13160  LOCATE 5,36:PRINT"9. E=IZ"
  18. 13170  LOCATE 7,43:PRINT"E"
  19. 13180  LOCATE 8,36:PRINT"10. I= -"
  20. 13190  LOCATE 9,43:PRINT"Z"
  21. 13200  LOCATE 11,43:PRINT"E"
  22. 13210  LOCATE 12,36:PRINT"11. Z= -"
  23. 13220  LOCATE 13,43:PRINT"I"
  24. 13230  LOCATE 15,45:PRINT"1"
  25. 13240  LOCATE 16,36:PRINT"12. Xc= ----"
  26. 13250  LOCATE 17,44:PRINT"2";CHR$(227);"FC"
  27. 13260  LOCATE 5,63:PRINT"13. E=IX"
  28. 13270  LOCATE 7,70:PRINT"E"
  29. 13280  LOCATE 8,63:PRINT"14. I= -"
  30. 13290  LOCATE 9,70:PRINT"Xc"
  31. 13300  LOCATE 11,71:PRINT"E"
  32. 13310  LOCATE 12,63:PRINT"15. Xc= -"
  33. 13320  LOCATE 13,71:PRINT"I"
  34. 13330  LOCATE 15,72:PRINT"1"
  35. 13340  LOCATE 16,63:PRINT"16. C= -----"
  36. 13350  LOCATE 17,70:PRINT"2";CHR$(227);"XcF"
  37. 13360  LOCATE 23,1:GOSUB 16060
  38. 13370  LOCATE 20,50:PRINT"ENTER NUMBER PLEASE";:INPUT A
  39. 13380  G=1
  40. 13390  IF A=1 THEN 14790
  41. 13400  IF A=2 THEN 14960
  42. 13410  IF A=3 THEN 15130
  43. 13420  IF A=4 THEN 15300
  44. 13430  IF A=5 THEN 15440
  45. 13440  IF A=6 THEN 15570
  46. 13450  IF A=7 THEN 15740
  47. 13460  IF A=8 THEN 15910
  48. 13470  IF A=9 THEN 13560
  49. 13480  IF A=10 THEN 13700
  50. 13490  IF A=11 THEN 13860
  51. 13500  IF A=12 THEN 14470
  52. 13510  IF A=13 THEN 14020
  53. 13520  IF A=14 THEN 14160
  54. 13530  IF A=15 THEN 14310
  55. 13540  IF A=16 THEN 14630
  56. 13550  GOTO 13000
  57. 13560  CLS:F$="******** VOLTAGE (E) WHEN (I) AND (Z) ARE KNOWN ********"
  58. 13570  GOSUB 16120
  59. 13580  LOCATE 1,F:PRINT F$:PRINT:GOSUB 16060
  60. 13590  LOCATE 6,54:PRINT"E=IZ"
  61. 13600  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  62. 13610  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";R
  63. 13620  E=I*R
  64. 13630  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS --------------------> ";E;" VOLTS"
  65. 13640  PRINT:PRINT:PRINT:GOSUB 16060:PRINT" "
  66. 13650  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  67. 13660  Z$=INKEY$:IF Z$="" THEN 13660
  68. 13670  IF Z$="C" OR Z$="c" THEN 13560
  69. 13680  IF Z$="S" OR Z$="s" THEN 13000
  70. 13690  RUN "MAINMENU"
  71. 13700  CLS:F$="******** CURRENT (I) WHEN (E) AND (Z) ARE KNOWN ********"
  72. 13710  GOSUB 16120:LOCATE 1,F:PRINT F$
  73. 13720  PRINT:GOSUB 16060
  74. 13730  LOCATE 6,57:PRINT"E"
  75. 13740  LOCATE 7,54:PRINT"I= -"
  76. 13750  LOCATE 8,57:PRINT"Z"
  77. 13760  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  78. 13770  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Z) IN OHMS";R
  79. 13780  I=E/R
  80. 13790  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  81. 13800  LOCATE 18,1:GOSUB 16060:PRINT" "
  82. 13810  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  83. 13820  Z$=INKEY$:IF Z$="" THEN 13820
  84. 13830  IF Z$="C" OR Z$="c" THEN 13700
  85. 13840  IF Z$="S" OR Z$="s" THEN 13000
  86. 13850  RUN "MAINMENU"
  87. 13860  CLS:F$="******** IMPEDANCE (Z) WHEN (E) AND (I) ARE KNOWN ********"
  88. 13870  GOSUB 16120:LOCATE 1,F:PRINT F$
  89. 13880  PRINT:GOSUB 16060
  90. 13890  LOCATE 6,57:PRINT"E"
  91. 13900  LOCATE 7,54:PRINT"Z= -"
  92. 13910  LOCATE 8,57:PRINT"I"
  93. 13920  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  94. 13930  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  95. 13940  R=E/I
  96. 13950  LOCATE 15,1:PRINT"THE IMPEDANCE (Z) IS --------------------> ";R;" OHMS"
  97. 13960  LOCATE 18,1:GOSUB 16060:PRINT" "
  98. 13970  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  99. 13980  Z$=INKEY$:IF Z$="" THEN 13980
  100. 13990  IF Z$="C" OR Z$="c" THEN 13860
  101. 14000  IF Z$="S" OR Z$="s" THEN 13000
  102. 14010  RUN "MAINMENU"
  103. 14020  CLS:F$="******** VOLTAGE (E) WHEN (I) AND (X) ARE KNOWN ********"
  104. 14030  GOSUB 16120
  105. 14040  LOCATE 1,F:PRINT F$:PRINT:GOSUB 16060
  106. 14050  LOCATE 6,54:PRINT"E=IX"
  107. 14060  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  108. 14070  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (X) IN OHMS";R
  109. 14080  E=I*R
  110. 14090  LOCATE 15,1:PRINT"THE VOLTAGE (E) IS --------------------> ";E;" VOLTS"
  111. 14100  LOCATE 18,1:GOSUB 16060
  112. 14110  LOCATE 20,1:PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  113. 14120  Z$=INKEY$:IF Z$="" THEN 14120
  114. 14130  IF Z$="C" OR Z$="c" THEN 14020
  115. 14140  IF Z$="S" OR Z$="s" THEN 13000
  116. 14150  RUN "MAINMENU"
  117. 14160  CLS:F$="******** CURRENT (I) WHEN (E) AND (Xc) ARE KNOWN ********"
  118. 14170  GOSUB 16120:LOCATE 1,F:PRINT F$:PRINT:GOSUB 16060
  119. 14180  LOCATE 6,57:PRINT"E"
  120. 14190  LOCATE 7,54:PRINT"I= -"
  121. 14200  LOCATE 8,57:PRINT"Xc"
  122. 14210  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  123. 14220  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";R
  124. 14230  I=E/R
  125. 14240  LOCATE 15,1:PRINT"THE CURRENT (I) IS --------------------> ";I;" AMPS"
  126. 14250  LOCATE 18,1:GOSUB 16060:PRINT" "
  127. 14260  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  128. 14270  Z$=INKEY$:IF Z$="" THEN 14270
  129. 14280  IF Z$="C" OR Z$="c" THEN 14160
  130. 14290  IF Z$="S" OR Z$="s" THEN 13000
  131. 14300  RUN "MAINMENU"
  132. 14310  CLS:F$="******** CAPACITIVE REACTANCE (Xc) WHEN (E) AND (I) ARE KNOWN ********"
  133. 14320  GOSUB 16120:LOCATE 1,F:PRINT F$
  134. 14330  PRINT:GOSUB 16060
  135. 14340  LOCATE 6,57:PRINT"E"
  136. 14350  LOCATE 7,53:PRINT"Xc= -"
  137. 14360  LOCATE 8,57:PRINT"I"
  138. 14370  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (E) IN VOLTS";E
  139. 14380  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (I) IN AMPS";I
  140. 14390  R=E/I
  141. 14400  LOCATE 15,1:PRINT"THE CAPACITIVE REACTANCE (Xc) IS --------------------> ";R;" OHMS"
  142. 14410  LOCATE 18,1:GOSUB 16060:PRINT" "
  143. 14420  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  144. 14430  Z$=INKEY$:IF Z$="" THEN 14430
  145. 14440  IF Z$="C" OR Z$="c" THEN 14310
  146. 14450  IF Z$="S" OR Z$="s" THEN 13000
  147. 14460  RUN "MAINMENU"
  148. 14470  CLS:F$="******** CAPACITIVE REACTANCE (Xc) WHEN (F) AND (C) ARE KNOWN ********"
  149. 14480  GOSUB 16120:LOCATE 1,F:PRINT F$
  150. 14490  PRINT:GOSUB 16060
  151. 14500  LOCATE 6,59:PRINT"1"
  152. 14510  LOCATE 7,54:PRINT"Xc= ----"
  153. 14520  LOCATE 8,58:PRINT"2";CHR$(227);"FC"
  154. 14530  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (F) IN HERTZ";F
  155. 14540  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (C) IN FARADS";C
  156. 14550  XC=1/(6.28*F*C)
  157. 14560  LOCATE 15,1:PRINT"THE CAPACITIVE REACTANCE (Xc) IS --------------------> ";XC;" OHMS"
  158. 14570  LOCATE 18,1:GOSUB 16060:PRINT" "
  159. 14580  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  160. 14590  Z$=INKEY$:IF Z$="" THEN 14590
  161. 14600  IF Z$="C" OR Z$="c" THEN 14470
  162. 14610  IF Z$="S" OR Z$="s" THEN 13000
  163. 14620  RUN "MAINMENU"
  164. 14630  CLS:F$="******** CAPACITANCE (C) WHEN (F) AND (Xc) ARE KNOWN ********"
  165. 14640  GOSUB 16120:LOCATE 1,F:PRINT F$
  166. 14650  PRINT:GOSUB 16060
  167. 14660  LOCATE 5,59:PRINT"1"
  168. 14670  LOCATE 6,54:PRINT"C= -----"
  169. 14680  LOCATE 7,57:PRINT"2";CHR$(227);"XcF"
  170. 14690  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (F) IN HERTZ";F
  171. 14700  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (Xc) IN OHMS";XC
  172. 14710  C=1/(6.28*XC*F)
  173. 14720  LOCATE 15,1:PRINT"THE CAPACITANCE (C) IS --------------------> ";C;" FARADS"
  174. 14730  LOCATE 18,1:GOSUB 16060:PRINT" "
  175. 14740  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  176. 14750  Z$=INKEY$:IF Z$="" THEN 14750
  177. 14760  IF Z$="C" OR Z$="c" THEN 14630
  178. 14770  IF Z$="S" OR Z$="s" THEN 13000
  179. 14780  RUN "MAINMENU"
  180. 14790  CLS
  181. 14800  F$="******** TOTAL CURRENT (It) WHEN (Ir) AND (Ic) ARE KNOWN ********"
  182. 14810  GOSUB 16120:LOCATE 1,F:PRINT F$
  183. 14820  PRINT:GOSUB 16060:PRINT" ":PRINT
  184. 14830  LOCATE 6,54
  185. 14840  PRINT"It";CHR$(253);"=(Ir";CHR$(253);"+Ic";CHR$(253);")"
  186. 14850  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";VR
  187. 14860  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";VC
  188. 14870  VT=SQR((VR^2)+(VC^2))
  189. 14880  PRINT:PRINT:PRINT
  190. 14890  LOCATE 15,1:PRINT"THE TOTAL CURRENT (It) IS --------------------> ";VT;" AMPS"
  191. 14900  PRINT:PRINT:PRINT:GOSUB 16060:PRINT" "
  192. 14910  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  193. 14920  Z$=INKEY$:IF Z$="" THEN 14920
  194. 14930  IF Z$="C" OR Z$="c" THEN 14790
  195. 14940  IF Z$="S" OR Z$="s" THEN 13000
  196. 14950  RUN "MAINMENU"
  197. 14960  CLS:F$="******** CURRENT (Ir) WHEN (It) AND (Ic) ARE KNOWN ********"
  198. 14970  GOSUB 16120:LOCATE 1,F:PRINT F$
  199. 14980  PRINT:GOSUB 16060:PRINT" ":PRINT
  200. 14990  LOCATE 6,54:PRINT"Ir";CHR$(253);"=(It";CHR$(253);"-Ic";CHR$(253);")"
  201. 15000  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  202. 15010  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";VC
  203. 15020  IF VC>VT THEN F$="(Ic) CANNOT BE GREATER THAN (It)"
  204. 15030  IF VC>VT THEN GOSUB 16070
  205. 15040  IF VC>VT THEN 14960
  206. 15050  VR=SQR((VT^2)-(VC^2))
  207. 15060  LOCATE 15,1:PRINT"THE CURRENT (Ir) IS --------------------> ";VR;" AMPS"
  208. 15070  PRINT:PRINT:PRINT:GOSUB 16060:PRINT" "
  209. 15080  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  210. 15090  Z$=INKEY$:IF Z$="" THEN 15090
  211. 15100  IF Z$="C" OR Z$="c" THEN 14960
  212. 15110  IF Z$="S" OR Z$="s" THEN 13000
  213. 15120  RUN "MAINMENU"
  214. 15130  CLS:F$="******** CURRENT (Ic) WHEN (It) AND (Ir) ARE KNOWN ********"
  215. 15140  GOSUB 16120:LOCATE 1,F:PRINT F$
  216. 15150  PRINT:GOSUB 16060:LOCATE 6,54
  217. 15160  PRINT"Ic";CHR$(253);"=(It";CHR$(253);"-Ir";CHR$(253);")"
  218. 15170  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  219. 15180  LOCATE 9,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";VR
  220. 15190  IF VR>VT THEN F$="(Ir) CANNOT BE GREATER THAN (It)"
  221. 15200  IF VR>VT THEN GOSUB 16070
  222. 15210  IF VR>VT THEN 15130
  223. 15220  VC=SQR((VT^2)-(VR^2))
  224. 15230  LOCATE 15,1:PRINT"THE CURRENT (Ic) IS --------------------> ";VC;" AMPS"
  225. 15240  PRINT:PRINT:PRINT:GOSUB 16060:PRINT" "
  226. 15250  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  227. 15260  Z$=INKEY$:IF Z$="" THEN 15260
  228. 15270  IF Z$="C" OR Z$="c" THEN 15130
  229. 15280  IF Z$="S" OR Z$="s" THEN 13000
  230. 15290  RUN "MAINMENU"
  231. 15300  CLS:F$="******** (Ir) WHEN (It) AND THE PHASE ANGLE ARE KNOWN ********"
  232. 15310  GOSUB 16120:LOCATE 1,F:PRINT F$
  233. 15320  PRINT:GOSUB 16060
  234. 15330  LOCATE 6,54:PRINT"Ir=It[COS(";CHR$(237);")]"
  235. 15340  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  236. 15350  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  237. 15360  VR=VT*COS(PA*3.1415/180)
  238. 15370  LOCATE 15,1:PRINT"THE CURRENT (Ir) IS --------------------> ";VR;" AMPS"
  239. 15380  PRINT:PRINT:PRINT:GOSUB 16060:PRINT" "
  240. 15390  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  241. 15400  Z$=INKEY$:IF Z$="" THEN 15400
  242. 15410  IF Z$="C" OR Z$="c" THEN 15300
  243. 15420  IF Z$="S" OR Z$="s" THEN 13000
  244. 15430  RUN "MAINMENU"
  245. 15440  CLS:F$="******** (Ic) WHEN (It) AND THE PHASE ANGLE ARE KNOWN ********"
  246. 15450  GOSUB 16120:LOCATE 1,F:PRINT F$:PRINT:GOSUB 16060
  247. 15460  LOCATE 6,54:PRINT"Ic=It[SIN(";CHR$(237);")]"
  248. 15470  LOCATE 8,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  249. 15480  LOCATE 9,1:PRINT"PLEASE ENTER THE VALUE OF (";CHR$(237);") IN DEGREES";:INPUT PA
  250. 15490  VC=VT*SIN(PA*3.1415/180)
  251. 15500  LOCATE 15,1:PRINT"THE CURRENT (Ic) IS --------------------> ";VC;" AMPS"
  252. 15510  PRINT:PRINT:PRINT:GOSUB 16060:PRINT" "
  253. 15520  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  254. 15530  Z$=INKEY$:IF Z$="" THEN 15530
  255. 15540  IF Z$="C" OR Z$="c" THEN 15440
  256. 15550  IF Z$="S" OR Z$="s" THEN 13000
  257. 15560  RUN "MAINMENU"
  258. 15570  CLS:F$="******** PHASE ANGLE WHEN (Ir) AND (It) ARE KNOWN ********"
  259. 15580  GOSUB 16120:LOCATE 1,F:PRINT F$:PRINT:GOSUB 16060
  260. 15590  LOCATE 6,63:PRINT"Ir"
  261. 15600  LOCATE 8,63:PRINT"It"
  262. 15610  LOCATE 7,54:PRINT CHR$(237);"=ARCCOS -"
  263. 15620  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ir) IN AMPS";VR
  264. 15630  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  265. 15640  IF VR>VT THEN F$="(Ir) CANNOT BE GREATER THAN (It)"
  266. 15650  IF VR>VT THEN GOSUB 16070:IF VR>VT THEN 15570
  267. 15660  Q=VR/VT:A=ATN(Q/SQR(-Q*Q+1)):A=A*57.32:PA=(-1*A)+90
  268. 15670  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  269. 15680  PRINT:PRINT:PRINT:GOSUB 16060:PRINT" "
  270. 15690  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  271. 15700  Z$=INKEY$:IF Z$="" THEN 15700
  272. 15710  IF Z$="C" OR Z$="c" THEN 15570
  273. 15720  IF Z$="S" OR Z$="s" THEN 13000
  274. 15730  RUN "MAINMENU"
  275. 15740  CLS:F$="******** PHASE ANGLE WHEN (Ic) AND (It) ARE KNOWN ********"
  276. 15750  GOSUB 16120:LOCATE 1,F:PRINT F$
  277. 15760  PRINT:GOSUB 16060
  278. 15770  LOCATE 6,63:PRINT"Ic"
  279. 15780  LOCATE 8,63:PRINT"It"
  280. 15790  LOCATE 7,54:PRINT CHR$(237);"=ARCSIN -"
  281. 15800  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";VC
  282. 15810  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  283. 15820  IF VC>VT THEN F$="(Ic) CANNOT BE GREATER THAN (It)":IF VC>VT THEN GOSUB 16070:IF VC>VT THEN 15740
  284. 15830  Q=VC/VT:A=ATN(Q/SQR(-Q*Q+1)):PA=A*57.32
  285. 15840  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  286. 15850  PRINT:PRINT:PRINT:GOSUB 16060:PRINT" "
  287. 15860  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  288. 15870  Z$=INKEY$:IF Z$="" THEN 15870
  289. 15880  IF Z$="C" OR Z$="c" THEN 15740
  290. 15890  IF Z$="S" OR Z$="s" THEN 13000
  291. 15900  RUN "MAINMENU"
  292. 15910  CLS:F$="******** PHASE ANGLE WHEN (Ic) AND (Ir) ARE KNOWN ********"
  293. 15920  GOSUB 16120:LOCATE 1,F:PRINT F$:PRINT:GOSUB 16060
  294. 15930  LOCATE 6,63:PRINT"Ic"
  295. 15940  LOCATE 8,63:PRINT"Ir"
  296. 15950  LOCATE 7,54:PRINT CHR$(237);"=ARCTAN -"
  297. 15960  LOCATE 10,1:INPUT"PLEASE ENTER THE VALUE OF (Ic) IN AMPS";VC
  298. 15970  LOCATE 11,1:INPUT"PLEASE ENTER THE VALUE OF (It) IN AMPS";VT
  299. 15980  PA=(ATN(VC/VT))*57.32
  300. 15990  LOCATE 15,1:PRINT"THE PHASE ANGLE (";CHR$(237);") IS --------------------> ";PA;" DEGREES"
  301. 16000  PRINT:PRINT:PRINT:GOSUB 16060:PRINT" "
  302. 16010  PRINT"(C) TO CONTINUE,(S) FOR SUB MENU OR ANY KEY TO RETURN TO MAIN MENU";
  303. 16020  Z$=INKEY$:IF Z$="" THEN 16020
  304. 16030  IF Z$="C" OR Z$="c" THEN 15910
  305. 16040  IF Z$="S" OR Z$="s" THEN 13000
  306. 16050  RUN "MAINMENU"
  307. 16060  FOR M=1 TO 80:PRINT CHR$(178);:NEXT:RETURN
  308. 16070  CLS:GOSUB 16120:LOCATE 12,F:PRINT F$
  309. 16080  FOR I=1 TO 100
  310. 16090  SOUND 1200,0.5
  311. 16100  SOUND 1400,0.5
  312. 16110  NEXT:RETURN
  313. 16120  F=40-LEN(F$)/2:RETURN
  314.