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