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