From 3aa177ad9a2b2759097aaa0f126f668ad27d8d22 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 27 Sep 2012 00:06:59 +0000 Subject: [PATCH] 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 --- harbour/ChangeLog | 7 + harbour/contrib/hbnf/aading.prg | 1 - harbour/contrib/hbnf/aavg.prg | 1 - harbour/contrib/hbnf/acctadj.prg | 1 - harbour/contrib/hbnf/acctmnth.prg | 1 - harbour/contrib/hbnf/acctqtr.prg | 1 - harbour/contrib/hbnf/acctweek.prg | 1 - harbour/contrib/hbnf/acctyear.prg | 1 - harbour/contrib/hbnf/adessort.prg | 1 - harbour/contrib/hbnf/aemaxlen.prg | 1 - harbour/contrib/hbnf/aeminlen.prg | 1 - harbour/contrib/hbnf/alt.c | 1 - harbour/contrib/hbnf/amedian.prg | 1 - harbour/contrib/hbnf/anomatch.prg | 1 - harbour/contrib/hbnf/any2any.prg | 1 - harbour/contrib/hbnf/aredit.prg | 1 - harbour/contrib/hbnf/asum.prg | 1 - harbour/contrib/hbnf/at2.prg | 1 - harbour/contrib/hbnf/bitclr.prg | 1 - harbour/contrib/hbnf/bitset.prg | 1 - harbour/contrib/hbnf/blink.prg | 1 - harbour/contrib/hbnf/byt2bit.prg | 1 - harbour/contrib/hbnf/byt2hex.prg | 1 - harbour/contrib/hbnf/byteand.prg | 1 - harbour/contrib/hbnf/byteneg.prg | 1 - harbour/contrib/hbnf/bytenot.prg | 1 - harbour/contrib/hbnf/byteor.prg | 1 - harbour/contrib/hbnf/bytexor.prg | 1 - harbour/contrib/hbnf/calendar.prg | 1 - harbour/contrib/hbnf/caplock.c | 1 - harbour/contrib/hbnf/chdir.c | 26 +--- harbour/contrib/hbnf/clrsel.prg | 1 - harbour/contrib/hbnf/cntryset.prg | 1 - harbour/contrib/hbnf/color2n.c | 1 - harbour/contrib/hbnf/ctrl.c | 1 - harbour/contrib/hbnf/d2e.prg | 1 - harbour/contrib/hbnf/datecnfg.prg | 1 - harbour/contrib/hbnf/dayofyr.prg | 1 - harbour/contrib/hbnf/daytobow.prg | 1 - harbour/contrib/hbnf/dectobin.prg | 1 - harbour/contrib/hbnf/descendn.c | 1 - harbour/contrib/hbnf/dfile.prg | 17 ++- harbour/contrib/hbnf/dhkey.h | 1 - harbour/contrib/hbnf/diskfunc.prg | 1 - harbour/contrib/hbnf/dispc.c | 5 - harbour/contrib/hbnf/dispmsg.prg | 1 - harbour/contrib/hbnf/dosver.prg | 1 - harbour/contrib/hbnf/e2d.prg | 1 - harbour/contrib/hbnf/easter.prg | 1 - harbour/contrib/hbnf/elapmil.prg | 1 - harbour/contrib/hbnf/elapsed.prg | 1 - harbour/contrib/hbnf/eltime.prg | 1 - harbour/contrib/hbnf/findith.prg | 1 - harbour/contrib/hbnf/firstday.prg | 1 - harbour/contrib/hbnf/floptst.prg | 1 - harbour/contrib/hbnf/ftattr.c | 220 ------------------------------ harbour/contrib/hbnf/ftidle.c | 1 - harbour/contrib/hbnf/ftint86.ch | 47 ++++--- harbour/contrib/hbnf/ftisprn.c | 2 +- harbour/contrib/hbnf/ftmenuto.ch | 4 +- harbour/contrib/hbnf/ftround.prg | 1 - harbour/contrib/hbnf/fttext.c | 1 - harbour/contrib/hbnf/gcd.prg | 1 - harbour/contrib/hbnf/getenvrn.c | 1 - harbour/contrib/hbnf/getvid.c | 2 +- harbour/contrib/hbnf/hex2dec.prg | 1 - harbour/contrib/hbnf/iamidle.c | 1 - harbour/contrib/hbnf/invclr.prg | 1 - harbour/contrib/hbnf/isbit.prg | 1 - harbour/contrib/hbnf/isbiton.prg | 1 - harbour/contrib/hbnf/isshare.prg | 1 - harbour/contrib/hbnf/kspeed.c | 56 -------- harbour/contrib/hbnf/lastday.prg | 1 - harbour/contrib/hbnf/linked.prg | 1 - harbour/contrib/hbnf/madd.prg | 1 - harbour/contrib/hbnf/menu1.prg | 1 - harbour/contrib/hbnf/menutonf.prg | 1 - harbour/contrib/hbnf/metaph.prg | 1 - harbour/contrib/hbnf/miltime.prg | 1 - harbour/contrib/hbnf/min2dhm.prg | 1 - harbour/contrib/hbnf/mkdir.c | 25 ---- harbour/contrib/hbnf/month.prg | 1 - harbour/contrib/hbnf/mouse.c | 2 +- harbour/contrib/hbnf/mouse1.prg | 4 +- harbour/contrib/hbnf/mouse2.prg | 1 - harbour/contrib/hbnf/n2color.c | 1 - harbour/contrib/hbnf/netpv.prg | 1 - harbour/contrib/hbnf/nooccur.prg | 1 - harbour/contrib/hbnf/ntow.prg | 1 - harbour/contrib/hbnf/numlock.c | 1 - harbour/contrib/hbnf/nwlstat.prg | 1 - harbour/contrib/hbnf/nwsem.prg | 1 - harbour/contrib/hbnf/nwuid.prg | 1 - harbour/contrib/hbnf/origin.c | 1 - harbour/contrib/hbnf/page.prg | 1 - harbour/contrib/hbnf/pchr.prg | 1 - harbour/contrib/hbnf/peek.c | 1 - harbour/contrib/hbnf/pegs.prg | 1 - harbour/contrib/hbnf/pending.prg | 1 - harbour/contrib/hbnf/pickday.prg | 1 - harbour/contrib/hbnf/poke.c | 1 - harbour/contrib/hbnf/popadder.prg | 1 - harbour/contrib/hbnf/proper.c | 1 - harbour/contrib/hbnf/prtesc.prg | 1 - harbour/contrib/hbnf/prtscr.c | 2 - harbour/contrib/hbnf/putkey.c | 165 ---------------------- harbour/contrib/hbnf/pvid.prg | 1 - harbour/contrib/hbnf/qtr.prg | 1 - harbour/contrib/hbnf/rand1.prg | 1 - harbour/contrib/hbnf/readme.txt | 4 +- harbour/contrib/hbnf/restsets.prg | 1 - harbour/contrib/hbnf/rmdir.c | 25 ---- harbour/contrib/hbnf/savearr.prg | 1 - harbour/contrib/hbnf/savesets.prg | 1 - harbour/contrib/hbnf/scancode.prg | 1 - harbour/contrib/hbnf/scregion.prg | 1 - harbour/contrib/hbnf/setdate.prg | 1 - harbour/contrib/hbnf/setkeys.c | 1 - harbour/contrib/hbnf/setlastk.c | 1 - harbour/contrib/hbnf/settime.prg | 1 - harbour/contrib/hbnf/shift.c | 1 - harbour/contrib/hbnf/sinkey.prg | 1 - harbour/contrib/hbnf/sleep.prg | 1 - harbour/contrib/hbnf/sqzn.prg | 1 - harbour/contrib/hbnf/stod.c | 2 - harbour/contrib/hbnf/sysmem.prg | 1 - harbour/contrib/hbnf/tbwhile.prg | 1 - harbour/contrib/hbnf/tempfile.prg | 1 - harbour/contrib/hbnf/vertmenu.prg | 1 - harbour/contrib/hbnf/vidcur.prg | 1 - harbour/contrib/hbnf/vidmode.prg | 1 - harbour/contrib/hbnf/wda.prg | 1 - harbour/contrib/hbnf/week.prg | 1 - harbour/contrib/hbnf/workdays.prg | 1 - harbour/contrib/hbnf/woy.prg | 1 - harbour/contrib/hbnf/xbox.prg | 1 - harbour/contrib/hbnf/year.prg | 1 - 137 files changed, 47 insertions(+), 687 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 64bbddef87..1f7f3f7974 100644 --- 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 diff --git a/harbour/contrib/hbnf/aading.prg b/harbour/contrib/hbnf/aading.prg index a9bb620cea..6a6ae86110 100644 --- 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 * diff --git a/harbour/contrib/hbnf/aavg.prg b/harbour/contrib/hbnf/aavg.prg index 0caf1f27a2..a27bd66544 100644 --- a/harbour/contrib/hbnf/aavg.prg +++ b/harbour/contrib/hbnf/aavg.prg @@ -3,7 +3,6 @@ */ /* - * File......: aavg.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/acctadj.prg b/harbour/contrib/hbnf/acctadj.prg index 35d58dae95..8ab89b37b0 100644 --- 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 * diff --git a/harbour/contrib/hbnf/acctmnth.prg b/harbour/contrib/hbnf/acctmnth.prg index 07c187a7a8..8d4f0ce69b 100644 --- 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 * diff --git a/harbour/contrib/hbnf/acctqtr.prg b/harbour/contrib/hbnf/acctqtr.prg index 6a974c0a86..4997df2514 100644 --- 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 * diff --git a/harbour/contrib/hbnf/acctweek.prg b/harbour/contrib/hbnf/acctweek.prg index 737a437e80..0f7fa2782a 100644 --- 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 * diff --git a/harbour/contrib/hbnf/acctyear.prg b/harbour/contrib/hbnf/acctyear.prg index 1e524fdd66..bb8c74bc6f 100644 --- 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 * diff --git a/harbour/contrib/hbnf/adessort.prg b/harbour/contrib/hbnf/adessort.prg index 2122d7c398..d34dd785b2 100644 --- a/harbour/contrib/hbnf/adessort.prg +++ b/harbour/contrib/hbnf/adessort.prg @@ -3,7 +3,6 @@ */ /* - * File......: adessort.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/aemaxlen.prg b/harbour/contrib/hbnf/aemaxlen.prg index e45eb0be64..e006714b4a 100644 --- 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 * diff --git a/harbour/contrib/hbnf/aeminlen.prg b/harbour/contrib/hbnf/aeminlen.prg index 77bb40e3ad..bcace67af9 100644 --- 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 * diff --git a/harbour/contrib/hbnf/alt.c b/harbour/contrib/hbnf/alt.c index ddb4238243..a74f941860 100644 --- 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 * diff --git a/harbour/contrib/hbnf/amedian.prg b/harbour/contrib/hbnf/amedian.prg index 08c1d14ca6..6b90deccb3 100644 --- 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 * diff --git a/harbour/contrib/hbnf/anomatch.prg b/harbour/contrib/hbnf/anomatch.prg index 2db10d94c7..9e7d2fbd6d 100644 --- a/harbour/contrib/hbnf/anomatch.prg +++ b/harbour/contrib/hbnf/anomatch.prg @@ -3,7 +3,6 @@ */ /* - * File......: anomatch.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/any2any.prg b/harbour/contrib/hbnf/any2any.prg index 126b4c02c9..7687d7fc7f 100644 --- a/harbour/contrib/hbnf/any2any.prg +++ b/harbour/contrib/hbnf/any2any.prg @@ -3,7 +3,6 @@ */ /* - * File......: any2any.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/aredit.prg b/harbour/contrib/hbnf/aredit.prg index d0b71234e4..37a66c92fc 100644 --- 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 * diff --git a/harbour/contrib/hbnf/asum.prg b/harbour/contrib/hbnf/asum.prg index 8b5ecf554e..ba96fea4b5 100644 --- a/harbour/contrib/hbnf/asum.prg +++ b/harbour/contrib/hbnf/asum.prg @@ -3,7 +3,6 @@ */ /* - * File......: asum.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/at2.prg b/harbour/contrib/hbnf/at2.prg index 503d53d6b2..a25444b7f4 100644 --- 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 * diff --git a/harbour/contrib/hbnf/bitclr.prg b/harbour/contrib/hbnf/bitclr.prg index 9375a10110..10ab5bd0d2 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/bitset.prg b/harbour/contrib/hbnf/bitset.prg index 8e2a8c4081..bf61d18674 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/blink.prg b/harbour/contrib/hbnf/blink.prg index 578804cbfe..af8a8acfd2 100644 --- 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 * diff --git a/harbour/contrib/hbnf/byt2bit.prg b/harbour/contrib/hbnf/byt2bit.prg index af670c857c..a42ca8e574 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/byt2hex.prg b/harbour/contrib/hbnf/byt2hex.prg index a3e859a46b..78a7cc8e4b 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/byteand.prg b/harbour/contrib/hbnf/byteand.prg index db1d6f4fca..86592be1ad 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/byteneg.prg b/harbour/contrib/hbnf/byteneg.prg index 9f4fb8cff6..e7d76bd8db 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/bytenot.prg b/harbour/contrib/hbnf/bytenot.prg index 964862a654..69a21c02ce 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/byteor.prg b/harbour/contrib/hbnf/byteor.prg index 5e7347cd92..6eae6f26e3 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/bytexor.prg b/harbour/contrib/hbnf/bytexor.prg index f3e09b25ea..7fbb83d9d5 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/calendar.prg b/harbour/contrib/hbnf/calendar.prg index cf96539ce3..7989f61153 100644 --- 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 * diff --git a/harbour/contrib/hbnf/caplock.c b/harbour/contrib/hbnf/caplock.c index 778e93392f..2c11e04db8 100644 --- 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 * diff --git a/harbour/contrib/hbnf/chdir.c b/harbour/contrib/hbnf/chdir.c index 6246a72e9e..7364f44cad 100644 --- 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" diff --git a/harbour/contrib/hbnf/clrsel.prg b/harbour/contrib/hbnf/clrsel.prg index f664d502dd..a1d6124ca6 100644 --- 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 * diff --git a/harbour/contrib/hbnf/cntryset.prg b/harbour/contrib/hbnf/cntryset.prg index 5d2bf3ba51..185ff16e46 100644 --- a/harbour/contrib/hbnf/cntryset.prg +++ b/harbour/contrib/hbnf/cntryset.prg @@ -3,7 +3,6 @@ */ /* - * File......: cntryset.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/color2n.c b/harbour/contrib/hbnf/color2n.c index ec9254213a..99917d62e7 100644 --- 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 * diff --git a/harbour/contrib/hbnf/ctrl.c b/harbour/contrib/hbnf/ctrl.c index 2182ae7f95..ae58558588 100644 --- 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 * diff --git a/harbour/contrib/hbnf/d2e.prg b/harbour/contrib/hbnf/d2e.prg index 79b4f8550f..d5f56a770d 100644 --- 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 * diff --git a/harbour/contrib/hbnf/datecnfg.prg b/harbour/contrib/hbnf/datecnfg.prg index d3680e80a7..da70274f0e 100644 --- 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 * diff --git a/harbour/contrib/hbnf/dayofyr.prg b/harbour/contrib/hbnf/dayofyr.prg index 91e90b71ab..c8cee46378 100644 --- 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 * diff --git a/harbour/contrib/hbnf/daytobow.prg b/harbour/contrib/hbnf/daytobow.prg index d7db2fb58f..9659f96ca6 100644 --- 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 * diff --git a/harbour/contrib/hbnf/dectobin.prg b/harbour/contrib/hbnf/dectobin.prg index b21f853179..3020f610f6 100644 --- 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 * diff --git a/harbour/contrib/hbnf/descendn.c b/harbour/contrib/hbnf/descendn.c index 29785011c5..0ed4984120 100644 --- 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 * diff --git a/harbour/contrib/hbnf/dfile.prg b/harbour/contrib/hbnf/dfile.prg index 07873ff72d..a03a0c72e3 100644 --- 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 diff --git a/harbour/contrib/hbnf/dhkey.h b/harbour/contrib/hbnf/dhkey.h index e5235deb8b..62aafb5805 100644 --- a/harbour/contrib/hbnf/dhkey.h +++ b/harbour/contrib/hbnf/dhkey.h @@ -3,7 +3,6 @@ */ /* - * File......: dfkey.h * Author....: Mike Taylor * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/diskfunc.prg b/harbour/contrib/hbnf/diskfunc.prg index a963a391a3..f15e9a75f2 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/dispc.c b/harbour/contrib/hbnf/dispc.c index 00e324bfd4..6ca4a1c312 100644 --- 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 */ diff --git a/harbour/contrib/hbnf/dispmsg.prg b/harbour/contrib/hbnf/dispmsg.prg index 54a2e1b200..a1129d278d 100644 --- 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 * diff --git a/harbour/contrib/hbnf/dosver.prg b/harbour/contrib/hbnf/dosver.prg index 4435dbd325..aab7fb5637 100644 --- a/harbour/contrib/hbnf/dosver.prg +++ b/harbour/contrib/hbnf/dosver.prg @@ -3,7 +3,6 @@ */ /* - * File......: dosver.prg * Author....: Glenn Scott * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/e2d.prg b/harbour/contrib/hbnf/e2d.prg index 49c3f3a031..77454854f6 100644 --- 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 * diff --git a/harbour/contrib/hbnf/easter.prg b/harbour/contrib/hbnf/easter.prg index 7ae4b0c36f..3715a3f3d6 100644 --- a/harbour/contrib/hbnf/easter.prg +++ b/harbour/contrib/hbnf/easter.prg @@ -3,7 +3,6 @@ */ /* - * File......: easter.prg * Author....: Paul Tucker * Email.....: * diff --git a/harbour/contrib/hbnf/elapmil.prg b/harbour/contrib/hbnf/elapmil.prg index 1ef13a2e02..28b785e684 100644 --- 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 * diff --git a/harbour/contrib/hbnf/elapsed.prg b/harbour/contrib/hbnf/elapsed.prg index 53106d073b..10a1a85c14 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/eltime.prg b/harbour/contrib/hbnf/eltime.prg index a3a188b1c4..9ad274a761 100644 --- 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 * diff --git a/harbour/contrib/hbnf/findith.prg b/harbour/contrib/hbnf/findith.prg index 43be959e2f..8abb9834c2 100644 --- a/harbour/contrib/hbnf/findith.prg +++ b/harbour/contrib/hbnf/findith.prg @@ -3,7 +3,6 @@ */ /* - * File......: findith.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/firstday.prg b/harbour/contrib/hbnf/firstday.prg index 6cc947cffb..fd0d89b8f3 100644 --- a/harbour/contrib/hbnf/firstday.prg +++ b/harbour/contrib/hbnf/firstday.prg @@ -3,7 +3,6 @@ */ /* - * File......: firstday.prg * Author....: Jeff Bryant * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/floptst.prg b/harbour/contrib/hbnf/floptst.prg index a2087f0d8d..1b17b8ba5a 100644 --- 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 * diff --git a/harbour/contrib/hbnf/ftattr.c b/harbour/contrib/hbnf/ftattr.c index e08ece00d6..f5c67db7cb 100644 --- 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 ); diff --git a/harbour/contrib/hbnf/ftidle.c b/harbour/contrib/hbnf/ftidle.c index dcaef4e7f2..fe8d1d6fef 100644 --- 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 * diff --git a/harbour/contrib/hbnf/ftint86.ch b/harbour/contrib/hbnf/ftint86.ch index 2e6dd20c30..2840c44846 100644 --- 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( ) => (() * 256) +#translate makehi( ) => ( ( ) * 256 ) #translate REG_DS => .T. #translate REG_ES => .F. #translate highbyte( ) => ( int( iif( () \< 0, 65536 + (), () ) / 256 ) ) #translate lowbyte( ) => ( iif( () \< 0, 65536 + (), () ) % 256 ) -#translate carrySet( ) => (ft_isbiton((), FLAG_CARRY)) +#translate carrySet( ) => ( ft_isbiton( ( ), FLAG_CARRY ) ) #endif // __FTINT86_CH__ diff --git a/harbour/contrib/hbnf/ftisprn.c b/harbour/contrib/hbnf/ftisprn.c index b2c0afcb4b..730c4620dd 100644 --- 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 * diff --git a/harbour/contrib/hbnf/ftmenuto.ch b/harbour/contrib/hbnf/ftmenuto.ch index 192de3725e..b6516733a4 100644 --- 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 @@ ) #xcommand MENU TO [] => ; - := FT_MenuTo( {|_1| iif( _1 == NIL, , := _1 ) }, #, <.l.> ) + := FT_MenuTo( {| _1 | iif( _1 == NIL, , := _1 ) }, #, <.l.> ) diff --git a/harbour/contrib/hbnf/ftround.prg b/harbour/contrib/hbnf/ftround.prg index 9b18f2d8fd..96711633f0 100644 --- a/harbour/contrib/hbnf/ftround.prg +++ b/harbour/contrib/hbnf/ftround.prg @@ -3,7 +3,6 @@ */ /* - * File......: round.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/fttext.c b/harbour/contrib/hbnf/fttext.c index f0b9f3a6d5..991b80d56f 100644 --- 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 * diff --git a/harbour/contrib/hbnf/gcd.prg b/harbour/contrib/hbnf/gcd.prg index 16f346ce0e..7cac320ef5 100644 --- a/harbour/contrib/hbnf/gcd.prg +++ b/harbour/contrib/hbnf/gcd.prg @@ -3,7 +3,6 @@ */ /* - * File......: gcd.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/getenvrn.c b/harbour/contrib/hbnf/getenvrn.c index 159618f01a..58af3687c5 100644 --- 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 * diff --git a/harbour/contrib/hbnf/getvid.c b/harbour/contrib/hbnf/getvid.c index 0c03478e68..a25fb949f5 100644 --- 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 * www - http://harbour-project.org diff --git a/harbour/contrib/hbnf/hex2dec.prg b/harbour/contrib/hbnf/hex2dec.prg index 1fab4e3ba8..0438d52481 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/iamidle.c b/harbour/contrib/hbnf/iamidle.c index 89b27da5c9..bc78f6b280 100644 --- 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 * diff --git a/harbour/contrib/hbnf/invclr.prg b/harbour/contrib/hbnf/invclr.prg index c2619e1e32..c93cbb99de 100644 --- a/harbour/contrib/hbnf/invclr.prg +++ b/harbour/contrib/hbnf/invclr.prg @@ -3,7 +3,6 @@ */ /* - * File......: invclr.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/isbit.prg b/harbour/contrib/hbnf/isbit.prg index 089d3c60d1..87d65da81c 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/isbiton.prg b/harbour/contrib/hbnf/isbiton.prg index ff26fd6696..69bcad7648 100644 --- 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 * diff --git a/harbour/contrib/hbnf/isshare.prg b/harbour/contrib/hbnf/isshare.prg index 37de5fd7a4..b3987e8af2 100644 --- 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....: ? * diff --git a/harbour/contrib/hbnf/kspeed.c b/harbour/contrib/hbnf/kspeed.c index 4453e1b98e..f054189db6 100644 --- 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" diff --git a/harbour/contrib/hbnf/lastday.prg b/harbour/contrib/hbnf/lastday.prg index 8d6b488ed2..e16f5ac87a 100644 --- a/harbour/contrib/hbnf/lastday.prg +++ b/harbour/contrib/hbnf/lastday.prg @@ -3,7 +3,6 @@ */ /* - * File......: lastday.prg * Author....: Mike Schinkel * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/linked.prg b/harbour/contrib/hbnf/linked.prg index bdcd2fe688..1f0ab8ff85 100644 --- 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 * diff --git a/harbour/contrib/hbnf/madd.prg b/harbour/contrib/hbnf/madd.prg index d218c9a072..0df82d437b 100644 --- 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 * diff --git a/harbour/contrib/hbnf/menu1.prg b/harbour/contrib/hbnf/menu1.prg index 60ac8fa667..e47d11dea7 100644 --- 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 * diff --git a/harbour/contrib/hbnf/menutonf.prg b/harbour/contrib/hbnf/menutonf.prg index fed4739960..2859c6d612 100644 --- 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 * diff --git a/harbour/contrib/hbnf/metaph.prg b/harbour/contrib/hbnf/metaph.prg index ddcb33628b..779b397702 100644 --- a/harbour/contrib/hbnf/metaph.prg +++ b/harbour/contrib/hbnf/metaph.prg @@ -3,7 +3,6 @@ */ /* - * File......: metaph.prg * Author....: Dave Adams * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/miltime.prg b/harbour/contrib/hbnf/miltime.prg index d1816648c1..8f9458f371 100644 --- 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 * diff --git a/harbour/contrib/hbnf/min2dhm.prg b/harbour/contrib/hbnf/min2dhm.prg index a2b7e93e08..1d82e67593 100644 --- 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 * diff --git a/harbour/contrib/hbnf/mkdir.c b/harbour/contrib/hbnf/mkdir.c index 559599885f..bd56be801d 100644 --- 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" diff --git a/harbour/contrib/hbnf/month.prg b/harbour/contrib/hbnf/month.prg index 2b4c0e628e..ce3d910a9b 100644 --- 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 * diff --git a/harbour/contrib/hbnf/mouse.c b/harbour/contrib/hbnf/mouse.c index bd9a6f835f..0b983f65be 100644 --- 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 * www - http://harbour-project.org diff --git a/harbour/contrib/hbnf/mouse1.prg b/harbour/contrib/hbnf/mouse1.prg index 455a178d5f..bcfd2b22be 100644 --- 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 ) diff --git a/harbour/contrib/hbnf/mouse2.prg b/harbour/contrib/hbnf/mouse2.prg index 6e2c6eb552..d81219f9b2 100644 --- 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 * diff --git a/harbour/contrib/hbnf/n2color.c b/harbour/contrib/hbnf/n2color.c index 95c1c86e9a..0f1f656d5b 100644 --- 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 * diff --git a/harbour/contrib/hbnf/netpv.prg b/harbour/contrib/hbnf/netpv.prg index 5e6f99eda1..ec87cd6697 100644 --- a/harbour/contrib/hbnf/netpv.prg +++ b/harbour/contrib/hbnf/netpv.prg @@ -3,7 +3,6 @@ */ /* - * File......: netpv.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/nooccur.prg b/harbour/contrib/hbnf/nooccur.prg index ba9b256dcf..8867583863 100644 --- a/harbour/contrib/hbnf/nooccur.prg +++ b/harbour/contrib/hbnf/nooccur.prg @@ -3,7 +3,6 @@ */ /* - * File......: nooccur.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/ntow.prg b/harbour/contrib/hbnf/ntow.prg index 92997661fc..f63f4be468 100644 --- 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 * diff --git a/harbour/contrib/hbnf/numlock.c b/harbour/contrib/hbnf/numlock.c index 7e2e1afec0..d6bb7207d5 100644 --- 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 * diff --git a/harbour/contrib/hbnf/nwlstat.prg b/harbour/contrib/hbnf/nwlstat.prg index d5208319f9..414eb44e9e 100644 --- a/harbour/contrib/hbnf/nwlstat.prg +++ b/harbour/contrib/hbnf/nwlstat.prg @@ -3,7 +3,6 @@ */ /* - * File......: nwlstat.prg * Author....: Glenn Scott * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/nwsem.prg b/harbour/contrib/hbnf/nwsem.prg index 1caa9f2988..9a0d4fab0b 100644 --- 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 * diff --git a/harbour/contrib/hbnf/nwuid.prg b/harbour/contrib/hbnf/nwuid.prg index c357022e3f..0c679dc284 100644 --- 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 * diff --git a/harbour/contrib/hbnf/origin.c b/harbour/contrib/hbnf/origin.c index 60e46ccf7a..ca145c58d7 100644 --- 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 * diff --git a/harbour/contrib/hbnf/page.prg b/harbour/contrib/hbnf/page.prg index 4186aae3db..571378132a 100644 --- 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 * diff --git a/harbour/contrib/hbnf/pchr.prg b/harbour/contrib/hbnf/pchr.prg index e95a9b85b8..f1b9ed4e01 100644 --- 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 * diff --git a/harbour/contrib/hbnf/peek.c b/harbour/contrib/hbnf/peek.c index ef54c7c5a2..a0cae6f0ae 100644 --- 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 * diff --git a/harbour/contrib/hbnf/pegs.prg b/harbour/contrib/hbnf/pegs.prg index d544ffd674..1beadbeb72 100644 --- 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 * diff --git a/harbour/contrib/hbnf/pending.prg b/harbour/contrib/hbnf/pending.prg index 2b389829e6..b4e42f29d0 100644 --- 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 * diff --git a/harbour/contrib/hbnf/pickday.prg b/harbour/contrib/hbnf/pickday.prg index 44280de664..1b8f329da8 100644 --- 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 * diff --git a/harbour/contrib/hbnf/poke.c b/harbour/contrib/hbnf/poke.c index 19604e4bf1..7085e066a5 100644 --- a/harbour/contrib/hbnf/poke.c +++ b/harbour/contrib/hbnf/poke.c @@ -3,7 +3,6 @@ */ /* - * File......: poke.c * Author....: Ted Means * CIS ID....: 73067,3332 * diff --git a/harbour/contrib/hbnf/popadder.prg b/harbour/contrib/hbnf/popadder.prg index a73a631dc6..343ce9cd3e 100644 --- a/harbour/contrib/hbnf/popadder.prg +++ b/harbour/contrib/hbnf/popadder.prg @@ -3,7 +3,6 @@ */ /* - * File......: popadder.prg * Author....: Keith A. Wire * CIS ID....: 73760,2427 * diff --git a/harbour/contrib/hbnf/proper.c b/harbour/contrib/hbnf/proper.c index e01de7f360..99483e14c1 100644 --- a/harbour/contrib/hbnf/proper.c +++ b/harbour/contrib/hbnf/proper.c @@ -3,7 +3,6 @@ */ /* - * File......: proper.c * Author....: Robert DiFalco and Glenn Scott * CIS ID....: 71610,1705 * diff --git a/harbour/contrib/hbnf/prtesc.prg b/harbour/contrib/hbnf/prtesc.prg index 693133f82b..9cc6acc5af 100644 --- a/harbour/contrib/hbnf/prtesc.prg +++ b/harbour/contrib/hbnf/prtesc.prg @@ -3,7 +3,6 @@ */ /* - * File......: prtesc.prg * Author....: Steven Tyrakowski * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/prtscr.c b/harbour/contrib/hbnf/prtscr.c index 2114d84c9b..5327cf12cd 100644 --- a/harbour/contrib/hbnf/prtscr.c +++ b/harbour/contrib/hbnf/prtscr.c @@ -3,7 +3,6 @@ */ /* - * File......: prtscr.c * Author....: Ted Means * CIS ID....: 73067,3332 * @@ -25,7 +24,6 @@ * Rev 1.0 01 Apr 1991 01:02:58 GLENN * Nanforum Toolkit * - * */ #include "hbapi.h" diff --git a/harbour/contrib/hbnf/putkey.c b/harbour/contrib/hbnf/putkey.c index 95439341aa..a80e69f65c 100644 --- a/harbour/contrib/hbnf/putkey.c +++ b/harbour/contrib/hbnf/putkey.c @@ -3,7 +3,6 @@ */ /* - * File......: putkey.asm * Author....: Ted Means * CIS ID....: 73067,3332 * @@ -31,170 +30,6 @@ * Nanforum Toolkit */ -/*This is the Original FT_PUTKEY() code - IDEAL - - Public FT_PutKey - - Extrn __ParInfo:Far - Extrn __Parni:Far - Extrn __RetL:Far - Extrn __evLow:Far ; Internal!! Sniveling cowards - ; beware! - - Segment _NanFor Word Public "CODE" - Assume CS:_NanFor - - Proc FT_PutKey Far - - Xor AX,AX ; Prepare to count params - Push AX ; Save on stack - Call __ParInfo ; Get param count - Add SP,2 ; Realign stack - Or AX,AX ; Zero params? - JNZ Test1 ; If not, continue - Jmp Done ; Return value = false, go to end - - Test1: Mov AX,1 ; Prepare to check parameter #1 - Push AX ; Save parameter # on stack - Call __ParInfo ; Call parameter info routine - Add SP,2 ; Realign stack - Test AX,2 ; Is parameter numeric? - JNZ Get1 ; If so, continue - BadParam:Xor AX,AX ; Set return value to false - Jmp Done ; Go to end - - Get1: Mov AX,1 ; Prepare to retrieve parameter #1 - Push AX ; Save parameter # on stack - Call __ParNI ; Retrieve parameter - Add SP,2 ; Realign stack - - Cmp AX,385 ; Test highest inkey() - JG BadParam ; Bad INKEY() value - Cmp AX,-39 ; Test lowest INKEY() - JL BadParam ; Bad INKEY() value - - CtrlF1: Mov CL,0 ; Set ASCII value to null - Cmp AX,-10 ; Is Ctrl F1 thru Alt F10? - JG F2 ; If not, check next range - Neg AX ; Get absolute value of AX - Add AL,74 ; Translate INKEY() to scan code - Mov CH,AL ; Move scan code to CH - Jmp StuffIt ; Stuff the keystroke - - F2: Or AX,AX ; See if key is F2 thru F10 - JNS F1 ; If not, check next range - Neg AX ; Get absolute value of AX - Add AL,59 ; Translate INKEY() to scan code - Mov CH,AL ; Move scan code to CH - Jmp StuffIt ; Stuff the keystroke - - F1: Cmp AX,28 ; See if key is F1 - JNE CtrlF ; If not, check next key - Mov CH,59 ; Supply scan code for F1 - Jmp StuffIt ; Stuff the keystroke - - CtrlF: Cmp AX,6 ; See if key is Ctrl F or End - JNE CtrlW ; If not, check next key - Mov CH,79 ; Supply scan code for End - Jmp StuffIt ; Stuff the keystroke - - CtrlW: Cmp AX,23 ; See if key is Ctrl W or Ctrl End - JNE CtrlHome ; If not, check next key - Mov CH,117 ; Supply scan code for Ctrl End - Jmp StuffIt ; Stuff the keystroke - - CtrlHome:Cmp AX,29 ; See if key is Ctrl Home or Ctrl] - JNE CtrlV ; If not, check next key - Mov CH,119 ; Supply scan code for Ctrl Home - Jmp StuffIt ; Stuff the keystroke - - CtrlV: Cmp AX,22 ; See if key is Ins or Ctrl V - JNE ShiftTab ; If not, check next key - Mov CH,82 ; Supply scan code for Ctrl V - Jmp StuffIt ; Stuff the keystroke - - ShiftTab:Cmp AX,271 ; See if key is Shift Tab - JNE CtrlPgDn ; If not, check next key - Mov CH,15 ; Supply scan code for Shift Tab - Jmp StuffIt ; Stuff the keystroke - - CtrlPgDn:Cmp AX,30 ; See if key is Ctrl PgDn - JNE CtrlPgUp ; If not, check next key - Mov CH,118 ; Supply scan code for Ctrl PgDn - Jmp StuffIt ; Stuff the keystroke - - CtrlPgUp:Cmp AX,31 ; See if key is Ctrl PgUp - JNE AltQ ; If not, check next key - Mov CH,132 ; Supply scan code for Ctrl PgUp - Jmp StuffIt ; Stuff the keystroke - - AltQ: Cmp AX,272 ; See if key is Alt Q . . . - JL ASCII - Cmp AX,281 ; . . . thru Alt P - JG AltA - Mov CH,AL - Jmp StuffIt - - AltA: Cmp AX,286 ; See if key is Alt A . . . - JNL AltL - Jmp BadParam - AltL: Cmp AX,294 ; . . . thru Alt L - JG AltZ - Mov CH,AL - Jmp StuffIt - - AltZ: Cmp AX,300 ; See if key is Alt Z . . . - JNL AltM - Jmp BadParam - AltM: Cmp AX,306 ; . . . thru Alt M - JG Alt1 - Mov CH,AL - Mov CL,0 - Jmp StuffIt - - Alt1: Cmp AX,376 ; See if key is Alt 1 . . . - JNL AltNum - Jmp BadParam - AltNum: Mov CH,AL - Mov CL,0 - Jmp StuffIt - - ASCII: Or AH,AH ; See if key is plain ASCII - JZ Okay - Jmp BadParam - Okay: Mov CX,AX - - StuffIt: Push BP ; Save BP - Mov BP,SP ; Set up stack reference - Sub SP,10 ; Allocate local structure - Mov [Word Ptr BP - 10],5 ; Choose keystroke event - Mov [Word Ptr BP - 8],0 ; Init flag word to 0 - Mov [Word Ptr BP - 6],CX ; Store keystroke in structure - Mov [Word Ptr BP - 4],0 ; Init mouse row to 0 - Mov [Word Ptr BP - 2],0 ; Init mouse col to 0 - Push SS ; Put structure segment on stack - LEA AX,[BP - 10] ; Load structure offset - Push AX ; Put structure offset on stack - Mov AX,3 ; Post event subfunction code - Push AX ; Place onto stack - Call __evLow ; Call internal event handler - Dec AX ; Convert error code . . . - Neg AX ; . . . to a logical value - Mov SP,BP ; Restore stack alignment - Pop BP ; Restore BP - - Done: Push AX ; Save return value on stack - Call __RetL ; Return it to Clipper app - Add SP,2 ; Realign stack - Ret - Endp FT_PutKey - Ends _NanFor - End - */ - -/* This is the New one Rewriten in C*/ - #include "hbapi.h" #include "hbapigt.h" diff --git a/harbour/contrib/hbnf/pvid.prg b/harbour/contrib/hbnf/pvid.prg index 7fcc7f8d04..7d987e9d6f 100644 --- a/harbour/contrib/hbnf/pvid.prg +++ b/harbour/contrib/hbnf/pvid.prg @@ -3,7 +3,6 @@ */ /* - * File......: pvid.prg * Author....: Ted Means * CIS ID....: 73067,3332 * diff --git a/harbour/contrib/hbnf/qtr.prg b/harbour/contrib/hbnf/qtr.prg index b2548e9260..f6a686caf7 100644 --- a/harbour/contrib/hbnf/qtr.prg +++ b/harbour/contrib/hbnf/qtr.prg @@ -3,7 +3,6 @@ */ /* - * File......: qtr.prg * Author....: Jo W. French dba Practical Computing * CIS ID....: 74731,1751 * diff --git a/harbour/contrib/hbnf/rand1.prg b/harbour/contrib/hbnf/rand1.prg index de566c45d5..f9adef3062 100644 --- a/harbour/contrib/hbnf/rand1.prg +++ b/harbour/contrib/hbnf/rand1.prg @@ -3,7 +3,6 @@ */ /* - * File......: rand1.prg * Author....: Gary Baren * CIS ID....: 75470,1027 * diff --git a/harbour/contrib/hbnf/readme.txt b/harbour/contrib/hbnf/readme.txt index ca0c327dff..db27f0963e 100644 --- a/harbour/contrib/hbnf/readme.txt +++ b/harbour/contrib/hbnf/readme.txt @@ -5,7 +5,7 @@ This library has been ported to Harbour by Luiz Rafael Culik //TODO -The follow functions must be rewrite in C +The following functions must be rewritten in C: asm\adapter.asm ; FT_ADAPTER() asm\default.asm ; FT_DEFAULT() asm\inp.asm ; FT_INP() @@ -14,7 +14,7 @@ asm\reboot.asm ; FT_REBOOT() asm\restatt.asm ; FT_RESTATT() asm\saveatt.asm ; FT_SAVEATT() -The follow functions need to be fixed. +The following functions need to be fixed: cint86.c ; FT_INT86() The following functions need FT_INT86() or to be rewritten in C: diff --git a/harbour/contrib/hbnf/restsets.prg b/harbour/contrib/hbnf/restsets.prg index a68e9f5b98..94ea16dc0f 100644 --- a/harbour/contrib/hbnf/restsets.prg +++ b/harbour/contrib/hbnf/restsets.prg @@ -3,7 +3,6 @@ */ /* - * File......: restsets.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/rmdir.c b/harbour/contrib/hbnf/rmdir.c index b96a13428b..6dc86ec36c 100644 --- a/harbour/contrib/hbnf/rmdir.c +++ b/harbour/contrib/hbnf/rmdir.c @@ -3,7 +3,6 @@ */ /* - * File......: rmdir.asm * Author....: Ted Means * CIS ID....: 73067,3332 * @@ -24,30 +23,6 @@ * */ -/*This is the Original FT_RMDIR() code - IDEAL - - Public FT_RMDIR - - Extrn __ftdir:Far - - Segment _NanFor Word Public "CODE" - Assume CS:_NanFor - - Proc FT_RMDIR Far - - Mov AH,3Ah * DOS service--remove directory - Push AX * Save on stack - Call __ftdir * Call generic directory routine - Add SP,2 * Realign stack - Ret - Endp FT_RMDIR - Ends _NanFor - End - */ - -/* This is the New one Rewriten in C*/ - #include "hbapi.h" #include "hbapifs.h" diff --git a/harbour/contrib/hbnf/savearr.prg b/harbour/contrib/hbnf/savearr.prg index ae7387d535..d2ec618176 100644 --- a/harbour/contrib/hbnf/savearr.prg +++ b/harbour/contrib/hbnf/savearr.prg @@ -3,7 +3,6 @@ */ /* - * File......: savearr.prg * Author....: David Barrett * CIS ID....: 72037,105 * diff --git a/harbour/contrib/hbnf/savesets.prg b/harbour/contrib/hbnf/savesets.prg index 81d38a2610..cd62360398 100644 --- a/harbour/contrib/hbnf/savesets.prg +++ b/harbour/contrib/hbnf/savesets.prg @@ -3,7 +3,6 @@ */ /* - * File......: savesets.prg * Author....: David Husnian * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/scancode.prg b/harbour/contrib/hbnf/scancode.prg index c3cbd4b8f3..c01a501446 100644 --- a/harbour/contrib/hbnf/scancode.prg +++ b/harbour/contrib/hbnf/scancode.prg @@ -3,7 +3,6 @@ */ /* - * File......: scancode.prg * Author....: Glenn Scott (from John Kaster) * CIS ID....: 71620,1521 * diff --git a/harbour/contrib/hbnf/scregion.prg b/harbour/contrib/hbnf/scregion.prg index 918c305b20..81ccd66359 100644 --- a/harbour/contrib/hbnf/scregion.prg +++ b/harbour/contrib/hbnf/scregion.prg @@ -3,7 +3,6 @@ */ /* - * File......: scregion.prg * Author....: David A. Richardson * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/setdate.prg b/harbour/contrib/hbnf/setdate.prg index f4297ed338..1cc9483d01 100644 --- a/harbour/contrib/hbnf/setdate.prg +++ b/harbour/contrib/hbnf/setdate.prg @@ -3,7 +3,6 @@ */ /* - * File......: setdate.prg * Author....: Glenn Scott * CIS ID....: 71620,1521 * diff --git a/harbour/contrib/hbnf/setkeys.c b/harbour/contrib/hbnf/setkeys.c index 734b676908..b5b7a202c3 100644 --- a/harbour/contrib/hbnf/setkeys.c +++ b/harbour/contrib/hbnf/setkeys.c @@ -51,7 +51,6 @@ */ /* - * File......: setlastk.asm * Author....: Ted Means * CIS ID....: 73067,3332 * diff --git a/harbour/contrib/hbnf/setlastk.c b/harbour/contrib/hbnf/setlastk.c index 949ce0322c..d7dfb72124 100644 --- a/harbour/contrib/hbnf/setlastk.c +++ b/harbour/contrib/hbnf/setlastk.c @@ -51,7 +51,6 @@ */ /* - * File......: setlastk.asm * Author....: Ted Means * CIS ID....: 73067,3332 * diff --git a/harbour/contrib/hbnf/settime.prg b/harbour/contrib/hbnf/settime.prg index e6b59b1f48..3573cc6e9e 100644 --- a/harbour/contrib/hbnf/settime.prg +++ b/harbour/contrib/hbnf/settime.prg @@ -3,7 +3,6 @@ */ /* - * File......: settime.prg * Author....: Glenn Scott * CIS ID....: 71620,1521 * diff --git a/harbour/contrib/hbnf/shift.c b/harbour/contrib/hbnf/shift.c index f78264033d..f7bb8d53fc 100644 --- a/harbour/contrib/hbnf/shift.c +++ b/harbour/contrib/hbnf/shift.c @@ -3,7 +3,6 @@ */ /* - * File......: shift.c * Author....: Ted Means * CIS ID....: 73067,3332 * diff --git a/harbour/contrib/hbnf/sinkey.prg b/harbour/contrib/hbnf/sinkey.prg index 792de4e590..7331be6b40 100644 --- a/harbour/contrib/hbnf/sinkey.prg +++ b/harbour/contrib/hbnf/sinkey.prg @@ -3,7 +3,6 @@ */ /* - * File......: sinkey.prg * Author....: Greg Lief * CIS ID....: 72460,1760 * diff --git a/harbour/contrib/hbnf/sleep.prg b/harbour/contrib/hbnf/sleep.prg index 65cc2365b3..010d263431 100644 --- a/harbour/contrib/hbnf/sleep.prg +++ b/harbour/contrib/hbnf/sleep.prg @@ -3,7 +3,6 @@ */ /* - * File......: sleep.prg * Author....: Leo Letendre * CIS ID....: 73607,233 * diff --git a/harbour/contrib/hbnf/sqzn.prg b/harbour/contrib/hbnf/sqzn.prg index 6c6a72e120..d5d859176f 100644 --- a/harbour/contrib/hbnf/sqzn.prg +++ b/harbour/contrib/hbnf/sqzn.prg @@ -3,7 +3,6 @@ */ /* - * File......: sqzn.prg * Author....: Joseph D. Booth, Sr. * CIS ID....: 72040,2112 * diff --git a/harbour/contrib/hbnf/stod.c b/harbour/contrib/hbnf/stod.c index 36d4fd8493..d45e63653e 100644 --- a/harbour/contrib/hbnf/stod.c +++ b/harbour/contrib/hbnf/stod.c @@ -3,7 +3,6 @@ */ /* - * File......: stod.c * Author....: Clayton Neff * CIS ID....: * @@ -22,7 +21,6 @@ * Rev 1.0 01 Apr 1991 01:03:00 GLENN * Nanforum Toolkit * - * */ #include "hbapi.h" diff --git a/harbour/contrib/hbnf/sysmem.prg b/harbour/contrib/hbnf/sysmem.prg index a95b07c502..e9ba7991fb 100644 --- a/harbour/contrib/hbnf/sysmem.prg +++ b/harbour/contrib/hbnf/sysmem.prg @@ -3,7 +3,6 @@ */ /* - * File......: sysmem.prg * Author....: Glenn Scott * CIS ID....: 71620,1521 * diff --git a/harbour/contrib/hbnf/tbwhile.prg b/harbour/contrib/hbnf/tbwhile.prg index 9a49ce43b8..af222e1b05 100644 --- a/harbour/contrib/hbnf/tbwhile.prg +++ b/harbour/contrib/hbnf/tbwhile.prg @@ -3,7 +3,6 @@ */ /* - * File......: tbwhile.prg * Author....: Jim Orlowski * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/tempfile.prg b/harbour/contrib/hbnf/tempfile.prg index f10fd36d71..ea35a149d7 100644 --- a/harbour/contrib/hbnf/tempfile.prg +++ b/harbour/contrib/hbnf/tempfile.prg @@ -3,7 +3,6 @@ */ /* - * File......: tempfile.prg * Author....: Glenn Scott * CIS ID....: 71620,1521 * diff --git a/harbour/contrib/hbnf/vertmenu.prg b/harbour/contrib/hbnf/vertmenu.prg index 8767bd9fd9..b993dc4a4a 100644 --- a/harbour/contrib/hbnf/vertmenu.prg +++ b/harbour/contrib/hbnf/vertmenu.prg @@ -3,7 +3,6 @@ */ /* - * File......: vertmenu.prg * Author....: Greg Lief * CIS ID....: 72460,1760 * diff --git a/harbour/contrib/hbnf/vidcur.prg b/harbour/contrib/hbnf/vidcur.prg index acd042257a..3e389ee40c 100644 --- a/harbour/contrib/hbnf/vidcur.prg +++ b/harbour/contrib/hbnf/vidcur.prg @@ -3,7 +3,6 @@ */ /* - * File......: vidcur.prg * Author....: Glenn Scott * CIS ID....: 71620,1521 * diff --git a/harbour/contrib/hbnf/vidmode.prg b/harbour/contrib/hbnf/vidmode.prg index f56e53bd4c..1741b8ef6d 100644 --- a/harbour/contrib/hbnf/vidmode.prg +++ b/harbour/contrib/hbnf/vidmode.prg @@ -3,7 +3,6 @@ */ /* - * File......: vidmode.prg * Author....: Glenn Scott * CIS ID....: 71620,1521 * diff --git a/harbour/contrib/hbnf/wda.prg b/harbour/contrib/hbnf/wda.prg index fd4767d022..c62d1628e1 100644 --- a/harbour/contrib/hbnf/wda.prg +++ b/harbour/contrib/hbnf/wda.prg @@ -3,7 +3,6 @@ */ /* - * File......: wda.prg * Author....: Eric Splaver * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/week.prg b/harbour/contrib/hbnf/week.prg index 93b73120ca..7705bd1474 100644 --- a/harbour/contrib/hbnf/week.prg +++ b/harbour/contrib/hbnf/week.prg @@ -3,7 +3,6 @@ */ /* - * File......: week.prg * Author....: Jo W. French dba Practical Computing * CIS ID....: 74731,1751 * diff --git a/harbour/contrib/hbnf/workdays.prg b/harbour/contrib/hbnf/workdays.prg index 44b9c934e4..957d8b1d9e 100644 --- a/harbour/contrib/hbnf/workdays.prg +++ b/harbour/contrib/hbnf/workdays.prg @@ -3,7 +3,6 @@ */ /* - * File......: workdays.prg * Author....: John F. Kaster * CIS_ID....: 71510,3321 * diff --git a/harbour/contrib/hbnf/woy.prg b/harbour/contrib/hbnf/woy.prg index bbe368b274..0f53a1921b 100644 --- a/harbour/contrib/hbnf/woy.prg +++ b/harbour/contrib/hbnf/woy.prg @@ -3,7 +3,6 @@ */ /* - * File......: woy.prg * Author....: Forest Belt, Computer Diagnostic Services, Inc. * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/xbox.prg b/harbour/contrib/hbnf/xbox.prg index a3ca577c31..17006d94c7 100644 --- a/harbour/contrib/hbnf/xbox.prg +++ b/harbour/contrib/hbnf/xbox.prg @@ -3,7 +3,6 @@ */ /* - * File......: xbox.prg * Author....: Don Opperthauser * CIS ID....: ? * diff --git a/harbour/contrib/hbnf/year.prg b/harbour/contrib/hbnf/year.prg index c3d7d71725..4035f8b8b5 100644 --- a/harbour/contrib/hbnf/year.prg +++ b/harbour/contrib/hbnf/year.prg @@ -3,7 +3,6 @@ */ /* - * File......: year.prg * Author....: Jo W. French dba Practical Computing * CIS_ID....: 74731,1751 *