Графика в Бейсике на УКНЦ

[Titus]

Я помню в спрайтов движке от Зеленоградцев была процедура SPRINI которая
"гарантировала, что левый верхний угол экрана будет 0!" - видимо она этот самый
список из себя и представляла, расставляя строки так как надо?

Про нее не знаю)
Но даже скроллинг вверх делается не смещением содержимого экрана, а простым перестроением списка)

[Advertiser]

[hobot]

Да и графический 0,0 был внизу слева только в бейсике.

---------- Post added at 02:28 ---------- Previous post was at 02:19 ----------

Наверное так специально сделалось для учеников, что бы с привычной Декартовой сеткой (сист.коорд.) сочеталось лучше )))

[hobot]

10 COLOR 7,1,1
20 WIDTH 80%
30 SCREEN 2
40 FOR I=1 TO 13000
50 PRESET (RND(1)*640,RND(1)*264),RND(1)*8+1
60 NEXT I
70 ? AT(0,23)"ТЕСТ АРСЕНИЯ-ПРОФ-БРУХИСА-ХОБОТА (UKNCBTL 09.11.2012)";
80 GOTO 80

Легко видеть, что направленность т.н. "макарон" зависит от системы координат, а точнее от положения графической точки 0,0 (см.картинки).

[nzeemin]

Хе-хе. А я понял откуда взялся SCREEN -- это тоже наследие MSX BASIC. Для каких-то машин его додумались отключить, а для других решили оставить.
Похоже получилось с оператором CALL -- вызов программы из картриджа -- его честно сделали, без оглядки на то будут ли подобные картриджи вообще.

http://www.konamiman.com/msx/msx2th/th-2.txt

[nzeemin]

Кстати, ещё одно.
Есть вполне разумное объяснение тому что Бейсик для БК (а затем и УКНЦ) был основан именно на BASIC MSX: внедрение КУВТ "Ямаха" было весьма и весьма удачным. Но эти компьютеры покупались за валюту и закупить их для всех школ страна себе позволить не могла.

Школьная информатика в России – техническая база начального периода
http://www.computer-museum.ru/histso...rucom_2011.htm

[hobot]

Вот ещё бейсик - от уже выложенного в этой теме версии 59блоков отличалась только названием SAV файла и стартовым заголовком. Текст в режиме SCREEN2 можно
использовать.

[hobot]

На дискетах Titusa очень много всяких забавностей.
По Бэйсику красивая демка на образе disk19.dsk.
Впрочем не обошлось без "но". НО(!) :
1. Местный бейсик рисует такую шапку


С этой версией бейсика у меня что-то не сложилось,
для того что-бы программа заработала - надо SCREEN 2 вернуть в самое начало программы.
Оригинал программы LINES.COD я прилепил к сообщению.
Напомню (на всякий случай) для программ с таким расширением
команда загрузки CLOAD"Lines <enter>
Смотреть лучше в динамике и если кто-нибудь сделает видео будет замечательно.

(Осторожно! Скрины)

Скрытый текст

[свернуть]

Вроде простенько, но смотрится и оформлено непрерывным циклом (пока стоп не нажмёте).

[hobot]

Выжившая после всех преобразований игрушка на Бейсике с образа Raduga.DSK - OHOTA.asc. Шедевр ! Action-RPG > триллер и немного хоррора)

Но в самом начале всё красиво и даже празднично )



Инструкция то же довольно красочная (забыл включить Ч\Б режим!)



Но вот и серьёзная часть начинается, управление помним?



Стрелки курсора для перемещения (A.B.C.D) и пробел для выстрела!



Спасибо моей виртуальной собаке - по мимо запаха, она ещё
и шепчет (см. картинку) сколько шагов до берлоги, но когда
Миша выскочил я не удержался и начал палить ) Пробел, пробел
ещё пробел ! )



Попробуйте сами! Очень молодцы - авторы игры !

Товарищ Garnizon считал какую-то ДВК'шную дискету с красивой надписью 'Радуга'.

