DECIBEL ADDER
For Casio fx9700 (may work on others - not tested)

*** MORE GAMES AND PROGRAMS FOR CASIO CALCULATORS AT ***
******** http://www.student.uwa.edu.au/~wedgey *********

Given the loudness of a number of sounds, the program
will return the resultant loudness. To end entering
figures, enter zero (0) for the loudness.

Symbols:
E   EXP button
<=  less than or equal to
 <  less than
->  assign (the arrow key)
=>  and/then (in program menu)
*   multiply
/   divide
@   display (the triangle)

Size=145 bytes

'DB ADDER
Lbl 0
"LOUDNESS 1"? -> L
L<=0 => Goto 0
E-12+10^(L/10) -> X    - is not the subtract sign, it is the negative sign
Lbl 1
"NEXT"? -> L
L=0 => Goto 2
L<0 => Goto 1
X+E-12*10^(L/10) -> X   again, - is not subract
Goto 1
Lbl 2
"TOTAL LOUDNESS:"
10log(X/E-12)@          and again!
"FINISHED"