// На ленте записан текст, в котором   
// все вхождения некоторого символа    
// нужно заменить другим символом.     
// В начальный момент среда имеет вид: 
// | | | | |t|z|_|Т|Е|К|С|Т| | | | | | 
// В окошко Корректора виден символ t, 
// подлежащий замене, z - символ,      
// на который надо менять символ t.    
                                       
ЭТО Замена                             
  // Подготовка                        
  ЯЩИК+ ПОВТОРИ 3 ВПРАВО               
  ПОКА НЕ ПУСТО                        
  {                                    
    ЕСЛИ Я=Л ТО Заменить_t_на_z        
    ВПРАВО                             
  }                                    
КОНЕЦ                                  
                                       
ЭТО Заменить_t_на_z                    
  Взять_образец_z                      
  // На ленту запишем z,               
  // а в ящик поместим t               
  ОБМЕН                                
КОНЕЦ                                  
                                       
ЭТО Взять_образец_z                    
  ВЛЕВО                                
  ЕСЛИ НЕ ПУСТО                        
    ТО Взять_образец_z                 
    ИНАЧЕ                              
    {                                  
      ВЛЕВО                            
      ЯЩИК+                            
      ВПРАВО                           
    }                                  
  ВПРАВО // Отложенная команда.        
         // Она возвращает окно        
         // на текущее место в тексте. 
КОНЕЦ                                  
