PROCEDURE Comment;   (* do not read after end of file *)
      BEGIN DevCPM.Get(ch);
         LOOP
            LOOP
               WHILE ch = "(" DO DevCPM.Get(ch);
                  IF ch = "*" THEN Comment END
               END ;
               IF ch = "*" THEN DevCPM.Get(ch); EXIT END ;
               IF ch = DevCPM.Eot THEN EXIT END ;
               DevCPM.Get(ch)
            END ;
            IF ch = ")" THEN DevCPM.Get(ch); EXIT END ;
            IF ch = DevCPM.Eot THEN err(5); EXIT END
         END
      END Comment;

ПРОЦЕДУРА пропустить_комментарий (ЧЗ с: Сканер);
   ПЕРЕМЕННЫЕ вложенность: ЦЕЛОЕ32;
НАЧАЛО
   СТРАХОВКА(с.литера = литеры.звёздочка);
   вложенность := 1;
   считать_литеру(с);
   ПОВТОРЯТЬ
      ПОКА (с.литера # литеры.конец_текста) И (с.литера # литеры.звёздочка) И (с.литера # литеры.левая_круглая_скобка) ДЕЛАТЬ
         считать_литеру(с)
      КОНЕЦ;
      ЕСЛИ с.литера = литеры.звёздочка ТОГДА
         считать_литеру(с);
         ЕСЛИ с.литера = литеры.правая_круглая_скобка ТОГДА
            УМЕНЬШИТЬ(вложенность); считать_литеру(с)
         КОНЕЦ
      АЕСЛИ с.литера = литеры.левая_круглая_скобка ТОГДА
         считать_литеру(с);
         ЕСЛИ с.литера = литеры.звёздочка ТОГДА
            УВЕЛИЧИТЬ(вложенность); считать_литеру(с)
         КОНЕЦ
      КОНЕЦ;
   ПРЕКРАТИТЬ (вложенность = 0) ИЛИ (с.литера = литеры.конец_текста);
   ЕСЛИ вложенность > 0 ТОГДА
      ошибка("незавершёный комментарий")
   КОНЕЦ      
КОНЕЦ пропустить_комментарий;

      PROCEDURE Comment;
         VAR level: INTEGER;
      BEGIN DevCPM.Get(ch); level := 1;
         REPEAT
            WHILE (ch # DevCPM.Eot) & (ch # "*") & (ch # "(") DO DevCPM.Get(ch) END;
            IF ch = "*" THEN
               DevCPM.Get(ch);
               IF ch = ")" THEN DEC(level); DevCPM.Get(ch) END
            ELSIF ch = "(" THEN
               DevCPM.Get(ch);
               IF ch = "*" THEN INC(level); DevCPM.Get(ch) END
            END
         UNTIL (level = 0) OR (ch = DevCPM.Eot);
         IF level > 0 THEN err(5) END
      END Comment;

      private string ParseDestination (string sParse)
      {
         bool bFirstEnterence = true;
         string sReturnText = String.Empty;
         string sCutText = String.Empty;

         for (int i = 0; i < sParse.Length; i++)
         {
            sCutText = sParse.Substring(i, 1);
            if (!new Regex("^[0-9]+$").IsMatch(sCutText) && bFirstEnterence)
            {
               continue;
            }
            else
            {
               bFirstEnterence = false;
               if (new Regex("^[0-9]+$").IsMatch(sCutText))
                  sReturnText += sCutText;
               else break;
            }
         }

         return sReturnText;
      }

      private string ParseDestination (string s)
      {
         string result = string.Empty;
         if (!string.IsNullOrEmpty(s))
         {
            int n = s.Length;
            int i = 0;
            while ((i < n) && !IsDigit(s[i])) { i++; }
            if (i < n)
            {
               int start = i;
               while ((i < n) && IsDigit(s[i])) { i++; }
               int count = i - start;
               result = s.Substring(start, count);
            }
         }
         return result;
      }

      private static bool IsDigit (char c)
      {
         return ('0' <= c) && (c <= '9');
      }