- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
Function nSetColorPair(att : integer) : integer;
var
i : integer;
Begin
bg := att div 16;
fg := att - (bg * 16);
While bg > 7 Do dec(bg,8);
While fg > 7 Do dec(fg,8);
// . . .
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+17.8
Function nSetColorPair(att : integer) : integer;
var
i : integer;
Begin
bg := att div 16;
fg := att - (bg * 16);
While bg > 7 Do dec(bg,8);
While fg > 7 Do dec(fg,8);
// . . .
Кусок модуля nCRT для FreePascal 2.2. У нормальных людей att - это байт. И вообще... Говно код!
guest 06.01.2009 20:48 # +1
Да, современные быдлокодеры с битовыми командами вообще незнакомы. Пойду чтоли ещё одно ядро к процессору докуплю, чтоб Кризис запустить.