home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / ham / antdesgn.c64 (.txt) < prev    next >
Commodore BASIC  |  1992-07-24  |  2KB  |  95 lines
  1. 5 POKE 36879,30
  2. 10 PRINT"[147]ANTENNA DESIGN"
  3. 20 PRINT:PRINT:PRINT"       MICRO LABS    "
  4. 30 PRINT"6/18/1983"
  5. 40 PRINT"PRESS ANY KEY"
  6. 60 C=0:FORL=0TO21:POKE38400+L,C:POKE38905-L,C:POKE7680+L,160:POKE8164+L,160:C=C+1
  7. 70 IFC=8THENC=0
  8. 80 NEXT
  9. 90 GETZ$:IFZ$=""THEN90
  10. 100 PRINT"[147]ANTENNA DESIGN"
  11. 110 PRINT"MENU"
  12. 120 PRINT"1. DIPOLE"
  13. 130 PRINT"2. QUAD"
  14. 140 PRINT"3. BEAM"
  15. 150 INPUT"SELECT ONE (1-3)";A
  16. 160 ON A GOTO200,400,800
  17. 200 PRINT"[147]DIPOLE ANTENNA"
  18. 210 PRINT"ENTER:"
  19. 220 INPUT"FREQ. IN MHZ.";F
  20. 230 L=468/F/2
  21. 240 PRINT"[209][209][209]-----[209][209][209]-----[209][209][209]"
  22. 245 PRINT"  [167]     [165] [167]     [165]"
  23. 250 PRINT"  [167]<-L->[165] [167]<-L->[165]"
  24. 260 PRINT"L="L"FEET"
  25. 270 INPUT"WANT ANOTHER (Y/N)";Y$
  26. 275 PRINT" "
  27. 280 IFY$="Y"THEN200
  28. 290 IFY$<>"Y"THEN100
  29. 400 PRINT"[147] (2)ELE. QUAD ANTENNA"
  30. 410 PRINT"ENTER:"
  31. 420 INPUT"FREQ. IN MHZ.";F
  32. 430 PRINT"ENTER:"
  33. 440 PRINT"ELEMENT SPACING"
  34. 450 INPUT"IN WAVELENGTHS";A
  35. 460 S=984/F*A
  36. 470 D=246/F
  37. 480 B=D*.05
  38. 490 R=B+D
  39. 500 T=R*4
  40. 510 L=D*4
  41. 520 PRINT"[147]DRIVEN ELEMENT"
  42. 530 PRINT"LENGTH PER SIDE="
  43. 540 PRINTD"FT."
  44. 550 PRINT"TOTAL LENGTH="
  45. 560 PRINTL"FT."
  46. 570 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  47. 580 PRINT"REFLECTOR ELEMENT"
  48. 590 PRINT"LENGTH PER SIDE="
  49. 600 PRINTR"FT."
  50. 610 PRINT"TOTAL LENGTH="
  51. 620 PRINTT"FT."
  52. 630 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  53. 640 PRINT"ELEMENT SPACING"
  54. 650 PRINTS"FT."
  55. 660 PRINT"SPACING"
  56. 670 PRINT"WAVELENGTH="A
  57. 680 PRINT"FREQ.="F"MHZ."
  58. 690 INPUT"WANT ANOTHER (Y/N)";Y$
  59. 700 IFY$="Y"THEN400
  60. 705 PRINT" "
  61. 710 IFY$<>"Y"THEN100
  62. 800 PRINT"[147]BEAM ANTENNA"
  63. 810 PRINT"ENTER:"
  64. 820 INPUT"FREQ. IN MHZ.";F
  65. 830 D=5600/F
  66. 840 A=D*.05
  67. 850 R1=D+A
  68. 860 A1=D*.05
  69. 870 D1=D-A1
  70. 880 A2=D1*.02
  71. 890 D2=D1-A2
  72. 900 A3=D2*.02
  73. 910 D3=D2-A3
  74. 920 S1=492/F*12*2*.208
  75. 930 S2=492/F*12*2*.15
  76. 940 S3=492/F*12*2*.2
  77. 950 S4=492/F*12*2*.256
  78. 955 PRINT"[147](5)ELE. YAGI(BEAM)"
  79. 960 PRINT"[192][192][192][192][192]  R="R1
  80. 970 PRINT"  ^   S1="S1
  81. 980 PRINT"[192][192][192][192][192]  D="D
  82. 990 PRINT"  ^   S2="S2
  83. 1000 PRINT"[192][192][192][192][192] D1="D1
  84. 1010 PRINT"  ^   S3="S3
  85. 1020 PRINT"[192][192][192][192][192] D2="D2
  86. 1030 PRINT"  ^   S4="S4
  87. 1040 PRINT"[192][192][192][192][192] D3="D3
  88. 1050 PRINT"ABOVE ARE IN INCHES"
  89. 1060 PRINT"R=REFLECTOR"
  90. 1070 PRINT"D=DRIVEN ELEMENT"
  91. 1080 PRINT"S1 THRU S4=SPACING"
  92. 1090 PRINT"D1 THRU D3=DIRECTORS"
  93. 1100 INPUT"WANT ANOTHER (Y/N)";Y$
  94. 1110 IFY$="Y"THENGOTO100
  95.