* Change to English Big Wording
 * If have any enhancement, tell me, I still think so long!
 * Since English Word group 3 digit as a group....
 * Usage: NumNeed ==> MyEngNeed
 *
 * NumThousandPart = (NumNeed / 1000)
 * NumDigit        = (NumNeed % 1000)
 * if Empty(NumThousandPart)
 *    MyEngNeed    = MakeEngWord(NumDigit)
 * else
 *    MyEngNeed    = MakeEngWord(NumThousandPart) + ;
 *                   " Thousand and " + ;
 *                   MakeEngWord(NumDigit)
 * endif
 *

 
 * MakeEngWord(InValue)
 * RETURN ENGLISH WORD FROM 1 TO 999
 
 LPARAMETERS INVALUE
 LOCAL REVALUE, TVAL
 
 REVALUE = ""
 DO CASE
        CASE INT(INVALUE/100) =  1
                REVALUE = REVALUE + "ONE"
        CASE INT(INVALUE/100) =  2
                REVALUE = REVALUE + "TWO"
        CASE INT(INVALUE/100) =  3
                REVALUE = REVALUE + "THREE"
        CASE INT(INVALUE/100) =  4
                REVALUE = REVALUE + "FOUR"
        CASE INT(INVALUE/100) =  5
                REVALUE = REVALUE + "FIVE"
        CASE INT(INVALUE/100) =  6
                REVALUE = REVALUE + "SIX"
        CASE INT(INVALUE/100) =  7
                REVALUE = REVALUE + "SEVEN"
        CASE INT(INVALUE/100) =  8
                REVALUE = REVALUE + "EIGHT"
        CASE INT(INVALUE/100) =  9
                REVALUE = REVALUE + "NINE"
 ENDCASE
 IF INT(INVALUE/100) > 0
        REVALUE = REVALUE + " HUNDRED "
 ENDIF
 
 INVALUE = INVALUE % 100
 
 DO CASE
        CASE INVALUE= 10
                REVALUE = REVALUE + "TEN"
        CASE INVALUE= 11
                REVALUE = REVALUE + "ELEVEN"
        CASE INVALUE= 12
                REVALUE = REVALUE + "TWEVLE"
        CASE INVALUE= 13
                REVALUE = REVALUE + "THIRTEEN"
        CASE INVALUE= 14
                REVALUE = REVALUE + "FOURTEEN"
        CASE INVALUE= 15
                REVALUE = REVALUE + "FIFTEEN"
        CASE INVALUE= 16
                REVALUE = REVALUE + "SIXTEEN"
        CASE INVALUE= 17
                REVALUE = REVALUE + "SEVENTEEN"
        CASE INVALUE= 18
                REVALUE = REVALUE + "EIGHTEEN"
        CASE INVALUE= 19
                REVALUE = REVALUE + "NINETEEN"
 
        CASE INVALUE= 20
                REVALUE = REVALUE + "TWENTY"
        CASE INVALUE> 20 AND INVALUE< 30
                REVALUE = REVALUE + "TWENTY-"
 
        CASE INVALUE= 30
                REVALUE = REVALUE + "THIRTY"
        CASE INVALUE>= 30 AND INVALUE< 40
                REVALUE = REVALUE + "THIRTY-"
 
        CASE INVALUE= 40
                REVALUE = REVALUE + "FORTY"
        CASE INVALUE> 40 AND INVALUE< 50
                REVALUE = REVALUE + "FORTY-"
 
        CASE INVALUE= 50
                REVALUE = REVALUE + "FIFTY"
        CASE INVALUE> 50 AND INVALUE< 60
                REVALUE = REVALUE + "FIFTY-"
 
        CASE INVALUE= 60
                REVALUE = REVALUE + "SIXTY"
        CASE INVALUE> 60 AND INVALUE< 70
                REVALUE = REVALUE + "SIXTY-"
 
        CASE INVALUE= 70
                REVALUE = REVALUE + "SEVENTY"
        CASE INVALUE> 70 AND INVALUE< 80
                REVALUE = REVALUE + "SEVENTY-"
 
        CASE INVALUE= 80
                REVALUE = REVALUE + "EIGHTY"
        CASE INVALUE> 80 AND INVALUE< 90
                REVALUE = REVALUE + "EIGHTY-"
 
        CASE INVALUE= 90
                REVALUE = REVALUE + "NINETY"
        CASE INVALUE> 90 AND INVALUE< 100
                REVALUE = REVALUE + "NINETY-"
 ENDCASE
 
 IF (INVALUE % 10 <> 0) AND ((INVALUE <10) OR (INVALUE> 20))
 
 DO CASE
        CASE INVALUE%10 =  1
                REVALUE = REVALUE + "ONE"
        CASE INVALUE%10 =  2
                REVALUE = REVALUE + "TWO"
        CASE INVALUE%10 =  3
                REVALUE = REVALUE + "THREE"
        CASE INVALUE%10 =  4
                REVALUE = REVALUE + "FOUR"
        CASE INVALUE%10 =  5
                REVALUE = REVALUE + "FIVE"
        CASE INVALUE%10 =  6
                REVALUE = REVALUE + "SIX"
        CASE INVALUE%10 =  7
                REVALUE = REVALUE + "SEVEN"
        CASE INVALUE%10 =  8
                REVALUE = REVALUE + "EIGHT"
        CASE INVALUE%10 =  9
                REVALUE = REVALUE + "NINE"
 ENDCASE
 
 ENDIF
 
 RETURN REVALUE