// Harbour Get system sample — adapted from harbour-core/tests/read.prg
// Tests PRG compatibility: @ SAY GET, READ, PICTURE

PROCEDURE Main()

   LOCAL cName   := "Harbour     "
   LOCAL cWish   := "Power   "
   LOCAL cEffort := "Join us!    "

   LOCAL GetList := {}

   CLS

   @ 2, 2 SAY "Enter your name  :" GET cName PICTURE "@!"
   @ 4, 2 SAY "Enter your wish  :" GET cWish
   @ 6, 2 SAY "Enter your effort:" GET cEffort

   @ 8, 2 SAY "GetList:" + Str(Len(GetList))
   @ 9, 2 SAY "Enter=Next  ESC=Quit"

   READ

   CLS
   ? cName
   ? cWish
   ? cEffort
   ? ""
   ? "Press any key..."
   Inkey(0)

   RETURN