home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / stubs.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-20  |  1.3 KB  |  41 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  LOCATE 2,35:PRINT"STUBS"
  4. 50  PRINT:PRINT STRING$(79,8)
  5. 60  PRINT
  6. 70  PRINT"THE LENGTH OF A STUB, USUALLY A QUARTER WAVE OR HALF WAVE , IS"
  7. 80  PRINT"DEPENDENT ON THE FREQUENCY AND THE VELOCITY OF PROPAGATION OF"
  8. 90  PRINT"THE TYPE OF LINE USED. THE FORMULA IS 234/(Fmhz*VEL) FOR A"
  9. 100  PRINT"QUARTER WAVE."
  10. 110  PRINT:PRINT"VELOCITY OF PROP.              TYPES"
  11. 120  PRINT  "    .66                    RG-8A/U -58A/U -59A/U -11A/U"
  12. 130  PRINT  "    .79                    RG-58/U -59/U"
  13. 140  PRINT  "    .80                    RG-8/U  300 OHM TUBULAR"
  14. 150  PRINT  "    .82                    300 OHM TWIN LEAD"
  15. 160  PRINT  "    .95                    OPEN WIRE TV TYPE"
  16. 170  PRINT:INPUT"FREQUENCY IN MHZ ";MHZ
  17. 180  INPUT"VELOCITY OF PROPAGATION ";VP
  18. 190  L=234/(MHZ*VP)
  19. 200  PRINT"THE LENGTH OF A QUARTER WAVE STUB IS ";:PRINT USING"###.#";L;:PRINT" FEET"
  20. 210  PRINT"THE LENGTH OF A HALF WAVE STUB IS ";:PRINT USING"###.#";L*2;:PRINT" FEET"
  21. 220  PRINT
  22. 350  LOCATE 23,32:PRINT"[SPACE BAR]"
  23. 360  A$=INKEY$:IF A$=CHR$(32) THEN 380
  24. 370  GOTO 360
  25. 380  CLS
  26. 390  PRINT:PRINT:PRINT:PRINT"SELECT"
  27. 400  PRINT:PRINT"1....................DO ANOTHER"
  28. 405  PRINT:PRINT"2....................RETURN TO MAIN MENU"
  29. 410  PRINT:PRINT"3....................RETURN TO BASIC"
  30. 420  PRINT:PRINT"4....................RETURN TO MS-DOS"
  31. 430  INPUT S
  32. 440  ON S GOTO 455,460,470,480
  33. 450  GOTO 380
  34. 455  CLS:PRINT:GOTO 110
  35. 460  RUN"MAINMENU"
  36. 470  CLS:NEW
  37. 480  CLS:LOCATE 12,1:PRINT"ARE YOU SURE? (Y)es/(N)o AS THIS ACTION COULD EXIT BASIC"
  38. 490  A$=INKEY$:IF A$="" THEN 490
  39. 500  IF A$= "Y" THEN CLS:SYSTEM
  40. 510  GOTO 460
  41.