1 {#
   2 
   3 1 2 3
   4 4 5 6
   5 
   6 A
   7 8 9 10 11
   8 
   9 B
  10 12 13
  11 14 15
  12 
  13 
  14 &}
  15 program mrd_rfm;
  16 uses mtx09;
  17 var
  18   m: mtx;
  19   f: text;
  20 begin
  21   opn('mrd_rfm.pas',f);
  22   mrd(m,f,'B');
  23   mwr(m);
  24   clo(f); // close file
  25   opn('mrd_rfm.pas',f);
  26   mrd(m,f,'A');
  27   mwr(m);
  28   clo(f);
  29   opn('mrd_rfm.pas',f);
  30   mrd(m,f);
  31   mwr(m);
  32   clo(f);
  33 end.
  34 {
  35 B
  36 12   13
  37 14   15
  38 
  39 A
  40 8   9   10   11
  41 
  42 1   2   3
  43 4   5   6
  44 
  45 }