home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1999 January / Simtel-MSDOS-Jan1999-CD2.iso / hamradio / hamhelp.bqs / HAMHELP.BAS
BASIC Source File  |  1998-12-10  |  5KB  |  197 lines
  1. 10 DIM N(100)
  2. 11 KEY OFF:CLS
  3. 20 PRINT "HANDY HAM PROGRAMS"
  4. 30 PRINT "WILLIS SOFTWARE SYSTEMS 1978"
  5. 40 PRINT "5192 CRYSTAL DRIVE CHARLESTON W. VA."
  6. 50 PRINT
  7. 60 PRINT 
  8. 70 PRINT "   1   OHMS LAW PROGRAM"
  9. 80 PRINT "   2   DESIGN DIPOLE ANTENNA"
  10. 90 PRINT "   3   DESIGN QUAD ANTENNA"
  11. 100 PRINT "   4   DESIGN BEAM ANTENNA"
  12. 110 PRINT "   5   CALCULATE PARALLEL RESISTANCES"
  13. 120 PRINT "   6   TO RETURN TO BASIC MONITER"
  14. 130 PRINT 
  15. 140 PRINT 
  16. 150 INPUT "ENTER NUMBER OF OPTION DESIRED AND PRESS RET KEY  ";O
  17. 160 IF O=0 THEN 20
  18. 170 IF O>6 THEN 20
  19. 180 ON O GOTO 210,970,1270,520,1710,190
  20. 190 PRINT
  21. 200 END
  22. 210 REM OHMS LAW
  23. 220 PRINT "ENTER E IN VOLTS, 0 IF UNKNOWN":PRINT
  24. 230 INPUT ;E : PRINT
  25. 240 PRINT "ENTER I IN AMPS, 0 IF UNKNOWN":PRINT
  26. 250 INPUT ;I : PRINT
  27. 260 PRINT "ENTER R IN OHMS, 0 IF UNKNOWN":PRINT
  28. 270 INPUT ;R : PRINT
  29. 280 IF E+I+R=0 GOTO 470
  30. 290 IF E=0 GOTO 330
  31. 300 IF I=0 GOTO 380
  32. 310 IF R=0 GOTO 430
  33. 320 GOTO 470
  34. 330 E=I*R
  35. 340 PRINT "E=";E
  36. 350 PRINT 
  37. 360 PRINT 
  38. 370 GOTO 470
  39. 380 I=E/R
  40. 390 PRINT "I=";I
  41. 400 PRINT 
  42. 410 PRINT 
  43. 420 GOTO 470
  44. 430 R=E/I
  45. 440 PRINT "R=";R
  46. 450 PRINT 
  47. 460 PRINT 
  48. 470 PRINT "DO YOU WANT TO DO ANOTHER Y OR N "
  49. 480 LINE INPUT ;R$
  50. 490 IF R$="Y" GOTO 210
  51. 500 GOTO 60
  52. 510 '
  53. 520 REM DESIGN BEAM ANTENNA
  54. 530 PRINT "    DESIGN VHF"
  55. 540 PRINT 
  56. 550 PRINT "   BEAM ANTENNA"
  57. 560 PRINT 
  58. 570 REM  
  59. 580 REM 
  60. 590 REM 
  61. 600 PRINT 
  62. 610 PRINT "     ENTER"
  63. 620 PRINT 
  64. 630 PRINT "FREQUENCY IN MHZ"
  65. 640 PRINT 
  66. 650 PRINT 
  67. 660 INPUT ;F
  68. 670 D=5600/F
  69. 680 A=D*.05
  70. 690 R1=D+A
  71. 700 A1=D*.05
  72. 710 D1=D-A1
  73. 720 A2=D1*.02
  74. 730 D2=D1-A2
  75. 740 A3=D2*.02
  76. 750 D3=D2-A3
  77. 760 S1=492/F*12*2*.208
  78. 770 S2=492/F*12*2*.15
  79. 780 S3=492/F*12*2*.2
  80. 790 S4=492/F*12*2*.256
  81. 800 REM 
  82. 810 PRINT "-----------------";"R1 IN.=";R1
  83. 820 PRINT "        !      ^ "
  84. 830 PRINT "        !      ^ ";"S1 IN.=";S1
  85. 840 PRINT "-----------------";"D  IN.=";D
  86. 850 PRINT "        !      ^ "
  87. 860 PRINT "        !      ^ ";"S2 IN.=";S2
  88. 870 PRINT "-----------------";"D1 IN.=";D1
  89. 880 PRINT "        !      ^ "
  90. 890 PRINT "        !      ^ ";"S3 IN.=";S3
  91. 900 PRINT "-----------------";"D2 IN.=";D2
  92. 910 PRINT "        !      ^ "
  93. 920 PRINT "        !      ^ ";"S4 IN.=";S4
  94. 930 PRINT "-----------------";"D3 IN.=";D3
  95. 940 LINE INPUT "DO YOU WANT TO DO ANOTHER YES OR NO";Y$
  96. 950 IF Y$="YES" THEN 520
  97. 960 GOTO 60
  98. 970 REM DESIGN DIPOLE ANTENNA
  99. 980 PRINT "    DESIGN"
  100. 990 PRINT "DIPOLE ANTENNA"
  101. 1000 PRINT 
  102. 1010 PRINT "    ENTER"
  103. 1020 PRINT "FREQUENCY IN MHZ."
  104. 1030 PRINT 
  105. 1040 PRINT 
  106. 1050 PRINT 
  107. 1060 PRINT 
  108. 1070 PRINT 
  109. 1080 PRINT 
  110. 1090 PRINT 
  111. 1100 PRINT 
  112. 1110 INPUT ;A
  113. 1120 PRINT 
  114. 1130 L=468/A/2
  115. 1140 PRINT "MHZ."
  116. 1150 PRINT "    DIPOLE"
  117. 1160 PRINT "CUT AS FIGURE"
  118. 1170 PRINT 
  119. 1180 PRINT 
  120. 1190 PRINT "O-------O-------O"
  121. 1200 PRINT "!<-'L'->!<-'L'->!"
  122. 1210 PRINT 
  123. 1220 PRINT "                 L=",L," FT"
  124. 1230 PRINT 
  125. 1240 LINE INPUT "DO YOU WANT TO DO ANOTHER YES OR NO ";Y$
  126. 1250 IF Y$="YES" THEN 970
  127. 1260 GOTO 60
  128. 1270 REM DESIGN QUAD ANTENNA
  129. 1280 PRINT "DESIGN QUAD ANTENNA"
  130. 1290 PRINT 
  131. 1300 PRINT "ENTER"
  132. 1310 PRINT 
  133. 1320 PRINT "FREQUENCY IN MHZ."
  134. 1330 PRINT 
  135. 1340 PRINT 
  136. 1350 PRINT 
  137. 1360 PRINT 
  138. 1370 PRINT 
  139. 1380 PRINT 
  140. 1390 PRINT 
  141. 1400 PRINT 
  142. 1410 INPUT F
  143. 1420 PRINT 
  144. 1430 PRINT 
  145. 1440 PRINT "ENTER"
  146. 1450 PRINT "ELEMENT SPACEING IN WAVE LENGTHS"
  147. 1460 INPUT A
  148. 1470 S=984/F*A
  149. 1480 D=246/F
  150. 1490 B=D*.05
  151. 1500 R=B+D
  152. 1510 T=R*4
  153. 1520 L=D*4
  154. 1530 PRINT "DREVEN ELEMENT"
  155. 1540 PRINT "LENGTH EACH SIDE"
  156. 1550 PRINT D," FT. "
  157. 1560 PRINT "TOTAL LENGTH"
  158. 1570 PRINT L," FT. "
  159. 1580 PRINT "REFLECTOR ELEMENT"
  160. 1590 PRINT "LENGTH EACH SIDE"
  161. 1600 PRINT R," FT. "
  162. 1610 PRINT "TOTAL LENGTH"
  163. 1620 PRINT T," FT. "
  164. 1630 PRINT "ELEMENT SPACEING"
  165. 1640 PRINT S," FT. "
  166. 1650 PRINT "SPACING"
  167. 1660 PRINT "WAVE LENGTH =",A
  168. 1670 PRINT "FREQUENCY   =",F,"MHZ."
  169. 1680 LINE INPUT "DO YOU WANT TO DO ANOTHER YES OR NO ";Y$
  170. 1690 IF Y$="YES" THEN 1270
  171. 1700 GOTO 60
  172. 1710 CLS:PRINT "COMPUTE PARALLEL RESTANCES"
  173. 1720 PRINT 
  174. 1730 PRINT 
  175. 1740 PRINT "       1 TO 100 RESISTORS "
  176. 1750 PRINT 
  177. 1760 PRINT 
  178. 1770 PRINT 
  179. 1780 REM RESISTANCE PARALLEL
  180. 1790 FOR X=1 TO 100
  181. 1800 PRINT "ENTER R , 0 TO STOP"
  182. 1810 INPUT "R= ";N(X)
  183. 1820 IF N(X)=0 THEN 1840
  184. 1830 NEXT X
  185. 1840 PRINT "RESISTANCES ARE"
  186. 1850 R=0
  187. 1860 X=X-1
  188. 1870 FOR K=1 TO  X
  189. 1880 PRINT "RESISTANCE OF R",K," IS",N(K)," OHMS"
  190. 1890 R=R+1/N(K)
  191. 1900 NEXT K
  192. 1910 R=1/R
  193. 1920 PRINT "TOTAL RESISTANCE IS",R," OHMS"
  194. 1930 LINE INPUT "DO YOU WANT TO DO MORE YES OR NO ";Y$
  195. 1940 IF Y$ = "YES" OR Y$ = "Y" THEN 1710 ELSE 1700
  196. 1950 END
  197.