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 }