1 program mwr_pf;
   2 uses mtx09;
   3 begin
   4   mwr(true,stdout);
   5   mwr(FALSE,stdout);
   6   mwr(0>1,stdout);
   7   mwr(1>0,output);
   8 end.
   9 {
  10 TRUE
  11 FALSE
  12 FALSE
  13 TRUE
  14 }