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 }