home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / hammisc1 / hamhelp.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-25  |  3.6 KB  |  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*0.05
  70. 690  R1=D+A
  71. 700  A1=D*0.05
  72. 710  D1=D-A1
  73. 720  A2=D1*0.02
  74. 730  D2=D1-A2
  75. 740  A3=D2*0.02
  76. 750  D3=D2-A3
  77. 760  S1=492/F*12*2*0.208
  78. 770  S2=492/F*12*2*0.15
  79. 780  S3=492/F*12*2*0.2
  80. 790  S4=492/F*12*2*0.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*0.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.