From f55abccb045760153927e9b13ba68a795ace11e7 Mon Sep 17 00:00:00 2001
From: Andi Jahja <xharbour@cbn.net.id>
Date: Fri, 28 May 1999 17:17:55 +0000
Subject: [PATCH] Andi Jahja 28-05-1999

---
 harbour/ChangeLog           |  7 +++++++
 harbour/source/tools/hb_f.c | 13 +++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 07b07d5c31..26f0e22267 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,10 @@
+19990528-23:15 WIB Andi Jahja <andij@aonlippo.co.id>
+  * source/tools/hb_f.c
+    - add hb_fselect
+
+  + tests/working/testsel.prg
+    test program for hb_fselect()
+
 19990529-10:11 EST Les Griffith
   * added both builddos.bat and makefile.dos for djgpp dos enviroment
 
diff --git a/harbour/source/tools/hb_f.c b/harbour/source/tools/hb_f.c
index ba674e6a25..75f330249a 100644
--- a/harbour/source/tools/hb_f.c
+++ b/harbour/source/tools/hb_f.c
@@ -1,3 +1,4 @@
+
 /*
 nanforum ft_f*() clones
 * hb_fuse
@@ -285,3 +286,15 @@ HARBOUR hb_flastrec( void )
    offset[area] = old_offset;
 
 }
+
+
+HARBOUR hb_fselect( void )
+
+{
+
+   _retni( area + 1 );
+
+   if ( ISNUM(1) )
+      area = _parni(1) - 1;
+
+}