Программы на BASIC

[form]

Была интересная игрушка на Бейсике для РК-86, называлась "Орегонская тропа".

У меня есть какая-то, правда не на басице
Для 86РК если она была в журнале "радио" - можно поискать - они у меня почти все есть еще со времен когда он собственно и не "радио" был.

>RUN DU3:[40,40]WAY
   ****** ОРЕГОНСКАЯ ТРОПА ******   






ВАМ НУЖНЫ ПРАВИЛА ? (1- ДА,0- НЕТ)        ? 1


ЭТА ПРОГРАММА ИМИТИРУЕТ ПУТЕШЕСТВИЕ ПО ОРЕГОНСКОЙ ТРОПЕ
ИЗ ШТАТА МИССУРИ В ОРЕГОН В 1847 ГОДУ
ВЫ ДОЛЖНЫ ПРЕОДОЛЕТЬ 2040 МИЛЬ
ЗА 5-6 МЕСЯЦЕВ - ЕСЛИ ОСТАНЕТЕСЬ В ЖИВЫХ

У ВАС ЕСТЬ 900 ДОЛЛАРОВ, И ВЫ ТОЛЬКО ЧТО
ЗАПЛАТИЛИ ЗА ФУРГОН 200 ДОЛ.
ВАМ НУЖНО ПОТРАТИТЬ ОСТАЛЬНЫЕ ДЕНЬГИ
НА СЛЕДУЮЩИЕ ВЕЩИ:

БЫКИ- ВЫ МОЖЕТЕ ПОТРАТИТЬ НА НИХ 200-300 Д.
ЧЕМ БОЛЬШЕ ВЫ ЗАПЛАТИТЕ, ТЕМ БЫСТРЕЕ ВЫ БУДЕТЕ
НА НИХ ЕХАТЬ
ЕДА- ЧЕМ БОЛЬШЕ У ВАС ЕЕ БУДЕТ, ТЕМ МЕНЬШЕ
ВЕРОЯТНОСТЬ ЗАБОЛЕТЬ

ОРУЖИЕ- ЗА 1 ДОЛ. МОЖНО КУПИТЬ 50 ПАТРОНОВ
ОНИ ПОНАДОБЯТСЯ ПРИ НАПАДЕНИЯХ ДИКИХ
ЖИВОТНЫХ И БАНДИТОВ, А ТАКЖЕ ДЛЯ ОХОТЫ
ОДЕЖДА- ЭТО ОСОБЕННО ВАЖНО В ХОЛОДНУЮ
ПОГОДУ, КОГДА ВЫ БУДЕТЕ ПРЕОДОЛЕВАТЬ ГОРЫ
РАЗНЫЕ ПРИПАСЫ- ЛЕКАРСТВА И ПРОЧИЕ ВЕЩИ
НЕОБХОДИМЫЕ ПРИ БОЛЕЗНИ И НЕПРЕДВИДЕННЫХ СЛУЧАЯХ


ВЫ МОЖЕТЕ ПОТРАТИТЬ ВСЕ ДЕНЬГИ ДО НАЧАЛА
ПУТЕШЕСТВИЯ, ИЛИ ЖЕ ОСТАВИТЬ ЧАСТЬ В КАССЕ
НА ПУТЕВЫЕ РАСХОДЫ ПРИ ОСТАНОВКАХ В СЕЛЕНИЯХ
ОДНАКО, ТАМ ВСЕ СТОИТ ДОРОЖЕ. МОЖНО ТАКЖЕ
ДОБЫВАТЬ ЕДУ ПУТЕМ ОХОТЫ
КОГДА В ПУТИ ВАМ ПРИДЕТСЯ ПРИМЕНЯТЬ ОРУЖИЕ,
ВЫ ДОЛЖНЫ БУДЕТЕ НАПЕЧАТАТЬ КОРОТКОЕ СЛОВО.
ЧЕМ БЫСТРЕЕ ЕГО НАПЕЧАТАЕТЕ
ТЕМ ЛУЧШЕ БУДЕТ РЕЗУЛЬТАТ ВЫСТРЕЛА

ВСЕ РЕСУРСЫ ПЕЧАТАЮТСЯ В ДОЛЛАРАХ
КРОМЕ ПАТРОНОВ

ЖЕЛАЕМ УСПЕХА



НАСКОЛЬКО ХОРОШО ВЫ СТРЕЛЯЕТЕ
(1) ОТЛИЧНО, (2) ХОРОШО, (3) БОЛЕЕ МЕНЕЕ
(4) НЕ ОЧЕНЬ, (5) ПЛОХО
ЧЕМ ЛУЧШЕ ВЫ СЕБЯ ЗАРЕКОМЕНДУЕТЕ, ТЕМ СКОРЕЕ
ВАМ ПРИДЕТСЯ ПРИБЕГАТЬ К ОРУЖИЮ
?

---------- Post added at 18:18 ---------- Previous post was at 18:16 ----------

На 86РК вроде вполне совместимый BASIC был, только некоторые функции отличались и разделитель команд был классический вместо "\" в PDP-11 басицах.

[Advertiser]

[form]

У меня есть какая-то, правда не на басице

Проверка показала, что все-таки оно написано на basic и даже на basic-plus-2 и откомпилено/собрано. Достаточть сгенерить ошибку, чтобы увидеть характерный останов

>RUN DU3:[40,40]WAY
   ****** ОРЕГОНСКАЯ ТРОПА ******   






ВАМ НУЖНЫ ПРАВИЛА ? (1- ДА,0- НЕТ)        ? хрень
?EРРОР ФИЛЕ ЦАННОТ БЕ ОПЕНЕД АТ ЛИНЕ   160  ИН "OREGON"

 055642 100324 055506 056112 010005 055356 001204 000044

18:40:01  TАСК "TT3   " ТЕРМИНАТЕД
          OДД АДДРЕСС ОР ОТХЕР ТРАП ФОУР
          R0=101010
          R1=000000
          R2=000060
          R3=000000
          R4=000000
          R5=055356
          SP=001202
          PC=005720
          PS=170010
>