FUNCTION BUCHST(zahl)
*buchst: zahl in buchstaben umwandeln
code="***"
erst=1
anz=len(zahl)
do while .t.
   if erst>anz
      exit
   endif
   nr=substr(zahl,erst,1)
if nr>="0".and.nr<="9"
   do case
      case nr="1"
           wort="eins-"
      case nr="2"
           wort="zwei-"
      case nr="3"
           wort="drei-"
      case nr="4"
           wort="vier-"
      case nr="5"
           wort="f�nf-"
      case nr="6"
           wort="sechs-"
      case nr="7"
           wort="sieben-"
      case nr="8"
           wort="acht-"
      case nr="9"
           wort="neun-"
      case nr="0"
           wort="null-"
   endcase
code=trim(code)+wort
endif
erst=erst+1
enddo
anz=len(code)-1
code=substr(code,1,anz)+"***"
RETURN code