000113          PERFORM VARYING i FROM 1 BY 1 UNTIL i = 80 
000114             IF rec_desc(i:1) = `<` 
000115                IF z + 4 < 80 
000116                   MOVE `&lt;` TO temp_str(z:4) 
000117                   ADD 4 TO z 
000118                ELSE 
000119                   MOVE ` ` TO temp_str(z:1) 
000120                   ADD 1 TO z 
000121                END-IF