FUNCTION PDQ_Time()
  while true
    x = fentrybox(" Enter time of PDQ transaction ",5,"##\:##","")
    if ptstr = ""
      continue while
    end if
    pdqtime=ptstr
message "pdqtime) is:"&str(pdqtime)
    if x = 0
      exit while
    end if
  end while
END FUNCTION  'PDQ_Time()