1 {
2 #! /bin/bash
3 echo === 1 ===
4 echo 'TEST' > test.txt
5 ./rwr0
6 cat test.txt
7 echo === 2 ===
8 ./rwr0 "anything"
9 cat test.txt
10 echo === 3 ===
11 rm test.txt
12 exit 0
13 }
14 program rwr0;
15 uses mtx09;
16 var
17 a: mtx;
18 begin
19 rwr('test.txt');
20 equ(a,'1 2 3; 4 5 6');
21 mwr(a,'test.txt');
22 add(a,10.0);
23 if paramcount>0 then rwr('test.txt');
24 mwr(a,'test.txt');
25 end.
26 {
27 === 1 ===
28 1 2 3
29 4 5 6
30
31 11 12 13
32 14 15 16
33
34 === 2 ===
35 11 12 13
36 14 15 16
37
38 === 3 ===
39 }