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

[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.