FoxPro/Visual FoxPro - decimal a bianario

Hola:

Necesito ayuda con el codigo para pasar de decimal a binario un numero en visual fox pro.
apenas estoy entrando en el mundo de la programacion y no he podido con este problema,
agradeceria su ayuda.

Hasta pronto.

Prueba esto
valor_decimal = 2 &&Cualquier valor aqui
Store [] To JCRetVal
Do While valor_decimal > 0
Store Str(Mod(valor_decimal, 2), 1) + JCRetVal To JCRetVal
Store Int(valor_decimal / 2) To valor_decimal
EndDo
? JCRetVal