home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / swr.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  750 b   |  27 lines
  1. 10  CLS
  2. 20  LOCATE 2,25:PRINT"VELOCITY STANDING WAVE RATIO"
  3. 25  LOCATE 4,1:PRINT STRING$(79,2)
  4. 30  PRINT:PRINT"THE STANDING WAVE RATIO IN A TRANSMISSION LINE IS EQUAL TO THE"
  5. 40  PRINT"INCIDENT POWER PLUS THE REFLECTED POWER DIVIDED BY THE INCIDENT"
  6. 50  PRINT"POWER MINUS THE REFLECTED POWER."
  7. 60  PRINT:INPUT"ENTER INCIDENT POWER ";PO
  8. 70  PRINT:INPUT"ENTER REFLECTED POWER ";PR
  9. 80  SWR=(PO+PR)/(PO-PR)
  10. 90  PRINT:PRINT"THE SWR IS EQUAL TO ";:PRINT USING"###.#";SWR
  11. 100  LOCATE 23,34:PRINT"[SPACE BAR]"
  12. 110  A$=INKEY$:IF A$="" THEN 110
  13. 120  IF A$= CHR$(32) THEN 140
  14. 130  GOTO 120
  15. 140  CLS
  16. 150  PRINT:PRINT:PRINT"SELECT"
  17. 160  PRINT:PRINT"1................DO ANOTHER"
  18. 170  PRINT:PRINT"2................RETURN TO MAIN MENU"
  19. 180  PRINT:PRINT"3................RETURN TO BASIC"
  20. 185  PRINT:PRINT"4................RETURN TO MS-DOS"
  21. 186  INPUT C
  22. 187  ON C GOTO 200,300,400,500
  23. 200  CLS:GOTO 60
  24. 300  RUN"MAINMENU
  25. 400  CLS:NEW
  26. 500  CLS:SYSTEM
  27.