home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 784.RESISTOR.BAS < prev    next >
BASIC Source File  |  1985-09-24  |  512b  |  30 lines

  1. 20 REM charging resistor calculator
  2. 30 V2 = 3.75
  3. 40  LPRINT "INPUT VOLTAGE",6,9,12,15
  4. 50 LPRINT
  5. 60 LPRINT "RESISTANCE",,,"CURRENT (mA)"
  6. 70 FOR R = 10 TO 100 STEP 10
  7. 80 LPRINT R,
  8. 90 FOR J = 1 TO 4
  9. 100 READ V1
  10. 110 V = V1 - V2
  11. 120 I = V / R
  12. 130 I1 = I * 1000
  13. 140 LPRINT I1,
  14. 150 NEXT
  15. 160 RESTORE
  16. 170 LPRINT
  17. 180 NEXT
  18. 190 DATA 6,9,12,15
  19.  = V1 - V2
  20. 120 I = V / R
  21. 130 I1  I * 1000
  22. 140 LPRINT I1,
  23. 150 NEXT
  24. 160 RESTORE
  25. 170 LPRINT
  26. 180 NEXT
  27. 190 DATA 6,9,12,15
  28.  = V1 - V2
  29. 120 I = V / R
  30. 130 I1