Так выкладывай. И спорный софт, который вешает эмули тоже.
Вид для печати
Ты же знаешь, я всегда с радостью. Но сейчас ситуация патовая буквально.
1.У меня лимит места на форуме для вложений 0
2.Сразу лить на хостинг pdp-11.org.ru в папку temp какую-нибудь? Мне это не удобно, поскольку запутаюсь сам, что проверено что нет (до этого на сайт заливал только проверенное+описание).
3. Левые - сторонние файлообменники = битые ссылки в сообщениях, потом в ЛС
приходит - пожалуйста вот тот архивчик дайте скачать - (какой тот? что там было?)
через месяц или полгода, представь! )))
Так что немного терпения Titus - я обязательно всё так или иначе в общий доступ.
Иначе смысл какой? Вот shatered - что то и в ЛС молчок и в теме тишина.
Хобот статус: завал бэйсиков )))
Даже не знаю, что тебе ещё ответить. Давай не будем оффтопить тут.
Очень надеюсь обнаружить ДВКашный БЭЙСИК с поддержкой графики
(читайте тему и последние сообщения), что бы запустить в нём вот этот
цветочек.
Интересный и непривычный момент - несколько операторов в строке.Код: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
Листинг полностью соответствует справке по языку показанной тут.
Чего ж тут непривычного? Обычное явление, правда реализации были разные. У DEC традиционно операторы разделялись через "\", в некоторых реализациях использовалось ":"...
---------- Post added at 11:20 ---------- Previous post was at 11:19 ----------
А пример выше вроде в вильнюсовском должен работать если начало убрать - там вроде был такой оператер :)
Да, но надо обрабатывать - переделывать под Вильнюс, там только 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%)
Юмор зачтён! У меня кроме вновь прибывших БЭЙСИКОВ ещё отдельная коллекция которые ты собирал. Я конечно "обычным" назвал БК, УК-НЦешный ВИЛЬНЮС.
Гляди какая штука - этот бесик \ граф для 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.