while true
  x = fentrybox(" Enter Job Nr ",6,shopmask,"")
  if x = -1
    return (0)
  end if
  jobnr = ptstr    'message "jobnr is:"&str(jobnr)
'show results