Кстати говоря образ конечно не для какой ни для ДВК, а
для УК-НЦ. Ибо и драйвер там MZ и много других вещей.
Дискета явно школьная, много исходников на фаст-паскале и
бейсике, есть местный какой-то монитор - чем удобен вместо
унылой . сообщение выдает вида MZ0> но заголовок имеет
странный как и само название системного файла. К сожалению
очень много текстовых файлов с явно порченным содержанием?
И куча <Unused> - как на всех школьных дискетах. У меня впечатление
такое что они боялись (в школах) лишний раз sq/noq выполнять (смайл).

[hobot]

Если аварийно завершить ГРАФ-ДЕМО в "улучшенном бейсике" и принудительно
через "УСТ" вернуть стандартный режим экрана, можно поглядеть как сидящий
в ОЗУ ПП драйвер зеркалит всё на обе странички экрана (вторую конечно не видно
в случае если режим экрана выставить с 80 на 40 символов в строке).



сначало необходимо запустить TGRAPH.SAV - загрузка некоего "драйвера" в ПП.
потом местный "BASIC.SAV"
- кстати говоря, что радует TGRAPH - вроде бы не гадит работу WD драйвера! ;-)

Специально для Титуса!!!

UK_TURBOBAS_v3.1_IMG_.DSK из архива Хранительницы.

[свернуть]

[hobot]

набил и запустил исходник из статьи
М.Е. Штарев
О РАБОТЕ С ПЕРИФЕРИЙНЫМ ПРОЦЕССОРОМ УКНЦ
(«Информатика и образование» №3 1993 год)

(в целом ПП УК-НЦ надо по хорошему отдельную тему - поскольку
вся специфика и "скрытое очарование" в нём и заключено по сути)
Ну да ладно. Учу мат часть. Привет тебе ПП!)

исходник и картинка.

10 COLOR 8,1,1
20 SCREEN 2                             ' *** ПЕРЕКЛЮЧЕНИЕ В ГР.РЕЖИМ
30 FOR I%=2 TO 8
40 LINE (100+I%*40,160)-(100+I%*40+39,100),I%,BF
50 NEXT 
60 DIM D%(11)                           ' *** НАЧИНАЕМ МЕНЯТЬ ЦВЕТА
70 D%(3)=&O2470                         ' АДРЕС В ОЗУ ПП
80 FOR I%=1 TO 7
90 READ D%(7)                           ' ЦВЕТА 8-5
100 READ D%(6)                           ' ЦВЕТА 4-1
110 GOSUB 160
120 FOR J%=1 TO 2000                     ' ЗАДЕРЖКА?
130 NEXT J%,I%
140 RESTORE 340
150 GOTO 80
160 ' *** ПОДПРОГРАММА ЗАПИСИ В ОЗУ ПП
170 ' ВХОДНЫЕ ПАРАМЕТРЫ: D% (3) - АДРЕС В ОЗУ ПП
180 ' D%(6), D%(7) - ПЕРЕСЫЛАЕМЫЕ СЛОВА
190 D%(1)=&O10000                        ' КОМАНДА "ЗАПИСЬ"
200 D%(2)=&O32                           ' УСТРОЙСТВО - ПП
210 D%(4)=VARPTR(D%(6))                  ' АДРЕС В ОЗУ ПП
220 D%(5)=2                              ' ПРЕСЫЛАЕМ ДВА СЛОВА
230 AD%=VARPTR(D%(1))                    ' АДРЕС МП
240 D%(8)=AD% AND &O377                  ' МЛАДШИЙ БАЙТ АДРЕСА МП
250 D%(9)=INT(AD%/256)                   ' СТАРШИЙ БАЙТ АДРЕСА МП
260 D%(10)=1                             ' СТОПОВЫЙ БАЙТ
270 D%(11)=1                             ' СТОПОВЫЙ БАЙТ
280 FOR K%=8 TO 11
290 IF INP(&O176674,128)=0 THEN 290      ' ПП ГОТОВ?
300 POKE &O176676,D%(K%)
310 NEXT 
320 RETURN 
330 ' МАССИВ ДАННЫХ ДЛЯ УСТАНОВКИ ЦВЕТОВ
340 DATA &O177334,&O135230,&O117755,&O145650,&O124776,&O156270,&O135237,&O166710,&O145651,&O177330,&O156272,&O117750,&O166613,&O124770

- цвета смещаются справа на лево. правда нестандартных оттенков не замечено ) редактируем массив? )

[свернуть]