Retro1.org codex

*DECK NDLZFIL 
      PROC NDLZFIL(WORD); 
      BEGIN                                                             4 
*IF,DEF,IMS 
# 
**    NDL$ZFL - ZERO FILL NAME. 
* 
*     D.K. ENDO    81/11/10 
* 
*     THIS PROCEDURE ZERO FILLS A BLANK FILLED NAME.
* 
*     PROC NDL$ZFL(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.
* 
# 
*ENDIF
      ITEM WORD C(10);       # WORD TO BE ZERO FILLED                  #
      DEF BLNK # O"55" #;    # DISPLAY CODE FOR BLANK                  #
      ITEM I;                # SCRATCH ITEM                            #
#                                                                      #
#                            NDLZFIL CODE BEGINS HERE                  #
#                                                                      #
      FOR I=0 STEP 1 UNTIL 9 DO 
        IF C<I,1>WORD EQ BLNK 
        THEN                                                            9 
          C<I,1>WORD=O"00";                                             0 
      RETURN;                                                           1 
      END  # NDLZFIL #
      TERM;                                                             3