*DECK FFSUMOD 
      FUNC FFSUMOD (NUM, MOD) I;
*CALL COPYRITE
# TITLE FFSUMOD - UTILITY TO PERFORM THE MODULUS FUNCTION.             #
  
      BEGIN                            # FFSUMOD                       #
# 
**    FFSUMOD  UTILITY TO PERFORM THE MODULUS FUNCTION. 
* 
*     C. J. RAMSAY                     84/03/13 
* 
*     THIS FUNCTION PERFORMS THE MODULUS FUNCTION.
* 
*     FUNC FFSUMOD (NUM, MOD) 
* 
*     ENTRY    NUM = NUMBER TO FIND MODULUS OF. 
*              MOD = MODULO BASE. 
* 
*     EXIT     FFSUMOD = MODULUS RESULT.
* 
# 
  
  
      ITEM NUM           I;            # NUMBER TO FIND MODULUS OF     #
      ITEM MOD           I;            # MODULO BASE                   #
      CONTROL EJECT;
  
#     START MAIN PROCEDURE                                             #
  
  
      FFSUMOD = NUM - ((NUM / MOD) * MOD);
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSUMOD                       #
  
      TERM
