From 626ae39d7aff98a6795e812b4f0209f71557ff7f Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Mon, 29 Nov 1999 23:25:03 +0000
Subject: [PATCH] 19991130-00:13 GMT+1 Victor Szel <info@szelvesz.hu>

---
 harbour/ChangeLog             |  5 +++
 harbour/source/rtl/browse.prg | 79 ++++++++++++++++++++++++++++++++++-
 2 files changed, 82 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 6c5a627888..93a0c1051f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+19991130-00:13 GMT+1 Victor Szel <info@szelvesz.hu>
+  * source/rtl/browse.prg
+    + Documentation by Chen Kedem added
+    ! Unused .ch files removed.
+
 19991129-22:22 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/compiler/harbour.c
     include/compiler.h
diff --git a/harbour/source/rtl/browse.prg b/harbour/source/rtl/browse.prg
index 774bf36450..74d91245fe 100644
--- a/harbour/source/rtl/browse.prg
+++ b/harbour/source/rtl/browse.prg
@@ -33,10 +33,85 @@
  *
  */
 
-#include "box.ch"
-#include "common.ch"
+/*
+ * The following parts are Copyright of the individual authors.
+ * www - http://www.harbour-project.org
+ *
+ * Copyright 1999 Chen Kedem <niki@actcom.co.il>
+ *    Documentation
+ *
+ * See doc/license.txt for licensing terms.
+ *
+ */
+
 #include "inkey.ch"
 
+/*  $DOC$
+ *  $FUNCNAME$
+ *      BROWSE()
+ *  $CATEGORY$
+ *      Data input and output
+ *  $ONELINER$
+ *      Browse a database file
+ *  $SYNTAX$
+ *      BROWSE( [<nTop>, <nLeft>, <nBottom>, <nRight>] ) --> lOk
+ *  $ARGUMENTS$
+ *      <nTop> coordinate for top row display.
+ *
+ *      <nLeft> coordinate for left column display.
+ *
+ *      <nBottom> coordinate for bottom row display.
+ *
+ *      <nRight> coordinate for right column display.
+ *  $RETURNS$
+ *      BROWSE() return .F. if there is no database open in this work area,
+ *      else it return .T.
+ *  $DESCRIPTION$
+ *      BROWSE() is a general purpose database browser, without any
+ *      thinking you can browse a file using the following keys:
+ *
+ *      Left           - Move one column to the left (previous field)
+ *      Right          - Move one column to the right (next field)
+ *      Up             - Move up one row (previous record)
+ *      Down           - Move down one row (next record)
+ *      Page-Up        - Move to the previous screen
+ *      Page-Down      - Move to the next screen
+ *      Ctrl Page-Up   - Move to the top of the file
+ *      Ctrl Page-Down - Move to the end of the file
+ *      Home           - Move to the leftmost visible column
+ *      End            - Move to the rightmost visible column
+ *      Ctrl Left      - Pan one column to the left
+ *      Ctrl Right     - Pan one column to the right
+ *      Ctrl Home      - Move to the leftmost column
+ *      Ctrl End       - Move to the rightmost column
+ *      Esc            - Terminate BROWSE()
+ *
+ *      On top of the screen you see a status line with the following
+ *      indication:
+ *
+ *      Record ###/###  - Current record number / Total number of records.
+ *      <none>          - There are no records, the file is empty.
+ *      <new>           - You are in append mode at the bottom of file.
+ *      <Deleted>       - Current record is deleted.
+ *      <bof>           - You are at the top of file.
+ *
+ *      You should pass whole four valid coordinate, if less than four
+ *      parameters are passed to BROWSE() the coordinate are default to:
+ *      1, 0, MAXROW(), MAXCOL().
+ *  $EXAMPLES$
+ *      // this one shows you how to browse around
+ *      USE Around
+ *      BROWSE()
+ *  $TESTS$
+ *  $STATUS$
+ *      S
+ *  $COMPLIANCE$
+ *
+ *  $SEEALSO$
+ *      DBEDIT(), TBrowse class
+ *  $END$
+ */
+
 function Browse( nTop, nLeft, nBottom, nRight )
 
    local oBrw