harbour-core/harbour/tests/testget.prg

/*
 * $Id$
 */

PROCEDURE Main()

   LOCAL   GetList := {}, cVar := "Hello"
   MEMVAR  aVar, nIndex, cMacro, cEarly, cEarly2, cLate
   PRIVATE aVar := { "World", "Again" }, nIndex := 1, cMacro := "cEarly", cEarly := { "Early" }, cLate := "Late!", cEarly2 := { "Early2" }

   CLS

   ? "2nd GET should say 'Early'."

   @ 10, 10 SAY "cVar            :" GET cVar PICTURE "@K!"
   @ 12, 10 SAY "cMacro[1]       :" GET &cMacro[ 1 ]
   @ 14, 10 SAY "cMacro.2[1]     :" GET &cMacro.2[ 1 ]
   @ 16, 10 SAY "cEarly[1]       :" GET cEarly[ 1 ]
// @ 14,10 SAY "cMacro         :" GET &( cMacro )[ 1 ]
   nIndex := 2
   @ 18, 10 SAY "aVar            :" GET aVar[ nIndex ]
   @ 20, 10 SAY "Picture of GET-1:" GET GetList[ 1 ]:Picture
   nIndex := 3
   cMacro := "cLate"
   READ

   CLS

/* Clipper Error "Get contains complex macro"
   ? "This GET should say 'Late!'."
   cMacro := "cEarly"
   @ 10, 10 SAY "cMacro          :" GET &( cMacro )
   cMacro := "cLate"
   READ
*/

   RETURN