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