function mom_step1
[fp lp s] = get_data;
m = 25.0;
n = floor((lp - fp)/s) + 1.0;
print_table(n,m,fp,s)
end % momstabell;

function [fp lp s] = get_data
fp = get_first_price;
lp = get_last_price(fp);
s = get_step;
end % get_data

function fp = get_first_price
fp = input('Mata in första pris (mellan 0 och 100): '); 
while fp < 0.0 || fp > 100.0
  fp = input('ERROR: Mata in första pris igen: ');
end
end % get_first_price

function lp = get_last_price(fp)
while true
  lp = input('Mata in sista pris (minst första pris): ');
  if lp >= fp
    break;
  end
end
end % get_last_price

function s = get_step
fprintf('Mata in steglängd: ');
while true
  s = input('');
  if s > 0.0
    break;
  end
  fprintf('ERROR: Mata in steglängd igen: ')
end
end % get_step


function print_table(n, m, fp, s)
disp('MOMSTABELL (mini)');
for i = 0:n-1
  fprintf('%8.2f%10.2f%10.2f\n', fp + i*s, ...
          (fp + i * s) * m / 100.0, ...
          (fp + i * s) * (1.0 + m / 100.0) );
end
end % print_table

