home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / windom.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  46 lines
  1. 100 CLS : PRINT "   **********************************"
  2. 110 PRINT "   *         WINDOM ANTENNAS        *"
  3. 120 PRINT "   *SEE MORRIS, HAM RADIO, JAN. 1974*"
  4. 130 PRINT "   * AND ARRL ANTENNA BOOK, 8TH ED. *"
  5. 140 PRINT "   *     PROGRAM COPYRIGHT 1985     *"
  6. 150 PRINT "   *       R.P. HAVILAND, W4MB      *"
  7. 160 PRINT "   **********************************"
  8. 165 REM PROGRAM 4
  9. 170 DEF FNP (X) = INT(10 * X + .5) / 10
  10. 200 PRINT "THE BASIC WINDOM USES A SINGLE WIRE"
  11. 210 PRINT "FEEDER OF 600 OHM IMPEDANCE (APPROX.)"
  12. 220 PRINT "THE MODIFIED TYPE USES 300 OHM TWINLEAD"
  13. 230 PRINT "BOTH WILL OPERATE ON EVEN HARMONICS"
  14. 240 PRINT "A MATCH-BOX IS RECOMMENDED."
  15. 250 PRINT "A WIRE ANTENNA IS ASSUMED"
  16. 260 PRINT : INPUT "ENTER DESIGN FREQUENCY"; FO
  17. 270 LA = 468 / FO
  18. 300 PRINT "ENTER  1=BASIC WINDOM"
  19. 310 PRINT "       2=MODIFIED TYPE"
  20. 320 PRINT "       3=QUIT"
  21. 330 INPUT AT
  22. 340 ON AT GOSUB 400, 600, 1000, 300
  23. 350 PRINT
  24. 360 GOTO 200
  25. 400 FP = .36 * LA
  26. 410 PRINT : PRINT "ANTENNA LENGTH="; FNP(LA); "FEET"
  27. 420 PRINT " FEED AT"; FNP(FP); "FEET FROM END"
  28. 430 PRINT : PRINT "PRESS A KEY FOR MORE"
  29. 440 Q$ = INKEY$: IF Q$ = "" GOTO 440
  30. 450 GOSUB 800
  31. 460 PRINT : PRINT "PRESS A KEY FOR MORE"
  32. 470 Q$ = INKEY$: IF Q$ = "" GOTO 470
  33. 480 RETURN
  34. 600 FP = .325 * LA
  35. 610 GOSUB 410
  36. 620 RETURN
  37. 800 PRINT : PRINT "ADDED RESONANCES ARE APPROXIMATELY"
  38. 810 PRINT " OVERTONE   FREQUENCY-MHZ"
  39. 820 FOR N = 2 TO 16 STEP 2
  40. 830 FH = (492 * (N - .05)) / LA
  41. 840 PRINT N, FNP(FH)
  42. 850 NEXT N
  43. 860 RETURN
  44. 1000 END
  45.  
  46.