Бейсики для Вектора-06Ц и клонов

[ivagor]

Как я вижу варианты требований к точности определения версии:
1. Нужна конкретная версия и только она. Такое возможно, если программа вызывает через машинный код процедуры бейсика, адреса которых плавают от версии к версии. Пример - бейсиковский вариант Моны. В таком случае самый надежный вариант ориентироваться на 2.5.
2. Нужна версия, в которой уже исправлена определенная ошибка или ошибки. Т.е. скорее всего подойдут несколько версий начиная с такой-то. Примеры были на ретрограде, например широкое использование шестнадцатеричных чисел, которые в 2.5 очень ограниченны. Можно сделать очень просто (хотя и не очень изящно) - печатаем на экране что-то вроде
"Для данной программы требуется версия бейсика не ниже такой-то"
потом пробуем использовать исправленный вариант какого-то оператора или функции. Если бейсик старый - вылетаем с ошибкой и на экране остается вышеприведенное сообщение. Если бейсик подходящий - стираем сообщение и идем дальше.
3. Используются внутренние особенности, без которых можно обойтись. Примеры были и в классических программах и на ретрограде. Например - для картинки, которая будет выведена с использованием PUT, пишем данные прямо в массив, откуда будет PUT. Вместо этого лучше нарисовать на экране например через POKE, потом GET, потом PUT, в таком случае программа будет совместима с любым внутренним представлением картинки GET/PUT. Примеры таких адаптаций пары программ я выкладывал, это вполне осуществимо.

[Advertiser]

[aGGreSSor]

Ушатал Бейсик. Писал трек в текстовом редакторе с конверсией в cas через Vector06CBasic. Где-то паттерна до 6 всё было нормально, дальше начало орать про "Несоотв. данных" на этапе загрузки cas. Далее в эмуляторе vv начали происходить чудеса. Бейсик 2.5 ушатывается сразу, Бейсик 2.997 ещё немного мучается. Прилагаю программу: conv_polet.zip и видео на тытруба. В документации не сказано сколько м.б. GOTO с оператора ON, мог перебрать. Строки передаваемые в PLAY менее 127 символов.

[ivagor]

Проблема не в бейсике, это конвертер привередничает. Если несоответствие данных при загрузке, то запускать нет смысла, надо добиваться безошибочной загрузки.
Загрузил в Vector06CBasic, удалил последнюю пустую строку, потом нажал Enter (добавил пустую строку) и после этого он смог сделать нормальный cas, который нормально загружается и играет и в 2.5 и в 2.997.
Конверсия музыки отличная, спасибо!

[svofski]

Попробовал встроенным конвертером в v06x. Надо переименовать .txt в .asc и заменить клопов на доллары, а так все всосалось сразу.

[aGGreSSor]

Вопрос по функциям. В описании DEF FN сказано "Список параметров содержит имена формальных переменных, которые используются при формировании выражения функции." Например, два параметра понадобится для вычисления целочисленного остатка от деления (т.к. функции MOD в 06Ц Бейсик нет). Оператор DEF DN M(A,B)=A-INT(A/B)*B даёт синтаксическую ошибку. Обнаружил, что если записать DEF FN M(A B)=A-INT(A/B)*B, то ошибки нет. Казалось бы: это оно. Но при попытке передачи функции аргументов, например FN M(2 4), выбрасывает ошибку "деление на ноль". Судя по всему, при таком вызове в функцию передаётся 0 для обоих аргументов. Потому что тестовые DEF FN M(A B)=A и DEF FN M(A B)=B вернули 0.

[ivagor]

Версия микрософтовского бейсика, которая была прототипом, поддерживает только один аргумент DEFFN. Цитата со страницы 31 (страница 36 pdf) отсюда
"A function may be defined to be any expression, but may only have one argument"

В описании 2.5 начало (там где Формат: ) правильное
"<параметр> - любое допустимое имя, которое будем называть формальной переменной"
Но потом в разделе Действие: уже ерунда про список параметров.

[aGGreSSor]

Версия микрософтовского бейсика, которая была прототипом, поддерживает только один аргумент DEFFN. Цитата со страницы 31 (страница 36 pdf)

Отличная pdf, спасибо! Заодно прояснил себе, что оператор с нестандартным/нелогичным именем INP (которое бесит) был ещё в 8K ALTAIR BASIC на 9 странице.

Хорошо бы исправить эту формулировку в следующей версии описания (пользуюсь pdf от metamorpho ( v.1.2 2023-2024 г.). Также там в описании SCREEN есть невнятное место: N - код математического цвета (от 0 до 15), начиная с которого производится изменение цвета (0-цвет фона). Отсюда невозможно понять, что 1 - цвет бордюра. Например, SCREEN 0,0,5,0 установит красный фон и чёрный бордюр. И, кстати, 15 как я понимаю - это цвет тона. Т.е. SCREEN 0,15,5 сработает аналогично COLOR 5 и установит красный цвет тона. @metamorpho, неплохо было бы добавить эту формулировку. Кстати, во всех доках палитровых бейсиков которые находил, то что в v1.2 называется математическими цветами, называют логическими. Долго пытался понять что такое "математический" цвет. Нормальная формулировка: Команда SCREEN 0,0,L,P служит для присвоения логическому цвету L (0-15, из 16 возможных) физического цвета P из палитры. Она аналогична VDU 19,L,P в Acorn BASIC, кстати.

[b2m]

не хотелось бы замедлять PEEK введением проверок, но на это я в крайнем случае готов.

Ну а что, рабочий вариант. Что там возращают бейсики 2.5 на PEEK(0) и PEEK(1)? Для новых версий - номер версии.

[ivagor]

POKE и PEEK по адресам 0-639 - это знакогенератор. Если понадеяться на то, что в знакогенератор практически всегда пишут, но не читают, то можно попробовать выдавать по PEEK(0) и PEEK(1) что-нибудь другое (не из знакогенератора), например версию бейсика.
Свое видение детекта версии я уже написал, на мой взгляд без явной реализации этой фичи в бейсике можно обойтись. В тех же микрософтовских бейсиках поздних версий такого тоже не добавили.

[ivagor]

Долго пытался понять что такое "математический" цвет.

Это терминология из штатного описания бейсика 2.5

Также там в описании SCREEN есть невнятное место: N - код математического цвета (от 0 до 15), начиная с которого производится изменение цвета (0-цвет фона). Отсюда невозможно понять, что 1 - цвет бордюра.

Цвет бордюра зависит не только от SCREEN (физический) но и от третьего аргумента COLOR (математический/логический, по умолчанию в 2.5=1, но так не во всех его клонах).

Т.е. SCREEN 0,15,5 сработает аналогично COLOR 5 и установит красный цвет тона.

SCREEN0,15,5 не аналогичен COLOR5
1. Он поменяет 15й цвет палитры, COLOR5 цвет палитры не поменяет.
2. COLOR5 задаст в каких плоскостях будут рисовать следующие графические операторы (рисуем в 0й и 2й плоскостях, стираем в 1й и 3й - это справедливо, если разрешено рисование во всех плоскостях). SCREEN0 не влияет на то, в каких плоскостях будут рисовать следующие графические операторы.

15 как я понимаю - это цвет тона

В состоянии по умолчанию настроено рисование цветом 15, т.е. во всех плоскостях. Но опять же это справедливо не для всех клонов 2.5

Команда SCREEN 0,0,L,P служит для присвоения логическому цвету L (0-15, из 16 возможных) физического цвета P из палитры.

Команда SCREEN0,0,L,P присвоит математическим/логическим цветам 0 и 1 физические цвета L и P