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