CLEAR lnVal = INT(VAL(SYS(2007, "whatever"))) lcLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" lcCharList = lcLetters + LOWER(lcLetters) lnBase = LEN(lcCharList) lcVal = "" DO WHILE lnVal > 0 lnRest = lnVal % lnBase lnVal = INT( lnVal / lnBase) lcVal = SUBSTR(lcCharList, lnRest,1) + lcVal ENDDO ? lcVal>