VS_NotEmpty()        VALID clause to make sure string is not empty

Description:

  VS_NotEmpty() provides the programmer with a cosmetically appealing
  "pop-up" validation box.

Syntax:     

  l_Valid = VS_NotEmpty( c_String, [@l_Eating] )

Pass:       

  c_String is a character expression that contains the string to
  ensure is not empty.

  l_Eating is an optional logical expression that can be used in
  place of using VS_EatKeys().

Return:     

  l_Valid is a logical expression that will be set to .T. if
  c_String is NOT empty, otherwise .F.  If l_Valid is .F.,
  VS_NotEmpty() will display a cosmetically appealing pop-up error box
  telling the user that the value cannot be empty.

Notes:      

  VS_NotEmpty() is non-screen destructive.

Example:    

  c_Name = SPACE(40)
  @ 10,10 SAY "Your Name? " GET c_Name VALID VS_NotEmpty(c_Name)
  READ
  ...

Usage:      

  VS_NotEmpty() is used for the "art" of user interfacing.  i.e. it
  provides a pleasant way of informing the user why the VALID clause
  failed.