Checkbook II Script
Webb - all rights reserved - ©2004
spacer
Author - Russ Webb
Email: rwebb@nthlab.com
Webpage:

Summary: Checkbook manager script.

Instructions:

Code:

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;