https://github.com/vszakats/harbour-cor ... n/lang.txt
#include "FiveWin.ch"
#include "error.ch"
#include "hblang.ch"
REQUEST HB_LANG_PT
REQUEST HB_LANG_RO
REQUEST HB_LANG_ES
REQUEST HB_LANG_HU
PROCEDURE Main()
? hb_langName( "pt" )
? hb_langName( "<non-existent>" )
hb_langSelect( "pt" ) // Default language is now Portuguese
? CDoW( Date() ) // Segunda-feira
? "Current language is", hb_langName() // Portuguese
? "Old language id selected is", hb_langSelect() // PT
hb_langSelect( "ro" ) // Default language is now Romanian
? CMonth( Date() ) // Mai
? "Old language id selected is", hb_langSelect() // RO
hb_langSelect( "es" ) // Default language is now Spanish
? "Current language is", hb_langName() // Spanish
? CMonth( Date() ) // Mayo
? CDoW( Date() ) // Lunes
RETURN
