home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / 1%res.bas (.txt) next >
Encoding:
GW-BASIC  |  1987-08-23  |  858 b   |  29 lines
  1. 100  CLS :REM "1%RES"
  2. 110  PRINT TAB(25);"**** STANDARD 1% RESISTORS ****" :PRINT :PRINT
  3. 120  PRINT :BEEP :INPUT "ENTER RESISTOR VALUE ";R
  4. 130  DEF FNN(R)=INT(0.5+96*((LOG(R)/LOG(10))))
  5. 140  DEF FNO(R)=10^(FNN(R)/96)
  6. 150  X=(LOG(FNO(R))/LOG(10))
  7. 160  DEF FNP(R)=INT(X)-2
  8. 170  Y=0.5+FNO(R)/10^(FNP(R))
  9. 180  DEF FNR(R)=10^(FNP(R))*INT(Y)
  10. 190  PRINT :PRINT "CLOSEST 1% VALUE=";
  11. 200  IF FNR(R)>10^6 THEN 210 ELSE 220
  12. 210  W=FNR(R)/10^6 :GOTO 260
  13. 220  IF FNR(R)>10^3 THEN 230 ELSE 240
  14. 230  Z=FNR(R)/10^3 :GOTO 250
  15. 240  PRINT FNR(R),"OHM" :GOTO 270
  16. 250  PRINT Z;"K OHM" :GOTO 270
  17. 260  PRINT W;"M OHM"
  18. 270  PRINT :BEEP :PRINT "VIEW LIST of 5% VALUES? (Y/N)"
  19. 280  A$=INKEY$ :IF A$="" THEN 280
  20. 290  IF A$="N" OR A$= "n" THEN 330
  21. 300  IF A$="Y" OR A$= "y" THEN 310 ELSE 280
  22. 310  PRINT :PRINT "10,11,12,13,15,16,18,20,22,24,27,30,33,";
  23. 320  PRINT "39,43,47,51,56;62,68,75,82,91*E-1 to E5" :PRINT
  24. 330  PRINT :BEEP :PRINT "CONTINUE? (Y/N)"
  25. 340  B$=INKEY$ :IF B$="" THEN 340
  26. 350  IF B$="Y" OR B$= "y" THEN 120
  27. 360  IF B$="N" OR B$= "n" THEN RUN"MAINMENU" ELSE 340
  28. 370  GOTO 340
  29.