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