5 REM 2x serial R or 2x parallel 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 serial resistor"
15 PRINT "               or"
16 PRINT "      2x  parallel 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:PRINT "Output=";:PRINT(C):GOSUB 40
30 GOTO 12
40 PRINT "_____":RETURN
50 PRINT "-- END program --":END