tests/lengthunits.svx

   1 ; pos=yes warn=0
   2 ; tests length units, also test begin/end saving/restoring units
   3 *fix 1 0 0 0
   4 *units tape metres
   5 1 2 10.00 0 00
   6 *begin
   7 *units tape feet
   8 2 3 10.00 0 00
   9 *end
  10 3 4 10.00 0 00
  11 *units tape yards
  12 4 5 10.00 0 00