*DECK DF$RTB
USETEXT COMCBEG 
PROC DF$RTB(STRING);
# TITLE  DF$RTB - REMOVE TRAILING BLANKS.  #
  
      BEGIN    # DF$RTB # 
# 
**    PROC      DF$RTB
* 
*     ENTRY     STRING = CHARACTER STRING FROM WHICH TRAILING 
*                        BLANKS WILL BE REMOVED.
* 
*     EXIT      TRAILING BLANKS REMOVED.
* 
*     PROCESS   FOR EACH CHARCTER IN STRING 
*                 IF CHARACTER EQUALS BLANK 
*                   REPLACE BLANK WITH ZERO.
* 
*               RETURN. 
* 
# 
  
  
      ITEM      STRING      C(7); 
      ITEM      I              I; 
  
      CONTROL EJECT;
      FOR I = 6 STEP -1 
      WHILE(I GQ 0 AND C<I,1>STRING EQ " ") 
      DO
        BEGIN 
        B<I*6,6>STRING = 0; 
        END 
  
      RETURN; 
  
      END    # DF$RTB # 
      TERM
