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 }