clear all
format bank
exchng=.78;
total=0;
totalscotia= [
%%% national trust
   7000   %was national trust Kitchener gic due june ?? 2007 joint Henry 80291-02270-99, 4.75% acct 700118750920
   5000   % was national trust Kitchener gic due oct 26 2006 joint Henry, 80291-02270-99 4.75% acct 700118750920 %%
   10000 %  was national trust Kitchener gic due nov 1 2006 joint Henry 70052-04628-96 4.75% acct 700118750920
   22000  %  was national trust Kitchener gic due oct 19 2006 joint Henry, 70052-03605-97, 4.75% acct 700118750920
   824.59/exchng  % US dollar account 7011 90305 22 balance $824.59 Jan/04 joint with Henry and Nathan
  7621.93   %power chequing 70011 87509 20 balance on Dec 26/03 
];
sumscotia=sum(totalscotia);
total=total+sumscotia;
%%% cibc starts
totalcibc=[
   31065 %% cibc Cambridge 49-0881173 LTGIC interest due oct 31 2006 4.1% interest received ?????
   7000 %% cibc Cambridge 49-0881173 LTGIC product BBGIC-00175, interest due dec 9 2007 4.3% (from2002), was 13,000 but changed - rest put into account
   15000 %% cibc Cambridge 49-0881173 LTGIC interest due nov 6 2006 3.85%
   9000 %%% cibc Cambridge 2076243LTGIC #00029-8103672 interest due nov 20 2006 3.7% joint with Henry interest received ?????
    2224.15 %%as of jan5/04  chequing acct: 
];
sumcibc=sum(totalcibc);
total=total+sumcibc;
%%% now TD bank
totaltd=[
   %29449. %% 4.75% due Sept 2007
   %8190.34 %%% 4.5% due jun21/05
   1465.76/exchng      %as of dec31/03 acct 0109-7105096 US dollar account 
   %1230.85 %% as of dec31/03 acct 0109-3132000 joint with Nathan 
     %% above sent to Nathan's account in US
   38854.97  % sum of two GICs and Canad acct on Apr 1/04
%%Apr 2, 3 cheques sent out for $12,951.65 each with two going to DISNAT and one to National Bank to Lily's, i.e. 1/3 of above 38854.97
];
sumtd=sum(totaltd);
total=total+sumtd;
%%now ETRADE, 111 North Highland St., Arlington, VA 22201-2807 or P.O Box 1542 Merifield VA 22116-9949 tel 800-638-2265;
totaletrade= 72808.54/exchng;   % as of Dec 31/03
         % account number 2001970215; GIC interest 3.45% maturity Apr. 24, 2008 (or 3.51% interest rate?) 
%%%%
total=total+totaletrade;
expenses=total*.05;executor=expenses;
format bank
disp(['Scotia             CIBC             TD             ETRADE']);
disp(num2str([sumscotia sumcibc sumtd totaletrade]))
expenses=expenses+15000;   % lawyer and Paperman
expenses=expenses+2075;   % Berson and Son monument in Montreal
expenses=expenses+300;   % flowers and monument repair
sumtotal=sum(total)-expenses;
each=sumtotal/3;
disp(['executor expenses ',num2str(executor)]);
disp(['expenses ',num2str(expenses)]);
disp(['total after expenses is ',num2str(sumtotal)]);
disp(['total divided by 3 is  ',num2str(each)]);
         
senttonathan= 12951.65+ 12951.65+(824.59+72808.54)/exchng;
senttolily= 12951.65+30000.00+25000.00;
senttohenry=23110.66;
totalsent= senttonathan+ senttolily+ senttohenry;
expensespaid=13522.65+700+362.33+2075.;  %paid by Henry
disp(['expenses paid out by Henry  ',num2str(expensespaid)]);
disp(' ')
disp(['current totals left to send for each:']);
disp(['Nathan    Lily           Henry -  current totals']);
disp(num2str([0 (each-senttolily) (sumtotal-totalsent-(each-senttolily))]));
disp(' ')
disp(['current totals already sent to each:']);
disp(num2str([(senttonathan) sum(senttolily) sum(senttohenry)]));