5 REM 2x parallel R or 2x serial C "calculator"
6 REM  Single Board Computer 6502
10 PRINT CHR$(12): REM CLS
11 PRINT "          (c) 2016 Igi"
12 PRINT""
13 PRINT "        Calculation for"
14 PRINT "      2x parallel resistor"
15 PRINT "                or"
16 PRINT "      2x  serial capacity"
17 PRINT "   Input = 0 = End program"
19 PRINT "________________________": PRINT""
20 PRINT "Input1=";:INPUT A:IF A=0 THEN 50
21 PRINT "Input2=";:INPUT B:IF B=0 THEN 50
22 GOSUB 40
25 C=A*B:D=A+B:PRINT "Output=";:PRINT(C/D):GOSUB 40
30 GOTO 12
40 PRINT "_____":RETURN
50 PRINT "-- END program --":END