x = popuplist(8,53,13,"2/3days 7˙days 7/10˙days 14˙days Other","",1,0)
    if ptstr = "Other"
      while true
        x = fentrybox(" Delivery quoted ",20,"","")
        if x = 0
          delquot = ptstr
          exit while
'        else
'          message "FENTRY Error:"&str(x)
        end if
      end while
    end if