1 program fmt_;
   2 uses mtx09;
   3 var a:mtx;
   4 begin
   5   equ(a,'1.23456789,1.23456789e5; 10, 1.23456789e-5');
   6   mwr(a);
   7   fmt(0);
   8   mwr(a)
   9 end.
  10 {
  11 1.23457   123456.8
  12 10   1.23457E-5
  13 
  14  1.234567890000000E+000    1.234567890000000E+005
  15  1.000000000000000E+001    1.234567890000000E-005
  16 
  17 }