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 }