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 }