home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / sercap.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  601 b   |  19 lines
  1. 10  CLS
  2. 20  PRINT TAB(36)"CT=(C1*C2)/(C1+C2)
  3. 30  PRINT:PRINT STRING$(79,22):PRINT
  4. 40  PRINT "THE TOTAL CAPACITANCE OF TWO CAPACITORS IN SERIES IS EQUAL TO"
  5. 50  PRINT"THE PRODUCT OF THE TWO CAPACITORS DIVIDED BY THE SUM OF THE TWO CAPACITORS":PRINT
  6. 60  INPUT"ENTER FIRST CAPACITOR IN MFD ";C1
  7. 70  INPUT"ENTER SECOND CAPACITOR IN MFD ";C2
  8. 80  CT=(C1*C2)/(C1+C2)
  9. 90  REM FOR SPACE ONLY
  10. 100  PRINT:PRINT"TOTAL CAPACITANCE = ";CT;:PRINT" MFD"
  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.