home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / scanlfuf.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  1.8 KB  |  58 lines
  1. 10   CLS
  2. 15  KEY OFF
  3. 20  LOCATE 2,25:PRINT"QUARTER WAVE ANTENNA LENGTHS"
  4. 30  LOCATE 4,25:PRINT"BETWEEN LOWER & UPPER FREQs."
  5. 40  PRINT:PRINT STRING$(79,".")
  6. 50  PRINT:PRINT"      A PROGRAM FOR DETERMINING THE LENGTHS OF A VERTICAL QUARTER WAVE"
  7. 60  PRINT:PRINT"            ANTENNA BETWEEN A LOWER AND UPPER FREQUENCY LIMIT."
  8. 70  PRINT:PRINT"         SUGGEST USING FREQUENCIES OF 27 MHZ OR HIGHER AND ANTENNA"
  9. 80  PRINT:PRINT"                   DIAMETERS OF 1/4 INCH OR LARGER"
  10. 90  PRINT:PRINT"       RADIALS SHOULD BE SLIGHTLY DROOPING AND OF THE LENGTH SHOWN"
  11. 100  PRINT:PRINT
  12. 110  PRINT:PRINT:PRINT"           USE [CTRL] + [PRINT] KEY FOR HARD COPY AS NEEDED"
  13. 120  LOCATE 23,32:PRINT">>>SPACE BAR<<<"
  14. 130  A$=INKEY$:IF A$=""THEN 140
  15. 140  IF A$<>CHR$(32) THEN 130
  16. 150  CLS
  17. 160  PRINT"DO YOU WANT (F)ast OR (S)low SCROLL?"
  18. 170  INPUT"SELECT";FS$
  19. 180  IF FS$="F" OR FS$="f" THEN Z=1:GOTO 210
  20. 190  IF FS$="S" OR FS$="s" THEN Z=500:GOTO 210
  21. 200  GOTO 150
  22. 210  INPUT"ENTER LOWER FREQ. IN MHZ ";LF:PRINT
  23. 220  INPUT"ENTER UPPER FREQ. IN MHZ ";UF:PRINT
  24. 230  INPUT"ENTER STEPS IN MHZ e.g. .1 .2 etc. ";ST
  25. 235  CLS
  26. 240  PRINT TAB(5)"FREQ.";TAB(16)"ANTENNA ------] ";TAB(35)"RADIALS -------]"
  27. 250  PRINT TAB(5)"MHZ";TAB(16)"FEET ";TAB(25)"INCHES";TAB(35)"FEET ";TAB(45)"INCHES "
  28. 260  PRINT STRING$(50,"-")
  29. 270  PRINT
  30. 280  VIEW PRINT 5 TO 23
  31. 290  FOR X= LF TO UF STEP ST
  32. 300  L= (492/X)/2
  33. 305  RD=L+(L*0.025)
  34. 310  LL= L*12
  35. 315  RI=LL*1.025
  36. 320  PRINT TAB(5) USING"###.##";X;:PRINT TAB(15) USING "###.#";L;:PRINT TAB(25) USING"###.#";LL;:PRINT TAB(35)USING"###.#";RD;:PRINT TAB(45)USING"###.#";RI
  37. 330  FOR I=1 TO Z:NEXT I:REM CONTROLS SCROLLING SPEED OF FREQs.
  38. 340  NEXT X
  39. 350  GOTO 470
  40. 360  PRINT"WHAT IS NEXT? "
  41. 370  PRINT:PRINT"DO ANOTHER?................A "
  42. 380  PRINT:PRINT"RETURN TO BASIC............B "
  43. 390  PRINT:PRINT"RETURN TO MAIN MENU........M "
  44. 400  PRINT:PRINT"RETURN TO MS-DOS...........S "
  45. 410  A$=INKEY$:IF A$="" THEN 410
  46. 420  IF A$= "A" OR A$="a" THEN GOTO 150
  47. 425  KEY ON
  48. 430  IF A$= "B" OR A$="b" THEN CLS:NEW
  49. 440  IF A$= "M" OR A$="m" THEN RUN"MAINMENU"
  50. 450  IF A$= "S" OR A$="s" THEN SYSTEM
  51. 460  CLS:GOTO 360
  52. 470  LOCATE 23,32:PRINT">>>SPACE BAR<<<"
  53. 480  A$=INKEY$:IF A$="" THEN 480
  54. 490  IF A$<>CHR$(32) THEN 480
  55. 500  VIEW PRINT
  56. 510  CLS
  57. 520  GOTO 360
  58.