From 8c0fa53f28c161a01a1febeb243337d4e962087a Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 4 Aug 1999 09:25:10 +0000
Subject: [PATCH] @ ... GET and READ sample

---
 harbour/tests/working/testread.prg | 32 ++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 harbour/tests/working/testread.prg

diff --git a/harbour/tests/working/testread.prg b/harbour/tests/working/testread.prg
new file mode 100644
index 0000000000..fa3822cb0a
--- /dev/null
+++ b/harbour/tests/working/testread.prg
@@ -0,0 +1,32 @@
+// Harbour Get System sample
+
+#define bSETGET(x) { | u | If( PCount()==0, x, x:= u ) }
+
+#command @ <row>, <col> GET <var>                                       ;
+                        [PICTURE <pic>]                                 ;
+                        [VALID <valid>]                                 ;
+                        [WHEN <when>]                                   ;
+                        [SEND <msg>]                                    ;
+                                                                        ;
+      => SetPos( <row>, <col> )                                         ;
+       ; AAdd(                                                          ;
+           GetList,                                                     ;
+           _GET_( <var>, <"var">, <pic>, <{valid}>, <{when}>, bSETGET(<var>) ):display();
+             )                                                          ;
+      [; ATail(GetList):<msg>]
+
+function Main()
+
+   local cName := "Harbour     "
+   local cWish := "Power   "
+   local GetList := {}
+
+   @ 2, 2 SAY "Enter your name:" GET cName
+   @ 4, 2 SAY "Enter your wish:" GET cWish
+   READ
+
+   ? cName
+   ? cWish
+
+return nil
+