Lord_BSS project:
ПМК-прг: Видеосалон
Ретро-программы для ретро-ЭВМ: самые первые игры!
  Новости
  Анонс
  Карта сайта

Проекты:

Тематические
  =Ад=
  =Морг=
  =Армия=
  =Погост=
  =Пещера=
  =Балныц=
  =Сеновал=
  =Bar Wars=
  =Ночлежка=
  =Монастырь=
  =Новая сказка=
  =Мать героина=
  =Голубой вагон=
  =Убой на местах=
  =Хижина д. Васи=

Полутематическиe
  =Казино=
  =Бардак=

ПоКлёпы
   Real-раздел
  Кукулер
  Зарница
  Реклама BenQ
   Lit-раздел
  Притчи
  Алфавит
  Анти-Гарри Поттер

ПоЖизненные
   Maf-раздел
  Первые маф-шаги
  Первый темат
  Первая своя игра
  Маф-слэнг
  More al-$
  Румафия
  Ранние тематы
  Правила маф-чата
  Мемуары
  Маф-непонятки
   Real-раздел
  Наглядки
  Эх, Общага!
  Whois Lord_BSS

ПоПутные
  ПоСcылки
  mp3: ППЗ
  ПМК программы
     · ПМК: история
     · ПМК: помощь
     · Видеосалон

СвязЬное звено
  LiveJournal
  Мыло

Видеосалон — С. Бекетов


[игровая программа для МК-52, МК-61]
#|00010203040506070809
00|СххП6хП7хПА3хП0КПх6ПхВПх6K[х]
10|ВПС/ПFx≠o46хП1ПхДх2÷ПхЕ
20|Fx≥o07хПЕПхСF10xK{x}хПСПхД
30|хK[х]хП3ПхА+хПАПх3Пх1ххП1
40|Пх7+хП7Пх1Пх3С/ПFL006Пх4хП3
50|ПхС2F1/xKx<oBПхАKx≠oBПх3С/ППхА
60|Fx≥o57FBxПх9хПх7+хП7
70|Пх7ПхЕ+хПЕКПх3ПхЕПх3С/ПхП1Пх5
80|÷K{x}Kx=o8ПхЕПх1Kx≥o8хПЕКПх3Пх1
90|Пх2÷ПхД+хПДПхЕПх3С/ППхЕПхД
A0|5÷хПЕF√     
Регистры:
10 хП2; 1 K– ВП хП4; 100 хП5; 75 хП8; 0.1 хП9; число от 0 до 1 хПС; 70 хПВ; 100 (кол-во мест в зале) хПД; 400 (начальный капитал) хПЕ.

Вы арендуете помещение, в котором открыли видеосалон. Арендная плата - по 20 коп. с места каждый день. Так получилось, что Вы не можете провести больше трёх сеансов в день. Перед каждым сеансом у Вас есть выбор из трёх фильмов (в скобках - код фильма):
комедия (1), боевик (2), ужас (3). Цены этих фильмов 50 р., 100 р.,
150 р. соответственно. Цены билетов также различны, зависят от цены фильма и количества мест в зале.

Побочный доход - продажа мороженого. За каждую проданную порцию Вы получаете 10 коп. прибыли. Но мороженое подвозят нерегулярно. Если у Вас достаточно денег, Вы можете потратить их на расширение зала (цена 10 мест - 100 р.), но тогда увеличатся и цены фильмов. (Чтобы подсчитать цену фильма можно воспользоваться формулой: M В↑ K x 2 ÷, где M - кол-во мест в зале, K - код фильма.)

Начало: В/О С/П.

RX="H000000H", где H - номер сеанса. RY="деньги". Ввести код фильма (1-3) или 0, если сеанс не проводится, С/П.

RX="кол-во посетителей". RY="Ваш доход". Нажимаем С/П.

RX="Е" - подвезли мороженое. Ввести кол-во продаваемых порций, С/П (если ввели больше, чем у Вас посетителей - в RX снова "Е", повторите ввод).

RX="Г" - расширение зала. RY="деньги". Ввести деньги на расширение зала (это число должно быть кратно 100, т.к. расширять зал можно только блоками по 10 мест) или 0, если размеры зала Вас удовлетворяют, С/П.

RX="С" - арендная плата. RY="деньги". Нажимаем С/П.
Если RX="ЕГГОГ" - Вы банкрот, у Вас нет денег на оплату помещения.


Про прг и автора.
* Программа написана предположительно в 1989-м году.
* Была опубликована в "Экспрессе" N3 за 1991 год.
* В то время автор жил в г. Саратов.

Вернуться на главную страницу ПМК-проекта к ПОЛНОМУ списку прг-м ВСЕХ авторов.
Если у Вас возникли какие-либо проблемы с вводом прг - прочтите краткую справку.
Линки на эмуляторы ПМК и другие ретро-ресурсы можно взять здесь.

MAFIA's Top100 Яндекс.Метрика Top.Mail.Ru