В продолжение темы о Бэйсике на ДВК.
Единственный бэйсик где я увидел графику (на ДВКашном железе!!!) в эмуляторе Titusa - это "пересобранный под КГД (под 2 цвета)" бэйсик 88 года УК-НЦшный.
Вот и программа для ДВК под него есть -
REM ПРОГРАММА ПЕРЕКЛЮЧИНИЯ ШРИФТОВ ПРИНТЕРА СМ 6325
Вопросов два.
1. Patron - у вас эмулируется принтер, но не эмулируется КГД - печально и наоборот совсем у Titusa - ну он эмулятор ради игрушек делал, поэтому это риторический вопрос. В эмуляторе ДВК соотв. запустить BASGR.SAV - нет возможности.
2. К какому варианту бэйсика относится вот эта справка??? Если он уже давно есть в архиве - тыкнете меня носом - или что то путаю???
Код:
: КОМАНДЫ ГРАФИЧЕСКОГО BASIC'А НА "ДВК-3" :
+-----------------------------------------+
CALL INIT(I%,J%) - УСТАНОВКА ГРАФИЧЕСКОГО РЕЖИМА РАБОТЫ,
-------------
I% = 0 - ВЫКЛЮЧИТЬ ГРАФИЧЕСКИЙ ЭКРАН,
= 1 - ВКЛЮЧИТЬ ГРАФИЧЕСКИЙ ЭКРАН,
= 2 - СОХРАНИТЬ ТЕКУЩУЮ УСТАНОВКУ И ДЕЙСТВОВАТЬ
СООБРАЗНО СО ВТОРЫМ ПАРАМЕТРОМ;
J% = -1 - ИНВЕРТИРОВАТЬ ТЕКУЩЕЕ ИЗОБРАЖЕНИЕ,
= 0 - ЧЕРНЫЙ ФОН,
= 1 - БЕЛЫЙ ФОН,
= 2 - СОХРАНИТЬ ТЕКУЩУЮ УСТАНОВКУ И ДЕЙСТВОВАТЬ
СООБРАЗНО С ПЕРВЫМ ПАРАМЕТРОМ;
CALL STYLE(I%) - ОПРЕДЕЛЕНИЕ ЦВЕТА РИСУЕМЫХ ДАЛЕЕ ЛИНИЙ,
---------------
I% = -1 - ИНВЕРСНЫЙ ВЫВОД ЛИНИИ( Т.Е. БЕЛЫМ ПО ЧЕРНОМУ
И ЧЕРНЫМ ПО БЕЛОМУ ),
= 0 - ЧЕРНЫЕ ЛИНИИ,
= 1 - БЕЛЫЕ ЛИНИИ;
CALL PNTA(X%,Y%) - ВЫВОД ТОЧКИ В АБСОЛЮТНЫХ КООРДИНАТАХ;
---------------
CALL CURSOR(I%) - ВИД ГРАФИЧЕСКОГО КУРСОРА,
-----------------
I% = 0 - КУРСОР НЕВИДИМЫЙ,
= 1 - КУРСОР ВИДИМЫЙ;
CALL MOVA(X%,Y%) - УСТАНОВИТЬ КУРСОР В ТОЧКУ (АБСОЛЮТ. КООРД.)
---------------
CALL LINA(X1%,Y1%,X2%,Y2%) - ЧЕРТИТЬ ЛИНИЮ ( АБСОЛЮТНЫЕ КООРДИНАТЫ )
---------------
CALL RECTA(X1%,Y1%,X2%,Y2%) - ЧЕРТИТЬ ПРЯМОУГОЛЬНИК(АБСОЛЮТ. КООРД.)
----------------
CALL CIRCLE(R%,X%,Y%) - ЧЕРТИТЬ ОКРУЖНОСТЬ РАДИУСА R%, С ЦЕНТРОМ
----------------- В ТОЧКЕ (X%,Y%) -( АБСОЛЮТНЫЕ КООРДИНАТЫ )
CALL FILL(X%,Y%) - ГУСТО ЗАКРАСИТЬ ОГРАНИЧЕННЫЙ КОНТУР, ОХВАТИВШИЙ
--------------- И ТОЧКУ (X%,Y%) - ( АБСОЛЮТНЫЕ КООРДИНАТЫ )
CALL PNTR(X%,Y%) - ВЫВОД ТОЧКИ В ОТНОСИТЕЛЬНЫХ КООРДИНАТАХ;
---------------
CALL MOVR(X%,Y%) - УСТАНОВИТЬ КУРСОР В ТОЧКУ ( ОТНОСИТ. КООРД.)
---------------
CALL LINR(X%,Y%) - ЧЕРТИТЬ ЛИНИЮ В ОТНОСИТЕЛЬНЫХ КООРДИНАТАХ;
---------------
CALL RECTR(X%,Y%) - ЧЕРТИТЬ ПРЯМОУГОЛЬНИК( ОТНОСИТЕЛЬНЫЕ КООРДИНАТЫ);
----------------
- может быть к тому, что в ПЗУ прошит??? Или всё таки к дисковой
реализации???
---------- Post added at 15:49 ---------- Previous post was at 14:54 ----------
Зато вот этот вариант бейсика в эмуляторе ДВК не трапиться,
запускается нормально, но вот функцию SCREEN - как я не пытался
всё время пишет - или неправильный вызов функции или синтакс.ошибка
BASIC VU KNSC 1987.10.09
[свернуть]
На УК-НЦ (в обоих эмуляторах) так же запускается, по размеру совпадает
с одним из вариантов дискового бэйсика для УК-НЦ, но фун-и на кнопки <K1> - <K5> не назначает. Скриншот из эмулятора ДВК сделан.
Что за странная аббревиатура?
---------- Post added at 16:21 ---------- Previous post was at 15:49 ----------
Ха! Среди прочего кажется нащупался какой-то ДВКашный BASIC \ GRAPH
Правда вешает эмулятор, но я поэкспериментирую ещё для уверенности и отпишусь.
---------- Post added at 16:23 ---------- Previous post was at 16:21 ----------
Аббревиатура "VU KNSC" - может кто то просто "поиздевался" над ненавистным УК-НЦ??? Поскольку если убрать V,пробел,S получим UKNC? (домыслы мои).