1 {
   2 #! /bin/bash
   3 ./mwr_af
   4 cat test.txt
   5 rm test.txt
   6 exit 0
   7 }
   8 program mwr_af;
   9 uses mtx09;
  10 var
  11   a, b:mtx;
  12   o:string='test.txt';
  13   f:text;
  14 begin
  15   equ(a,'1;2;3');
  16   equ(b,'4,5,6');
  17   rewrite(f,o);
  18   mwr(a,f);
  19   mwr(b,f);
  20   close(f);
  21   append(f,o);
  22   mwr(a,f);
  23   close(f)
  24 end.
  25 {
  26 1
  27 2
  28 3
  29 
  30 4   5   6
  31 
  32 1
  33 2
  34 3
  35 
  36 }