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 }