oynak yazı
uses crt;
var
X,Y,Sat,Sut:byte;
begin
clrscr;
randomize;
Sut:=random(79); sat:=random(24);
X:=1; Y:=1;
repeat
gotoxy(sut,sat);
textbackground(16);
textcolor(10);
write('platform2.sitemynet.com ');
delay(5000);
gotoxy(sut,sat);write(' ');
sat:=sat+y; sut:= sut+x;
if (sut>79) or (sut<2) then X:=x*-1;
if (sat>24) or (sat<2) then y:=y*-1;
until keypressed;
end.
|