program wildloop;
uses crt;

{--------------------------------------------------------------------------

Run this program to see my special message!!

                        by 

--------------------------------------------------------------------------}


VAR         x:integer;
            y:integer;
begin

clrscr;
textcolor (7);

x := 0;
y := 0;
repeat
textcolor (y);
for x := 0 to y do write (' ');
write ('John is king!!!');
y := y + 1;
if y > 15 then y := 0;
until keypressed;

end.