From 568d9fe2120d5178fe0b713467fda1d69ae0fe6b Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Thu, 27 Sep 2012 23:25:39 +0000
Subject: [PATCH] 2012-09-28 01:24 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/hbnf/popadder.prg     ! replaced Chr() calls for CP437 chars with
 unicode strings

---
 harbour/ChangeLog                 | 6 +++++-
 harbour/contrib/hbnf/popadder.prg | 4 ++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0ff3c9756f..6459392d03 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-09-28 01:24 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/hbnf/popadder.prg
+    ! replaced Chr() calls for CP437 chars with unicode strings
+
 2012-09-28 01:20 UTC+0200 Viktor Szakats (harbour syenar.net)
   + contrib/hbnf/hbmk.hbm
     + added .hbm for to make it easy to build embedded test
@@ -41,7 +45,7 @@
 
   * contrib/hbnf/clrsel.prg
     ! fixed test code to compile in -w3 mode
-    ! replaced Chr() calls for CP437 chars to unicode strings
+    ! replaced Chr() calls for CP437 chars with unicode strings
     * formatted // comments
 
   * contrib/hbnf/woy.prg
diff --git a/harbour/contrib/hbnf/popadder.prg b/harbour/contrib/hbnf/popadder.prg
index 146db72698..4d72669b27 100644
--- a/harbour/contrib/hbnf/popadder.prg
+++ b/harbour/contrib/hbnf/popadder.prg
@@ -294,7 +294,7 @@ FUNCTION FT_Adder()
       CASE ( nKey == 83 .OR. nKey == 115 ) .AND. lTape  // <S> Scroll tape display
          IF nTotTran > 16                  // We need to scroll
             SetColor( "GR+/W" )
-            @ 21 + nTopOS, 8 + nTapeSpace SAY " " + Chr( 24 ) + Chr( 25 ) + "-SCROLL  <ESC>-QUIT "
+            @ 21 + nTopOS, 8 + nTapeSpace SAY hb_UTF8ToStr( " ↑↓-SCROLL  <ESC>-QUIT " )
             SetColor( "N/W,W+/N" )
             AChoice( 5 + nTopOS, 7 + nTapeSpace, 20 + nTopOS, 32 + nTapeSpace, aTrans, .T. ,  ;
                "_ftAdderTapeUDF", nTotTran, 20 )
@@ -1228,7 +1228,7 @@ STATIC FUNCTION _ftQuest( cMessage, xVarVal, cPict, bValid, lNoESC, nWinColor, n
    nRight      := nLeft + nWide + 4
 
    _ftPushWin( nTop, nLeft, nBottom, nRight, "QUESTION ?", iif( HB_ISSTRING( xVarVal )  ;
-      .AND. nVarLen > nWide, Chr( 27 ) + " scroll " + Chr( 26 ), NIL ), nWinColor )
+      .AND. nVarLen > nWide, hb_UTF8ToStr( "← scroll →" ), NIL ), nWinColor )
    DISPMESSAGE cMessage, nTop + 1, nLeft + 2, nBottom - 1, nRight - 2
 
    oNewGet := GetNew( iif( lGetOnNextLine,Row() + 1,Row() ),                       ;