01 REM Igi(c)2018
02 ? CHR$(12):REM CLS
04 ? " U=input in Volts"
05 ? " R1,R2 input in kiloOhm"
06 ? " Example:  4M7=4700,M47=470,47k=47,4k7=4.7"
07 ? " 470 Ohm=0.47,47 Ohm=0.047, 4.7 Ohm=0.0047"
10 CLEAR
12 ? " __________________________________"
15 ? " Resistance R1+ R2 divider":? :REM A=R1, B=R2
16 ? " U=";:INPUT U:IF U=0 THEN 95
18 ? " R1=";:INPUT A:IF A=0 THEN 95
19 ? " R2=";:INPUT B: IF B=0 THEN 95
20 ? " ________________"
21 ? " U="U;"Volts"
22 ? " R1="A;"kOhms"
23 ? " R2="B;"kOhms"
25 R=A+B: REM R=R1+R2
30 I=U/R:? " I="I;"mA":REM current
35 ? " UR1="A*I;"V":? " UR2="B*I;"V"
36 C=A*I:D=B*I:REM C=U1(res. R1), D=U2(res. R2)
40 ? " Total power:" 
41 ? " R1+R2="U*I;"miliwatts"
42 ? " R1="C*I;"miliwatts"
43 ? " R2="D*I;"miliwatts"
90 GOTO 10: REM new start program
95 ?: ? " Input=0=End program":END