home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronics / 6.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-07  |  773 b   |  24 lines
  1. 100  CLS
  2. 110  INPUT "LOW PASS (LP) OR HIGH PASS (HP) ";Q$
  3. 115  IF  LEN(Q$)<2 THEN PRINT "you must enter 2 letters"
  4. 117  IF Q$="LP" OR Q$="lp" THEN 140
  5. 130  IF Q$="HP" OR Q$="hp" THEN GOTO 220 ELSE 110
  6. 140  PRINT: INPUT "WHAT IS THE CUT-OFF FREQUENCY ";F
  7. 150  PRINT: INPUT "WHAT VALUE OF FEEDBACK CAPACITOR DO YOU WISH TO USE ";C
  8. 160  RT = (1000 / F )*10000
  9. 170  R = RT / (0.5*C/1E-08)
  10. 180  R = INT(R)
  11. 190  PRINT :PRINT "RESISTORS = ";R;" OHMS"
  12. 200  PRINT :PRINT "GROUND CAPACITOR =";0.5*C;" FARADS"
  13. 210  GOTO 400
  14. 220  PRINT :INPUT "WHAT IS THE CUT-OFF FREQUENCY ";F
  15. 230  PRINT :INPUT "YOUR CAPACITOR VALUE ";C
  16. 240  RT = (1000 / F)*14140
  17. 250  R = RT / (C/1.4E-08)
  18. 260  R = INT(R)
  19. 270  PRINT :PRINT "GROUND RESISTOR = ";R;" OHMS
  20. 280  PRINT :PRINT "FEEDBACK RESISTOR = ";0.5*R;" OHMS"
  21. 290  GOTO 400
  22. 400  PRINT :PRINT "               HIT SPACE BAR TO RETURN TO MENU"
  23. 410  K$ = INKEY$: IF K$=" " THEN RUN "MENU2" ELSE 410
  24.