READ

          @ SAY..GET format for Radio Buttons

    Syntax:

         @ nRow, nCol [ SAY cSayText ]
                GET cGetVar
                [ WHEN lPrevalid ]
                [ VALID lPostValid ]
                [ COLOR cColor ]
                WITH RADIOBUTTONS aOptions
                [ NOBOX ]
                [ DOUBLE ]
                [ HORIZONTAL ]


    Description:

         Now you can create attractive radio buttons compliant with
         the CUA specifications by using an additional variant of
         the @ SAY..GET command and the standard CA-Clipper READ command.
         The new @ SAY..GET clause WITH RADIOBUTTONS specifies an
         array containing the radio button characteristics.
         If NOBOX is specified, the radio buttons will be displayed
         without an enclosing box.  If NOBOX is omitted, the radio
         buttons will be enclosed in either a single- or double-line
         box depending on whether or not DOUBLE is specified.  The
         radio buttons will be oriented horizontally if HORIZONTAL
         is specified, and vertically otherwise.

    Return:

         Not applicable.

    Example:

         @ 4,5  SAY "Get Normal 1:" GET cGet1
         @ 6,5  SAY "Clipper Lib"   GET nChoice1 ;
                COLOR "R/B" ;
                WITH RADIOBUTTONS { "1 Opc", "2 No buttons", "3 Opc" }
         @ 6,40 SAY "Fast Library"  GET nChoice2 WHEN nChoice1 != 2 ;
                COLOR "W/N" ;
                WITH RADIOBUTTONS { "1 Adios", "2 Agur", "3 Bye bye" }
         @ 7,60 GET nChoice3 ;
                COLOR "GR+/B" ;
                WITH RADIOBUTTONS { "1 Quick", "3 Simple", "4 Beautiful" } ;
                NOBOX
         @ 12,5 SAY "Get Normal 2:" GET cGet2
         @ 17,5 SAY "Buttons 4:"    GET nChoice4 ;
                COLOR "R+/W" ;
                WITH RADIOBUTTONS { "1 Option", "2 Option", "3 Option" } ;
                DOUBLE ;
                HORIZONTAL
         READ