home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / coaxcabl.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-08-09  |  2.2 KB  |  57 lines
  1. 5  CLS
  2. 10  COLOR 11,1,9:CLS
  3. 20  KEY OFF
  4. 30  LOCATE 2,35:PRINT"COAX CABLE"
  5. 40  LOCATE 4,33:PRINT"CHARACTERISTICS"
  6. 50  PRINT:PRINT STRING$(79,176)
  7. 60  PRINT
  8. 70  PRINT"IN THE FOLLOWING LISTING NOTE:     RG-XXAU IS SOLID DIELECTRIC"
  9. 80  PRINT"                                   RG-XXU  IS FOAM  DIELECTRIC"
  10. 90  PRINT:PRINT"IN CUTTING COAX CABLE INTO QUARTER & HALF WAVE LENGTHS USE PROGRAM"
  11. 100  PRINT"SHOWN AS STUBS UNDER ANTENNAE & FEED LINES"
  12. 110  PRINT
  13. 120  LOCATE 22,36:PRINT"[SPACE BAR]"
  14. 130  A$=INKEY$:IF A$= "" THEN 130
  15. 140  IF A$= CHR$(32) THEN CLS:GOTO 160
  16. 150  GOTO 130
  17. 160  PRINT"                                     -------- ATTEN/MHZ DB/100 FT-----"
  18. 170  PRINT"RG  /U   Z     DIA.   VEL.%   PF/FT  3.5   7   14   21   28   50   144"
  19. 180  PRINT"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
  20. 190  PRINT
  21. 200  PRINT" 8     50     .405    80      25.4  .27  .44  .62  .76  .90  1.2   2.2"
  22. 210  PRINT" 8A    52     .405    66      29.5  .3   .45  .66  .83  .98  1.35  2.5"
  23. 220  PRINT" 11A   75     .405    66      20.5  .38  .55  .80  .98 1.15  1.55  2.8"
  24. 230  PRINT" 58    50     .195    79      25.4  .52  .80 1.10 1.40 1.70  2.20  4.1"
  25. 240  PRINT" 58A   53     .195    66      28.5  .68 1.0O 1.50 1.90 2.20  3.10  5.7"
  26. 250  PRINT" 59    75     .242    79      16.9  .48  .70 1.00 1.20 1.40  2.00  3.4"
  27. 260  PRINT" 59A   73     .242    66      21.0  .64  .90 1.30 1.60 1.80  2.40  4.2"
  28. 270  PRINT"174    50     .100    45      30.8 1.36 1.91 2.75 3.39 3.81  5.09  8.9"
  29. 280  PRINT
  30. 290  PRINT"THE FOLLOWING ARE OPEN WIRE LINES:"
  31. 300  PRINT
  32. 310  PRINT"300 TWIN LEAD         82       5.8  .18  .28  .41  .52  .60  .85  1.55"
  33. 320  PRINT"300 TUBULAR           80       4.6  .07  .25  .39  .48  .53  .75  1.30"
  34. 330  PRINT"1 IN. 450             95            .028 .05  .09  .13  .17  .30   .75"
  35. 340  PRINT".5 IN 400             95            .028 .05  .09  .13  .17  .30   .75"
  36. 345  PRINT:PRINT"          <<<<<<<<<<< NOTE FACTOR(s) YOU NEED >>>>>>>>>>>":PRINT
  37. 350  LOCATE 23,32:PRINT"[SPACE BAR]"
  38. 360  A$=INKEY$:IF A$=CHR$(32) THEN 380
  39. 370  GOTO 360
  40. 380  CLS
  41. 390  PRINT:PRINT:PRINT:PRINT"SELECT"
  42. 400  PRINT:PRINT"1....................RETURN TO MAIN MENU"
  43. 410  PRINT:PRINT"2....................RETURN TO BASIC"
  44. 420  PRINT:PRINT"3....................RETURN TO MS-DOS"
  45. 425  PRINT:PRINT"4....................CHECK NON RESONANT LENGTHS";
  46. 430  INPUT S
  47. 435  COLOR 15,0,0
  48. 440  ON S GOTO 460,470,480,520
  49. 450  GOTO 380
  50. 460  RUN"MAINMENU"
  51. 470  CLS:NEW
  52. 480  CLS:PRINT"ARE YOU SURE? (Y)es/(N)o AS THIS ACTION COULD EXIT BASIC"
  53. 490  A$=INKEY$:IF A$="" THEN 490
  54. 500  IF A$= "Y" THEN CLS:SYSTEM
  55. 510  GOTO 460
  56. 520  COLOR 15,0,0:CLS:RUN"NONRES"
  57.