1 program add_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   add(r0,m1,x); // r0 = m1 + x
  10   add(r0,x,m1); // r0 = X + m1 (idem)
  11 end.
  12 {
  13 # equ [2,3]
  14 1   2   3
  15 4   5   6
  16 
  17 # add [2,3] [2,3] [1,1]
  18 3   4   5
  19 6   7   8
  20 
  21 # add [2,3] [1,1] [2,3]
  22 3   4   5
  23 6   7   8
  24 
  25 }