*-------------------------- 
    * Numeric to Binary - mzTolo 200104 
    * sanple : =ntob(5) 
    * return value binary (101) 
    FUNCTION NTOB 
    LPARAMETERS AngkaDecimal 
    LOCAL nAngka,Akandibagi,nHasil,cHasil 

    nAngka		=AngkaDecimal 
    Akandibagi	=0 
    cHasil		='' 

    DO WHILE Akandibagi#1 
    	nHasil	=MOD(nAngka,2) 
    	cHasil	=STR(nHasil,1)+cHasil 
    	Akandibagi	=((nAngka-MOD(nAngka,2))/2)	 
    	nAngka	=Akandibagi 
    	IF Akandibagi=1 
    		cHasil='1'+cHasil 
    	ENDIF  
    ENDDO 
    RETURN VAL(cHasil)