Click above to get retro games delivered to your door ever month!

 FRAC                  Return Fractional Part of Number               pp 140

 Syntax:  Frac (NumVar) ;

 Type:    Real

 Form:    Function

 Purpose: Return fractional part of integer or real number as type Real.

 ----------------------------------------------------------------------------


 Usage:
       VAR
          NumVar : Real           ;
          Result : Real           ;

       BEGIN
          Result := Frac (NumVar) ;
       END.