1 {#
2
3 1 2 3
4 4 5 6
5
6 A
7 10 20 30 40
8
9 B
10 1 2
11 3 4
12
13 &
14
15 #! /bin/bash
16 ./stream0
17 cat stream0.out
18 rm stream0.out
19 exit 0
20
21 }
22 program stream0;
23 uses mtx09;
24 var
25 fi, fo: text;
26 m: mtx;
27 begin
28 opn('stream0.pas',fi);
29 rwr('stream0.out',fo);
30 while mrd(m,fi) do mwr(m,fo);
31 clo(fo);
32 apn('stream0.out',fo);
33 mwr(m,fo)
34 end.
35 {
36 1 2 3
37 4 5 6
38
39 A
40 10 20 30 40
41
42 B
43 1 2
44 3 4
45
46 B
47 1 2
48 3 4
49
50 }