Реплики платы ПЭВМ "Океан-240"

[tnt23]

Интересно, на чем сделана графическая демка. Если на бейсике, то а) что за бейсик, б) как в нем реализована графика, через ANSI?

[Advertiser]

[L Juriy]

tnt23, По видео видно сперва запускается MB это Basic а затем LOAD "demo".
На дискетах AZMaster есть этот Basic, по моему, это его видео.
DEMO.BAS
10 CLS 0:SCRN 4,0:COLOR 2:CURS 255,120:PLOT 0,120
20 COLOR 3:FOR I=0 TO 255:PLOT I,SIN(I/10)*100+120:NEXT
30 FOR I=255 TO 0 STEP -1:PLOT I,COS(I/10)*100+120:NEXT
40 COLOR 2:FOR I=0 TO 255:PLOT I,SIN(I/10)*100+120
50 PLOT I,COS(I/10)*100+120:NEXT:A$=INPUT$(1)
60 CLS 8:SCRN 4,0:COLOR 2:CURS 255,120:PLOT 0,120
70 COLOR 3:FOR I=0 TO 255:PLOT I,SIN(I/81)*100+120:NEXT
80 FOR I=0 TO 255:PLOT -I+255,COS(I/81)*100+120:NEXT
90 FOR I=0 TO 255:Y=TAN(I/81)*10+120:IF Y<0 THEN Y=0
100 IF Y>255 THEN Y=255
110 PLOT I,Y:NEXT:A$=INPUT$(1)
120 CLS 0:SCRN 4,0:COLOR 3
130 CURS 50,50:PLOT 49,201:PLOT 201,201:PLOT 201,49:PLOT 49,49
140 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT 50,I
150 CURS 125,125:COLOR 1:PLOT 50,I+10:FOR J=0 TO 900:NEXT:NEXT
160 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT I,200
170 CURS 125,125:COLOR 1:PLOT I+10,200:FOR J=0 TO 900:NEXT:NEXT
180 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT 200,-I+250
190 CURS 125,125:COLOR 1:PLOT 200,-I+240:FOR J=0 TO 900:NEXT
200 NEXT
210 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT -I+250,50
220 CURS 125,125:COLOR 1:PLOT -I+240,50:FOR J=0 TO 900:NEXT:NEXT
FOR

- - - Добавлено - - -

В соседней теме выложил содержимое этой дискеты.

- - - Добавлено - - -

MB.com это подредактированный для Океана240 MBASIC.com, который версия 5.21 от Microsoft.

[tnt23]

MB.com это подредактированный для Океана240 MBASIC.com, который версия 5.21 от Microsoft.

Сорцы бейсика можно качнуть тут - https://winworldpc.com/download/c2bf...0-11c3a7c29d25 - но команды PLOT там нет, и вообще есть строчка 'Graphics not implemented'