From 7089e478aee9c1399bc99696a38e0fe0dd02cca2 Mon Sep 17 00:00:00 2001
From: Andi Jahja <xharbour@cbn.net.id>
Date: Sat, 31 Jul 1999 04:15:01 +0000
Subject: [PATCH] Minor Correction

---
 harbour/source/rtl/menu.prg | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/harbour/source/rtl/menu.prg b/harbour/source/rtl/menu.prg
index ead3c85dd4..0a01219163 100644
--- a/harbour/source/rtl/menu.prg
+++ b/harbour/source/rtl/menu.prg
@@ -59,7 +59,7 @@ if len(athismenu) == 0
 endif
 
 nselect := eval(bvarblock)
-if valtype(nselect) <> "n"
+if valtype(nselect) <> "N"
     nselect := 1
 elseif (nselect := int(nselect)) < 1 .or. nselect > len(athismenu)
     nselect := 1
@@ -84,13 +84,13 @@ do while ncurrent > 0
 
     do case
     case anexits != nil .and. ascan(anexits, nkey) > 0
-        nselect := ncurrent
+        nselect  := ncurrent
         ncurrent := 0
     case nkey == K_ENTER .or. nKey == K_PGUP .or. nKey == K_PGDN
-        nselect := ncurrent
+        nselect  := ncurrent
         ncurrent := 0
     case nkey == K_ESC
-        nselect := 0
+        nselect  := 0
         ncurrent := 0
     case nkey == K_UP .or. nKey == K_LEFT
         if --ncurrent < 1
@@ -135,7 +135,7 @@ if (nmarkpos := at("~", ctext)) > 0
 
     for nmarkidx := 1 to 4
         ncommapos := at(",", ccolor)
-        ccolor := if(ncommapos > 0, substr(ccolor, ncommapos + 1), "")
+        ccolor    := if(ncommapos > 0, substr(ccolor, ncommapos + 1), "")
     next
 
     if .not. ccolor == ""