6.5. Замечания

Более простая для пользователя программа фактически сохранит существующую формулу для F0, если она существует, и восстановит ее, чтобы пользователь не потерял ранее сохраненные формулы после запуска программы. Для этого можно сделать следующее:

Код:

LOCAL oldfunc = ""; // тип данных - строка
IFERR
oldfunc := STRING(F0);
THEN
  oldfunc := "";
END;

Системное прерывание вследствие обнаружения ошибки нужно для учета вероятности, что ранее существующей формулы F0 нет. Мы восстанавливаем старую формулу пользователя F0 с помощью:

F0 := oldfunc;

К счастью, это работает даже в том случае, когда oldfunc - это пустая строка.