home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / lfc.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  634 b   |  22 lines
  1. 10  CLS
  2. 20  PRINT TAB(35)"RESONANCE"
  3. 30  PRINT:PRINT STRING$(79,"~"):PRINT
  4. 40  PRINT "THE RESONANCE OF A TUNED CIRCUIT IS DETERMINED BY"
  5. 50  PRINT"DIVIDING 1 BY THE PRODUCT OF 2 PI TIMES THE SQUARE ROOT OF L TIMES C"
  6. 60  PRINT:INPUT"ENTER RESONANT FREQUENCY IN MHZ ";F
  7. 61  FF= F*1E+06
  8. 70  PRINT:INPUT"ENTER CAPACITANCE IN PICOFARADS ";C
  9. 71  CC= C/1E+06
  10. 90  X= 39.4*(FF^2*CC)
  11. 95  L= 1/X
  12. 96  LL= L * 1E+12
  13. 100  PRINT:PRINT"INDUCTANCE = ";:PRINT USING "###";LL;:PRINT" MICROHENRIES"
  14. 110  PRINT:PRINT STRING$(79,250)
  15. 120  PRINT:PRINT"CHOOSE"
  16. 130  PRINT:PRINT"DO ANOTHER .........................A"
  17. 140  PRINT:PRINT"RETURN TO MAIN MENU.................R"
  18. 150  A$= INKEY$: IF A$= "" THEN 150
  19. 160  IF A$= "A" THEN CLS: GOTO 60
  20. 170  IF A$= "R" THEN CLS:RUN "MAINMENU"
  21. 180  GOTO 110
  22.