ONE_READ()

  Short:
  ------
  ONE_READ() Pop-up window with 1-4 Say/Get combinations

  Returns:
  --------
  Nothing

  Syntax:
  -------
  ONE_READ(cSay,cGetName,cPicture,...)

  Description:
  ------------
  For 1-4 iterations of <cSay..cPicture>, a popup
  window will display a Say <cSay>, do a Get on the variable named in
  <cGetNAme> with a Picture of <cPicture>. A read will then be
  issued.

  This is here for compatibility. POPREAD() provides a
  cleaner solution.

  NOTE: the variables named in <cGetName> CANNOT be
  local or static.

  Examples:
  ---------
   dDate := date()
   cTime := space(8)
   lFun  := .t.

   ONE_READ("Current Date","dDATE","@D",;
       "Current Time","cTIME","99:99:99",;
       "Having Fun ?","lFUN","Y")

  Notes:
  -------
  This is here only for compatibility with older
  versions. Next release, it will cease to be.

  See POPREAD() for a better implementation.

  Source:
  -------
  S_ONER.PRG