home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / vhfqtr.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  801 b   |  22 lines
  1. 10  CLS
  2. 20  PRINT TAB(32)"VHF QUARTER WAVE"
  3. 30  PRINT:PRINT STRING$(79,22):PRINT
  4. 40  PRINT "THE LENGTH OF A QUARTER WAVE ANTENNA FOR FREQUENCIES ABOVE 30 MHZ"
  5. 50  PRINT"IS DETERMINED BY THE DESIRED FREQUENCY AND THE FORMULA:
  6. 60  PRINT"(492/f(MHZ))/2 WHEN MADE OF 1/4 INCH OR SMALLER TUBING":PRINT
  7. 70  INPUT"FREQUENCY IN MHZ ";F
  8. 80  L=(492/F)/2
  9. 81  LL=L*12
  10. 90  PRINT:PRINT"LENGTH NEEDED IS ";:PRINT USING "###.#";L;
  11. 91  PRINT" FEET FOR ";:PRINT F;:PRINT" MHZ. OR ";:PRINT USING "###.#";LL;:PRINT" INCHES"
  12. 92  PRINT:PRINT"IF ANTENNA IS MOUNTED VERTICALLY THEN THERE SHOULD BE A GROUND PLANE"
  13. 93  PRINT"HAVING A RADIUS AT LEAST EQUAL TO ";:PRINT USING "###.#";L;:PRINT" FEET AT THE BOTTOM"
  14. 100  PRINT:PRINT STRING$(79,250)
  15. 110  PRINT:PRINT"CHOOSE"
  16. 115  PRINT:PRINT"DO ANOTHER ANTENNA..................A"
  17. 120  PRINT:PRINT"RETURN TO MAIN MENU.................R"
  18. 130  A$= INKEY$: IF A$= "" THEN 130
  19. 140  IF A$= "A" THEN CLS: GOTO 70
  20. 150  IF A$= "R" THEN CLS:RUN "MAINMENU"
  21. 160  GOTO 100
  22.