Польские буквы в UDG и узоры на Бейсике для ZX Spectrum

Бейсик — тоже язык...

Всем владельцам Spectrum рекомендую эту программу. Она использует буквы от A до U, изначально заданные в памяти и записанные в так называемую область пользовательской графики (UDG).

10 FOR k=1 TO 14: READ adr: READ bajt: POKE 65000+adr,bajt: NEXT k
20 DATA 375,8,384,8,407,8
30 DATA 459,112,472,8,480,8
40 DATA 512,8,496,8,497,126
50 DATA 498,4,499,8,500,16
60 DATA 501,32,502,126
70 CLS: PRINT "POLSKI ALFABET OK"

После выполнения программы удалите её командой NEW (не USR 0) — и буквам будут соответствовать следующие графические символы, доступные в режиме GRAPHICS (CAPS SHIFT+9):

ą — A
ę — E
ń — N
ś — S
ć — C
ł — L
ó — O
ż — Q

Польские символы можно сохранить на кассету или диск командой SAVE "pol-zn" CODE USR "a",21*8. Загрузка — LOAD ""CODE.

　　　　　　　　　　　　Lit Steve

Для создания интересных эффектов на Спектруме совсем не обязательно знать ассемблер. Хочу показать здесь короткую и простую программку на Бейсике, которую написал давным-давно. Эти несколько строк рисуют интересные узоры — и довольно быстро для Бейсика. Достаточно изменить один из параметров, чтобы получить что-то совсем другое. Вместо X и Y нужно подставлять значения от 1,5 до 7 (лучшие результаты получаются при 1,5; 3 и 5), а вместо A$ — символы, доступные с клавиатуры (лучше всего симметричные, например O, *, x и т. п.).

10 INPUT X,Y,A$
20 FOR F=1 TO 5: LET A$=A$+A$: NEXT F
30 FOR F=0 TO 255 STEP X: PLOT F,0: DRAW 255,0: NEXT F
40 FOR F=0 TO 175 STEP Y: PLOT 0,F: DRAW 255,0: NEXT F
50 FOR F=0 TO 21: PRINT OVER 1; A$: NEXT F

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

Если вас заинтересовала версия этой программки на ассемблере, загляните в RE;EVOLUTION DEMO.

　　　　　　　　　　　　　　MANIU