1 {
   2 #! /bin/bash
   3 echo '# test' > test.out
   4 ./append1 '1 2 3'
   5 ./append1 '4;5;6'
   6 cat test.out
   7 exit 0
   8 }
   9 program append1;
  10 uses mtx09;
  11 var
  12   a: mtx;
  13   f: text;
  14 begin
  15   append(f,'test.out');
  16   equ(a,paramstr(1));
  17   mwr(a,f)
  18 end.
  19 {
  20 # test
  21 1   2   3
  22 
  23 4
  24 5
  25 6
  26 
  27 }