Кооперативное кафе 2

Экономический симулятор.

Предыстория

На самом деле это немного модифицированная версия программы Кооперативное кафе. Поэтому все подробности задач и плана игры смотрите там. Здесь приведены только отличия и сама программа.

Отличия

Скидки при покупке продуктов. В исходной версии скидки были тем больше, чем меньше сумма покупки. Это не очень похоже на реальность. Поэтому в этой версии скидки увеличиваются (в %), при увеличении суммы закупки.
Реклама. В исходной версии отдача от рекламы влияла на количество посетителей очень нелинейно. Бывало разница между частью копейки (!) и нулём была просто огромной. Конечно, это придаёт игре взрывной характер, и, возможно, и привлекает, но тяжело что-то считать рекламой за 0.001 рубля. В этой версии зависимость сделана почти линейная – сколько потратили, столько и привлекли. Соответственно, состояние переключателя Р-ГРД-Г уже не влияет на работу программы.
Округление суммы. Сумма округляется до копеек. В том числе фактическая цена за одну порцию.
Целое число клиентов. Клиенты тоже округляются до целых. Как число постоянных, так и количество необслуженных (или пустых мест).

Программа всё так же совместима с ПМК БЗ-34. Поэтому регистр R0 не используется. Но R6 уже задействован, куда перекочевала константа E. .

Далее приведены только отличия от исходного варианта. Остальное как в оригинале.

Распределение регистров

Регистр	Значение
R6	Буква E. Получается как 1, К−, ВП, x→П7.
R7	89. . Адрес процедуры округления. А также коэффициент для расчёта скидки: S × Ln(S) / R7.
R9	Адрес начала дня программы. Смысл как в оригинале, но значение поменялось. -75. . Минус используется, чтобы после косвенной адресации число было 8-значным. Это используется для округления до целых.
Re	Адрес процедуры ввода суммы. 777777. . Значение 6-значное (для перехода важны только две последние цифры). Шестизначность используется для округления до копеек.

Текст программы

# \|	00	01	02	03	04	05	06	07	08	09
00 \|	КБП9	x→П2	FLn	П→x7	÷	×	+	КПП7	Кx→П1	КППe
10 \|	КП→x1	+	П→xb	−	П→xb	−	П→x5	×	Fx<0	21
20 \|	Cx	x→П4	КППe	+	x→Пb	П→x2	П→x3	÷	П→xa	+
30 \|	x→Пa	КП→x1	x→Пc	−	Fx≥0	29	Fπ	÷	x→Пa	П→x4
40 \|	П→xb	П→x2	+	П→xc	÷	КПП7	x→П4	÷	П→x9	ПП
50 \|	90	В↑	П→xc	П→x9	ПП	90	−	x→Пb	Fx<0	65
60 \|	/-/	3	÷	x→Пa	Cx	−	x→Пc	П→x4	×	П→xd
70 \|	+	П→x8	×	КПП7	x→Пd	П→x6	x→П1	П→xd	П→x1	С/П
80 \|	КПП7	Кx≥0e	П→xd	<->	−	Кx≥0e	x→Пd	FВx	В↑	П→xe
90 \|	+	FВx	−	В/О