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 }