Border-эффект на Бейсике

[jim]

PAUSE 1 равносильно HALT

[Advertiser]

[GNTB]

А в чём прикол? Даже я - неспектрумист, по большому счёту, писал мелочи вроде:
10 FOR i=0 TO 7
20 PAPER i : CLS
30 PAUSE 3
40 NEXT i

.........................

Хотя... Посмотрим, в чём там прикол... mig95 слишком серьёзный парень, чтобы мелочами нас развлекать.

Добавлено через 21 минуту

....................

30 и 40 лучше местами поменять...

[psndcj]

скорее всего это нечаянно как-то вышло - потомучто времени выполнения команд в басице (которые тем более зависят от еномера строки, вернее от удаленности от началапрограммы) не знает никто, даже сам Логан... а эффект старенький - но у меня на профи он триколор не показывал - просто полоски на бордюре кривые

[GNTB]

30 и 40 местами поменять

7 - white
1 - blue
2 - red

Если не ошибаюсь.

[daniel]

улыбнули. нам когда спектрум с братом купили, братан картинку рисовал через DRAW ахрененная программка, прёчём параметры дуги подбирались вручную методом проб.

другой чувак таким же образом подбирал на слух похоронный марш через BEEP.

вот времена были-аж слезу пробивает.

[skyther]

как пент собрал, тоже этот эффект проверял, тпа эффективность турбы узнать хотел
а с DRAW старый прикол есть:
10 plot 128,60
20 draw 0,80,932
число произвольное

[jim]

Мне на асме трудно подобрать требуемую задержку, а тут это сделано легко и просто на Бейсике! Это и удивило.

ставь HALT в асме

[GriV]

Я для настройки цветов спекка на телеке пользовался такой программкой (набирается с нуля, короткая):

10 pause 1: border 0: border 0: border 1: border 2: border 3: border 4: border 5: border 6: border 7: goto 10

обратите внимение: pause 1 стоит в начале строки, операция GOTO выполняется достаточно долго
испуользуется два раза border 0 для того чтобы вывести луч прорисовки на видимую область.
если указанной сделать циклами, то в одно прерывание оно не успеет. Если это представить разными строчками то тоже не успеет, так как интерпертатор достаточно долго ищет следующую строчку.