*DECK FFSUISC 
USETEXT TEXTFFS                      # FS  SYSTEM DEFINITIONS         # 
FUNC FFSUISC (STRING, (WORD), (WDCHAR), (CHAR$SET)) B;
*CALL COPYRITE
# TITLE FFSUISC - IS SPECIAL CHARACTER.                               # 
  
      BEGIN  # FFSUISC #
  
# 
**    FFSUISC - IS SPECIAL CHARACTER. 
* 
*     'FFSUISC' DETERMINES WHETHER OR NOT A CHARACTER IS A SPECIAL 6/12 
*     ASCII CHARACTER.
* 
*     FUNC FFSUISC (STRING, WORD, WDCHAR, CHAR$SET) B 
* 
*     ENTRY (STRING)   = ARRAY CONTAINING THE STRING IN WHICH THE 
*                        CHARACTER TO BE TESTED LIES. 
*           (WORD)     = NUMBER OF THE WORD CONTAINING THE CHARACTER TO 
*                        BE TESTED (STARTING FROM ZERO).
*           (WDCHAR)   = RELATIVE CHARACTER POSITION WITHIN WORD IN 
*                        WHICH THE CHARACTER TO BE TESTED LIES (RANGE 
*                        IS FROM 0 TO 9). 
*           (CHAR$SET) = CHARACTER SET: STR$DIS FOR DISPLAY CODE, 
*                                       STR$612 FOR 6/12 ASCII. 
* 
*     EXIT  (FFSUISC)  = BOOLEAN IS TRUE IF THE CHARACTER IS A SPECIAL
*                        6/12 ASCII CHARACTER.
* 
*     DESCRIPTION.
* 
*     IF (THE CHARACTER SET IS 6/12 ASCII) AND
*        ((THE CHARACTER IS '@') OR 
*         (THE CHARACTER IS '^')) 
*     THEN
*       SET FFSUISC TO TRUE.
*     ELSE
*       SET FFSUISC TO FALSE. 
*     RETURN. 
# 
  
      ARRAY  STRING  [0:0]  S(1);   # ARRAY CONTAINING THE STRING IN  # 
        BEGIN                       # WHICH THE CHARACTER TO BE TESTED# 
        ITEM  STR     C(00,00,10);  # LIES.                           # 
        END 
  
      ITEM   WORD     I;            # NUMBER OF THE WORD CONTAINING THE 
                                      CHARACTER TO BE TESTED (STARTING
                                      FROM ZERO).                     # 
  
      ITEM   WDCHAR   I;            # RELATIVE CHARACTER POSITION 
                                      WITHIN WORD IN WHICH THE
                                      CHARACTER TO BE TESTED LIES 
                                      (RANGE IS FROM 0 TO 9).         # 
  
      ITEM   CHAR$SET I;            # CHARACTER SET:  
                                      STR$DIS FOR DISPLAY CODE
                                      STR$612 FOR 6/12 ASCII.         # 
                                                         CONTROL EJECT; 
# 
*     IF (THE CHARACTER SET IS 6/12 ASCII) AND
*        ((THE CHARACTER IS '@') OR 
*         (THE CHARACTER IS '^')) 
*     THEN
*       SET FFSUISC TO TRUE.
*     ELSE
*       SET FFSUISC TO FALSE. 
# 
  
      IF (CHAR$SET EQ STR$612) AND
         ((C<WDCHAR, 1> STR [WORD] EQ "@") OR 
          (C<WDCHAR, 1> STR [WORD] EQ "^")) 
      THEN
        BEGIN 
        FFSUISC = TRUE; 
        END  # IF # 
  
      ELSE
        BEGIN 
        FFSUISC = FALSE;
        END  # ELSE # 
  
# 
*     RETURN. 
# 
  
      RETURN; 
  
      END  # FFSUISC #
  
      TERM
