home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / ant / quad / quad.bas
BASIC Source File  |  1988-01-18  |  4KB  |  86 lines
  1. 10 REM PROGRAM TO FIND DEMENSIONS FOR 2 ELEMENT, SINGLE BAND QUAD
  2. 20 REM WRITTEN BY PAUL WISIOLEK K1TKL 2/1/85
  3. 30 CLS:KEY OFF
  4. 40 LOCATE 10,28:PRINT "Two Element Quad Program"
  5. 50 LOCATE 12,32:PRINT "By Paul Wisiolek"
  6. 60 LOCATE 14,38:PRINT "K1TKL"
  7. 70 LOCATE 16,35:PRINT "[76327,765]"
  8. 80 GOSUB 90:GOTO 160
  9. 90 PAUSE%=3
  10. 100 SECS%=VAL(RIGHT$(TIME$,2))
  11. 110 ENOUGH%=(SECS%+PAUSE%) MOD 60
  12. 120 WHILE SECS%<>ENOUGH%
  13. 130 SECS%=VAL(RIGHT$(TIME$,2))
  14. 140 WEND
  15. 150 RETURN
  16. 160 CLS
  17. 170 LOCATE 10,1
  18. 180 PRINT "THE FOLLOWING PROGRAM IS FOR A TWO ELEMENT QUAD WITH A FEED IMPEDANCE"
  19. 190 PRINT "OF 70 OHMS.  YOU WILL BE ASKED FOR A FREQUENCY IN MHZ.  THE PROGRAM"
  20. 200 PRINT "WILL PROVIDE DATA DIMENSION OUTPUT IN FEET AND INCHES FOR THE SIDE OF"
  21. 210 PRINT "THE QUAD, THE TOTAL WIRE LENGTH, THE DIAGONAL MEASUREMENT ALONG THE"
  22. 220 PRINT "SPIDER OR SUPPORT MEMBER FROM THE BOOM CENTER, FOR THE DRIVEN ELEMENT"
  23. 230 PRINT "AND THE REFLECTOR.  THE OPTIMUM BOOM LENGTH WILL ALSO BE GIVEN."
  24. 240 PRINT:INPUT "ENTER <CR> TO CONTINUE",CR$
  25. 250 CLS
  26. 260 LOCATE 14,25:PRINT "For example: 14.025"
  27. 270 LOCATE 11,38:FOR AB=1 TO 7:PRINT CHR$(177):LOCATE 11,38+AB:NEXT
  28. 280 X=0:LOCATE 10,1:PRINT:INPUT "WHAT IS THE FREQUENCY TO USE IN MHZ? ",X
  29. 290 IF X<=0 THEN BEEP ELSE 320
  30. 300 LOCATE 12,10:PRINT "Error in data entry. Try again...."
  31. 310 GOSUB 90:GOTO 250
  32. 320 LR=258/X
  33. 330 WR=4*LR
  34. 340 DR=(LR^2/2)^.5
  35. 350 LD=251/X
  36. 360 WD=4*LD
  37. 370 DD=(LD^2/2)^.5
  38. 380 SP=118/X
  39. 390 CLS
  40. 400 PRINT TAB(15) "DESIGN FREQUENCY IS:";X;"MHZ"
  41. 410 PRINT:PRINT TAB(20) "REFLECTOR DIMENSIONS"
  42. 420 PRINT TAB(20) "********************"
  43. 430 PRINT
  44. 440 PRINT "SIDE LENGTH OF REFLECTOR IS:  ";USING "### FEET, ##.## INCHES";FIX(LR),(FIX(100*(LR-FIX(LR))*12))/100
  45. 450 PRINT "TOTAL WIRE LENGTH OF REFL IS: ";USING "### FEET, ##.## INCHES";FIX(WR),(FIX(100*(WR-FIX(WR))*12))/100
  46. 460 PRINT "DRILL HOLE IN REFL SPIDER AT: ";USING "### FEET, ##.## INCHES";FIX(DR),(FIX(100*(DR-FIX(DR))*12))/100
  47. 470 PRINT:PRINT
  48. 480 PRINT TAB(21) "DRIVEN DIMENSIONS"
  49. 490 PRINT TAB(21) "*****************"
  50. 500 PRINT
  51. 510 PRINT "SIDE LENGTH OF DRIVEN IS: ";USING "    ### FEET, ##.## INCHES";FIX(LD),(FIX(100*(LD-FIX(LD))*12))/100
  52. 520 PRINT "TOTAL WIRE LENGTH OF DRI. IS: ";USING "### FEET, ##.## INCHES";FIX(WD),(FIX(100*(WD-FIX(WD))*12))/100
  53. 530 PRINT "DRILL HOLE IN DRI. SPIDER AT: ";USING "### FEET, ##.## INCHES";FIX(DD),(FIX(100*(DD-FIX(DD))*12))/100
  54. 540 PRINT:PRINT
  55. 550 PRINT TAB(10) "BOOM LENGTH IS: ";USING "### FEET, ##.## INCHES";FIX(SP),(FIX(100*(SP-FIX(SP))*12))/100
  56. 560 PRINT TAB(10) "**************************************"
  57. 570 PRINT:A$="":PRINT "DO YOU WANT A HARD COPY OUTPUT (Y/N)?";A$
  58. 580 A$=INKEY$:IF A$="" GOTO 580
  59. 590 ON INSTR("YyNn",A$) GOTO 620,620,610,610
  60. 600 PRINT "INVALID ENTRY, TRY AGAIN.":BEEP:GOTO 570
  61. 610 CLS:GOTO 800
  62. 620 LPRINT "THE FREQUENCY IN MHZ IS:";USING "###.###";X
  63. 630 LPRINT:LPRINT
  64. 640 LPRINT TAB(20) "REFLECTOR DIMENSIONS"
  65. 650 LPRINT TAB(20) "********************"
  66. 660 LPRINT
  67. 670 LPRINT "SIDE LENGTH OF REFLECTOR IS:  ";USING "### FEET, ##.## INCHES";FIX(LR),(FIX(100*(LR-FIX(LR))*12))/100
  68. 680 LPRINT "TOTAL WIRE LENGTH OF REFL IS: ";USING "### FEET, ##.## INCHES";FIX(WR),(FIX(100*(WR-FIX(WR))*12))/100
  69. 690 LPRINT "DRILL HOLE IN REFL SPIDER AT: ";USING "### FEET, ##.## INCHES";FIX(DR),(FIX(100*(DR-FIX(DR))*12))/100
  70. 700 LPRINT:LPRINT
  71. 710 LPRINT TAB(21) "DRIVEN DIMENSIONS"
  72. 720 LPRINT TAB(21) "*****************"
  73. 730 LPRINT
  74. 740 LPRINT "SIDE LENGTH OF DRIVEN IS: ";USING "    ### FEET, ##.## INCHES";FIX(LD),(FIX(100*(LD-FIX(LD))*12))/100
  75. 750 LPRINT "TOTAL WIRE LENGTH OF DRI. IS: ";USING "### FEET, ##.## INCHES";FIX(WD),(FIX(100*(WD-FIX(WD))*12))/100
  76. 760 LPRINT "DRILL HOLE IN DRI. SPIDER AT: ";USING "### FEET, ##.## INCHES";FIX(DD),(FIX(100*(DD-FIX(DD))*12))/100
  77. 770 LPRINT:LPRINT
  78. 780 LPRINT TAB(10) "BOOM LENGTH IS: ";USING "### FEET, ##.## INCHES";FIX(SP),(FIX(100*(SP-FIX(SP))*12))/100
  79. 790 LPRINT TAB(10) "**************************************"
  80. 800 CLS:A$=""
  81. 810 LOCATE 10,15:PRINT "Do you want to rerun the program (Y/N)?";A$
  82. 820 A$=INKEY$:IF A$="" GOTO 810
  83. 830 ON INSTR("YyNn",A$) GOTO 250,250,850,850
  84. 840 PRINT:PRINT "INVALID ENTRY, TRY AGAIN.":BEEP:PAUSE%=2:GOSUB 100:GOTO 800
  85. 850 CLS:END
  86.