EVHD H"  COMMANDS  PARAMETERS  INFORMATION  LOADùAPL  UTILITIES 
          "W" MENUùAPL "H" "
x=8:i=0:j=0:WINDD WR(x)wc22r1c57;ÄÄÄÄÄÄÄÄÄÄÄÙ      À
 Amortization table
 Earnings rate
 Information
 Loan interest rate
 Payments for loan
 Savings table
;
#203:f=1:call100:f=0
IF R=1}1:IF R=2}199:IF R=3}99:if r=5}3:if r=4}c225
if j<>1}205:@A:goto99
#205:if j<>2}206:@E:goto99
#206:if j<>3}207:@I:goto99
#207:if j<>4}208:@L:goto99
#208:if j<>5}209:@P:goto99
#209:if j<>6}99:@S:goto99
tone40:goto203
#225:j=data k{1,0,0,0,2,0,0,0,3,0,0,4,0,0,0,5,0,0,6,0,0,0,0,0,0,0}:ret
| Copyright 1990, by David Denker |