SUBROUTINE PSTR (STR) 
      INTEGER STR(80), III, GCHAR   
      DO  13008 III = 1, 80 
      CHAR = GCHAR (STR, III)   
      IF (.NOT. (CHAR .NE. SLASH))GO TO 13010   
    
      IF (.NOT. (CHAR .EQ. SEMI))GO TO 13012
    
      CALL PUTC (EOL)   
      GO TO 13013   
13012 CONTINUE  
    
      CALL PUTC (CHAR)  
13013 CONTINUE  
    
13008 CONTINUE  
    
13010 CONTINUE  
    
      RETURN
      END