1 {
2 #! /bin/bash
3 ./mwr_xf
4 cat test.txt
5 rm test.txt
6 exit 0
7 }
8 program mwr_xf;
9 uses mtx09;
10 var
11 f: text;
12 begin
13 rewrite(f,'test.txt');
14 mwr(2.0,f);
15 mwr(1.0/3.0,f);
16 fmt(0); // ugly full precision exp. format
17 mwr(2.0,f);
18 mwr(1.0/3.0,f);
19 close(f)
20 end.
21 {
22 2
23
24 0.333333
25
26 2.000000000000000E+000
27
28 3.333333333333333E-001
29
30 }