home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / tension.asc < prev    next >
Text File  |  1996-06-30  |  1KB  |  34 lines
  1. 100 CLS : PRINT "   ***********************************"
  2. 110 PRINT "   *     STEEL WIRE GUY TENSION      *"
  3. 120 PRINT "   *      PROGRAM COPYRIGHT 1985     *"
  4. 130 PRINT "   *        R.P.HAVILAND W4MB        *"
  5. 140 PRINT "   ***********************************"
  6. 150 REM PROGRAM 32
  7. 200 PRINT "ENTER GUY WIRE SIZE"
  8. 210 PRINT "       1=1/8  INCH"
  9. 220 PRINT "       2=5/32 INCH"
  10. 230 PRINT "       3=3/16 INCH"
  11. 240 PRINT "       4=7/32 INCH"
  12. 250 PRINT "       5=1/4  INCH"
  13. 260 INPUT TE
  14. 270 IF TE = 1 THEN M = .0318: GOTO 400
  15. 280 IF TE = 2 THEN M = .0513: GOTO 400
  16. 290 IF TE = 3 THEN M = .0727: GOTO 400
  17. 300 IF TE = 4 THEN M = .0983: GOTO 400
  18. 310 IF TE = 5 THEN M = .121: GOTO 400
  19. 320 GOTO 260
  20. 400 INPUT "ENTER LENGTH OF GUY,FEET"; L
  21. 410 PRINT "ENTER FULL-SPAN VIBRATION RATE, CYCLES/MINUTE"
  22. 420 INPUT F
  23. 500 M = M * 453 / 30.48
  24. 510 L = L * 30.48
  25. 520 F = F / 60
  26. 530 S = 4 * M * L * L * F * F
  27. 540 S = S * 2.248E-06
  28. 600 PRINT : PRINT "THE GUY TENSION="; INT(S); "POUNDS"
  29. 700 PRINT : PRINT "PRESS R TO RERUN ANY OTHER KEY TO QUIT."
  30. 710 Q$ = INKEY$: IF Q$ = "" GOTO 710
  31. 720 IF Q$ = "R" OR Q$ = "r" THEN RUN
  32. 730 END
  33.  
  34.