Retro1.org codex

*DECK     NVFUZFW 
      PROC NVFUZFW(WORD); 
      BEGIN 
# 
**    NVFUZFW - ZERO FILL NAME. 
* 
*     D.K. ENDO    81/11/10 
* 
*     THIS PROCEDURE ZERO FILLS A BLANK FILLED NAME.
* 
*     PROC NVFUZFW(WORD)
* 
*     ENTRY        WORD = BLANK FILLED NAME.
* 
*     EXIT         WORD = ZERO FILLED NAME. 
* 
*     METHOD
* 
*     FOR EACH CHARACTER IN WORD, 
*       IF CHARACTER IS A BLANK,
*         REPLACE BLANK WITH ZERO.
* 
# 
      ITEM WORD C(10);       # WORD TO BE ZERO FILLED                  #
      DEF BLNK # O"55" #;    # DISPLAY CODE FOR BLANK                  #
      ITEM I;                # SCRATCH ITEM                            #
#                                                                      #
#                            NVFUZFW CODE BEGINS HERE                  #
#                                                                      #
      FOR I=0 STEP 1 UNTIL 9 DO 
        IF C<I,1>WORD EQ BLNK 
        THEN
          C<I,1>WORD=O"00"; 
      RETURN; 
      END  # NVFUZFW #
      TERM;