2012-09-27 01:59 UTC+0200 Viktor Szakats (harbour syenar.net)

* contrib/hbnf/* % deleted original filename embedded in headers % deleted commented ASM code (all these have been long rewritten in C) * minor formatting
2012-09-27 00:06:59 +00:00
parent be7b8b0df8
commit 3aa177ad9a
137 changed files with 47 additions and 687 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,13 @@
   The license applies to all entries newer than 2009-04-28.
 */

+2012-09-27 01:59 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/hbnf/*
+    % deleted original filename embedded in headers
+    % deleted commented ASM code (all these have been long
+      rewritten in C)
+    * minor formatting
+
 2012-09-27 01:26 UTC+0200 Viktor Szakats (harbour syenar.net)
  * utils/hbmk2/hbmk2.prg
    ! add -static option for win-wce/mingw* platforms
--- a/harbour/contrib/hbnf/aading.prg
+++ b/harbour/contrib/hbnf/aading.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: aadding.prg
 * Author....: Ralph Oliver,  TRANSCOM SYSTEMS
 * CIS ID....: 74030,703
 *
--- a/harbour/contrib/hbnf/aavg.prg
+++ b/harbour/contrib/hbnf/aavg.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: aavg.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/acctadj.prg
+++ b/harbour/contrib/hbnf/acctadj.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: acctadj.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS ID....: 74731,1751
 *
--- a/harbour/contrib/hbnf/acctmnth.prg
+++ b/harbour/contrib/hbnf/acctmnth.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: acctmnth.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS ID....: 74731,1751
 *
--- a/harbour/contrib/hbnf/acctqtr.prg
+++ b/harbour/contrib/hbnf/acctqtr.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: acctqtr.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS ID....: 74731,1751
 *
--- a/harbour/contrib/hbnf/acctweek.prg
+++ b/harbour/contrib/hbnf/acctweek.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: acctweek.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS ID....: 74731,1751
 *
--- a/harbour/contrib/hbnf/acctyear.prg
+++ b/harbour/contrib/hbnf/acctyear.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: acctyear.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS ID....: 74731,1751
 *
--- a/harbour/contrib/hbnf/adessort.prg
+++ b/harbour/contrib/hbnf/adessort.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: adessort.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/aemaxlen.prg
+++ b/harbour/contrib/hbnf/aemaxlen.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: aemaxlen.prg
 * Author....: Ralph Oliver,  TRANSCOM SYSTEMS
 * CIS ID....: 74030,703
 *
--- a/harbour/contrib/hbnf/aeminlen.prg
+++ b/harbour/contrib/hbnf/aeminlen.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: aeminlen.prg
 * Author....: Ralph Oliver,  TRANSCOM SYSTEMS
 * CIS ID....: 74030,703
 *
--- a/harbour/contrib/hbnf/alt.c
+++ b/harbour/contrib/hbnf/alt.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: alt.c
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/amedian.prg
+++ b/harbour/contrib/hbnf/amedian.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: amedian.prg
 * Author....: Ralph Oliver,  TRANSCOM SYSTEMS
 * CIS ID....: 74030,703
 *
--- a/harbour/contrib/hbnf/anomatch.prg
+++ b/harbour/contrib/hbnf/anomatch.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: anomatch.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/any2any.prg
+++ b/harbour/contrib/hbnf/any2any.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: any2any.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/aredit.prg
+++ b/harbour/contrib/hbnf/aredit.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: aredit.prg
 * Author....: James J. Orlowski, M.D.
 * CIS ID....: 72707,601
 *
--- a/harbour/contrib/hbnf/asum.prg
+++ b/harbour/contrib/hbnf/asum.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: asum.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/at2.prg
+++ b/harbour/contrib/hbnf/at2.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: at2.prg
 * Author....: Ralph Oliver,  TRANSCOM SYSTEMS
 * CIS ID....: 74030,703
 *
--- a/harbour/contrib/hbnf/bitclr.prg
+++ b/harbour/contrib/hbnf/bitclr.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: bitclr.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/bitset.prg
+++ b/harbour/contrib/hbnf/bitset.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: bitset.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/blink.prg
+++ b/harbour/contrib/hbnf/blink.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: blink.prg
 * Author....: Terry Hackett
 * CIS ID....: 76662,2035
 *
--- a/harbour/contrib/hbnf/byt2bit.prg
+++ b/harbour/contrib/hbnf/byt2bit.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: byt2bit.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/byt2hex.prg
+++ b/harbour/contrib/hbnf/byt2hex.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: byt2hex.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/byteand.prg
+++ b/harbour/contrib/hbnf/byteand.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: byteand.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/byteneg.prg
+++ b/harbour/contrib/hbnf/byteneg.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: byteneg.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/bytenot.prg
+++ b/harbour/contrib/hbnf/bytenot.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: bytenot.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/byteor.prg
+++ b/harbour/contrib/hbnf/byteor.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: byteor.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/bytexor.prg
+++ b/harbour/contrib/hbnf/bytexor.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: bytexor.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/calendar.prg
+++ b/harbour/contrib/hbnf/calendar.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: calendar.prg
 * Author....: Isa Asudeh
 * CIS ID....: 76477,647
 *
--- a/harbour/contrib/hbnf/caplock.c
+++ b/harbour/contrib/hbnf/caplock.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: caplock.c
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/chdir.c
+++ b/harbour/contrib/hbnf/chdir.c
@@ -2,7 +2,7 @@
 * $Id$
 */

