FUNCTION CustomerAddr()
  while true
    x = entryline(" Customer's Address - 1st line ",35,"",custaddr1,21,5,70)
    if x = 0
      custaddr1 = proper(ptstr)
      exit while
    end if
  end while

  while true
    x = entryline(" Customer's Address - 2nd line (NOT Town or City) ",35,"",custaddr2,21,5,70)
    if x = 0
      custaddr2 = proper(ptstr)
      exit while
    end if
  end while

  while true
    x = entryline(" Customer's Town or City (NOT county!) ",20,city,custcity,21,5,70)
    if x = 0
      if len(ptstr)=0
        continue while
      end if
      custcity = ptstr
      exit while
    end if
  end while

  while true
    x = entryline(" Customer's Postcode (NOT County!) ",8,"AU*7{[A-Za-z1234567890\ ]U}",custpostcode,21,5,70)
    if x = 0
      custpostcode = ptstr
      exit while
    else
      continue while
    end if
  end while
END FUNCTION 'CustomerAddr()