Sziasztok! Az lenne a kérdésem hogy lehet megcsinálni a félkövér betüvel írottatkat úgy megcsinálni, hogy a fa villogjon? Sehogysem akar sikerülni…. :blink: Tudnátok segíteni?

program rajz;
uses crt;
procedure kornyezet;
           begin
           textmode(co80);
           textcolor(blue);
           textbackground(green);
           end;
procedure keretsarok;
           begin
           gotoxy(1,1);
           write(chr(201));
           gotoxy(79,1);
           write(chr(187));
           gotoxy(79,1);
           write(chr(187));
           gotoxy(79,25);
           write(chr(188));
           gotoxy(1,25);
           write(chr(200));
           end;
procedure keretoldal;
           var i:byte;
           begin
           for i:=2 to 78 do
           begin
           gotoxy(i,1);
           write(chr(205));
           end;
           for i:=2 to 24 do
           begin
           gotoxy(79,i);
           write(chr(186));
           end;
           for i:=2 to 78 do
           begin
           gotoxy(i,25);
           write(chr(205));
           end;
           for i:= 2 to 24 do
           begin
           gotoxy(1,i);
           write(chr(186));
           end;
           end;
procedure keretkozep;
           begin
                gotoxy(40,1);
                write(chr(203));
                gotoxy(79,12);
                write(chr(185));
                gotoxy(40,25);
                write(chr(202));
                gotoxy(1,12);
                write(chr(204));
                gotoxy(40,12);
                write(chr(206));
           end;
procedure vonalak;
           var i:byte;
           begin
           for i:=2 to 39do
           begin
           gotoxy(i,12);
           write(chr(205));
           end;
           for i:=41 to 78 do
           begin
           gotoxy(i,12);
           write(chr(205));
           end;
           for i:=13 to 24 do
           begin
           gotoxy(40,i);
           write(chr(186));
           end;
           for i:=2 to 11 do
           begin
           gotoxy(40,i);
           write(chr(186));
           end;
           end;

procedure nevek;
           var nev:string;
           begin
           gotoxy(5,5);
           write(‘Krem a nevet: ‘);
           readln(nev);
           gotoxy(50,5);
           write(nev);
           gotoxy(10,10);
           write(nev);
           end;

procedure szamol;
           var a,b,osszeg:integer;
           begin
           gotoxy(5,20);
           write(‘Krem a sz mot: ‘);
           readln(a);
           gotoxy(5,21);
           write(‘Krem b sz mot: ‘);
           readln(b);
           gotoxy(5,23);
           osszeg:=a+b;
           write(‘Osszeg: ‘,osszeg);
           end;
procedure fa;
          begin
          gotoxy(60,15);
          textbackground(black);
          textcolor(green);
          write(‘*’);
          gotoxy(59,16);
          write(‘***’);
          gotoxy(58,17);
          write(‘*****’);
          gotoxy(57,18);
          write(‘*******’);
          gotoxy(60,19);
          textcolor(brown);
          write(chr(186));
end;
begin
clrscr;
kornyezet;
keretsarok;
keretoldal;
keretkozep;
vonalak;
nevek;
szamol;
fa;
readln;
end.

Sziasztok!!

Elõre is köszönöm: Katy!!