home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / ant / antlengt / antlengt.bas
BASIC Source File  |  1987-11-11  |  2KB  |  54 lines
  1. 100 CLS
  2. 140 S = 27
  3. 150 Q = 5
  4. 170 PRINT TAB(S);"* * * * * * * * * * * * * *
  5. 180 PRINT TAB(S);"*                         *
  6. 190 PRINT TAB(S);"*    ANTENNA LENGTH       *
  7. 200 PRINT TAB(S);"*     CALCULATIONS        *
  8. 210 PRINT TAB(S);"*                         *
  9. 220 PRINT TAB(S);"* * * * * * * * * * * * * *
  10. 230 PRINT:PRINT:PRINT:PRINT
  11. 300 PRINT "SELECT TYPE OF CALCULATION FROM MENU BELOW:"
  12. 310 PRINT
  13. 320 PRINT "1. 1/2 WAVELENGTH (FREE SPACE)"
  14. 330 PRINT "2. 1/4 WAVELENGTH (FREE SPACE)"
  15. 340 PRINT "3. 1/2 WAVELENGTH DIPOLE"
  16. 350 PRINT "4. 1/4 WAVELENGTH VERTICAL"
  17. 360 PRINT "5. 5/8 WAVELENGTH VERTICAL"
  18. 370 PRINT "6. 1/2 WAVELENGTH INVERTED-VEE"
  19. 380 PRINT:PRINT
  20. 390 INPUT "SELECTION? ",A
  21. 410 IF A = 1, THEN C = 492000!
  22. 420 IF A = 2, THEN C = 246000!
  23. 430 IF A = 3, THEN C = 468000!
  24. 440 IF A = 4, THEN C = 234000!
  25. 450 IF A = 5, THEN C = 585000!
  26. 460 IF A = 6, THEN C = 496000!
  27. 470 IF A > 6, THEN GOTO 300
  28. 490 INPUT "Enter LOWER band edge (in KHz): ",F1
  29. 510 INPUT "Enter UPPER band edge (in KHz): ",F2
  30. 530 INPUT "Enter frequency INCREMENT (in KHz): ",F3
  31. 550 L = C/F1
  32. 560 L = L*100
  33. 570 L = INT(L)
  34. 580 L = L/100
  35. 590 PRINT F1;" KHz";"    L = ";L;" Ft."
  36. 600 LET F1 = F1 + F3
  37. 610 IF F1>=(F2+F3) THEN GOTO 620 ELSE 550
  38. 620 PRINT:PRINT
  39. 640 GOSUB 830
  40. 670 PRINT "1. FINISHED?"
  41. 680 PRINT "2. ANOTHER OF THE SAME TYPE?"
  42. 690 PRINT "3. ANOTHER OF DIFFERENT TYPE?"
  43. 694 PRINT:PRINT
  44. 695 INPUT "ENTER YOUR SELECTION: ",H
  45. 700 IF H = 1 THEN SYSTEM
  46. 710 IF H = 2 THEN 490
  47. 720 IF H = 3 THEN 290
  48. 730 IF H>3 THEN 670
  49. 830 PRINT "PRESS ANY KEY TO CONTINUE:"
  50. 840 A$=INKEY$: IF A$=" " THEN 840
  51. 850 RETURN
  52. IF H = 3 THEN 290
  53. 730 IF H>3 THEN 670
  54. 83