1 program mty0;
   2 uses mtx09;
   3 var
   4   m:mtx;
   5 begin
   6   mwr(mty(m)); // m not yet allocated so empty
   7   zer(m,1,1);  // m is a 1,1 matrix; m(1,1)=0.0
   8   mwr(mty(m)); // therefore NOT empty
   9   equ(m,'');   // m has some memory allocated but null size
  10   mwr(mty(m))  // therefore empty
  11 end.
  12 {
  13 TRUE
  14 FALSE
  15 TRUE
  16 }