-/* File......: chdir.asm
+/*
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
@@ -23,30 +23,6 @@
 *
 */

-/*This  is the Original FT_CHDIR() code
-   IDEAL
-   MODEL HUGE
-   Public   _HB_FUN_FT_CHDIR
-
-   Extrn    _hb_ftdir:Far
-
-   Segment  _NanFor   Word      Public    "CODE"
-         Assume    CS:_NanFor
-
-   Proc     _HB_FUN_FT_CHDIR  Far
-
-         Mov       AH,3Bh                    * DOS service -- change directory
-         Push      AX                        * Save on stack
-         Call      _hb_ftdir                   * Call generic directory routine
-         Add       SP,2                      * Realign stack
-         RetF
-   Endp     _HB_FUN_FT_CHDIR
-   Ends     _NanFor
-   End
- */
-
-/* This is the New one Rewriten in C*/
-
 #include "hbapi.h"
 #include "hbapifs.h"

--- a/harbour/contrib/hbnf/clrsel.prg
+++ b/harbour/contrib/hbnf/clrsel.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: clrsel.prg
 * Author....: Dave Adams
 * CIS ID....: 72037,2654
 *
--- a/harbour/contrib/hbnf/cntryset.prg
+++ b/harbour/contrib/hbnf/cntryset.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: cntryset.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/color2n.c
+++ b/harbour/contrib/hbnf/color2n.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: color2n.c
 * Author....: David Richardson
 * CIS ID....: 72271,53
 *
--- a/harbour/contrib/hbnf/ctrl.c
+++ b/harbour/contrib/hbnf/ctrl.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: ctrl.c
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/d2e.prg
+++ b/harbour/contrib/hbnf/d2e.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: d2e.prg
 * Author....: Gary Baren
 * CIS ID....: 75470,1027
 *
--- a/harbour/contrib/hbnf/datecnfg.prg
+++ b/harbour/contrib/hbnf/datecnfg.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: datecnfg.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS ID....: 74730,1751
 *
--- a/harbour/contrib/hbnf/dayofyr.prg
+++ b/harbour/contrib/hbnf/dayofyr.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: dayofyr.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS_ID....: 74731,1751
 *
--- a/harbour/contrib/hbnf/daytobow.prg
+++ b/harbour/contrib/hbnf/daytobow.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: daytobow.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS_ID....: 74731,1751
 *
--- a/harbour/contrib/hbnf/dectobin.prg
+++ b/harbour/contrib/hbnf/dectobin.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: dectobin.prg
 * Author....: Greg Lief
 * CIS ID....: 72460,1760
 *
--- a/harbour/contrib/hbnf/descendn.c
+++ b/harbour/contrib/hbnf/descendn.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: descend.c
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/dfile.prg
+++ b/harbour/contrib/hbnf/dfile.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: dfile.prg
 * Author....: Mike Taylor
 * CIS ID....: ?
 *
@@ -35,7 +34,7 @@ PROCEDURE Main()

   @ 0, 0 CLEAR

-   cInFile   := "ft_dfile.prg"
+   cInFile   := "dfile.prg"
   CKEY      := ""
   NNCOLOR   := 7
   NHCOLOR   := 15
@@ -57,13 +56,13 @@ PROCEDURE Main()

   READ

-    /*
-     * REMEMBER A WINDOW WILL BE ONE SIZE LESS AND GREATER THAN THE PASSED COORD.'S
-     *
-     * THE 9TH PARAMETER CONTAINS THE KEYS THAT THE ROUTINE WILL TERMINATE ON
-     * AND THE hb_BChar(143) represents the F3 key.
-     *
-     */
+   /*
+    * REMEMBER A WINDOW WILL BE ONE SIZE LESS AND GREATER THAN THE PASSED COORD.'S
+    *
+    * THE 9TH PARAMETER CONTAINS THE KEYS THAT THE ROUTINE WILL TERMINATE ON
+    * AND THE hb_BChar(143) represents the F3 key.
+    *
+    */

   @ 4, 9 TO 11, 71

