*DECK S$BFILL 
          PROC S$BFILL(LITERAL);
#**       S$BFILL - BLANK FILL A LITERAL                               #
#                                                                      #
#    CALLING SEQUENCE -                                                #
#           S$BFILL(LITERAL)                                           #
#                                                                      #
#    GIVEN -                                                           #
#         LITERAL - A PARAMETER WHICH MAY BE ZERO FILLED               #
#                   OR BLANK FILLED                                    #
#                                                                      #
#    DOES -                                                            #
#         FILLS IT WITH BLANKS                                         #
  
          BEGIN 
  
  
  
          ITEM I           I; 
          ITEM LITERAL     C(10); 
  
          CONTROL DISJOINT; 
          CONTROL INERT;
          CONTROL EJECT;
          FOR I = 0 STEP 1 UNTIL 9 DO 
              BEGIN 
              IF C<I,1>LITERAL EQ 0 THEN
                  C<I,1>LITERAL = " ";
              END 
  
          END 
          TERM
