*DECK REPBLNK 
USETEXT COMCBEG 
FUNC REPBLNK ((WORD)) U;
# TITLE REPBLNK - REPLACE TRAILING BLANKS WITH BINARY ZEROS.  # 
  
      BEGIN  # REPBLNK #
  
# 
**    REPBLNK - REPLACE TRAILING BLANKS WITH BINARY ZEROS.
* 
*     REPBLNK TAKES A WORD OF DISPLAY CHARACTER DATA AND REPLACES 
*     TRAILING BLANKS WITH BINARY ZEROS.
* 
*     FUNC REPBLNK ((WORD)) U 
* 
* 
*     ENTRY      WORD - THE WORD WHICH CONTAINS THE CHARACTER DATA. 
* 
*     EXIT       REPBLNK = WORD WITH TRAILING BLANKS REPLACED BY
*                          BINARY ZEROS.
* 
*     PROCESS    STARTING FROM RIGHT OF WORD, REPLACE EACH BLANK
*                WITH A BINARY ZERO UNTIL A NON-BLANK CHARACTER IS
*                FOUND. 
# 
  
      ITEM WORD      I;              # INPUT WORD # 
  
      ITEM T1        I;              # TEMPORARY VARIABLE # 
      ITEM T2        I;              # TEMPORARY VARIABLE # 
      ITEM T3        I;              # TEMPORARY VARIABLE # 
      ITEM T4        I;              # TEMPORARY VARIABLE # 
                                               CONTROL EJECT; 
      T1 = 0; 
      T2 = 0; 
      T3 = WORD;
      T4 = 0; 
  
      ASLONGAS  T1 EQ 0  DO 
        BEGIN  # REPLACE TRAILING SPACES WITH BINARY ZEROS #
        REPBLNK = WORD - T4;
        T2 = T3 LAN O"77";
        T1 = T2 - " ";
        T4 = " " + T4 * O"100"; 
        T3 = T3 / O"100"; 
        END 
  
      END  # REPBLNK #
  
      TERM
