*DECK FFSULWC 
USETEXT TEXTFFS                      # FS  SYSTEM DEFINITIONS         # 
PROC FFSULWC ((POS), WORD, WDCHAR, REMAIN); 
*CALL COPYRITE
# TITLE FFSULWC - LOCATE WORD AND CHARACTER POSITIONS.                # 
  
      BEGIN  # FFSULWC #
  
# 
**    FFSULWC - LOCATE WORD AND CHARACTER POSITIONS.
* 
*     'FFSULWC' LOCATES THE WORD AND CHARACTER POSITION IN THE WORD 
*     BASED ON THE ACTUAL CHARACTER POSITION IN A STRING. 
* 
*     PROC FFSULWC (POS, WORD, WDCHAR, REMAIN)
* 
*     ENTRY (POS)    = ACTUAL CHARACTER POSITION IN A STRING (STARTING
*                      FROM ZERO).
* 
*     EXIT  (WORD)   = NUMBER OF THE WORD IN WHICH POS LIES.
*                      (STARTING FROM ZERO) 
*           (WDCHAR) = RELATIVE CHARACTER POSITION WITHIN WORD IN WHICH 
*                      POS LIES (RANGE IS FROM 0 TO 9)
*           (REMAIN) = NUMBER OF CHARACTERS IN WORD FROM WDCHAR TO THE
*                      END OF THE WORD. (RANGE IS FROM 1 TO 10) 
* 
*     DESCRIPTION.
* 
*     CALCULATE THE NUMBER OF THE WORD IN WHICH POS LIES. 
*     CALCULATE THE RELATIVE CHARACTER POSITION WITHIN WORD IN WHICH
*       POS LIES. 
*     CALCULATE THE NUMBER OF CHARACTERS IN WORD FROM WDCHAR TO THE 
*       END OF THE WORD.
*     RETURN. 
# 
  
      ITEM  POS     I;  # ACTUAL CHARACTER POSITION IN A STRING 
                          (STARTING FROM ZERO).                       # 
      ITEM  WORD    I;  # NUMBER OF THE WORD IN WHICH POS LIES. 
                          (STARTING FROM ZERO).                       # 
      ITEM  WDCHAR  I;  # RELATIVE CHARACTER POSITION WITHIN WORD IN
                          WHICH POS LIES (RANGE IS FROM 0 TO 9).      # 
      ITEM  REMAIN  I;  # NUMBER OF CHARACTERS IN WORD FROM WDCHAR TO 
                          THE END OF THE WORD. (RANGE IS FROM 1 TO 10)# 
  
                                                       CONTROL FTNCALL; 
  
      XREF
        BEGIN 
        FUNC MOD I;     # FORTRAN MODULUS FUNCTION                    # 
        END 
                                                         CONTROL EJECT; 
# 
*     CALCULATE THE NUMBER OF THE WORD IN WHICH POS LIES. 
# 
  
      WORD = POS / 10;
  
# 
*     CALCULATE THE RELATIVE CHARACTER POSITION WITHIN WORD IN WHICH
*       POS LIES. 
# 
  
      WDCHAR = MOD (POS, 10); 
  
# 
*     CALCULATE THE NUMBER OF CHARACTERS IN WORD FROM WDCHAR TO THE 
*       END OF THE WORD.
# 
  
      REMAIN = 10 - WDCHAR; 
  
# 
*     RETURN. 
# 
  
      RETURN; 
  
      END  # FFSULWC #
  
      TERM
