Народ помогите)) что набирать ??

[TomCaT]

рисует Спектрум Спектрума )

в строке 90 число 8 можно менять в пределах от 1 до 8. Например, для 1 экран будет раскрашен сразу, а уже потом скошены полосы...

10 FOR A=1 TO 8
20 LET B=2^A-1: LET C=1
30 FOR D=0 TO 31
40 FOR E=0 TO 7
50 LET F=E*32+D
60 POKE 16128+A*256+F,B
70 POKE 18176+A*256+F,B
80 POKE 20224+A*256+F,B
90 IF A=8 THEN POKE 22528+F,C: POKE 22784+F,C: POKE 23040+F,C
100 LET C=C+9: IF C>63 THEN LET C=C-8: IF C=57 THEN LET C=1
110 NEXT E
120 LET C=C+9: IF C>63 THEN LET C=C-8: IF C=57 THEN LET C=1
130 NEXT D: NEXT A
140 PAUSE 0: PAUSE 0

[REMR]

рисует Спектрум Спектрума )

в строке 90 число 8 можно менять в пределах от 1 до 8. Например, для 1 экран будет раскрашен сразу, а уже потом скошены полосы...

10 FOR A=1 TO 8
20 LET B=2^A-1: LET C=1
30 FOR D=0 TO 31
40 FOR E=0 TO 7
50 LET F=E*32+D
60 POKE 16128+A*256+F,B
70 POKE 18176+A*256+F,B
80 POKE 20224+A*256+F,B
90 IF A=8 THEN POKE 22528+F,C: POKE 22784+F,C: POKE 23040+F,C
100 LET C=C+9: IF C>63 THEN LET C=C-8: IF C=57 THEN LET C=1
110 NEXT E
120 LET C=C+9: IF C>63 THEN LET C=C-8: IF C=57 THEN LET C=1
130 NEXT D: NEXT A
140 PAUSE 0: PAUSE 0

еле вбил это в мозг спектрума

[askad]

попробывал это вбить на эмуляторе... - разрыв мозга наступил на второй строке

[TomCaT]

Во второй строке беда только с символом степени ^
На ZX он изображается как настоящая "стрелочка вверх" /|\, а на IBM - нет вертикальной палочки.

На Спектруме стрелочка вверх - на клавише H. Вводится (извиняюсь, ошибся ) "SymbolShift+H".

[REMR]

надо поднять тему!
Что еще есть)?

[TomCaT]

10 OVER 1
20 FOR A=0 TO 175
30 PLOT 0, 0
40 DRAW 255, A
50 NEXT A
60 FOR A=254 TO 0 STEP -1
70 PLOT 0, 0
80 DRAW A, 175
90 NEXT A
100 OVER 0

[char]

вчера повспоминал бейсик

16:
32:
64:
96:
112:
128:
256 BORDER 0: BORDER 7::::: BORDER 1::::: BORDER 2::::: BORDER 0: PAUSE 1: GO TO ABS (PEEK 23672-128)


---------------

10 BORDER 0: BORDER 2: BORDER 6: BORDER 7: BORDER 5: BORDER 1: BORDER 0: PAUSE 1
20 BORDER 0:::::::: BORDER 2: BORDER 6: BORDER 7: BORDER 5: BORDER 1: BORDER 0: PAUSE 1
30 GO TO 10

...возможно, потребуется подобрать количество двоеточий.

[TomCaT]

Гениально и просто, особенно анимация нарисованного.

[DimkaM]

вчера повспоминал бейсик

16:
32:
64:
96:
112:
128:
256 BORDER 0: BORDER 7::::: BORDER 1::::: BORDER 2::::: BORDER 0: PAUSE 1: GO TO ABS (PEEK 23672-128)


---------------

10 BORDER 0: BORDER 2: BORDER 6: BORDER 7: BORDER 5: BORDER 1: BORDER 0: PAUSE 1
20 BORDER 0:::::::: BORDER 2: BORDER 6: BORDER 7: BORDER 5: BORDER 1: BORDER 0: PAUSE 1
30 GO TO 10

...возможно, потребуется подобрать количество двоеточий.

Афигеть

[char]

кстати, там в началах строк везде BORDER 0 можно убрать.
в анимашке можно удалить 128 строку, и вместо двоеточий, например, в 16 и 32 строке поставить BORDER 0.
и т.д.