home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / capz.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  542 b   |  19 lines
  1. 10  CLS
  2. 20  PRINT TAB(29)"CAPACITIVE REACTANCE"
  3. 30  PRINT:PRINT STRING$(79,22):PRINT
  4. 40  PRINT "THE REACTANCE OF AN CAPACITOR IS DETERMINED BY"
  5. 50  PRINT"DIVIDING 1 BY THE PRODUCT OF 2 PI fC"
  6. 60  PRINT:INPUT"ENTER FREQUENCY IN MHZ ";FF
  7. 70  PRINT:INPUT"ENTER CAPACITANCE IN MMFD ";CC
  8. 80  F=FF*1E+07:C=CC/1E+07
  9. 90  XC= 1/(6.2832)*(F*C)
  10. 100  PRINT:PRINT"REACTANCE = ";XC;:PRINT" OHMS"
  11. 110  PRINT:PRINT STRING$(79,250)
  12. 120  PRINT:PRINT"CHOOSE"
  13. 130  PRINT:PRINT"DO ANOTHER .........................A"
  14. 140  PRINT:PRINT"RETURN TO MAIN MENU.................R"
  15. 150  A$= INKEY$: IF A$= "" THEN 150
  16. 160  IF A$= "A" THEN CLS: GOTO 60
  17. 170  IF A$= "R" THEN CLS:RUN "MAINMENU"
  18. 180  GOTO 110
  19.