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

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

[TarasBer]

> TarasBer, а давно ли ты зубами вгрызался в каждую лишнюю запятую в коде?

Меня всегда скорость выполнения волновала (я игродел, мне положено о таких вещах думать), а не собсно размер кода. Не?
А, ну да, помню, было дело, было...