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 }