BASIC на Корвете

[Arix]

1. Я пытаюсь сохранить программу на диск, а дискета оказалась битой, или дисковод глючит. Появляется сообщение BDOS ERROR... и - либо вылет из Бейсика в ОС, либо надо нажимать УПР+Ц с тем же результатом. Всё несохраненное - корвету, то есть, коту под хвост. Действительно с этим полная безнадёга? Или есть способ выхода из этой ситуации без потерь? Ведь можно было бы сменить дискету или дисковод и сделать новую попытку. Сейчас я поставил два Тика, такой проблемы нет. Пока не было ни одного BDOS ERROR'a и пролета во встроенный Бейсик при загрузке системы, если только я сам это не провоцировал. А до этого были Электроники 5311 и 5313, эти ошибки случались частенько.

2. Программа нарисовала некую картинку. Как теперь от этой картинки избавиться? В других Бейсиках, когда программа отработала, картинка сама исчезает, или исчезает при выходе из программы. А тут она продолжает висеть. Мешает просмотру листинга и редактированию программы.

[Advertiser]

[ivagor]

Программа нарисовала некую картинку. Как теперь от этой картинки избавиться?

PCLS

[Arix]

Да, картинка стирается, но экран становится светло-серым. И почему оператор COLOR вообще ни на что не влияет? Ввожу любые значения цветов, и ничего не меняется. На Суре оператор нормально работает.

Обнаружил, что для изменения цвета надо ввести PCLS. Но меняется только цвет фона (вторая цифра), на цвет символов это не влияет.

[ivagor]

Обнаружил, что для изменения цвета надо ввести PCLS. Но меняется только цвет фона (вторая цифра), на цвет символов это не влияет.

Второй параметр COLOR (цвет фона) вступит в действие после PCLS, а первый сказывается сразу, но не на цвете символов, а на цвете рисуемых графических объектов.

- - - Добавлено - - -

первый сказывается сразу, но не на цвете символов, а на цвете рисуемых графических объектов

Наверно четче и корректнее будет написать, что первый параметр COLOR подействует на следующие графические операторы.

[Arix]

Встречаю в программах:
REM и :REM.
В чём разница?
В обоих случаях операторы стоят в начале строки, например, 100 :REM.

Есть ли полное руководство по данному Бейсику? То, что я находил, это нарезки из книги "Знакомьтесь, персональная ЭВМ Корвет". Там, я так понимаю, далеко не всё.

[svofski]

Двоеточие -- разделитель операторов в одной строке. Похоже на то, что кто-то эстетствовал.

[Arix]

Двоеточие -- разделитель операторов в одной строке.

Это я знаю. А тут оператор первый и единственный в строке.
Я загрузил в Корвет программы с Суры, и там эти двоеточия сами появились перед REM'ами. Но не везде. Я их поудалял, так как побоялся, что это вызовет синтаксическую ошибку. Ведь двоеточия ставятся, если в строке несколько операторов. В книге про Корвет, в конце есть несколько довольно больших программ. Смотрю, там тоже двоеточия перед REM'ами. И опять же, в одних программах они есть, в других нет. Значит, это нормально, ошибки не будет.

[ivagor]

Поменять цвет символов в пзушном бейсике 2.0 можно так:

10 FOR I=8 TO 15
20 POKE &HFAFB,I+(цвет от 0 до 15)*16
30 POKE &HF771+I,I+(цвет от 0 до 15)*16
40 NEXT

Может есть штатный способ с помощью оператора или функции бейсика, но я его не знаю/не помню.

[bars_z]

Может есть штатный способ с помощью оператора или функции бейсика, но я его не знаю/не помню.

В Бейсике Корвета есть оператор LUT, который в качестве аргумента принимает целочисленный массив с указанием начального индекса. Массив должен содержать (начиная с указанного индекса) последовательность из 16 физических цветов, определяющих все 16 логических.

Например, если требуется задать один цвет текста для всех графических слоев, то можно сделать это так:

10 LET QL = 5 :REM Цвет текста
20 DIM P%[15] :REM Целочисленный массив из 16 элементов
30 FOR I=0 TO 7
40 P%[I] = I :REM Цвета графики не меняем
45 P%[I+8] = QL :REM Задаем цвет для всех АЦЗУ-шных цветов
50 NEXT
60 LUT P%[0] :REM применяем палитру, начиная с нулевого индекса массива

Вообще, весьма удобный оператор: можно задать в одном массиве все необходимые программе цветовые схемы и переключать их одной короткой командой в любой момент. Или делать всякие эффекты с затуханиями/мерцаниями, один раз рассчитав всю последовательность смены палитры, не занимаясь пересчетами и программированием порта LUT вручную.

[ivagor]

У оператора LUT есть недостаток (или наоборот достоинство, кому как). После синтаксической ошибки (например, случайно набрали что-то в строке и нажали ввод) цвета вернутся к исходным, а в моем варианте они изменятся "навсегда".