home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / rel-rad.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  1.9 KB  |  67 lines
  1. 10   KEY OFF
  2. 20  CLS
  3. 30  REM ORIGINAL ARTICLE BY LEW McCOY W1CCP IN CQ MAGAZINE SEPT 1983
  4. 40  REM MODIFIED FOR THE TANDY 1000-SX IN GW-BASIC BY R. THWING Sr. K4EDE
  5. 50  LOCATE 1,18:PRINT"VSWR RELATION TO REFLECTED AND TRUE RADIATED POWER"
  6. 60  PRINT:PRINT
  7. 70  PRINT STRING$(79,247)
  8. 80  LOCATE 12,24:PRINT"A PROGRAM MODIFIED BY R. THWING Sr."
  9. 85  LOCATE 14,30:COLOR 0,7:PRINT"TODAY IS ";DATE$:COLOR 7,0
  10. 90  LOCATE 23,35:PRINT"[SPACE BAR]"
  11. 91  LOCATE 16,30:COLOR 0,7:PRINT"IT IS NOW ";TIME$:COLOR 7,0
  12. 100  A$=INKEY$:IF A$="" THEN 90
  13. 110  IF A$<>CHR$(32) THEN 100
  14. 115  BEEP
  15. 120  CLS
  16. 130  LOCATE 1,13:PRINT"DETERMINING REFLECTED POWER AND TRUE RADIATED POWER"
  17. 135  LOCATE 2,21:PRINT"IN RELATION TO STANDING WAVE RATIOS"
  18. 140  LOCATE 3.1:PRINTSTRING$(79,240)
  19. 145  PRINT
  20. 150  REM INPUT VARIABLES
  21. 160  INPUT"ENTER FORWARD POWER (WATTS) ";F
  22. 170  IF F<= 0 THEN 160
  23. 180  PRINT
  24. 190  INPUT"ENTER MAXIMUM VSWR - SUGGEST LIMIT IT TO 3.5 ";VM:PRINT
  25. 200  IF VM <= 0 THEN 190
  26. 210  IF VM > 3.5 THEN PRINT"A VSWR OF ";VM;" IS UNPRACTICALLY HIGH FOR SOLID STATE TRANSCEIVERS"
  27. 220  PRINT
  28. 230  INPUT"ENTER VSWR STEP SIZE ";S:PRINT
  29. 240  IF S =0 THEN 230
  30. 250  IF S< 0.1 THEN PRINT"SUGGEST A STEP SIZE OF .1 OR GREATER":PRINT:GOTO 230
  31. 260  PRINT
  32. 270  PRINT
  33. 280  PRINT"PRESS [HOLD] KEY TO STOP SCROLLING ON NEXT PAGE":PRINT
  34. 290  LOCATE 23,25:PRINT "PRESS [SPACE BAR] TO CONTINUE"
  35. 300  A$= INKEY$:IF A$="" THEN 300
  36. 310  IF A$<>CHR$(32) THEN 300
  37. 315  BEEP
  38. 320  CLS
  39. 330  LOCATE 1,25:PRINT"<FORWARD POWER IS ";F;" WATTS>":PRINT
  40. 340  PRINT"VSWR";:PRINT TAB(10)"REFLECTED POWER";:PRINT TAB(30)"TRUE RADIATED POWER";:PRINT TAB(55)"DB LOSS";:PRINT TAB(66)"S UNITS"
  41. 350  PRINT STRING$(75,"="):PRINT
  42. 360  VIEW PRINT 5 TO 23
  43. 370  REM CALCULATIONS
  44. 380  FOR V= 1 TO VM STEP S
  45. 390  R= F*((V-1)/(V+1)*(V-1)/(V+1)):T=F-R
  46. 400  DB= 10 * LOG(F/T)
  47. 405  SU= DB/3
  48. 410  PRINT USING"#.#";V;
  49. 420  PRINT TAB(15) USING"###.#";R;
  50. 430  PRINT TAB(37) USING"####.#";T;
  51. 435  PRINT TAB(58) USING"#.#";DB;
  52. 436  PRINT TAB(68) USING"#.#";SU
  53. 440  FOR X=1 TO 1000:NEXT:REM SLOWS DOWN SCROLL
  54. 450  NEXT
  55. 460  VIEW PRINT:PRINT
  56. 465  BEEP
  57. 470  LOCATE 23,26:PRINT"PRESS [SPACE BAR] TO CONTINUE]"
  58. 480  A$=INKEY$:IF A$="" THEN 480
  59. 490  IF A$<>CHR$(32) THEN 480
  60. 500  CLS
  61. 510  LOCATE 12,17:PRINT"DO YOU WISH TO USE OTHER PARAMETERS? (Y)es/(N)o"
  62. 520  A$=INKEY$:IF A$="" THEN 520
  63. 530  IF A$="Y" OR A$="y" THEN CLS:GOTO 130
  64. 540  IF A$="N" OR A$="n" THEN CLS:GOTO 560
  65. 550  GOTO 520
  66. 560  KEY ON:RUN"MAINMENU
  67.