1 program main;
   2 uses mtx09;
   3 var
   4   a, ri, rx: mtx;
   5 begin
   6   lsp(a,0.0,100.0,100);
   7   mym(a,a.e[1],50,2); // kludge to get 2 col. mtx, numbered cells from 1..100
   8   equ(ri,'10,50; 30,90');
   9   equ(rx,'7.5 17.5; 22 48; 60, 88');
  10   rix(a,ri,rx);
  11   mwr(a)
  12 end.
  13 {
  14 18   19
  15 20   21
  16 48   49
  17 50   51
  18 52   53
  19 54   55
  20 56   57
  21 58   59
  22 88   89
  23 
  24 }