Текстовый движок! Опции

[GLuk]

Не знал куда запихать. Вот тут появились мысли по поводу текстового движка для форума, в каком-то смысле. И вот краснея/бледнея от стыда, с криками/стонами вампиров, кидаю тебе народ свои иЦходники...
для того чтобы заработало уберите восклицательные знаки из описания цветов в константах...

см. ниже

Решил тут поправить исходник - поправил, привел примеры работы, а когда решил изменить исходник - злой/вонючий/говенный провайдер выкинул меня из инета, изменения как таковые - это цветовая гамма

[GLuk]

(*------------------------------*)
{Тест функциональных возможностей}
(*------------------------------*)
Uses
Crt;
Label
Metka;
Var
i:Integer;
Const
N = 5;
Type
AOB = array[1..70] of Byte;
Begin
asm
mov ah,02
int 16h
end;
ClrScr;
{Инк до пяти}
While i<>5 do Inc(i);
Repeat {Ожидаем нажатия клавиши}
Until KeyPressed;
For i:=1 to 5 do Inc(i);
For i:=1 downto 5 do i:=not i;
Goto Metka;
asm
and al,40h {Проверяем включен ли Caps-Lock}
cmp al,40h
je @AlreadyOn
mov ax,40h (* Тест функциональных возможностей *)
mov es,ax
{Желательно отсутствие вложенных элементов, комбинирование ограничителей комментариев}
mov di,17h
mov al,40h
or byte ptr es:di,al
@AlreadyOn:
end;
{Этот текст будет перекодирован: АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежз
ийклмнопрстуфхцчшщъыьэюя}
End.