LOOP
         IF (IdentChar (r.ch))
         THEN id.name [i] := r.ch END 
         ELSE EXIT END;;
         DEC (i);
         IF (i >= 0)
         THEN  r.ReadPrev  END 
         ELSE EXIT END
       END
   END

LOOP
   IF WinEvent.GetModal (App.objEditWin) # Commands.Ok THEN EXIT END;
   IF App.obj.classId = -1 THEN App.objEditWin.Hide; Template.Show (App.obj.name); RETURN;
   ELSE Classes.CreateObject (App.objScrollWin, App.obj.classId, itm, po); EXIT END;
END; (* loop *)

   i := LEN (id.name);          (* текущий символ переменной *)
   (* r.ch                         предыдущий символ текста *)
   WHILE (i > 0) & IdentChar (r.ch) DO
      DEC (i);                  (* предыдущий символ переменной *)
      id.name [i] := r.ch;      (* присвоить предыдущему символу переменной предыдущий символ текста *)
      r.ReadPrev                (* символ перед предыдущим символом текста *)
   END;