Важная информация

User Tag List

Страница 4 из 14 ПерваяПервая 12345678 ... ПоследняяПоследняя
Показано с 31 по 40 из 136

Тема: BASIC ДВК

  1. #31
    Guru
    Регистрация
    08.10.2005
    Адрес
    Москва
    Сообщений
    13,550
    Спасибо Благодарностей отдано 
    1,213
    Спасибо Благодарностей получено 
    1,748
    Поблагодарили
    680 сообщений
    Mentioned
    67 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    ДА! просто у меня тут творческий процесс, вешает ВАШ эмулятор !!! Я отпишусь ещё,
    нашёлся тут файлик под названием BASMSX.SAV - по умолчанию запускает 15ИЭ+КГД в EmuStudio - а стартовый экран такой у него
    Так выкладывай. И спорный софт, который вешает эмули тоже.

  2. #31
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  3. #32
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    Smile

    Цитата Сообщение от Titus Посмотреть сообщение
    Так выкладывай.
    Ты же знаешь, я всегда с радостью. Но сейчас ситуация патовая буквально.
    1.У меня лимит места на форуме для вложений 0
    2.Сразу лить на хостинг pdp-11.org.ru в папку temp какую-нибудь? Мне это не удобно, поскольку запутаюсь сам, что проверено что нет (до этого на сайт заливал только проверенное+описание).
    3. Левые - сторонние файлообменники = битые ссылки в сообщениях, потом в ЛС
    приходит - пожалуйста вот тот архивчик дайте скачать - (какой тот? что там было?)
    через месяц или полгода, представь! )))

    Так что немного терпения Titus - я обязательно всё так или иначе в общий доступ.
    Иначе смысл какой? Вот shatered - что то и в ЛС молчок и в теме тишина.

    Хобот статус: завал бэйсиков )))
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  4. #33
    Guru
    Регистрация
    08.10.2005
    Адрес
    Москва
    Сообщений
    13,550
    Спасибо Благодарностей отдано 
    1,213
    Спасибо Благодарностей получено 
    1,748
    Поблагодарили
    680 сообщений
    Mentioned
    67 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    Так что немного терпения Titus - я обязательно всё так или иначе в общий доступ.
    Все это отмазки. Было бы желание, можно было бы и поделиться самым интересным. К твоим услугам sderni.ru.

  5. #34
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Titus Посмотреть сообщение
    Все это отмазки
    Даже не знаю, что тебе ещё ответить. Давай не будем оффтопить тут.
    Последний раз редактировалось hobot; 03.12.2014 в 06:27.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  6. #35
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Очень надеюсь обнаружить ДВКашный БЭЙСИК с поддержкой графики
    (читайте тему и последние сообщения), что бы запустить в нём вот этот
    цветочек.

    Код:
    1 INIT(1%,0%) \ STYLE(-1%)
    2 R%=RND*44+2
    3 X%=RND*300+50
    4 Y%=RND*200+50
    6 I=I+1
    7 IF INT(I/2)*2=I THEN 17
    9 FOR J%=R% TO 2% STEP -2%
    11 CIRCLE(J%,X%,Y%)
    15 NEXT J%
    16 GO TO 20
    17 FOR J%=2% TO R% STEP 2% \ CIRCLE(J%,X%,Y%) \ NEXT J%
    20 IF I=77 THEN I=1 \ GO TO 55
    22 GO TO 2
    55 INIT(0%,0%)
    66 GO TO 1
    Интересный и непривычный момент - несколько операторов в строке.
    Листинг полностью соответствует справке по языку показанной тут.
    Последний раз редактировалось hobot; 03.12.2014 в 08:18.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  7. #36
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,823
    Спасибо Благодарностей отдано 
    8
    Спасибо Благодарностей получено 
    281
    Поблагодарили
    227 сообщений
    Mentioned
    29 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    Интересный и непривычный момент - несколько операторов в строке
    Чего ж тут непривычного? Обычное явление, правда реализации были разные. У DEC традиционно операторы разделялись через "\", в некоторых реализациях использовалось ":"...

    ---------- Post added at 11:20 ---------- Previous post was at 11:19 ----------

    А пример выше вроде в вильнюсовском должен работать если начало убрать - там вроде был такой оператер
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  8. #37
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    А пример выше вроде в вильнюсовском должен работать
    Да, но надо обрабатывать - переделывать под Вильнюс, там только 1 оператор и всяких
    INITов там нету ) Там SCREEN - режим экрана задаёт. Без адаптации будет Ошибка 2 )

    Вот ещё листинг с графикой на бейсике для кгд
    Код:
    1 E$=CHR$(27)+"Y  "+CHR$(27)+"J" \ INPUT X1,X2,Y1,Y2,S,N
    2 DEF FNA(X,Y)=A*SIN(ABS(X)+ABS(Y))+B
    3 INIT(1%,0%) \ STYLE(1%)
    9 A=50 \ B=170 \ D=120
    10 PRINT E$
    11 H1=(Y2-Y1)/N
    15 H=(X2-X1)/280
    16 G=110/N*H
    20 FOR Y=Y1 TO Y2 STEP H1
    30 D=D-110/N \ B=B-110/N \ X0%=1
    33 Z%=0
    40 FOR X=X1-D*H TO X1+(392-D)*H STEP H
    50 X0%=X0%+1% \ Y0%=FNA(X,Y)
    51 IF Y0%<1% THEN 99 \ IF Y0%>279% THEN Y0%=279%
    60 PNTA(X0%,Y0%) \ IF S=0 THEN 99
    61 STYLE(Z%)
    62 IF X0%-X0%/7%*7%<2% THEN LINA(X0%,Y0%-1%,X0%,1%) \ GO TO 90
    65 X3=X-G \ Y3=Y-H1 \ Y%=FNA(X3,Y3)+110/N
    66 IF ABS(Y%-Y0%)<2% THEN 90
    68 IF Y%>Y0% THEN LINA(X0%,Y%-1%,X0%,Y0%+1%)
    70 IF Y%<Y0% THEN LINA(X0%,Y%+1%,X0%,Y0%-1%)
    90 STYLE(1%)
    99 NEXT X \ NEXT Y \ PRINT E$,CHR$(7) \ F=SYS(1) \ INIT(0%,0%)
    Да! И STYLE в обычном бейсике так же нету.
    Последний раз редактировалось hobot; 03.12.2014 в 08:28.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  9. #38
    Veteran Аватар для SKcorp.
    Регистрация
    01.01.2009
    Адрес
    Leningrad, USSR
    Сообщений
    1,954
    Записей в дневнике
    33
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    18
    Поблагодарили
    16 сообщений
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение

    [/COLOR]Аббревиатура "VU KNSC" - может кто то просто "поиздевался" над ненавистным УК-НЦ??? Поскольку если убрать V,пробел,S получим UKNC? (домыслы мои).
    Это вполне могло быть сокращение какого-нибудь НИИ.

  10. #39
    Guru Аватар для form
    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,823
    Спасибо Благодарностей отдано 
    8
    Спасибо Благодарностей получено 
    281
    Поблагодарили
    227 сообщений
    Mentioned
    29 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от hobot Посмотреть сообщение
    Да! И STYLE в обычном бейсике так же нету.
    В обычном и графики нету
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  11. #40
    R.I.P. Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,161
    Спасибо Благодарностей отдано 
    2,979
    Спасибо Благодарностей получено 
    370
    Поблагодарили
    309 сообщений
    Mentioned
    13 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    В обычном и графики нету
    Юмор зачтён! У меня кроме вновь прибывших БЭЙСИКОВ ещё отдельная коллекция которые ты собирал. Я конечно "обычным" назвал БК, УК-НЦешный ВИЛЬНЮС.

    Гляди какая штука - этот бесик \ граф для RT-11 (ДВК+КГД) - проверяет, что бы ниодна линия или точка не выходила за пределы экрана терминала, в то время как
    вильнюс-бейсик это вполне допускает и к ошибке это не приводит (за исключением переполнения). Такие вот дела.


    SKcorp., возможно, хотя эти надписи править легко, можно что угодно
    в шапке написать))) Я помню как над бэйсиком издевались в школе. Что он
    только в шапке не писал )))

    Очень не похоже что он битый (формально) BASGR.SAV
    Но виснет на запросе функций - это значит что ни в одном из трёх эмуляторов нет чего-то ему 100% необходимого? Вот мучайте его если хотите кину именно этот вариант во временную папку и буду дальше копаться с дискетами, там к нему и
    RUBIK.SAV - самый сложный на свете вариант тетриса, самый не играбельный )))

    http://archive.pdp-11.org.ru/vid/a_new2++.rar

    ---------- Post added at 11:46 ---------- Previous post was at 11:43 ----------

    А да! Именно basic \ graph - это 61 блок который - файл у которого в названии 2.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

Страница 4 из 14 ПерваяПервая 12345678 ... ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. 128 basic
    от sevol в разделе Для начинающих
    Ответов: 31
    Последнее: 21.04.2020, 13:25
  2. laser basic
    от johnny в разделе Программирование
    Ответов: 32
    Последнее: 17.02.2014, 22:57
  3. Tiny Basic
    от Kakos_nonos в разделе Зарубежные компьютеры
    Ответов: 0
    Последнее: 25.04.2011, 16:51
  4. Дизассемблер BASIC-48
    от Prusak в разделе Пресса
    Ответов: 4
    Последнее: 22.06.2010, 22:52
  5. Программы на BASIC
    от form в разделе ДВК, УКНЦ
    Ответов: 14
    Последнее: 17.04.2010, 15:41

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •