Numero decimal a binario

Funci贸n que acepta un numero decimal y retorna el correspondiente numero binario.

				PARAMETERS XNUM

XBIN = ""

DO WHILE XNUM > 0

	XRES = MOD(XNUM,2)

	XBIN = STR(XRES,1,0) + XBIN

	XNUM = INT(XNUM/2)

ENDDO

RETURN XBIN