1 {
   2 #! /bin/bash
   3 ./mwrsf
   4 cat test.txt
   5 rm test.txt
   6 exit 0
   7 }
   8 program mwrsf;
   9 uses mtx09;
  10 var
  11   f:text;
  12 begin
  13   rewrite(f,'test.txt');
  14   mwr('# This is a comment line.',f);
  15   close(f)
  16 end.
  17 {
  18 # This is a comment line.
  19 }