/*  Program to determine the effective interest I'm getting     */
/*  from my TDSP accounts.  Starting on 11/16/93, which is      */
/*  the day I transferred all of my money to the International  */
/*  Stock Fund.                                                 */
arg n                  /*  Trial interest rate - default = 12%  */
if n = '' then n = 4
 
balance = 20154.61                    /*  Initial Contribution  */
total_contrib = balance
IBM_contrib = 0
last_contrib_date = '1993 11 16'      /*  yyyy mm dd format     */
 
Call Doit 195.00, '1993 11 29'
Call Doit 195.00, '1993 12 14'
Call Doit 195.00, '1993 12 30'
Call Doit 219.37, '1994 01 14'
Call Doit 219.37, '1994 01 28'
Call Doit 219.37, '1994 02 13'
Call Doit 219.37, '1994 02 24'
Call Doit 219.37, '1994 03 13'
Call Doit 344.66, '1994 03 31'
Call Doit 219.37, '1994 04 13'
Call Doit 219.37, '1994 04 28'
Call Doit 219.37, '1994 05 12'
Call Doit 219.37, '1994 05 26'
Call Doit 219.37, '1994 06 13'
Call Doit 219.37, '1994 06 28'
Call Doit 219.37, '1994 07 13'
Call Doit 219.37, '1994 07 28'
Call Doit 219.37, '1994 08 11'
Call Doit 219.37, '1994 08 30'
Call Doit 219.37, '1994 09 14'
Call Doit 219.37, '1994 09 29'
Call Doit 219.37, '1994 10 14'
Call Doit 219.37, '1994 10 28'
Call Doit 227.02, '1994 11 14'
Call Doit 227.02, '1994 11 29'
Call Doit 227.02, '1994 12 14'
Call Doit 227.03, '1995 01 13'
Call Doit 227.03, '1995 01 30'
Call Doit 227.03, '1995 02 15'
Call Doit 227.03, '1995 02 25'
Call Doit 227.03, '1995 03 15'
Call Doit 227.03, '1995 03 31'
Call Doit 227.03, '1995 04 15'
Call Doit 227.03, '1995 04 30'
Call Doit 227.03, '1995 05 12'
Call Doit 227.03, '1995 05 12'
Call Doit 227.03, '1995 06 14'
Call Doit 227.03, '1995 06 28'
Call Doit 227.03, '1995 07 13'
Call Doit 227.03, '1995 07 27'
Call Doit 227.03, '1995 08 12'
Call Doit 227.03, '1995 08 29'
Call Doit 227.03, '1995 09 13'
Call Doit 227.03, '1995 09 28'
Call Doit 227.03, '1995 10 12'
Call Doit 227.03, '1995 10 27'
Call Doit 227.03, '1995 11 13'
Call Doit 227.03, '1995 11 28'
Call Doit 227.03, '1995 12 13'
Call Doit 227.03, '1995 12 28'
Call Doit 227.03, '1996 01 11'
Call Doit 227.03, '1996 01 29'
Call Doit 227.03, '1996 02 13'
Call Doit 227.03, '1996 02 27'
Call Doit 326.92, '1996 03 13'   /*  Variable Pay  */
Call Doit 227.03, '1996 03 15'
Call Doit 227.03, '1996 03 28'
Call Doit 227.03, '1996 04 11'
Call Doit 227.03, '1996 04 26'
Call Doit 239.49, '1996 05 14'
Call Doit 239.49, '1996 05 30'
Call Doit 239.49, '1996 06 14'
Call Doit 239.49, '1996 06 28'
Call Doit 239.49, '1996 07 12'
Call Doit 239.49, '1996 07 30'
Call Doit 239.49, '1996 08 14'
Call Doit 239.49, '1996 08 30'
Call Doit 239.49, '1996 09 13'
Call Doit 239.49, '1996 09 27'
Call Doit 0,      '1996 10 10'           /*  Call-in balance check  */
 
Response = n': $'format(balance,,2) 'from your $' || ,
    format(total_contrib,,2) 'and IBM''s $'format(IBM_contrib,,2)'.'
 
"SUBCOM XEDIT"
If rc=0 Then Address XEDIT "COMMAND MSG" response
Else Say response
Exit
 
Doit: Arg this_contribution, contrib_date
 
  days = Julian(contrib_date) - Julian(last_contrib_date)
 
  do i=1 to days
    balance = balance + balance*n/100/365
  end
 
  IBM_contrib = IBM_contrib + this_contribution/3
  balance = balance + this_contribution + this_contribution/3
  total_contrib = total_contrib + this_contribution
  last_contrib_date = contrib_date
Return