--- a/harbour/contrib/hbnf/dhkey.h
+++ b/harbour/contrib/hbnf/dhkey.h
@@ -3,7 +3,6 @@
 */

 /*
- * File......: dfkey.h
 * Author....: Mike Taylor
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/diskfunc.prg
+++ b/harbour/contrib/hbnf/diskfunc.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: diskfunc.prg
 * Author....: Robert A. DiFalco
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/dispc.c
+++ b/harbour/contrib/hbnf/dispc.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: dispc.c
 * Author....: Mike Taylor
 * CIS ID....: ?
 *
@@ -64,10 +63,6 @@
 #define LF           ( ( char ) 10 )
 #define FEOF         ( ( char ) 26 )

-#define READONLY     0          /* open file modes */
-#define WRITEONLY    1
-#define READWRITE    2
-
 #define BUFFERSIZE   4096        /* maximum size of the file buffer */
 #define MAXLINE      255         /* default maximum size of a line  */

--- a/harbour/contrib/hbnf/dispmsg.prg
+++ b/harbour/contrib/hbnf/dispmsg.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: dispmsg.prg
 * Author....: Paul Ferrara, ColumbuSoft
 * CIS ID....: 76702,556
 *
--- a/harbour/contrib/hbnf/dosver.prg
+++ b/harbour/contrib/hbnf/dosver.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: dosver.prg
 * Author....: Glenn Scott
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/e2d.prg
+++ b/harbour/contrib/hbnf/e2d.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: e2d.prg
 * Author....: Gary Baren
 * CIS ID....: 75470,1027
 *
--- a/harbour/contrib/hbnf/easter.prg
+++ b/harbour/contrib/hbnf/easter.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: easter.prg
 * Author....: Paul Tucker
 * Email.....: <ptucker@sympatico.ca>
 *
--- a/harbour/contrib/hbnf/elapmil.prg
+++ b/harbour/contrib/hbnf/elapmil.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: elapmil.prg
 * Author....: Alexander B. Spencer
 * CIS ID....: 76276,1012
 *
--- a/harbour/contrib/hbnf/elapsed.prg
+++ b/harbour/contrib/hbnf/elapsed.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: elapsed.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/eltime.prg
+++ b/harbour/contrib/hbnf/eltime.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: eltime.prg
 * Author....: Alexander B. Spencer
 * CIS ID....: 76276,1012
 *
--- a/harbour/contrib/hbnf/findith.prg
+++ b/harbour/contrib/hbnf/findith.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: findith.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/firstday.prg
+++ b/harbour/contrib/hbnf/firstday.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: firstday.prg
 * Author....: Jeff Bryant
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/floptst.prg
+++ b/harbour/contrib/hbnf/floptst.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: floptst.prg
 * Author....: Gary Smith
 * CIS ID....: 70714,3015
 *
--- a/harbour/contrib/hbnf/ftattr.c
+++ b/harbour/contrib/hbnf/ftattr.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: saveatt.asm
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
@@ -22,120 +21,11 @@
 *     Rev 1.0   12 Jun 1991 01:30:20   GLENN
 *  Initial revision.
 *
