1 program sli_1;
   2 uses mtx09;
   3 var a,b:mtx;
   4 begin
   5   tra;
   6   equ(a,'1 2 3; 4 5 6; 7 8 9; 10 11 12'); // assign a (4,3) matrix "a"
   7   mwr(sli(a,2,4,1,2));  // print a slice ( sub matrice ) of a
   8   equ(b,sli(a,1,2,2,3)) // copy a slice; "b" is a plain mtx
   9 end.
  10 {
  11 # equ [4,3]
  12 1   2   3
  13 4   5   6
  14 7   8   9
  15 10   11   12
  16 
  17 4   5
  18 7   8
  19 10   11
  20 
  21 # equ [2,2] [2,2]
  22 2   3
  23 5   6
  24 
  25 }