С прошедшими праздниками всех !

Столкнулся с БОЛЬШОЙ ПРОБЛЕМОЙ... Не могу ввести числа меньше 10, GET их просто не воспринимает...

Компилирую xHarbour Compiler build 1.0.0 (SimpLex)
Сделал тест:

#include "inkey.ch"
#include "common.ch"

FUNCTION MAIN
LOCAL aTarif:={}, nI, cNewDate, aDateTarif

SETCOLOR("15/2")
CLEAR SCREEN

AAdd( aTarif, { "Тариф-1 :", 0.00, "9999.99 (руб.)" } )
AAdd( aTarif, { "Тариф-2 :", 0.00, "9999.99 (руб.)" } )
AAdd( aTarif, { "Тариф-3 :", 0.00, "9999.99 (руб.)" } )
AAdd( aTarif, { "Тариф-4 :", 0.00, "9999.99 (руб.)" } )
AAdd( aTarif, { "Тариф-5 :", 0.00, "9999.99 (руб.)" } )
AAdd( aTarif, { "Тариф-6 :", 0.00, "9999.99 (руб.)" } )
AAdd( aTarif, { "Тариф-7 :", 0.00, "9999.99 (руб.)" } )
AAdd( aTarif, { "Тариф-8 :", 0.00, "9999.99 (руб.)" } )
AAdd( aTarif, { "Тариф-9 :", 0.00, "9999.99 (руб.)" } )

cNewDate := "01.01."+SUBSTR(STR(YEAR(DATE()),4),3)
aDateTarif := PeriodDate( CTOD( cNewDate ), Date(), "Введите период нового тарифа:", @aTarif )
FOR nI:=1 to len(aDateTarif)
? aDateTarif[nI]
NEXT

RETURN NIL
*********************************************************
FUNCTION PeriodDate(dTekDate1,dTekDate2,cStroka,aMassiv)
LOCAL cScr2, cColor, x:=COL(), y:=ROW(), cTempScr, aRet:={}
LOCAL aYX := {6, 8, 12, 67} , nYL:=0, xZn, cPict, GetList :={}, nI
LOCAL cColor1:="0/7", cColor2:="15/7", cColor3:="14/7,15/0", cGet
DEFAULT aMassiv TO {}

aYX := {6, 8, 14, 67} ; nYL:=1
cColor1:="0/3"
cColor2:="14/3"
cColor3:="15/3,15/0"
IF LEN(aMassiv) > 6
aYX := {3, 8, 3+9, 67}
ENDIF
cScr2 := SAVESCREEN(,,,,)
cColor := SETCOLOR(cColor1)
//MyWin( aYX[1], aYX[2]+2, aYX[3]-1+LEN(aMassiv), aYX[4],.T.," ",cColor,cColor2,cColor2)
//LineHelp2Get()
@ aYX[1]+1+nYL, aYX[2]+4 SAY PADC(cStroka,aYX[4]-aYX[2]-4) COLOR(cColor2)
@ aYX[1]+3+nYL, aYX[2]+4 SAY " с " GET dTekDate1 PICTURE "99.99.99" COLOR(cColor3)
@ aYX[1]+3+nYL, aYX[2]+30 SAY " по " GET dTekDate2 PICTURE "99.99.99" COLOR(cColor3)
IF LEN(aMassiv) > 0
FOR nI:=1 TO LEN(aMassiv)
@ aYX[1]+4+nI+nYL, aYX[2]+10 SAY aMassiv[nI,1] GET aMassiv[nI,2] PICTURE aMassiv[nI,3] COLOR(cColor3)
NEXT
ENDIF

SET CURSOR ON
READ
SET CURSOR OFF
RESTSCREEN(,,,,cScr2)

IF LASTKEY() == K_ESC .OR. dTekDate1 > dTekDate2
Tone(900,.3) ;Tone(300,.5) ; Tone(900,.1)
ELSE
AADD(aRet,dTekDate1)
AADD(aRet,dTekDate2)
IF LEN(aMassiv) > 0
FOR nI:=1 TO LEN(aMassiv)
AADD(aRet, aMassiv[nI,2])
NEXT
ENDIF
ENDIF

SETCOLOR(cColor)
@ y,x say ""
RETURN aRet

Хотелось бы пока остаться на прежней версии компилятора !