RPN.2.c+1 \Checkbook
[d]xar2-Xa;
[s]V{h2<(B)+}v+;
"Checkbook II"
"Balance"xa;
"Setup"D'Setup:\    Set which value?| Balance|   Salary|  
Rent|\None|'c(Xa:Xb:Xc:);
~
"Deduct"D'Deduct:\    What 
amount?|X|Rent|All|\None|'c(nxa+:xcnxa+:Csnxa+:;)Xa;
~
"Deposit"D'Deposit:\    What 
amount?|X|Salary|All|\None|'c(xa+:xbxa+:Csxa+:;)Xa;