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