1 program sub_rax;
   2 uses mtx09;
   3 var
   4   r0, m1: mtx;
   5   x:double=2.0;
   6 begin
   7   tra;
   8   equ(m1,'1,2,3;4,5,6');
   9   sub(r0,m1,x); // r0 = m1 + x
  10   sub(r0,x,m1); // r0 = X + m1 (idem)
  11 end.
  12 {
  13 # equ [2,3]
  14 1   2   3
  15 4   5   6
  16 
  17 # sub [2,3] [2,3] [1,1]
  18 -1   0   1
  19 2   3   4
  20 
  21 # sub [2,3] [1,1] [2,3]
  22 1   0   -1
  23 -2   -3   -4
  24 
  25 }