BASIC ДВК

[hobot]

А пример выше вроде в вильнюсовском должен работать

Да, но надо обрабатывать - переделывать под Вильнюс, там только 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 в обычном бейсике так же нету.