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

ЭТО Перенести_символ                   
  ВПРАВО                               
  ЕСЛИ ПУСТО                           
    ТО    ЯЩИК-                        
    ИНАЧЕ Перенести_символ             
                                       
  ВЛЕВО // Отложенная команда.         
        // Она выполнится столько раз, 
        // сколько выполнялась         
        // команда ВПРАВО.             
КОНЕЦ                                  
                                       
ЭТО Удалить_флаг
  ПОКА НЕ ПУСТО
  {
    ВПРАВО ЯЩИК+ ВЛЕВО ЯЩИК-
    ВПРАВО
  }
КОНЕЦ
