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