FUNCTION ChooseLength()        ' Enter & check Length
  while true
    $uos  = [Unit_Of_Sale]
' message "3284/$itemtype is:"&str($itemtype)
    if $itemtype  = "A"
      $mess2 = "      Enter Quantity required       "
    elseif $itemtype  = "B"
      $mess2 = "  Enter Length required (5cm steps) "
    elseif $itemtype  = "C"
      $mess2 = "  Enter Length required (5cm steps) "
    elseif $itemtype  = "O"
      $mess2 = format("Enter"&prodMRC,"M36")
    elseif $itemtype  = "F"
      if $uos = "U3"
          $mess2 = "      ˙˙˙Enter Labour cost ˙˙˙      "
      else
          $mess2 = "      ˙˙˙Enter quantity/length      "
      end if
    elseif $itemtype  = "J"
      $mess2 = "      Enter Quantity required       "
    elseif $itemtype  = "S"
      $mess2 = "      Enter Quantity required       "
    elseif $itemtype  = "T"
      $mess2 = "      Enter Quantity required       "
    elseif $itemtype  = "V"
      $mess2 = "  Enter Length required (5cm steps) "
    elseif $itemtype  = "W"
      $mess2 = "  Enter Length required (5cm steps) "
    end if
' message "3309/$mess2 is:"&str($mess2)
    x = entryline($mess2,6,nr6,#ordlength,21,5,72)
    if x = -1
      return (-1)
    end if
    if x = 0
      if value(ptstr) = 0
        continue while
      elseif $itemtype = "S"
        #ordlength = value(ptstr)
        exit while
      elseif round(mod(value(ptstr)*100,5),0)=0 or round(mod(value(ptstr)*100,5),0)=5
        #ordlength = value(ptstr)
        exit while
      else
        ptstr = value(ptstr)
        x = round(ptstr*20,0)/20
        #ordlength = fixed(@if(x<ptstr,x+.05,x),2)
        continue while
      end if
      if #deflen <> #ordlength
        $resvn = 0
      end if
      exit while
    end if
  end while
  repaint off
END FUNCTION 'ChooseLength()


FUNCTION UpdateLength()        ' Enter & check Length
  while true
    $uos  = [Unit_Of_Sale]
    if $itemtype  = "A"
      $mess2 = "      Enter Quantity required (max"&str(#maxupd)|")   "
    elseif $itemtype  = "B"
      $mess2 = "  Enter Length required (max"&str(#maxupd)|" - 5cms steps)"
'       $mess2 = "  Enter Length required (5cm steps) "
    elseif $itemtype  = "C"
      $mess2 = "  Enter Length required (max"&str(#maxupd)|" - 5cms steps)"
'       $mess2 = "  Enter Length required (5cm steps) "
    elseif $itemtype  = "O"
      $mess2 = format("Enter"&prodMRC&"(max"&str(#maxupd)|")","M36")
    elseif $itemtype  = "F"
      if $uos = "U3"
          $mess2 = "      ˙˙˙Enter Labour cost (max"&str(#maxupd)|")      "
      else
          $mess2 = "      ˙˙˙Enter quantity/length (max"&str(#maxupd)|")  "
      end if
    elseif $itemtype  = "J"
      $mess2 = "      Enter Quantity required (max"&str(#maxupd)|")       "
    elseif $itemtype  = "S"
      $mess2 = "      Enter Quantity required (max"&str(#maxupd)|")       "
'       $mess2 = "      Enter Quantity required       "
    elseif $itemtype  = "T"
      $mess2 = "      Enter Quantity required (max"&str(#maxupd)|")       "
'       $mess2 = "      Enter Quantity required       "
    elseif $itemtype  = "V"
      $mess2 = "  Enter Length required (max"&str(#maxupd)|")       "
'       $mess2 = "  Enter Length required (5cm steps) "
    elseif $itemtype  = "W"
      $mess2 = "  Enter Length required (max"&str(#maxupd)|")       "
'       $mess2 = "  Enter Length required (5cm steps) "
    end if
    x = entryline($mess2,6,nr6,#ordlength,21,5,72)
    if x = -1
      return (-1)
    end if
    if x = 0
      if value(ptstr) = 0
        continue while
      elseif $itemtype = "S"
        #ordlength = value(ptstr)
        exit while
      elseif round(mod(value(ptstr)*100,5),0)=0 or round(mod(value(ptstr)*100,5),0)=5
        #ordlength = value(ptstr)
        exit while
      else
        ptstr = value(ptstr)
        x = round(ptstr*20,0)/20
        #ordlength = fixed(@if(x<ptstr,x+.05,x),2)
        continue while
      end if
      if #deflen <> #ordlength
        $resvn = 0
      end if
      exit while
    end if
  end while
  repaint off
END FUNCTION 'UpdateLength()


FUNCTION F2M()
local lx #feet #inch i z h msg1
    lx = len($meas)
    #feet = ""
    #inch = ""
    for i = 1 to lx
      z = mid($meas,i,1)
      if z = "'"
        exit for
      else
        #feet = #feet|z
      end if
    end for
    if len(#feet) <> lx
      for h = i+1 to lx
        z = mid($meas,h,1)
        #inch = #inch|z
      end for
      if val(#feet) > 0
        if val(#inch) > 11
          messboxwait(" Idiot!! Whoever heard of"&#feet|"'"|#inch|"? - re-enter ",0,0,1)
          $meas = 0
          #ordlength=0
          return (1)
        end if
      end if
      $meas=fixed((val(#feet)+(val(#inch)/12))/#conv_f2m,2)
    else
      $meas=fixed(val(#feet)/#conv_f2m,2)
    end if
    return (0)
END FUNCTION ' F2M()