*DECK FFSUCDC 
      PROC FFSUCDC(SOURCE,SIND,DEST,DIND);
*CALL COPYRITE
# TITLE FFSUCDC - COPY A DISPLAY CODE CHARACTER                        #
  
      BEGIN                            # FFS2CDC                       #
# 
**    FFSUCDC - COPY A DISPLAY-CODE CHARACTER 
* 
*     TET TRAN                         88/02
* 
*     THIS PROCEDURE COPY A DISPLAY CODE CHARACTER. 
* 
*     THIS EMBEDDED PROCEDURE COPIES AN DISPLAY CODE CHARACTER. 
* 
*     ENTRY   SOURCE = ARRAY CONNTAINING SOURCE DISPLAY CODE CHARS
*             SIND   = CHARACTER INDEX, RALATIVE TO 0, OF CHARACTER 
*             DEST   = ARRAY TO CONTAIN DESTINATION DIS CODE CHARACTER
*             DIND   = CHARACTER INDEX, RELATIVE TO 0, OF DESTINATION 
*                      DISPLAY CODE CHARACTER 
* 
*     EXIT    SOURCE = UNCHANGED
*             SIND   = UNCHANGED
*             DEST   = THE ARRAY WITH AN NEW CHARACTER ADDED AT THE 
*                      DESIRED LOCATION.
*             DIND   = UNCHANGED
# 
  
      ARRAY SOURCE [00:00] S(1);        # DISPLAY CODE SOURCE ARRAY    #
        BEGIN 
        ITEM S$WD       U(00,00,60);
        END 
  
      ARRAY DEST [00:00] S(1);          # DESTINATION DISPL CODE ARRAY #
        BEGIN 
        ITEM D$WD       U(00,00,60);
        END 
  
      ITEM SIND     I;
      ITEM DIND     I;
  
      ITEM S$WD$INDX    I;
      ITEM S$CHR$INDX   I;
      ITEM D$WD$INDX    I;
      ITEM D$CHR$INDX   I;
  
      S$WD$INDX  = SIND / 10; 
      S$CHR$INDX = SIND - S$WD$INDX*10; 
      D$WD$INDX  = DIND / 10; 
      D$CHR$INDX = DIND - D$WD$INDX*10; 
  
      C<D$CHR$INDX,1>D$WD[D$WD$INDX] = C<S$CHR$INDX,1>S$WD[S$WD$INDX];
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFS2CDC                       #
  
      TERM
