home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…e: Engineering & Science / Explore_the_World_of_Software_Engineering_and_Science_HRS_Software_1998.iso / programs / electrnc / mcgarret.exe / WIRESIZE.BAS < prev   
BASIC Source File  |  1989-06-14  |  696b  |  25 lines
  1. 100 REM PROGRAM FROM INFO IN JUNE 89 QST P46 FINDS AWG FROM SIZE
  2. 110 REM AND VICE VERSA.  THANX TO WA4DRU.
  3. 120 CLS
  4. 130 PRINT"                 WIRE GAGE PROGRAM"
  5. 140 PRINT
  6. 150 INPUT"FIND GAGE (G) OR SIZE (S)";ANS$
  7. 160 PRINT
  8. 170 IF ANS$ = "G" THEN 210
  9. 180 IF ANS$ = "g" THEN 210
  10. 190 IF ANS$ = "S" THEN 260
  11. 200 IF ANS$ = "s" THEN 260
  12. 210 INPUT "DIAMETER IN MILS";SIZE
  13. 220 GAGE = ((LOG(325)-LOG(SIZE))/LOG(1.123))
  14. 225 GAGE = INT(GAGE+.5)
  15. 230 PRINT
  16. 240 PRINT "NEAREST STANDARD GAGE IS"GAGE" AWG."
  17. 250 PRINT : GOTO 320
  18. 260 INPUT"GAGE (AWG)";GAGE
  19. 270 SIZE = 325 / 1.123^GAGE
  20. 280 SIZE = INT(10*SIZE)/10
  21. 290 PRINT
  22. 300 PRINT "DIAMETER OF THIS GAGE IS"SIZE" MILS"
  23. 310 PRINT
  24. 320 END
  25.