Бейсики для Вектора-06Ц и клонов

[ivagor]

Для сравнения оптимизированный вариант Мандельброта. Меньше букв и операций, меньше наглядности и понятности.

Исходный текст

1 CLS
2 RW=21
3 CM=30
4 MI=8
5 SC=4
6 S4=4*SC
7 SQ=2
8 SQ=1/(SQ*SQ)
9 S2=2*SQ
10 VR=-2.3*SC
11 VI=-1.0*SC
12 ZM=0.1*SC
13 FOR Y=0 TO RW-1
14 CI=VI+Y*ZM
15 FOR X=0 TO CM-1
16 CR=VR+X*ZM:ZR=CR:ZI=CI
17 FOR N=0 TO MI-1
18 R2=SQ*ZR*ZR:I2=SQ*ZI*ZI
19 IF (R2+I2)>S4 THEN 22
20 ZI=S2*ZR*ZI+CI:ZR=R2-I2+CR
21 NEXT
22 PRINT CHR$(40-INT(N));
23 XX=XX+1
24 NEXT X
25 PRINT
26 XX=0:YY=YY-1
27 NEXT
28 STOP

[свернуть]

Картинка не изменилась, просто быстрее работает.
BASCOM - 59 секунд по секундомеру (mdos34)
2.5 - 160.1 секунды
2.891 - 127.1 секунды
2.995 - 70.36 секунды
2.996 - 63.53 секунды

Видно, что компилятор дубовый и похоже сам не оптимизирует даже элементарные вещи. Зато он есть и работает, причем на самом 8080.