демо с IF THEN ELSE ELSIF END
убрал сохранение констант INF TRUE FALSE