Веселый шрифт Опции

[Shuruper]

Очень короткая но и интересная демка (текст можно менять):

Uses crt,graph;
Var a,b:integer;
    x,y:integer;
    c:integer;
BEGIN
Randomize;
a:=detect;
InitGraph(a,b,'');
SetTextStyle(0,0,9);
x:=100;
y:=100;
repeat
 c:=1+random(15);
 x:=100+random(10);
 y:=100+random(10);
 Setcolor©;
 Outtextxy(x,y,'CooL');
until keypressed;
ReadLn;
CloseGraph;
END.

[volvo]

И если тоже самое написано в два или в три раза короче оно на много эффективней предыдущего.

Вот и напиши СВОЮ программу, со спрайтами, в несколько раз короче - может эффективности прибавится (по твоему мнению короче = эффективнее? Делай короче...). А то искать ошибки в чужих программах - вы все мастера, а как свое написать - так...

Я с тобой не согласен.

Это твои личные проблемы. Практика показывает обратное.