home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
100
/
47
/
resistor.bas
< prev
next >
Wrap
BASIC Source File
|
1985-09-24
|
512b
|
30 lines
20 REM charging resistor calculator
30 V2 = 3.75
40 LPRINT "INPUT VOLTAGE",6,9,12,15
50 LPRINT
60 LPRINT "RESISTANCE",,,"CURRENT (mA)"
70 FOR R = 10 TO 100 STEP 10
80 LPRINT R,
90 FOR J = 1 TO 4
100 READ V1
110 V = V1 - V2
120 I = V / R
130 I1 = I * 1000
140 LPRINT I1,
150 NEXT
160 RESTORE
170 LPRINT
180 NEXT
190 DATA 6,9,12,15
= V1 - V2
120 I = V / R
130 I1 I * 1000
140 LPRINT I1,
150 NEXT
160 RESTORE
170 LPRINT
180 NEXT
190 DATA 6,9,12,15
= V1 - V2
120 I = V / R
130 I1