С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
Ты же знаешь, я всегда с радостью. Но сейчас ситуация патовая буквально.
1.У меня лимит места на форуме для вложений 0
2.Сразу лить на хостинг pdp-11.org.ru в папку temp какую-нибудь? Мне это не удобно, поскольку запутаюсь сам, что проверено что нет (до этого на сайт заливал только проверенное+описание).
3. Левые - сторонние файлообменники = битые ссылки в сообщениях, потом в ЛС
приходит - пожалуйста вот тот архивчик дайте скачать - (какой тот? что там было?)
через месяц или полгода, представь! )))
Так что немного терпения Titus - я обязательно всё так или иначе в общий доступ.
Иначе смысл какой? Вот shatered - что то и в ЛС молчок и в теме тишина.
Хобот статус: завал бэйсиков )))
Даже не знаю, что тебе ещё ответить. Давай не будем оффтопить тут.
Последний раз редактировалось hobot; 03.12.2014 в 06:27.
Очень надеюсь обнаружить ДВКашный БЭЙСИК с поддержкой графики
(читайте тему и последние сообщения), что бы запустить в нём вот этот
цветочек.
Интересный и непривычный момент - несколько операторов в строке.Код: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.
Чего ж тут непривычного? Обычное явление, правда реализации были разные. У 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
Да, но надо обрабатывать - переделывать под Вильнюс, там только 1 оператор и всяких
INITов там нету ) Там SCREEN - режим экрана задаёт. Без адаптации будет Ошибка 2 )
Вот ещё листинг с графикой на бейсике для кгд
Да! И STYLE в обычном бейсике так же нету.Код: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%)
Последний раз редактировалось hobot; 03.12.2014 в 08:28.
Юмор зачтён! У меня кроме вновь прибывших БЭЙСИКОВ ещё отдельная коллекция которые ты собирал. Я конечно "обычным" назвал БК, УК-НЦешный ВИЛЬНЮС.
Гляди какая штука - этот бесик \ граф для 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.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)