-
- */
-
-/* This is the original FT_SAVEATT() code
-   IDEAL
-
-   Public   FT_SaveAtt
-
-   Extrn    __ParNI:Far
-   Extrn    __RetCLen:Far
-   Extrn    __xGrab:Far
-   Extrn    __xFree:Far
-   Extrn    __gtSave:Far
-
-   nTop     EQU       Word Ptr BP - 2
-   nLeft    EQU       Word Ptr BP - 4
-   nBottom  EQU       Word Ptr BP - 6
-   nRight   EQU       Word Ptr BP - 8
-   nAttr    EQU       Byte Ptr BP - 10
-   nBufLen  EQU       Word Ptr BP - 12
-
-   cBuffer  EQU       DWord Ptr BP - 16
-   nBufOfs  EQU       Word Ptr BP - 16
-   nBufSeg  EQU       Word Ptr BP - 14
-
-   Segment  _NanFor   Word      Public    "CODE"
-         Assume    CS:_NanFor
-
-   Proc     FT_SaveAtt          Far
-
-         Push      BP                        ; Save BP
-         Mov       BP,SP                     ; Set up stack reference
-         Sub       SP,16                     ; Allocate locals
-
-         Mov       CX,4                      ; Set param count
-   @@Coord: Push      CX                        ; Put on stack
-         Call      __ParNI                   ; Retrieve param
-         Pop       CX                        ; Get count back
-         Push      AX                        ; Put value on stack
-         Loop      @@Coord                   ; Get next value
-
-         Pop       [nTop]                    ; Store top coordinate
-         Pop       [nLeft]                   ; Store left coordinate
-         Pop       [nBottom]                 ; Store bottom coordinate
-         Pop       [nRight]                  ; Store right coordinate
-
-         Mov       AX,[nBottom]              ; Load bottom coordinate
-         Sub       AX,[nTop]                 ; Subtract top
-         Inc       AX                        ; Calc length
-
-         Mov       CX,[nRight]               ; Load right coordinate
-         Sub       CX,[nLeft]                ; Subtract left
-         Inc       CX                        ; Calc width
-         Mul       CX                        ; Multiply length by width
-         SHL       AX,1                      ; Calc buffer size
-         Mov       [nBufLen],AX              ; Store buffer size
-
-   @@Alloc: Push      AX                        ; Put size on stack
-         Call      __xGrab                   ; Allocate memory
-         Add       SP,2                      ; Realign stack
-         Mov       [nBufSeg],DX              ; Store segment
-         Mov       [nBufOfs],AX              ; Store offset
-
-         Push      DX                        ; Load parameters for __gtSave
-         Push      AX                        ; onto stack
-         Push      [nRight]
-         Push      [nBottom]
-         Push      [nLeft]
-         Push      [nTop]
-         Call      __gtSave                  ; Grab screen image
-
-         Push      DS                        ; Save required registers
-         Push      SI
-         Push      DI
-
-         Mov       DS,[nBufSeg]              ; Load pointer to buffer
-         Mov       SI,[nBufOfs]              ; into DS:SI
-
-         Push      DS                        ; Duplicate pointer in ES:DI
-         Push      SI
-         Pop       DI
-         Pop       ES
-         Inc       SI                        ; Start with attribute byte
-
-         Mov       CX,[nBufLen]              ; Load buffer length
-         SHR       CX,1                      ; Divide by two
-   @@Attr:  Lodsw                               ; Grab a screen word
-         Stosb                               ; Store attribute only
-         Loop      @@Attr                    ; Do next
-
-         Pop       DI                        ; Restore registers
-         Pop       SI
-         Pop       DS
-
-   Done:    Mov       AX,[nBufLen]              ; Load buffer length
-         SHR       AX,1                      ; Divide by 2
-         Push      AX                        ; Put length on stack
-         Push      [nBufSeg]                 ; Put segment on stack
-         Push      [nBufOfs]                 ; Put offset on stack
-         Call      __RetClen                 ; Return attribute string
-         Call      __xFree                   ; Free memory
-         Mov       SP,BP                     ; Realign stack
-         Pop       BP                        ; Restore BP
-         Ret
-   Endp     FT_SaveAtt
-   Ends     _NanFor
-   End
 */

 #include "hbapi.h"
 #include "hbapigt.h"

-/* This is the New one Rewriten in C */
-
 HB_FUNC( FT_SAVEATT )
 {
   int      iTop     = hb_parni( 1 );  /* Defaults to zero on bad type */
@@ -183,7 +73,6 @@ HB_FUNC( FT_SAVEATT )
 }

 /*
- * File......: restatt.asm
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
@@ -203,117 +92,8 @@ HB_FUNC( FT_SAVEATT )
 *     Rev 1.0   12 Jun 1991 01:30:14   GLENN
 *  Initial revision.
 *
-
 */

-/* This is the Original FT_RESTATT() code
-   IDEAL
-
-   Public   FT_RestAtt
-
-   Extrn    __ParNI:Far
-   Extrn    __ParC:Far
-   Extrn    __XGrab:Far
-   Extrn    __XFree:Far
-   Extrn    __gtSave:Far
-   Extrn    __gtRest:Far
-
-   nTop     EQU       Word Ptr BP - 2
-   nLeft    EQU       Word Ptr BP - 4
-   nBottom  EQU       Word Ptr BP - 6
-   nRight   EQU       Word Ptr BP - 8
-   nAttr    EQU       Byte Ptr BP - 10
-   nBufLen  EQU       Word Ptr BP - 12
-
-   cBuffer  EQU       DWord Ptr BP - 16
-   nBufOfs  EQU       Word Ptr BP - 16
-   nBufSeg  EQU       Word Ptr BP - 14
-
-   Segment  _NanFor   Word      Public    "CODE"
-         Assume    CS:_NanFor
-
-   Proc     FT_RestAtt          Far
-
-         Push      BP                        ; Save BP
-         Mov       BP,SP                     ; Set up stack reference
-         Sub       SP,16                     ; Allocate locals
-
-         Mov       CX,4                      ; Set param count
-   @@Coord: Push      CX                        ; Put on stack
-         Call      __ParNI                   ; Retrieve param
-         Pop       CX                        ; Get count back
-         Push      AX                        ; Put value on stack
-         Loop      @@Coord                   ; Get next value
-
-         Pop       [nTop]                    ; Store top coordinate
-         Pop       [nLeft]                   ; Store left coordinate
-         Pop       [nBottom]                 ; Store bottom coordinate
-         Pop       [nRight]                  ; Store right coordinate
-
-         Mov       AX,[nBottom]              ; Load bottom coordinate
-         Sub       AX,[nTop]                 ; Subtract top
-         Inc       AX                        ; Calc length
-
-         Mov       CX,[nRight]               ; Load right coordinate
-         Sub       CX,[nLeft]                ; Subtract left
-         Inc       CX                        ; Calc width
-         Mul       CX                        ; Multiply length by width
-         SHL       AX,1                      ; Calc buffer size
-         Mov       [nBufLen],AX              ; Store buffer size
-
-   @@Alloc: Push      AX                        ; Put size on stack
-         Call      __xGrab                   ; Allocate memory
-         Add       SP,2                      ; Realign stack
-         Mov       [nBufSeg],DX              ; Store segment
-         Mov       [nBufOfs],AX              ; Store offset
-
-         Push      DX                        ; Load parameters for __gtSave
-         Push      AX                        ; onto stack
-         Push      [nRight]
-         Push      [nBottom]
-         Push      [nLeft]
-         Push      [nTop]
-         Call      __gtSave                  ; Grab screen image
-
-         Push      DS                        ; Save required registers
-         Push      SI
-         Push      DI
-
-         Mov       AX,5                      ; Specify 5th param
-         Push      AX                        ; Put on stack
-         Call      __ParC                    ; Get pointer to attr string
-         Add       SP,2                      ; Realign stack
-
-         Mov       DS,DX                     ; Load pointer to string
-         Mov       SI,AX                     ; into DS:SI
-         Mov       ES,[nBufSeg]              ; Load pointer to buffer
-         Mov       DI,[nBufOfs]              ; into ES:DI
-         Mov       CX,[nBufLen]              ; Load buffer length
-         SHR       CX,1                      ; Divide by two
-
-   @@Attr:  Inc       DI                        ; Point DI to attribute
-         Lodsb                               ; Grab an attribute byte
-         Stosb                               ; Store attribute
-         Loop      @@Attr                    ; Do next
-
-         Pop       DI                        ; Restore registers
-         Pop       SI
-         Pop       DS
-         Call      __gtRest                  ; Restore screen image
-
-   Done:    Push      [nBufSeg]                 ; Put segment on stack
-         Push      [nBufOfs]                 ; Put offset on stack
-         Call      __xFree                   ; Free memory
-         Mov       SP,BP                     ; Realign stack
-         Pop       BP                        ; Restore BP
-         Ret
-   Endp     FT_RestAtt
-   Ends     _NanFor
-   End
- */
-
-/* This is the New one Rewriten in C */
-
 HB_FUNC( FT_RESTATT )
 {
   HB_SIZE ulLen = hb_parclen( 5 );
--- a/harbour/contrib/hbnf/ftidle.c
+++ b/harbour/contrib/hbnf/ftidle.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: idle.c
 * Author....: Ted Means (with much gratitude to Robert DiFalco)
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/ftint86.ch
+++ b/harbour/contrib/hbnf/ftint86.ch
@@ -3,7 +3,7 @@
 */

 /*
- * File......: ftint86.ch - Header file for users of FT_INT86() function
+ * File......: Header file for users of FT_INT86() function
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
@@ -38,40 +38,39 @@
 *    Rev 1.0   01 Apr 1991 01:02:38   GLENN
 * Nanforum Toolkit
 *
- *
 */

 #ifndef __FTINT86_CH__
 #define __FTINT86_CH__

-#define INT86_MAX_REGS       10
+#define INT86_MAX_REGS      10

-#define AX         1
-#define BX         2
-#define CX         3
-#define DX         4
-#define SI         5
-#define DI         6
-#define BP         7
-#define DS         8
-#define ES         9
-#define FLAGS     10
+#define AX                  1
+#define BX                  2
+#define CX                  3
+#define DX                  4
+#define SI                  5
+#define DI                  6
+#define BP                  7
+#define DS                  8
+#define ES                  9
+#define FLAGS               10

-#define FLAG_CARRY     0     // Carry flag
-#define FLAG_PARITY    2     // Parity flag
-#define FLAG_AUX       4     // Auxillary flag
-#define FLAG_ZERO      6     // Zero flag
-#define FLAG_SIGN      7     // Sign flag
-#define FLAG_TRAP      8     // Trap flag
-#define FLAG_INT       9     // Interrupt flag
-#define FLAG_DIR      10     // Direction flag
-#define FLAG_OFLOW    11     // Overflow flag
+#define FLAG_CARRY          0     // Carry flag
+#define FLAG_PARITY         2     // Parity flag
+#define FLAG_AUX            4     // Auxillary flag
+#define FLAG_ZERO           6     // Zero flag
+#define FLAG_SIGN           7     // Sign flag
+#define FLAG_TRAP           8     // Trap flag
+#define FLAG_INT            9     // Interrupt flag
+#define FLAG_DIR            10    // Direction flag
+#define FLAG_OFLOW          11    // Overflow flag

-#translate makehi( <X> )        => ((<X>) * 256)
+#translate makehi( <X> )        => ( ( <X> ) * 256 )
 #translate REG_DS               => .T.
 #translate REG_ES               => .F.
 #translate highbyte( <X> )      => ( int( iif( (<X>) \< 0, 65536 + (<X>), (<X>) ) / 256 ) )
 #translate lowbyte( <X> )       => (      iif( (<X>) \< 0, 65536 + (<X>), (<X>) ) % 256   )
-#translate carrySet( <XFLAGS> ) => (ft_isbiton((<XFLAGS>), FLAG_CARRY))
+#translate carrySet( <XFLAGS> ) => ( ft_isbiton( ( <XFLAGS> ), FLAG_CARRY ) )

 #endif // __FTINT86_CH__
--- a/harbour/contrib/hbnf/ftisprn.c
+++ b/harbour/contrib/hbnf/ftisprn.c
@@ -50,7 +50,7 @@
 *
 */

-/* File......: isprint.asm
+/*
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/ftmenuto.ch
+++ b/harbour/contrib/hbnf/ftmenuto.ch
@@ -3,7 +3,6 @@
 */

 /*
- * File......: ftmenuto.ch
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
@@ -26,7 +25,6 @@
 *    Rev 1.0   01 Apr 1991 01:02:40   GLENN
 * Nanforum Toolkit
 *
- *
 */

 /*
@@ -70,4 +68,4 @@
                    <Block>                                 )

 #xcommand MENU TO <v> [<l : COLD>] => ;
-   <v> := FT_MenuTo( {|_1| iif( _1 == NIL, <v>, <v> := _1 ) }, #<v>, <.l.> )
+   <v> := FT_MenuTo( {| _1 | iif( _1 == NIL, <v>, <v> := _1 ) }, #<v>, <.l.> )
--- a/harbour/contrib/hbnf/ftround.prg
+++ b/harbour/contrib/hbnf/ftround.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: round.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/fttext.c
+++ b/harbour/contrib/hbnf/fttext.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: text.c
 * Author....: Brice de Ganahl and Steve Larsen
 * CIS ID....: 76370,1532
 *
--- a/harbour/contrib/hbnf/gcd.prg
+++ b/harbour/contrib/hbnf/gcd.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: gcd.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/getenvrn.c
+++ b/harbour/contrib/hbnf/getenvrn.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: getenvrn.c
 * Author....: Rick Whitt
 * CIS ID....: 70672,605
 *
--- a/harbour/contrib/hbnf/getvid.c
+++ b/harbour/contrib/hbnf/getvid.c
@@ -5,7 +5,7 @@
 /*
 * Harbour Project source code
 *
- * Getvid.c Support functions for Nanfor Library
+ * Getvid support functions for Nanfor Library
 *
 * Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
 * www - http://harbour-project.org
--- a/harbour/contrib/hbnf/hex2dec.prg
+++ b/harbour/contrib/hbnf/hex2dec.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: hex2dec.prg
 * Author....: Robert A. DiFalco
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/iamidle.c
+++ b/harbour/contrib/hbnf/iamidle.c
@@ -51,7 +51,6 @@
 */

 /*
- * File......: adapter.asm
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/invclr.prg
+++ b/harbour/contrib/hbnf/invclr.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: invclr.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/isbit.prg
+++ b/harbour/contrib/hbnf/isbit.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: isbit.prg
 * Author....: Forest Belt, Computer Diagnostic Services, Inc.
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/isbiton.prg
+++ b/harbour/contrib/hbnf/isbiton.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: isbiton.prg
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/isshare.prg
+++ b/harbour/contrib/hbnf/isshare.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: isshare.prg
 * Author....: Glenn Scott (from Tom Leylan C source)
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/kspeed.c
+++ b/harbour/contrib/hbnf/kspeed.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: kspeed.asm
 * Author....: James R. Zack
 * CIS ID....: 75410,1567
 *
@@ -24,61 +23,6 @@
 *
 */

-/*This  is the Original FT_SETRATE() code
-   PUBLIC     FT_SETRATE                   * MAKE ROUTINE VISIBLE
-
-   EXTRN      __PARNI:FAR                  * DECLARE EXTERNALS
-   EXTRN      __RET:FAR
-   EXTRN      __PARINFO:FAR
-
-   _NANFOR   SEGMENT       'CODE'
-           ASSUME        CS:_NANFOR     * POINT CS TO MY CODE
-   FT_SETRATE PROC          FAR
-           PUSH          BP             * SAVE BASE POINTER
-           MOV           BP,SP          * POINT TO TOP OF STACK
-           PUSH          DS             * SAVE REGISTERS
-           PUSH          ES
-           PUSH          SI
-           PUSH          DI
-           MOV           AX,0           * LOOK AT NUMBER OF PARAMS PASSED
-           PUSH          AX             * SET UP FOR __PARINFO
-           CALL          __PARINFO      * GET NUMBER OF PARAMS PASSED
-           ADD           SP,2           * ADJUST STACK
-           CMP           AX,2           * WERE BOTH PARMS PASSED?
-           JL            DEFAULTS       * NO, USE DEFAULTS
-           JMP           GETPARMS       * OTHERWISE, LETS GET SOME PARAMS.
-   DEFAULTS:  MOV           BX,010CH       * SET UP DEFAULTS (for AT)
-           jmp           goodparm       * and make the int call.
-   getparms:  mov           ax,01h         * First param is repeat rate
-           push          ax             * Set up for __PARNI
-           call          __PARNI        * Get first param
-           add           sp,2           * Adjust stack
-           mov           bl,al          * Put repeat rate into BL
-           cmp           bl,20h         * Is BL > 20h? (max value)
-           jg            defaults       * Yes, then use defaults
-           mov           ax,02h         * Second parm is typeamatic delay
-           push          ax             * Set up for __PARNI
-           call          __PARNI        * Get second param
-           add           sp,2           * Adjust stack
-           mov           bh,al          * Put delay into BH
-           cmp           bh,04h         * Is BH > 04h (max value)
-           jg            defaults       * Yes, then use defaults
-   goodparm:  mov           ax,0305h       * BIOS Function 03 Subfunction 05
-           int           16h            * Set Typematic Rate and Delay
-   exit:      pop           di             * Retore registers
-           pop           si
-           pop           es
-           pop           ds
-           pop           bp
-           call          __RET          * Clean up for Clipper
-           ret                          * Pass control back to Clipper
-   FT_SETRATE ENDP
-   _NanFor    ENDS
-           END
- */
-
-/* This is the New one Rewriten in C*/
-
 #include "hbapi.h"
 #if defined( HB_OS_DOS )
 #  include "dos.h"
--- a/harbour/contrib/hbnf/lastday.prg
+++ b/harbour/contrib/hbnf/lastday.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: lastday.prg
 * Author....: Mike Schinkel
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/linked.prg
+++ b/harbour/contrib/hbnf/linked.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: linked.prg
 * Author....: Brian Loesgen
 * CIS ID....: 74326,1174
 *
--- a/harbour/contrib/hbnf/madd.prg
+++ b/harbour/contrib/hbnf/madd.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: madd.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS ID....: 74731,1751
 *
--- a/harbour/contrib/hbnf/menu1.prg
+++ b/harbour/contrib/hbnf/menu1.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: menu1.prg
 * Author....: Paul Ferrara
 * CIS ID....: 76702,556
 *
--- a/harbour/contrib/hbnf/menutonf.prg
+++ b/harbour/contrib/hbnf/menutonf.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: menuto.prg
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/metaph.prg
+++ b/harbour/contrib/hbnf/metaph.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: metaph.prg
 * Author....: Dave Adams
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/miltime.prg
+++ b/harbour/contrib/hbnf/miltime.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: miltime.prg
 * Author....: Alexander B. Spencer
 * CIS ID....: 76276,1012
 *
--- a/harbour/contrib/hbnf/min2dhm.prg
+++ b/harbour/contrib/hbnf/min2dhm.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: min2dhm.prg
 * Author....: Alexander B. Spencer
 * CIS ID....: 76276,1012
 *
--- a/harbour/contrib/hbnf/mkdir.c
+++ b/harbour/contrib/hbnf/mkdir.c
@@ -3,7 +3,6 @@
 */

 /*
-   ; File......: mkdir.asm
   ; Author....: Ted Means
   ; CIS ID....: 73067,3332
   ;
@@ -25,30 +24,6 @@
   ;
 */

-/*This  is the Original FT_CHDIR() code
-   IDEAL
-   MODEL HUGE
-   Public   _HB_FUN_FT_MKDIR
-
-   Extrn    _hb_ftdir:Far
-
-   Segment  _NanFor   Word      Public    "CODE"
-         Assume    CS:_NanFor
-
-   Proc     _HB_FUN_FT_MKDIR  Far
-
-         Mov       AH,39h                    * DOS service--create directory
-         Push      AX                        * Save on stack
-         Call      _hb_ftdir                   * Call generic directory routine
-         Add       SP,2                      * Realign stack
-         Ret
-   Endp     _HB_FUN_FT_MKDIR
-   Ends     _NanFor
-   End
- */
-
-/* This is the New one Rewriten in C*/
-
 #include "hbapi.h"
 #include "hbapifs.h"

--- a/harbour/contrib/hbnf/month.prg
+++ b/harbour/contrib/hbnf/month.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: month.prg
 * Author....: Jo W. French dba Practical Computing
 * CIS ID....: 74731,1751
 *
--- a/harbour/contrib/hbnf/mouse.c
+++ b/harbour/contrib/hbnf/mouse.c
@@ -5,7 +5,7 @@
 /*
 * Harbour Project source code
 *
- * mouse.c Support functions for Nanfor Library
+ * Mouse support functions for Nanfor Library
 *
 * Copyright 2000 Luiz Rafael Culik <Culik@sl.conex.net>
 * www - http://harbour-project.org
--- a/harbour/contrib/hbnf/mouse1.prg
+++ b/harbour/contrib/hbnf/mouse1.prg
@@ -43,7 +43,7 @@ PROCEDURE Main( nRow, nCol )
   @ 0, 0, MaxRow(), MaxCol() BOX hb_UTF8ToStr( "░░░░░░░░░" )

   SetColor( "GR+/RB" )
-//     scroll( 7,2,19,63,0 )
+// Scroll( 7, 2, 19, 63, 0 )
   @ 7, 2 TO 20, 63

   @ 17, 10 TO 19, 40 double
@@ -55,7 +55,7 @@ PROCEDURE Main( nRow, nCol )

   // ..... Start the demo

-   @MaxRow(), 0 SAY "Driver version: " + ;
+   @ MaxRow(), 0 SAY "Driver version: " + ;
      AllTrim( Str( FT_MVERSION( @nMinor, @nType, @nIRQ ), 2, 0 ) ) + "." + ;
      AllTrim( Str( nMinor, 2, 0 ) )
   @ Row(), Col() SAY " " + aType[ nType ] + " mouse using IRQ " + Str( nIRQ, 1, 0 )
--- a/harbour/contrib/hbnf/mouse2.prg
+++ b/harbour/contrib/hbnf/mouse2.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: mouse1.prg
 * Author....: Leo Letendre
 * CIS ID....: 73607,233
 *
--- a/harbour/contrib/hbnf/n2color.c
+++ b/harbour/contrib/hbnf/n2color.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: n2color.c
 * Author....: David Richardson
 * CIS ID....: 72271,53
 *
--- a/harbour/contrib/hbnf/netpv.prg
+++ b/harbour/contrib/hbnf/netpv.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: netpv.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/nooccur.prg
+++ b/harbour/contrib/hbnf/nooccur.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: nooccur.prg
 * Author....: David Husnian
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/ntow.prg
+++ b/harbour/contrib/hbnf/ntow.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: ntow.prg
 * Author....: Gary Baren
 * CIS ID....: 75470,1027
 *
--- a/harbour/contrib/hbnf/numlock.c
+++ b/harbour/contrib/hbnf/numlock.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: numlock.c
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/nwlstat.prg
+++ b/harbour/contrib/hbnf/nwlstat.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: nwlstat.prg
 * Author....: Glenn Scott
 * CIS ID....: ?
 *
--- a/harbour/contrib/hbnf/nwsem.prg
+++ b/harbour/contrib/hbnf/nwsem.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: nwsem.prg
 * Author....: Glenn Scott
 * CIS ID....: 71620,1521
 *
--- a/harbour/contrib/hbnf/nwuid.prg
+++ b/harbour/contrib/hbnf/nwuid.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: nwuid.prg
 * Author....: Glenn Scott
 * CIS ID....: 71620,1521
 *
--- a/harbour/contrib/hbnf/origin.c
+++ b/harbour/contrib/hbnf/origin.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: origin.c
 * Author....: Steve Larsen
 * CIS ID....: 76370,1532
 *
--- a/harbour/contrib/hbnf/page.prg
+++ b/harbour/contrib/hbnf/page.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: page.prg
 * Author....: Glenn Scott
 * CIS ID....: 71620,1521
 *
--- a/harbour/contrib/hbnf/pchr.prg
+++ b/harbour/contrib/hbnf/pchr.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: pchr.prg
 * Author....: Jim Gale
 * CIS ID....: 73670,2561
 *
--- a/harbour/contrib/hbnf/peek.c
+++ b/harbour/contrib/hbnf/peek.c
@@ -3,7 +3,6 @@
 */

 /*
- * File......: peek.c
 * Author....: Ted Means
 * CIS ID....: 73067,3332
 *
--- a/harbour/contrib/hbnf/pegs.prg
+++ b/harbour/contrib/hbnf/pegs.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: pegs.prg
 * Author....: Greg Lief
 * CIS ID....: 72460,1760
 *
--- a/harbour/contrib/hbnf/pending.prg
+++ b/harbour/contrib/hbnf/pending.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: pending.prg
 * Author....: Isa Asudeh
 * CIS ID....: 76477,647
 *
--- a/harbour/contrib/hbnf/pickday.prg
+++ b/harbour/contrib/hbnf/pickday.prg
@@ -3,7 +3,6 @@
 */

 /*
- * File......: pickday.prg
 * Author....: Greg Lief
 * CIS ID....: 72460,1760
 *
--- a/Show More
+++ b/Show More