function [n,Z]=tilgung(K,R,TZ,p0,p1,p2,A)         %
%global K
n=1;              %Monate
while K>0
  if n>1 && (K(n-1)-R)<0
    if n<=12*TZ
      K(n)=K(n)*(1+p0)^(1/12);
      Z(n)=K(n)*p0/12;
    elseif n>12*TZ && n<12*2*TZ
      K(n)=K(n)*(1+p1)^(1/12);
      Z(n)=K(n)*p1/12;
    elseif n>=12*2*TZ
      K(n)=K(n-1)*(1+p2)^(1/12);
      Z(n)=K(n)*p2/12;
    K(n)=0;
    endif
    break
  endif
  if n>12*(68-A)
     break
  endif
  if n==1
    K=(K-R)*(1+p0)^(1/12);
    Z=K*p0/12;
    elseif n<=12*TZ    
      K(n)=(K(n-1)-R)*(1+p0)^(1/12);
      Z(n)=K(n)*p0/12;
    elseif n>12*TZ && n<12*2*TZ
      K(n)=(K(n-1)-R)*(1+p1)^(1/12);
      Z(n)=K(n)*p1/12;
    elseif n>=12*2*TZ
      K(n)=(K(n-1)-R)*(1+p2)^(1/12);
      Z(n)=K(n)*p2/12;
  endif
  n=n+1;
endwhile
endfunction