home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / parfeed.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  750 b   |  24 lines
  1. 10  CLS
  2. 20  PRINT TAB(32)"PARALLEL FEEDERS"
  3. 30  PRINT:PRINT STRING$(79,22):PRINT
  4. 40  PRINT:PRINT"THE IMPEDANCE OF AN OPEN WIRE FEED LINE IS DEPENDENT UPON THE WIRE SIZE AND THE SPACING BETWEEN THE WIRES."
  5. 50  PRINT:PRINT"WHAT IS THE WIRE GAUGE? ";:INPUT WS
  6. 60  GOSUB 500:PRINT: INPUT"ENTER SPACING BETWEEN WIRES IN INCHES & DECIMAL ";S
  7. 66  X= (2*S)/D : Y= LOG(X)
  8. 67  Z= (276* Y)/2
  9. 70  PRINT:PRINT"THE IMPEDANCE OF THE LINE WILL BE ";:PRINT INT(Z);" OHMS"
  10. 80  PRINT
  11. 100  PRINT:PRINT STRING$(79,250)
  12. 110  PRINT:PRINT"CHOOSE"
  13. 115  PRINT:PRINT"DO ANOTHER FEEDER...................A"
  14. 120  PRINT:PRINT"RETURN TO MAIN MENU.................R"
  15. 130  A$= INKEY$: IF A$= "" THEN 130
  16. 140  IF A$= "A" THEN CLS: GOTO 70
  17. 150  IF A$= "R" THEN CLS:RUN "MAINMENU"
  18. 160  GOTO 100
  19. 500  IF WS= 16 THEN D= 0.0508:GOTO 515
  20. 505  IF WS= 14 THEN D= 0.0641:GOTO 515
  21. 510  IF WS= 12 THEN D= 0.0808:GOTO 515
  22. 511  PRINT"WRONG WIRE SIZE - TRY AGAIN":GOTO 60
  23. 515  RETURN
  24.