1 {$C+}
   2 program main;
   3 uses mtx09;
   4 var
   5   a, rx: mtx;
   6 begin
   7   lsp(a,0.0,100.0,100);
   8   equ(rx,'10,90'); // remove rows in [10,90[
   9   // interactive usage e.g.: ./rex0 '20,25;50,56;95,101'
  10   if paramcount>0 then equ(rx,paramstr(1));
  11   rex(a,rx);
  12   mwr(a)
  13 end.
  14 {
  15 0
  16 1
  17 2
  18 3
  19 4
  20 5
  21 6
  22 7
  23 8
  24 9
  25 90
  26 91
  27 92
  28 93
  29 94
  30 95
  31 96
  32 97
  33 98
  34 99
  35 100
  36 
  37 }