1 program lgn2;
   2 uses mtx09;
   3 var
   4  a: mtx;
   5 begin
   6   // a(1)=0... a(101)=100 (i.e. 100 segments)
   7   lsp(a,0.0,100.0,100);
   8   mwr(lgn(a,20.1,25.1))
   9 end.
  10 {
  11 21
  12 22
  13 23
  14 24
  15 25
  16 
  17 }